open IWJL, ">>/home/webstump/t.log";
print IWJL "=========== SUBMISSION MAIN\n";
-open( COMMAND, "| $command" );
+open( COMMAND, "| $command" ) or die $!;
open( TMPFILE, "$TmpFile" ) || die "cant open tmpfile";
$IsBody = 0;
while( <TMPFILE> ) {
-print IWJL "SbRt $_\n";
if( $BadNewsserver && !(/^$/) ) {
next;
}
}
-close( TMPFILE );
-close( COMMAND );
+close( TMPFILE ) or die $!;
+close( COMMAND ) or die $!;
################################################################## Archiving
# archive
close( COMMAND );
if( $needAck eq "yes" ) {
- open( ACK, "| modack.received" );
+ open( ACK, "| modack.received" ) or die $!;
print ACK $Body;
- close( ACK );
+ close( ACK ) or die $!;
}
1;