sub readMessage {
$IsBody = 0;
-open IWJL, ">>/home/webstump/t.log";
-print IWJL "=========== SUSPICIOUS READMESSAGE\n";
+#open IWJL, ">>/home/webstump/t.log";
+#print IWJL "=========== SUSPICIOUS READMESSAGE\n";
while( <STDIN> ) {
-print IWJL "SsRm $_\n";
+#print IWJL "SsRm $_\n";
$Body .= $_;
print STDERR "Opening $MNG_ROOT/tmp/messages/$MessageNumber\n";
-open( MESSAGE, "> $MNG_ROOT/tmp/messages/$MessageNumber" );
-print MESSAGE $Body;
-close( MESSAGE );
+open( MESSAGE, "> $MNG_ROOT/tmp/messages/$MessageNumber" ) or die $!;
+print MESSAGE $Body or die $!;
+close( MESSAGE ) or die $!;
$Subject = "Subject: try again" if( !$Subject );
-open( COMMAND, "| sendmail -odb -oi $moderator > /dev/null" );
+open( COMMAND, "| sendmail -odb -oi $moderator > /dev/null" ) or die $!;
print COMMAND "From: $ENV{'DECISION_ADDRESS'}
$Subject ::$Prefix/$MessageNumber
approve
preapprove
-";
+" or die $!;;
-open( REASONS, "$MNG_ROOT/etc/rejection-reasons.lst" );
+open( REASONS, "$MNG_ROOT/etc/rejection-reasons.lst" ) or die $!;
while( <REASONS> ) {
($reason, $explanation) = split( /::/, $_ );
- print COMMAND "reject $reason\n";
+ print COMMAND "reject $reason\n" or die $!;
}
-close( REASONS );
+close( REASONS ) or die $!;
print COMMAND "
Message follows:
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
-";
+" or die $!;
-print COMMAND $Body;
-close( COMMAND );
+print COMMAND $Body or die $!;
+close( COMMAND ) or die "$? $!";
if( $needAck eq "yes" ) {
- open( ACK, "| modack.received" );
- print ACK $Body;
- close( ACK );
+ open( ACK, "| modack.received" ) or die $!;
+ print ACK $Body or die $!;
+ close( ACK ) or die "$? $!";
}
1;