Remove fatal

The uses of fatal have been entirely converted to simple and structured
exceptions, allowing the gatekeeper to continue processing after a bad
upload is encountered.

diff --git a/gatekeeper.pl b/gatekeeper.pl
index 8e83ecbeebe15ecd302e1fdee914bb6047872c23..937b6157964b309bb91b03729d411cba0c71599e 100755 (executable)
--- a/gatekeeper.pl
+++ b/gatekeeper.pl
@@ -371,7 +371,7 @@ if (IN_TEST_MODE) { # override the above for testing
   close $gpgv;
 }
 
-my %info;   # package being processed; a global so fatal and mail can use it
+my %info;   # package being processed; a global so mail can use it
 
 =head1 INTERNALS
 
@@ -520,7 +520,7 @@ BEGIN {
 }
 
 # make sure our directories all exist, or it's hopeless.
-# Use die instead of fatal - this error should "never" happen.
+# Use ftp_abort here - this error should "never" happen.
 {
   our $Inbox_dir; our $Scratch_dir; our $Public_dir; our $Stage_dir;
   for my $dir ($package_config_base, $Inbox_dir, $Scratch_dir,
@@ -1334,39 +1334,6 @@ sub debug {
           $msg);
 }
 
-# Send email with TAINTED_MSG to the ftp maintainers, as well as any
-# address specified for the package.  Rename the bad files with a
-# leading . so we don't try to process them again.  Finally, write the
-# same MSG to stderr and exit badly.
-#
-# It's ok that we quit here without processing every file, because we'll
-# be invoked again from cron in a few minutes and will look further then.
-# The bad . files will eventually get cleaned up via a separate script.
-#
-sub fatal {
-  my $tainted_msg = shift;
-  my $send_to_user = shift;
-  # If we fail before we have sent a copy of the directive file contents to
-  # the maintainer (when running in DEBUG mode), that copy is passed along,
-  # and we can send it from here.
-  my $directive_file_contents = shift;
-  my $exit_code = shift;
-
-  ftp_syslog('err', "$tainted_msg");
-
-  # Don't let them do perl or shell quoting tricks, but show everything
-  # that's definitely harmless.
-  #
-  $tainted_msg =~  s=[^-.:,/@\w\s]==g;
-  $tainted_msg =~ m=^([-.:,/@\w\s]+)$=;
-  my $msg = $1;
-
-  our $Phase;
-  die {Phase => $Phase,
-        message => $msg,
-          send_to_user => $send_to_user};
-}
-
 \f
 #
 # - Directive reader and parsing helpers
@@ -2707,10 +2674,7 @@ foreach my $packet (@packets) {  # each list element is an array reference
          if $directive_text && DEBUG;
       }
 
-      # If a send_to_user key is set, then this came from a call to fatal().
-      if (defined $E->{send_to_user}) {                # scaffolding for now
-       mail($E->{message},$E->{send_to_user});
-      } elsif ($E->type_p('directive_syntax')) {
+      if ($E->type_p('directive_syntax')) {
        mail(join("\n",$E->summary,'',$E->trace_msg),1);
       } elsif ($E->type_p('package_configuration')) {
        mail($E->summary,0);