Imported Upstream version 2.10

[pkg/t-prot.git] / t-prot

diff --git a/t-prot b/t-prot
index c4b06b2b358a8fd035e52197dee813ca71054197..e2b36cff8acaa8b236ddc84531a46a835117e7de 100755 (executable)
--- a/t-prot
+++ b/t-prot
@@ -1,13 +1,13 @@
 #!/usr/bin/perl -w
-# $Id: t-prot,v 1.264 2009/12/19 22:18:47 jochen Exp $
+# $Id: t-prot,v 1.267 2009/12/30 21:34:16 jochen Exp $
 
 require 5.006;
 use strict;
 use Fcntl qw(O_EXCL O_WRONLY O_CREAT);
 use Getopt::Mixed qw(nextOption);
-use constant VER            => '2.8';
+use constant VER            => '2.10';
 use constant REV            => '';
-use constant REL            => q$Revision: 1.264 $=~m/(\d+(?:\.\d+)+)/;
+use constant REL            => q$Revision: 1.267 $=~m/(\d+(?:\.\d+)+)/;
 # MTA expecting mail on STDIN
 # (you might have to adjust this if using a different MTA)
 use constant SENDMAIL       => '/usr/sbin/sendmail -oi';
@@ -442,11 +442,6 @@ sub process_msg {
     my (@ads, @hdr, @bo1, @bo2, @ftr, @sig, @vrb, @att) = 
         ((), (), (), (), (), (), (), (), ());
 
-    # First, check msg length and stop processing if msg is too long:
-    if ((defined $maxlines) && (@$lines > $maxlines)) {
-        return;
-    }
-
     # Remove and store lines we might need later...
     # Remove headers:
     if (!$nohdr) {
@@ -1071,6 +1066,14 @@ if (!open(IN, $ifile))
 my @message = <IN>;
 close IN;
 
+# First, check msg length and stop processing if msg is too long:
+if ((defined $maxlines) && (@message > $maxlines)) {
+    if ($ofile ne 'NONE') {
+        write_msg(($mda?'|'.SENDMAIL." $mda":">$ofile"), \@message);
+    }
+    exit(EX_DATAERR);
+}
+
 # this should be self-explanatory:
 process_msg(\@message);