2 ################################################################################
4 # File: $RCSfile: checkaddress.cgi,v $
5 # Revision: $Revision: 1.1 $
6 # Description: Check an email address
7 # Author: Andrew@DeFaria.com
8 # Created: Mon Jan 16 20:25:32 PST 2006
9 # Modified: $Date: 2013/06/12 14:05:47 $
12 # (c) Copyright 2000-2006, Andrew@DeFaria.com, all rights reserved.
14 ################################################################################
19 $0 = $FindBin::Script;
21 use lib $FindBin::Bin;
25 use CGI qw (:standard);
27 # Get MAPSUser from cookie
31 $userid = param "user";
33 $userid = cookie ("MAPSUser");
36 my $sender = param ("sender");
40 header (-title => "MAPS: Check Address"),
41 start_html (-title => "MAPS: Check Address",
42 -author => "Andrew\@DeFaria.com");
43 print h3 {-align => "center",
45 "MAPS: Checking address $sender";
51 ($status, $rule) = OnNulllist $sender;
53 print div {-align => "center"},
54 font {-color => "grey"},
55 "Messages from", b ($sender), "will be", b ("discarded"), br, hr;
58 ($status, $rule) = OnBlacklist $sender;
60 print div {-align => "center"},
61 font {-color => "black"},
62 "Messages from", b ($sender), "will be", b ("blacklisted"), br, hr;
65 ($status, $rule) = OnWhitelist $sender;
67 print div {-align => "center"},
68 font {-color => "green"},
69 "Messages from", b ($sender), "will be", b ("delivered"), br, hr;
72 print div {-align => "center"},
73 font {-color => "red"},
74 "Messages from", b ($sender), "will be", b ("returned");
79 print br div {-align => "center"},
80 submit (-name => "submit",
82 -onClick => "window.close (self)");