Actual error messages

[modbot-ulm.git] / stump / bin / acceptFromMod.pl

diff --git a/stump/bin/acceptFromMod.pl b/stump/bin/acceptFromMod.pl
index 9927f5cf9ab8b203b24a1a2b8a9d8df315f3a9e5..3e408f103d2b297b9f6571a89c6d94b9b4ed57d6 100755 (executable)
--- a/stump/bin/acceptFromMod.pl
+++ b/stump/bin/acceptFromMod.pl
@@ -136,15 +136,15 @@ $ENV{'EXPLANATION'} = $comment;
 open( COMMAND, "| $command" ) ||  &processError( "$command failed" );
 
   open( MESSAGE, "$MessageFile" ) || &processError( "Can't open $MessageFile" );
-  print COMMAND while( <MESSAGE> );
-  close( MESSAGE );
+  while( <MESSAGE> ) { print COMMAND or die $!; }
+  close( MESSAGE ) or die "$? $!";
 
 #  if( $comment && !($command =~ '^processRejected') ) {
 #    print COMMAND 
 #       "\n======================================= MODERATOR'S COMMENT: \n" .
 #       $comment;
 #  }
-#close( COMMAND );
+close( COMMAND ) or die "$? $!";
 
 &processError( "No action specified" ) 
   if( $done ne "yes" );