$Argv = join( ' ', @ARGV );
-open( PROCESS_APPROVED, "|processApproved $Argv" );
+open( PROCESS_APPROVED, "|processApproved $Argv" ) or die $!;
while( <STDIN> ) {
$From = $_ if( /^From: / );
- print PROCESS_APPROVED;
+ print PROCESS_APPROVED or die $!;
chop;
last if( /^$/ );
}
while( <STDIN> ) { # Body
- print PROCESS_APPROVED;
+ print PROCESS_APPROVED or die $!;
}
-close PROCESS_APPROVED;
+close PROCESS_APPROVED or die "$? $!";
$From =~ s/^From: //g;
if( $From =~ m/([\w-\.]*)\@([\w-\.]+)/ ) {
exit 0;
}
-if( !&nameIsInList( $From, "good.guys.list" ) ) { # need to preapprove
+if( !&nameIsInListExactly( $From, "good.guys.list" ) ) { # need to preapprove
&logAction( "Action: processPreapproved $From\n" );
- open( GOOD_GUYS, ">>$GoodGuys" );
- print GOOD_GUYS "$From\n";
- close( GOOD_GUYS );
+ open( GOOD_GUYS, ">>$GoodGuys" ) or die $!;
+ print GOOD_GUYS "$From\n" or die $!;
+ close( GOOD_GUYS ) or die $!;
} else {
print STDERR "$From already preapproved\n";
}