X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXLogPrint.pm;h=444e7c5f96e77af737939fa2d17033baad14c2f0;hb=4327a846608d5828537a3c37f90848db0f10d06f;hp=a01f5dedca68f663d55f07dc69465aff42746c77;hpb=266e6533b7197dd4887fa77b4a62282191539279;p=spider.git

diff --git a/perl/DXLogPrint.pm b/perl/DXLogPrint.pm
index a01f5ded..444e7c5f 100644
--- a/perl/DXLogPrint.pm
+++ b/perl/DXLogPrint.pm
@@ -19,7 +19,7 @@ use strict;
 
 use vars qw($VERSION $BRANCH);
 $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/  || (0,0));
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0));
 $main::build += $VERSION;
 $main::branch += $BRANCH;
 
@@ -46,7 +46,7 @@ sub print
 	if ($pattern) {
 		$hint = "m{\\Q$pattern\\E}i";
 	} else {
-		$hint = "!m{ann|rcmd|talk}";
+		$hint = "!m{ann|rcmd|talk|chat}";
 	}
 	if ($who) {
 		$hint .= ' && ' if $hint;
@@ -115,8 +115,9 @@ sub print_item
 	} elsif ($r->[1] eq 'talk') {
 		$r->[5] ||= "";
 		$s = "$r->[3] -> $r->[2] ($r->[4]) $r->[5]";
-	} elsif ($r->[1] eq 'ann') {
+	} elsif ($r->[1] eq 'ann' || $r->[1] eq 'chat') {
 		$r->[4] ||= "";
+		$r->[4] =~ s/^\#\d+ //;
 		$s = "$r->[3] -> $r->[2] $r->[4]";
 	} else {
 		$r->[2] ||= "";