sub formatRule($) {
my ($rec) = @_;
- return "$rec->{pattern}\@$rec->{domain}:$rec->{sequence}/$rec->{hit_count}";
+ return "$rec->{pattern}\@$rec->{domain}:$rec->{sequence}/$rec->{hit_count} $rec->{comment}";
} # formatRule
sub ProcessMsgs ($$$) {
# Discard messges coming from andrew@clearscm.com because I don't send from
# that email address
if (lc $msgInfo{to} eq 'andrew@clearscm.com') {
- $log->msg("Nullisting message from Andrew\@ClearSCM.com since I don't send from that email address");
+ $log->msg("Nulllisting message from Andrew\@ClearSCM.com since I don't send from that email address");
next;
} # if