httemplate/misc/upload-batch.cgi

   1 <%
   2
   3   my $fh = $cgi->upload('batch_results');
   4   my $filename = $cgi->param('batch_results');
   5   $filename =~ /^(.*[\/\\])?([^\/\\]+)$/
   6     or die "unparsable filename: $filename\n";
   7   my $paybatch = $2;
   8
   9   my $error = defined($fh)
  10     ? FS::cust_pay_batch::import_results( {
  11         'filehandle' => $fh,
  12         'format'     => $cgi->param('format'),
  13         'paybatch'   => $paybatch,
  14       } )
  15     : 'No file';
  16
  17   if ( $error ) {
  18     %>
  19     <!-- mason kludge -->
  20     <%
  21     eidiot($error);
  22 #    $cgi->param('error', $error);
  23 #    print $cgi->redirect( "${p}cust_main-import.cgi
  24   } else {
  25     %>
  26     <!-- mason kludge -->
  27     <%= header('Batch results upload sucessful') %> <%
  28   }
  29 %>
  30