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 # Algorithm change: We now first check to see if the sender is not found
52 # in the message and skip it if so. Then we handle if we are the sender
53 # and that the from address is formatted properly. Spammers often use
54 # the senders email address (i.e. andrew@defaria.com) as their from address
55 # so we check "Andrew DeFaria <Andrew@DeFaria.com>", which they have never
56 # forged. This catches a lot of spam actually.
58 # Next we check to see if the sender is on our whitelist. If so then we let
59 # them in. This allows us to say whitelist josephrosenberg@hotmail.com while
60 # still nulllisting all of the other hotmail.com spammers.
62 # Next we process blacklisted people as they are also of high priority.
64 # Then we process nulllist people.
66 # Finally, we handle return processing
67 ($onlist, $rule) = OnWhitelist $sender;
70 print div {-align => "center"},
71 font {-color => "green"},
72 "Messages from", b ($sender), "will be", b ("delivered"), br, hr;
75 ($onlist, $rule) = OnBlacklist $sender;
78 print div {-align => "center"},
79 font {-color => "black"},
80 "Messages from", b ($sender), "will be", b ("blacklisted"), br, hr;
83 ($onlist, $rule) = OnNulllist $sender;
86 print div {-align => "center"},
87 font {-color => "grey"},
88 "Messages from", b ($sender), "will be", b ("discarded"), br, hr;
91 print div {-align => "center"},
92 font {-color => "red"},
93 "Messages from", b ($sender), "will be", b ("returned");
98 print br div {-align => "center"},
99 submit (-name => "submit",
101 -onClick => "window.close (self)");