Rename debug procedure to reflect its actual usage and simplify call

diff --git a/gatekeeper.pl b/gatekeeper.pl
index 25b9269860534fcbc1617dc8c2f24f75cd02c454..9d134cf2ccf551ba2e11dde876c13d30955c2c47 100755 (executable)
--- 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);