maps/bin/add2nulllist.pl

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   4
   5 use FindBin;
   6
   7 use lib $FindBin::Bin, '/opt/clearscm/lib';
   8
   9 use MAPS;
  10 use MAPSLog;
  11 use MAPSWeb;
  12 use Display;
  13
  14 # Highly specialized!
  15 my $userid = $ENV{USER};
  16 my $Userid;
  17 my $type = "null";
  18
  19 sub GetItems {
  20   my $filename = shift;
  21
  22   my @items;
  23
  24   open my $file, '<', $filename
  25     or error "Unable to open $filename - $!", 1;
  26
  27   while (<$file>) {
  28     my @fields = split;
  29     my %item;
  30
  31     my @address = split /\@/, $fields [0];
  32
  33     $item{pattern}   = $address[0];
  34     $item{domain}    = $address[1];
  35     $item{comment}   = $fields[1] ? $fields[1] : '';
  36     $item{hit_count} = $fields[2] ? $fields[2] : 0;
  37
  38     push @items, \%item;
  39   } # while
  40
  41   close $file;
  42
  43   return @items;
  44 } # GetItems
  45
  46 sub Add2List {
  47   my @items = @_;
  48
  49   my $sender  = "";
  50   my $nextseq = MAPSDB::GetNextSequenceNo $userid, $type;
  51
  52   foreach (@items) {
  53     my %item = %{$_};
  54
  55     my $pattern   = $item{pattern};
  56     my $domain    = $item{domain};
  57     my $comment   = $item{comment};
  58     my $hit_count = $item{hit_count};
  59
  60     display_nolf "Adding $pattern\@$domain ($comment) to null list ($nextseq)...";
  61
  62     last if ((!defined $pattern || $pattern eq '') &&
  63              (!defined $domain  || $domain  eq ''));
  64
  65     $sender = lc ("$pattern\@$domain");
  66
  67     if (OnNulllist $sender) {
  68       display " Already on list";
  69     } else {
  70       Add2Nulllist $sender, $userid, $comment, $hit_count;
  71       display " done";
  72
  73       # Now remove this entry from the other lists (if present)
  74       foreach my $otherlist ("white", "black") {
  75         my $sth = FindList $otherlist, $sender;
  76         my ($sequence, $count);
  77
  78         ($_, $_, $_, $_, $_, $sequence) = GetList $sth;
  79
  80         if ($sequence) {
  81           $count = DeleteList $otherlist, $sequence;
  82         } # if
  83       } # foreach
  84     } # if
  85     $nextseq++;
  86   } # while
  87
  88   return;
  89 } # Add2List
  90
  91 # Main
  92 my $filename;
  93
  94 if ($ARGV [0]) {
  95   $filename = $ARGV[0];
  96 } else {
  97   error "Must specify a filename of addresses to null list", 1;
  98 } # if
  99
 100 SetContext $userid;
 101
 102 $Userid = ucfirst $userid;
 103
 104 Add2List (GetItems $filename);
 105
 106 exit;