Also cleaned up checkaddress.cgi a bit.
- header (-title => "MAPS: Check Address"),
+ header (-title => "MAPS: Check Address"),
start_html (-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
"MAPS: Checking address $sender";
} # Heading
#
# Finally, we handle return processing
($onlist, $rule) = OnWhitelist $sender;
#
# Finally, we handle return processing
($onlist, $rule) = OnWhitelist $sender;
if ($onlist) {
print div {-align => "center"},
font {-color => "green"},
"Messages from", b ($sender), "will be", b ("delivered"), br, hr;
if ($onlist) {
print div {-align => "center"},
font {-color => "green"},
"Messages from", b ($sender), "will be", b ("delivered"), br, hr;
} else {
($onlist, $rule) = OnBlacklist $sender;
} else {
($onlist, $rule) = OnBlacklist $sender;
if ($onlist) {
print div {-align => "center"},
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;
"Messages from", b ($sender), "will be", b ("blacklisted"), br, hr;
print $rule;
} else {
($onlist, $rule) = OnNulllist $sender;
if ($onlist) {
print div {-align => "center"},
font {-color => "grey"},
if ($onlist) {
print div {-align => "center"},
font {-color => "grey"},
} # if
print br div {-align => "center"},
} # if
print br div {-align => "center"},
- submit (-name => "submit",
- -value => "Close",
- -onClick => "window.close (self)");
+ submit (-name => "submit",
+ -value => "Close",
+ -onClick => "window.close (self)");
my @msgs = ReturnMessages $userid, $sender;
my @msgs2 = @msgs;
my @msgs = ReturnMessages $userid, $sender;
my @msgs2 = @msgs;
+ my ($onlist, $rule);
+ $rule = 'none';
+
+ ($onlist, $rule) = OnNulllist $sender;
+
+ unless ($onlist) {
+ ($onlist, $rule) = OnBlacklist $sender;
+
+ unless ($onlist) {
+ ($onlist, $rule) = OnWhitelist $sender;
+ } # unless
+ } # unless
+
$next++;
print
start_Tr {-valign => 'middle'};
$next++;
print
start_Tr {-valign => 'middle'};
td {-class => 'tableborder'}, small ($next,
checkbox {-name => "action$next",
-label => ''}),
td {-class => 'tableborder'}, small ($next,
checkbox {-name => "action$next",
-label => ''}),
- hidden ({-name => "email$next",
+ hidden ({-name => "email$next",
-default => $sender});
print
start_td {-align => 'left'};
-default => $sender});
print
start_td {-align => 'left'};
-valign => 'middle',
-width => '40'}, 'Sender:',
td {-class => 'sender',
-valign => 'middle',
-width => '40'}, 'Sender:',
td {-class => 'sender',
+ -valign => 'middle',
+ -width => '50%'},
+ a {-href => "mailto:$sender?subject=$msgs2[0][0]"}, $sender,
+ td {
- a {-href => "mailto:$sender?subject=$msgs2[0][0]"}, $sender;