Import version as of 2008-02-11 for upload-ftp-v1.1.pl

diff --git a/upload-ftp-v1.1.pl b/upload-ftp-v1.1.pl
index 8063c1676db1c8aa58a46c6a9325b6b3a5ed3d5b..9b708ea74b9b11d56216a42dcdc4efd24265e7cc 100755 (executable)
--- a/upload-ftp-v1.1.pl
+++ b/upload-ftp-v1.1.pl
@@ -424,7 +424,15 @@ sub scan_incoming {
         || &fatal("rename $incoming_dir/$base to $incoming_tmp/$base failed: $!",0);
 
       delete $possible{$base};
-    }
+    } elsif ((-f $directive) && ((-s $directive) >= 50*1024)) {
+       rename ("$incoming_dir/$directive", "$incoming_dir/.$directive");
+                       ftp_syslog('info', "($log_style) $directive larger than 50KB");
+                       &fatal("The directive file $directive is larger than 50KB. This can not be correct, ignoring upload.",0);
+               } elsif ((-f $sig) && ((-s $sig) >= 50*1024)) {
+       rename ("$incoming_dir/$sig", "$incoming_dir/.$sig");
+                       ftp_syslog('info', "($log_style) $directive or $sig larger than 50KB");
+                       &fatal("The signature file $sig is larger than 50KB. This can not be correct, ignoring upload.",0);
+               }
   }
 
   return @ret;