admin: distfiles/request-handler.pl Die with some message.

[arekm]

Author: arekm                        Date: Tue Dec 29 09:40:56 2009 GMT
Module: admin                         Tag: HEAD
---- Log message:
Die with some message.

---- Files affected:
admin/distfiles:
   request-handler.pl (1.18 -> 1.19) 

---- Diffs:

================================================================
Index: admin/distfiles/request-handler.pl
diff -u admin/distfiles/request-handler.pl:1.18 admin/distfiles/request-handler.pl:1.19
--- admin/distfiles/request-handler.pl:1.18	Tue Apr 28 18:27:36 2009
+++ admin/distfiles/request-handler.pl	Tue Dec 29 10:40:51 2009
@@ -22,7 +22,7 @@
 {
   my $msg = shift;
   cleanup();
-  open(M, "| /usr/sbin/sendmail -t") or die;
+  open(M, "| /usr/sbin/sendmail -t") or die("/usr/sbin/sendmail not found";
   #open(M, "| cat") or die;
   my $version = '$Id$';
   print M <<EOF
@@ -40,7 +40,7 @@
 Virtually Yours: distfiles.
 EOF
 ;
-  close(M) or die;
+  close(M) or die("problem while sending email");
   exit 0;
 }
 # ---------------------------------------------------------------
@@ -61,7 +61,7 @@
 
 report_fatal("bad spec name") if (!defined $spec);
 
-mkdir("tmp/$id") or die;
+mkdir("tmp/$id") or die("cannot create: tmp/$id");
 chdir("tmp/$id");
 
 $branch = "" if ($branch eq "HEAD");
================================================================

---- CVS-web:
    http://cvs.pld-linux.org/cgi-bin/cvsweb.cgi/admin/distfiles/request-handler.pl?r1=1.18&r2=1.19&f=u