X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=maps%2Fbin%2FMAPS.pm;h=eabe32ecece232451c7038df333d6145be9b3f90;hb=48784bba5d049ef84fa03f63ed581508d6c5cbf0;hp=bb0c368c3a23a11b12e05b4473721f86d4c4e06c;hpb=64cb05c445d480f29d266e70db6eb1d021d34456;p=clearscm.git diff --git a/maps/bin/MAPS.pm b/maps/bin/MAPS.pm index bb0c368..eabe32e 100644 --- a/maps/bin/MAPS.pm +++ b/maps/bin/MAPS.pm @@ -242,12 +242,12 @@ sub AddEmail ($$$) { MAPSDB::AddEmail $sender, $subject, $data; } # AddEmail -sub AddList ($$$;$$) { - my ($listtype, $pattern, $sequence, $comment, $hit_count) = @_; +sub AddList ($$$;$$$) { + my ($listtype, $pattern, $sequence, $comment, $hit_count, $last_hit) = @_; $hit_count //= CountMsg $pattern; - MAPSDB::AddList $listtype, $pattern, $sequence, $comment, $hit_count; + MAPSDB::AddList $listtype, $pattern, $sequence, $comment, $hit_count, $last_hit; } # AddList sub AddUser ($$$$) {