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
dd7c672
..
babf46b
100644
(file)
--- a/
maps/bin/MAPS.pm
+++ b/
maps/bin/MAPS.pm
@@
-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 () {