From: Jacob Bachmeyer <jcb@gnu.org>
Date: Sun, 13 Feb 2022 04:32:24 +0000 (-0600)
Subject: Add debugging message reporting directive signature timestamp
X-Git-Url: https://vcs.fsf.org/?a=commitdiff_plain;h=9e8faa90f374d5ddfc92e6b23e9e028419cbac64;p=gatekeeper.git

Add debugging message reporting directive signature timestamp
---

diff --git a/testsuite/lib/upload.exp b/testsuite/lib/upload.exp
index 6c38d84..53e2de8 100644
--- a/testsuite/lib/upload.exp
+++ b/testsuite/lib/upload.exp
@@ -747,6 +747,12 @@ proc analyze_log { base_dir name assess } {
 		     set A(validate,filename-mismatch-directive) 1
 		     exp_continue
 		 }
+	-re {^ftp-upload\[[0-9]+\]: \(Test\)\
+		 DEBUG: Signature made [^\r\n]+} {
+		     # from read_directive_file, reporting signature timestamp
+		     set A(validate,signature-timestamp) 1
+		     exp_continue
+		 }
 
 	-re {^ftp-upload\[[0-9]+\]: \(Test\)\
 		 DEBUG: [^ ]+ size is [[:digit:]]+} {
diff --git a/upload-ftp-v1.2.pl b/upload-ftp-v1.2.pl
index 0f0f42c..c274991 100755
--- a/upload-ftp-v1.2.pl
+++ b/upload-ftp-v1.2.pl
@@ -976,6 +976,9 @@ sub read_directive_file {
   # test of the $filename_required variable.
   if (($retval =~ /Signature made (.*)/) && ($filename_required)) {
     my $timestr = $1;
+
+    ftp_syslog('debug', "($log_style) DEBUG: Signature made $1") if DEBUG;
+
     # If the time/date string starts with a weekday (e.g. "Wed Apr 28 16:40:03 2004 EDT"),
     # chop off the weekday - Date::Manip doesn't like it
     $timestr =~ s/^[a-z]+? ([a-z]+)/$1/i;