Revise execute_commands to use new model

diff --git a/gatekeeper.pl b/gatekeeper.pl
index 67f98e89e3350d421200e4e1915f4ee67ba214c5..a4175e7c0d29d61794c4b503c8376d3faa624204 100755 (executable)
--- a/gatekeeper.pl
+++ b/gatekeeper.pl
@@ -1941,9 +1941,14 @@ sub install_files {
     or fatal("rename($stage_upload, $final_upload) failed: $!",0);
 }
 
+=item execute_commands ( $oplist )
+
+Execute the commands in OPLIST.
+
+=cut
+
 sub execute_commands {
   my $oplist = shift;
-  my $files = shift;
 
   ftp_abort("invalid internal operation list")
     unless $oplist->[0][0] eq 'header';
@@ -2098,9 +2103,7 @@ foreach my $packet (@packets) {   # each list element is an array reference
 
     if ($oplist) {
       # do the work
-      execute_commands($oplist,
-                      {directive => $directive_file, upload => $upload_file,
-                       sig => $sig_file, directive_only => $directive_only});
+      execute_commands($oplist);
 
       # report success
       if (!$directive_only) {