X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~webstump/git?a=blobdiff_plain;f=webstump%2Fscripts%2Fgatekeeper.lib;h=b90a2e066c2fa231fb4533d741cc8e2825d39d84;hb=ba127667dfd3840ea6f78067e2aa0b9002399c05;hp=3adca4b563b382790b306aa19ca3a8408acbc8e4;hpb=56d8a80761d68c123d55778d73b66268dabd3e34;p=modbot-mtm.git

diff --git a/webstump/scripts/gatekeeper.lib b/webstump/scripts/gatekeeper.lib
index 3adca4b..b90a2e0 100644
--- a/webstump/scripts/gatekeeper.lib
+++ b/webstump/scripts/gatekeeper.lib
@@ -67,7 +67,7 @@ sub prepareArticle {
 
   $body .= $_ while( <ARTICLE> );
 
-print "Header:\n\n$header\nBody:\n\n$body\n";
+print "Header:\n\n$header\nBody:\n\n$body\n" or die $!;
 
   return $headers . $body;
 }
@@ -92,8 +92,8 @@ sub processApproved {
     my $spoolfile = "$posting_spool_dir/$$.$time";
     open( SPOOL, ">$posting_spool_dir/$$.$time" ) 
       || &error( "Can't open $spoolfile" );
-    print SPOOL $message;
-    close( SPOOL );
+    print SPOOL $message or die $!;
+    close( SPOOL ) or die $!;
   }
 }