maps/bin/add2blacklist.cgi

   1 #!/usr/bin/perl
   2 ################################################################################
   3 #
   4 # File:         $RCSfile: add2blacklist.cgi,v $
   5 # Revision:     $Revision: 1.1 $
   6 # Description:  Add an email address to the blacklist
   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 local $0 = $FindBin::Script;
  20
  21 use lib "$FindBin::Bin/../lib";
  22
  23 use Utils;
  24
  25 use MAPS;
  26 use MAPSLog;
  27 use MAPSWeb;
  28
  29 use CGI qw/:standard *table/;
  30 use CGI::Carp 'fatalsToBrowser';
  31
  32 sub Add2List(%) {
  33   my (%rec) = @_;
  34
  35   CheckParms(['userid', 'type'], \%rec);
  36
  37   my $nextseq = GetNextSequenceNo(%rec);
  38
  39   my $Userid = ucfirst $rec{userid};
  40
  41   while () {
  42     $rec{pattern}   = param "pattern$nextseq";
  43     $rec{domain}    = param "domain$nextseq";
  44     $rec{comment}   = param "comment$nextseq";
  45     $rec{hit_count} = param "hit_count$nextseq";
  46     $rec{retention} = param "retention$nextseq";
  47
  48     last unless $rec{pattern} or $rec{domain};
  49
  50     $rec{sender} = CheckEmail $rec{pattern}, $rec{domain};
  51
  52     my ($status, $rule) = OnBlacklist($rec{sender});
  53
  54     if ($status != 0) {
  55       print br {-class => 'error'},
  56         "The email address $rec{sender} is already on ${Userid}'s $rec{type} list";
  57     } else {
  58       my ($messages, $msg) = Add2Blacklist(%rec);
  59
  60       if ($messages < -1) {
  61         print br {-class => 'error'}, "Unable to add $rec{sender} to $rec{type} list";
  62         return;
  63       } else {
  64         print br "The email address, $rec{sender}, has been added to ${Userid}'s $rec{type} list";
  65       } # if
  66
  67       # Now remove this entry from the other lists (if present)
  68       for my $otherlist ('white', 'null') {
  69         FindList(
  70           userid => $rec{userid},
  71           type   => $otherlist,
  72           sender => $rec{sender},
  73         );
  74
  75         my $seq = GetList;
  76
  77         if ($seq->{sequence}) {
  78           my $err;
  79
  80           ($err, $msg) = DeleteList(
  81             userid   => $rec{userid},
  82             type     => $otherlist,
  83             sequence => $seq->{sequence},
  84           );
  85
  86           croak $msg if $err < 0;
  87
  88           print br "Removed $rec{sender} from ${Userid}'s " . ucfirst $otherlist . ' list'
  89             if $err > 0;
  90
  91           ResequenceList(
  92             userid => $rec{userid},
  93             type   => $otherlist,
  94           );
  95         } # if
  96       } # for
  97     } # if
  98
  99     $nextseq++;
 100   } # while
 101
 102   return;
 103 } # Add2List
 104
 105 # Main
 106 my $userid = Heading(
 107   'getcookie',
 108   '',
 109   'Add to Black List',
 110   'Add to Black List',
 111 );
 112
 113 $userid ||= $ENV{USER};
 114
 115 my $type = 'black';
 116
 117 SetContext($userid);
 118
 119 NavigationBar($userid);
 120
 121 Add2List(
 122   userid => $userid,
 123   type   => $type,
 124 );
 125
 126 print start_form {
 127   -method => 'post',
 128   -action => 'processaction.cgi',
 129   -name   => 'list',
 130 };
 131
 132 print '<p></p><center>',
 133   hidden ({-name => 'type',   -default => $type}),
 134   submit ({-name => 'action', -value   => 'Add'}),
 135   '</center>';
 136
 137 Footing;
 138
 139 exit;