sub Heading {
print
- header (-title => "MAPS: Check Address"),
+ header (-title => "MAPS: Check Address"),
start_html (-title => "MAPS: Check Address",
- -author => "Andrew\@DeFaria.com");
- print h3 {-align => "center",
- -class => "header"},
+ -author => "Andrew\@DeFaria.com");
+ print h3 {-align => "center",
+ -class => "header"},
"MAPS: Checking address $sender";
} # Heading
# 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"},
font {-color => "green"},
"Messages from", b ($sender), "will be", b ("delivered"), br, hr;
- print $rule;
+ print $rule;
} else {
- ($onlist, $rule) = OnBlacklist $sender;
-
+ ($onlist, $rule) = OnBlacklist $sender, 0;
+
if ($onlist) {
print div {-align => "center"},
- font {-color => "black"},
+ font {-color => "black"},
"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"},
font {-color => "grey"},
} # 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 {