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 local $0 = $FindBin::Script;
21 use lib "$FindBin::Bin/../lib";
22 use lib "$FindBin::Bin/../../lib";
26 use CGI qw(:standard);
28 # Get MAPSUser from cookie
32 $userid = param 'user';
34 $userid = cookie 'MAPSUser';
37 $userid //= $ENV{USER};
39 my $sender = param("sender");
43 header (-title => "MAPS: Check Address"),
44 start_html (-title => "MAPS: Check Address",
45 -author => "Andrew\@DeFaria.com");
46 print h3 {-align => "center",
48 "MAPS: Checking address $sender";
56 # Algorithm change: We now first check to see if the sender is not found
57 # in the message and skip it if so. Then we handle if we are the sender
58 # and that the from address is formatted properly. Spammers often use
59 # the senders email address (i.e. andrew@defaria.com) as their from address
60 # so we check "Andrew DeFaria <Andrew@DeFaria.com>", which they have never
61 # forged. This catches a lot of spam actually.
63 # Next we check to see if the sender is on our whitelist. If so then we let
64 # them in. This allows us to say whitelist josephrosenberg@hotmail.com while
65 # still nulllisting all of the other hotmail.com spammers.
67 # Next we process blacklisted people as they are also of high priority.
69 # Then we process nulllist people.
71 # Finally, we handle return processing
72 ($onlist, $rule) = OnWhitelist($sender, $userid, 0);
75 print div {-align => "center"},
76 font {-color => "green"},
77 "Messages from", b ($sender), "will be", b ("delivered"), br, hr;
80 ($onlist, $rule) = OnBlacklist($sender, 0);
83 print div {-align => "center"},
84 font {-color => "black"},
85 "Messages from", b ($sender), "will be", b ("blacklisted"), br, hr;
88 ($onlist, $rule) = OnNulllist($sender, 0);
91 print div {-align => "center"},
92 font {-color => "grey"},
93 "Messages from", b ($sender), "will be", b ("discarded"), br, hr;
96 print div {-align => "center"},
97 font {-color => "red"},
98 "Messages from", b ($sender), "will be", b ("returned");
103 print br div {-align => "center"},
104 submit(-name => "submit",
106 -onClick => "window.close (self)");