X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXLogPrint.pm;h=752e72acd64aaa5470d0d3cae4cb619041d0ed4a;hb=defc60f3e7fab9bb99d1c9f7b8bccc4ec37628d5;hp=a01f5dedca68f663d55f07dc69465aff42746c77;hpb=a7d7ca1d8383bea004544d002748db81d867ea11;p=spider.git diff --git a/perl/DXLogPrint.pm b/perl/DXLogPrint.pm index a01f5ded..752e72ac 100644 --- a/perl/DXLogPrint.pm +++ b/perl/DXLogPrint.pm @@ -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] ||= "";