X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fmisc%2Fupload-batch.cgi;h=be80b1ff75a94a628c04ba622fcda3b4563f4abb;hp=746b81b17ee3d871c55330e5770ead7fe9c7a3cb;hb=b71b1576c68bc40ad26592b354feace37a029f0e;hpb=b9f9a5dc444a66ca138073a0e5229d85569e51b4 diff --git a/httemplate/misc/upload-batch.cgi b/httemplate/misc/upload-batch.cgi index 746b81b17..be80b1ff7 100644 --- a/httemplate/misc/upload-batch.cgi +++ b/httemplate/misc/upload-batch.cgi @@ -1,30 +1,10 @@ -<% +<% $server->process %> +<%init> - my $fh = $cgi->upload('batch_results'); - my $filename = $cgi->param('batch_results'); - $filename =~ /^(.*[\/\\])?([^\/\\]+)$/ - or die "unparsable filename: $filename\n"; - my $paybatch = $2; +die "access denied" + unless $FS::CurrentUser::CurrentUser->access_right('Process batches'); - my $error = defined($fh) - ? FS::cust_pay_batch::import_results( { - 'filehandle' => $fh, - 'format' => $cgi->param('format'), - 'paybatch' => $paybatch, - } ) - : 'No file'; - - if ( $error ) { - %> - - <% - eidiot($error); -# $cgi->param('error', $error); -# print $cgi->redirect( "${p}cust_main-import.cgi - } else { - %> - - <%= include("/elements/header.html",'Batch results upload successful') %> <% - } -%> +my $server = + new FS::UI::Web::JSRPC 'FS::pay_batch::process_import_results', $cgi; +