projects
/
clearscm.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fixed up timezone in Perl and formated time more consistently
[clearscm.git]
/
maps
/
bin
/
MAPS.pm
diff --git
a/maps/bin/MAPS.pm
b/maps/bin/MAPS.pm
index
bb0c368
..
dd7c672
100644
(file)
--- a/
maps/bin/MAPS.pm
+++ b/
maps/bin/MAPS.pm
@@
-139,8
+139,8
@@
sub UserExists;
sub Whitelist;
BEGIN {
sub Whitelist;
BEGIN {
- my $MAPS_username = "maps
admin
";
- my $MAPS_password = "
mapsadmin
";
+ my $MAPS_username = "maps";
+ my $MAPS_password = "
spam
";
OpenDB $MAPS_username, $MAPS_password;
} # BEGIN
OpenDB $MAPS_username, $MAPS_password;
} # BEGIN
@@
-242,12
+242,12
@@
sub AddEmail ($$$) {
MAPSDB::AddEmail $sender, $subject, $data;
} # 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;
$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 ($$$$) {
} # AddList
sub AddUser ($$$$) {