From: unknown <sysadmin@gnu.org>
Date: Mon, 2 Aug 2010 17:11:00 +0000 (-0500)
Subject: Import version as of 2010-08-02 for upload-ftp-v1.1.pl
X-Git-Tag: 20200730__import~26
X-Git-Url: https://vcs.fsf.org/?a=commitdiff_plain;h=6e0f98b7719500748541e79a9c65db798d7429d3;p=gatekeeper.git

Import version as of 2010-08-02 for upload-ftp-v1.1.pl
---

diff --git a/upload-ftp-v1.1.pl b/upload-ftp-v1.1.pl
index 7ba545b..5c20d3a 100755
--- a/upload-ftp-v1.1.pl
+++ b/upload-ftp-v1.1.pl
@@ -356,7 +356,6 @@ sub execute_commands {
 #
 sub scan_incoming {
   my @ret;
-
   my %possible;
   # Get list of all possible files from incoming dir.
   #
@@ -375,7 +374,6 @@ sub scan_incoming {
   closedir (INCOMING) || ftp_die("FATAL: closedir($incoming_dir) failed: $!");
   # No possible files found, so return before we call lsof
   return @ret unless %possible;
-
   # Determine if any of those possible files are open.  We find the
   # possible files before running lsof (partly) to avoid a race
   # condition.  (If we ran lsof on the whole directory first, a new file
@@ -675,7 +673,7 @@ sub read_directive_file {
     } elsif ($tainted_cmd =~ /^comment:?$/i) {  # case-insensitive, w or w/o the :
       # Comments are ok, we ignore them
     } else {
-      &fatal("unrecognized directive ($tainted_cmd)",1,$directive_file_contents);
+      &fatal("Invalid directive line:\n\n  $tainted_cmd $tainted_val",1,$directive_file_contents);
     }
   }