- my $fh = $cgi->upload('batch_results');
- my $filename = $cgi->param('batch_results');
- $filename =~ /^(.*[\/\\])?([^\/\\]+)$/
- or die "unparsable filename: $filename\n";
- my $paybatch = $2;
-
- my $error = defined($fh)
- ? FS::cust_pay_batch::import_results( {
- 'filehandle' => $fh,
- 'format' => $cgi->param('format'),
- 'paybatch' => $paybatch,
- } )
- : 'No file';
-
- if ( $error ) {
- %>