X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=maps%2Fbin%2Fcheckaddress.cgi;h=3b28cce9b6acae442b05a7756a60232c220446c2;hb=9f51fc95d361092058a17611614f31318a3fad0c;hp=06c3bc93569606fe448a069b10b07735acb5c845;hpb=5995b6839f7e566dbe9cd137ddd42343b28418b2;p=clearscm.git diff --git a/maps/bin/checkaddress.cgi b/maps/bin/checkaddress.cgi index 06c3bc9..3b28cce 100755 --- a/maps/bin/checkaddress.cgi +++ b/maps/bin/checkaddress.cgi @@ -64,7 +64,7 @@ sub Body { # Then we process nulllist people. # # Finally, we handle return processing - ($onlist, $rule) = OnWhitelist $sender; + ($onlist, $rule) = OnWhitelist $sender, $userid, 0; if ($onlist) { print div {-align => "center"}, @@ -72,7 +72,7 @@ sub Body { "Messages from", b ($sender), "will be", b ("delivered"), br, hr; print $rule; } else { - ($onlist, $rule) = OnBlacklist $sender; + ($onlist, $rule) = OnBlacklist $sender, 0; if ($onlist) { print div {-align => "center"}, @@ -80,7 +80,7 @@ sub Body { "Messages from", b ($sender), "will be", b ("blacklisted"), br, hr; print $rule; } else { - ($onlist, $rule) = OnNulllist $sender; + ($onlist, $rule) = OnNulllist $sender, 0; if ($onlist) { print div {-align => "center"}, @@ -95,10 +95,10 @@ sub Body { } # if } # if - print br div {-align => "center"}, - submit (-name => "submit", - -value => "Close", - -onClick => "window.close (self)"); + print br div {-align => "center"}, + submit (-name => "submit", + -value => "Close", + -onClick => "window.close (self)"); } # Body sub Footing {