diff options
| author | ivan <ivan> | 2003-10-08 04:09:03 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2003-10-08 04:09:03 +0000 |
| commit | a268f88b636350b133f6beccd36fa29190253793 (patch) | |
| tree | 75a3dee73c3f0cabc69d99b69517c976f88cab19 /httemplate/misc/upload-batch.cgi | |
| parent | d6b6ebe59d9200d5dca8e33cfe3c32bc23e7c9b3 (diff) | |
can't use File::Basename::basename for windows filenames! use a regex instead
Diffstat (limited to 'httemplate/misc/upload-batch.cgi')
| -rw-r--r-- | httemplate/misc/upload-batch.cgi | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/httemplate/misc/upload-batch.cgi b/httemplate/misc/upload-batch.cgi index 565a6da5c..cc5346606 100644 --- a/httemplate/misc/upload-batch.cgi +++ b/httemplate/misc/upload-batch.cgi @@ -2,7 +2,8 @@ my $fh = $cgi->upload('batch_results'); my $filename = $cgi->param('batch_results'); - my $paybatch = basename($filename); + $filename =~ /^.*[\/\\]([^\/\\]+)$/ or die; + my $paybatch = $1; my $error = defined($fh) ? FS::cust_pay_batch::import_results( { |