2 ################################################################################
4 # File: $RCSfile: checkaddress,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 ################################################################################
20 use lib $FindBin::Bin, '/opt/clearscm/lib';
25 error ("Must specify an email address to check", 1)
26 if !$ARGV[0] or $ARGV[0] eq "";
33 my $username = lc $ENV{USER};
35 my ($user, $domain) = $sender =~ /(.+)\@(.+)/;
37 unless ($user and $domain) {
38 error "Illegal email address $sender";
43 if ($domain eq "defaria.com" and $user ne $username) {
44 display "Nulllist - $sender is from this domain but is not from $username";
48 ($status, $rule) = OnNulllist $sender;
51 display "Sender $sender would be nulllist'ed\n$rule";
53 ($status, $rule) = OnBlacklist $sender;
56 display "Sender $sender would be blacklist'ed\n$rule";
58 ($status, $rule) = OnWhitelist $sender;
61 display "Sender $sender would be whitelist'ed\n$rule";
63 display "Sender $sender would be returned";