# checks charter calling conforms_charter
#
sub checkCharter {
- open( VERIFY, "|conforms_charter" );
- print VERIFY $Body;
+ open( VERIFY, "|conforms_charter" ) or die $!;
+ print VERIFY $Body or die $!;
close( VERIFY );
return $? == 0;
}
if( &nameIsInList( $From, $badGuys ) ) {
- return "$Command_Reject abuse";
+ return "$Command_Reject blocklist";
}
# note that if even a preapproved person uses "BAD words" (that is
sub readMessage {
-open IWJL, ">>/home/webstump/t.log";
-print IWJL "=========== SUBMISSION READMESSAGE\n";
+#open IWJL, ">>/home/webstump/t.log";
+#print IWJL "=========== SUBMISSION READMESSAGE\n";
- open( TMPFILE, "> $TmpFile" );
+ open( TMPFILE, "> $TmpFile" ) or die $!;
$IsBody = 0;
while( <> ) {
-print IWJL "SbRm $_\n";
+#print IWJL "SbRm $_\n";
$Body .= $_;
if( !$IsBody && &ignoreHeader( $_ ) ) {
next;
}
- print TMPFILE;
+ print TMPFILE or die $!;
chop;
}
}
use IO::Handle;
- print IWJL "SbRmE $!\n";
+# print IWJL "SbRmE $!\n";
die "read message $! !" if STDIN->error;
close( TMPFILE );
# process
print STDERR "command = $command\n";
-open IWJL, ">>/home/webstump/t.log";
-print IWJL "=========== SUBMISSION MAIN\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;
}
if( /^From / ) {
- print COMMAND;
- print COMMAND "X-Origin: $X_Origin, $_" if $X_Origin;
+ print COMMAND or die $!;
+ print COMMAND "X-Origin: $X_Origin, $_" or die $! if $X_Origin;
print STDERR "Subject =`$Subject'\n";
- print COMMAND "Subject: No subject given\n" if !$Subject;
+ print COMMAND "Subject: No subject given\n" or die $! if !$Subject;
# nothing
} elsif( /^From: / && !$IsBody) {
next if $FromWasUsed;
# "From: " to go to headers!
if( $From ) {
- print COMMAND "$From\n";
+ print COMMAND "$From\n" or die $!;
$From = "";
} else {
- print COMMAND;
+ print COMMAND or die $!;
}
} elsif( /^Newsgroups: / && !$IsBody ) {
- print COMMAND "Newsgroups: $Newsgroups\n";
+ print COMMAND "Newsgroups: $Newsgroups\n" or die $!;
} else {
- print COMMAND;
+ print COMMAND or die $!;
}
}
-close( TMPFILE );
-close( COMMAND );
+close( TMPFILE ) or die $!;
+close( COMMAND ) or die "$? $!";
################################################################## Archiving
# archive