Return to checkfrom.pl CVS log

Up to [Local Repository] / processmail

Added new files

    1: #!/usr/bin/perl
    2: 
    3: use strict;
    4: 
    5: open (TEAMS, "tmp.res");
    6: my %teams;
    7: while (<TEAMS>) {
    8:     chomp;
    9:     s/^\s+//;
   10:     s/\s+$//;
   11:     $teams{$_}=1;
   12: }
   13: close TEAMS;
   14: 
   15: my $name="";
   16: while (<>) {
   17:     chomp;
   18:     s/^\s+//;
   19:     s/\s+$//;
   20:     if (/^From: (.*)$/) {
   21: 	$name=$1;
   22: 	next;
   23:     }
   24:     if (exists $teams{$_}) {
   25: 	s/\*\*\*\s+//;
   26: 	print "$name ($_)\n";
   27: 	next;
   28:     }
   29: }
   30: