Add target directory to directive_syntax exceptions

This will allow the exception handling to easily look up the email
addresses that are to be notified, since a directive_syntax exception can
be thrown before the normal processing collects this information.

diff --git a/gatekeeper.pl b/gatekeeper.pl
index b66d6e220ec207676dceb0c30f5ad606b67b0c1d..c84edc44a38f422a7d573820180ca4278609d406 100755 (executable)
--- a/gatekeeper.pl
+++ b/gatekeeper.pl
@@ -633,6 +633,8 @@ END
   package Local::Exception::directive_syntax;
   {our @ISA = qw(Local::Exception)}
 
+  sub directory        { (shift)->{directory}  }
+
   sub trace    { (shift)->{trace}      }
 
   sub trace_msg
@@ -2091,7 +2093,7 @@ sub interpret_directive {
 
   if (@errors) {
     throw directive_syntax =>
-      trace => \@trace, summary => $errors[0];
+      trace => \@trace, summary => $errors[0], directory => $header{directory};
   }
 
   return \@ops;
@@ -2216,11 +2218,13 @@ sub validate_directive {
   # Check that we actually have at least one command in the directive
   unless ($#$ops > 0) {
     if (1 == scalar @$packet) {
-      throw directive_syntax => trace => [],
+      throw directive_syntax =>
+       trace => [], directory => $op_header->{directory},
        summary => 'nothing to do - no commands in directive file';
     } else {
       # Provide a different message if this looks like an upload packet.
-      throw directive_syntax => trace => [],
+      throw directive_syntax =>
+       trace => [], directory => $op_header->{directory},
        summary => "no filename element in $stem.directive.asc."
          .' Upgrade to the latest version! '
            .'See http://www.gnu.org/prep/maintain/maintain.html';
@@ -2712,7 +2716,7 @@ foreach my $packet (@packets) {   # each list element is an array reference
 
     # This would imply that the directive file did not contain a signed
     # message.  There is nothing further to do.
-    throw directive_syntax => trace => [],
+    throw directive_syntax => trace => [], directory => undef,
       summary => "directive file $packet->[0] has no signature"
        if $directive_text eq '';