Return to checkfrom.pl CVS log

Up to [Local Repository] / processmail

Annotation of processmail/checkfrom.pl, revision 2.1

2.1     ! boris       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: