projects
/
clearscm.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge branch 'master' of git+ssh://github.com/adefaria/clearscm
[clearscm.git]
/
maps
/
bin
/
MAPS.pm
diff --git
a/maps/bin/MAPS.pm
b/maps/bin/MAPS.pm
index
eabe32e
..
babf46b
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
@@
-439,26
+439,26
@@
sub Nulllist ($;$$) {
Logmsg "nulllist", $sender, "Discarded message";
} # Nulllist
Logmsg "nulllist", $sender, "Discarded message";
} # Nulllist
-sub OnBlacklist ($) {
- my ($sender) = @_;
+sub OnBlacklist ($
;$
) {
+ my ($sender
, $update
) = @_;
- return CheckOnList "black", $sender;
+ return CheckOnList "black", $sender
, $update
;
} # CheckOnBlacklist
} # CheckOnBlacklist
-sub OnNulllist ($) {
- my ($sender) = @_;
+sub OnNulllist ($
;$
) {
+ my ($sender
, $update
) = @_;
- return CheckOnList "null", $sender;
+ return CheckOnList "null", $sender
, $update
;
} # CheckOnNulllist
} # CheckOnNulllist
-sub OnWhitelist {
- my ($sender, $userid) = @_;
+sub OnWhitelist
($;$$)
{
+ my ($sender, $userid
, $update
) = @_;
if (defined $userid) {
MAPSDB::SetContext $userid;
} # if
if (defined $userid) {
MAPSDB::SetContext $userid;
} # if
- return CheckOnList "white", $sender;
+ return CheckOnList "white", $sender
, $update
;
} # OnWhitelist
sub OptimizeDB () {
} # OnWhitelist
sub OptimizeDB () {