chiark / gitweb /
Bugfixes for permissions
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Sat, 27 Feb 2010 23:55:11 +0000 (23:55 +0000)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Sat, 27 Feb 2010 23:55:11 +0000 (23:55 +0000)
stump/bin/submission.pl
stump/bin/suspicious.pl
stump/etc/modack.approved.INO [moved from stump/etc/modack.approved.IN1 with 100% similarity, mode: 0755]
stump/etc/modack.received.INO [moved from stump/etc/modack.received.IN1 with 100% similarity, mode: 0755]

index f978a1f..fe02ca8 100755 (executable)
@@ -405,13 +405,12 @@ print STDERR "command = $command\n";
 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;
@@ -452,8 +451,8 @@ print IWJL "SbRt $_\n";
     }
   }
 
-close( TMPFILE );
-close( COMMAND );
+close( TMPFILE ) or die $!;
+close( COMMAND ) or die $!;
 
 ################################################################## Archiving
 # archive
index 11bde7b..38b94f8 100755 (executable)
@@ -171,9 +171,9 @@ print COMMAND $Body;
 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;
old mode 100644 (file)
new mode 100755 (executable)
similarity index 100%
rename from stump/etc/modack.approved.IN1
rename to stump/etc/modack.approved.INO
old mode 100644 (file)
new mode 100755 (executable)
similarity index 100%
rename from stump/etc/modack.received.IN1
rename to stump/etc/modack.received.INO