X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=maps%2Fbin%2FMAPS.pm;h=bf6c82aa8bf70636b1dd60d6cce4a703bae99bf7;hb=ec9dcaa8edb34b1d8be0ce254423294f01ae48ab;hp=dd7c67255ff4424c2cd2d7d332f1def6a221aae8;hpb=066348c5a08e728fd796b8a963d3f5eeb1459a28;p=clearscm.git

diff --git a/maps/bin/MAPS.pm b/maps/bin/MAPS.pm
index dd7c672..bf6c82a 100644
--- a/maps/bin/MAPS.pm
+++ b/maps/bin/MAPS.pm
@@ -439,26 +439,26 @@ sub 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
 
-sub OnNulllist ($) {
-  my ($sender) = @_;
+sub OnNulllist ($;$) {
+  my ($sender, $update) = @_;
 
-  return CheckOnList "null", $sender;
+  return CheckOnList "null", $sender, $update;
 } # CheckOnNulllist
 
-sub OnWhitelist {
-  my ($sender, $userid) = @_;
+sub OnWhitelist ($;$) {
+  my ($sender, $userid, $update) = @_;
 
   if (defined $userid) {
     MAPSDB::SetContext $userid;
   } # if
 
-  return CheckOnList "white", $sender;
+  return CheckOnList "white", $sender, $update;
 } # OnWhitelist
 
 sub OptimizeDB () {