From: ivan <ivan>
Date: Fri, 28 May 2004 11:21:46 +0000 (+0000)
Subject: better error reporting on unparsable filenames
X-Git-Tag: BEFORE_FINAL_MASONIZE~1065
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=2e1a3719f1a9fb1f561d0eb4df349f3f03d66681

better error reporting on unparsable filenames
---

diff --git a/httemplate/misc/upload-batch.cgi b/httemplate/misc/upload-batch.cgi
index cc5346606..da5e41cbc 100644
--- a/httemplate/misc/upload-batch.cgi
+++ b/httemplate/misc/upload-batch.cgi
@@ -2,7 +2,7 @@
 
   my $fh = $cgi->upload('batch_results');
   my $filename = $cgi->param('batch_results');
-  $filename =~ /^.*[\/\\]([^\/\\]+)$/ or die;
+  $filename =~ /^.*[\/\\]([^\/\\]+)$/ or die "unparsable filename: $filename\n";
   my $paybatch = $1;
 
   my $error = defined($fh)