sub Whitelist;
BEGIN {
- my $MAPS_username = "mapsadmin";
- my $MAPS_password = "mapsadmin";
+ my $MAPS_username = "maps";
+ my $MAPS_password = "spam";
OpenDB $MAPS_username, $MAPS_password;
} # BEGIN
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 ($$$$) {