maps/bin/checkaddress.cgi

   1 #!/usr/bin/perl
   2 ################################################################################
   3 #
   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 $
  10 # Language:     perl
  11 #
  12 # (c) Copyright 2000-2006, Andrew@DeFaria.com, all rights reserved.
  13 #
  14 ################################################################################
  15 use strict;
  16 use warnings;
  17
  18 use FindBin;
  19 $0 = $FindBin::Script;
  20
  21 use lib $FindBin::Bin;
  22
  23 use MAPS;
  24
  25 use CGI qw (:standard);
  26
  27 # Get MAPSUser from cookie
  28 my $userid;
  29
  30 if (param "user") {
  31   $userid = param "user";
  32 } else {
  33   $userid = cookie ("MAPSUser");
  34 } # if
  35
  36 my $sender = param ("sender");
  37
  38 sub Heading {
  39   print
  40     header     (-title  => "MAPS: Check Address"),
  41     start_html (-title  => "MAPS: Check Address",
  42                 -author => "Andrew\@DeFaria.com");
  43     print h3 {-align    => "center",
  44               -class    => "header"},
  45     "MAPS: Checking address $sender";
  46 } # Heading
  47
  48 sub Body {
  49   my ($status, $rule);
  50
  51   ($status, $rule) = OnNulllist $sender;
  52   if ($status) {
  53     print div {-align   => "center"},
  54       font {-color      => "grey"},
  55       "Messages from", b ($sender), "will be", b ("discarded"), br, hr;
  56     print $rule;
  57   } else {
  58     ($status, $rule) = OnBlacklist $sender;
  59     if ($status) {
  60       print div {-align => "center"},
  61         font {-color    => "black"},
  62         "Messages from", b ($sender), "will be", b ("blacklisted"), br, hr;
  63       print $rule;
  64     } else {
  65       ($status, $rule) = OnWhitelist $sender;
  66       if ($status) {
  67         print div {-align       => "center"},
  68           font {-color  => "green"},
  69           "Messages from", b ($sender), "will be", b ("delivered"), br, hr;
  70         print $rule;
  71       } else {
  72         print div {-align       => "center"},
  73           font {-color  => "red"},
  74           "Messages from", b ($sender), "will be", b ("returned");
  75       } # if
  76     } # if
  77   } # if
  78
  79   print br div {-align  => "center"},
  80     submit (-name       => "submit",
  81             -value      => "Close",
  82             -onClick    => "window.close (self)");
  83 } # Body
  84
  85 sub Footing {
  86   print end_html;
  87 } # Footing
  88
  89 # Main
  90 SetContext $userid;
  91 Heading;
  92 Body;
  93 Footing;
  94
  95 exit;
  96