- enable warnings and clear 'em up

Changed files:
    request-handler.pl -> 1.10

diff --git a/request-handler.pl b/request-handler.pl
index 6cdfa067c4d187d8995ba7be20c4afce29763546..8c9a8169f9bef44d13c64b110d2091daf88e4169 100644 (file)
--- a/request-handler.pl
+++ b/request-handler.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 # read email with request from stdin and process it
 
 $spool_dir = "./spool";
@@ -9,6 +9,39 @@ $branch = "";
 $from = undef;
 $flags = "";
 
+# ---------------------------------------------------------------
+sub cleanup()
+{
+  system("rm -rf tmp/$id");
+}
+
+sub report_fatal($)
+{
+  my $msg = shift;
+  cleanup();
+  open(M, "| /usr/sbin/sendmail -t") or die;
+  #open(M, "| cat") or die;
+  my $version = '$Id$';
+  print M <<EOF
+From: $from <$from\@pld-linux.org>
+To: $commits_list
+Cc: $from\@pld-linux.org
+Message-ID: <$id\@distfiles.pld-linux.org>
+Subject: DISTFILES: ERROR fetching sources for $spec ($branch)
+X-distfiles-program: request-handler.pl
+X-distfiles-version: $version
+
+$msg
+
+-- 
+Virtually Yours: distfiles.
+EOF
+;
+  close(M) or die;
+  exit 0;
+}
+# ---------------------------------------------------------------
+
 $id = `uuidgen`;
 chomp $id;
 $id = rand if (!defined $id or $id eq "");
@@ -53,33 +86,3 @@ cleanup();
 
 exit(0);
 
-sub report_fatal($)
-{
-  my $msg = shift;
-  cleanup();
-  open(M, "| /usr/sbin/sendmail -t") or die;
-  #open(M, "| cat") or die;
-  my $version = '$Id$';
-  print M <<EOF
-From: $from <$from\@pld-linux.org>
-To: $commits_list
-Cc: $from\@pld-linux.org
-Message-ID: <$id\@distfiles.pld-linux.org>
-Subject: DISTFILES: ERROR fetching sources for $spec ($branch)
-X-distfiles-program: request-handler.pl
-X-distfiles-version: $version
-
-$msg
-
--- 
-Virtually Yours: distfiles.
-EOF
-;
-  close(M) or die;
-  exit 0;
-}
-
-sub cleanup()
-{
-  system("rm -rf tmp/$id");
-}