From: Jacob Bachmeyer <jcb@gnu.org>
Date: Wed, 16 Nov 2022 00:52:30 +0000 (-0600)
Subject: Rename debug procedure to reflect its actual usage and simplify call
X-Git-Url: https://vcs.fsf.org/?a=commitdiff_plain;h=0c092819e72367331b511fcdc316a253152b6326;p=gatekeeper.git

Rename debug procedure to reflect its actual usage and simplify call
---

diff --git a/gatekeeper.pl b/gatekeeper.pl
index 25b9269..9d134cf 100755
--- a/gatekeeper.pl
+++ b/gatekeeper.pl
@@ -1459,7 +1459,7 @@ sub mail {
 	   wrap('','',$msg));
 }
 
-sub debug {
+sub report_upload_to_archive {
   my $msg = shift;
   my $package_name = shift;
 
@@ -2707,13 +2707,11 @@ foreach my $packet (@packets) {	# each list element is an array reference
     push @email_addresses,
       directory_email_addresses($op_header->{directory});
 
-    # Phone home. E-mail the contents of the directive file to the maintainer,
-    # for debugging purposes.
-    if (defined $op_header->{package}) {
-      debug($directive_text, $op_header->{package}) if DEBUG;
-    } else {
-      debug($directive_text, '') if DEBUG;
-    }
+    # Phone home. E-mail the contents of the directive file to the public
+    # archive list.
+    report_upload_to_archive($directive_text,
+			     defined $op_header->{package}
+			     ? $op_header->{package} : '');
 
     validate_directive($packet, $oplist);