diff options
author | jeff <jeff> | 2008-01-25 18:29:04 +0000 |
---|---|---|
committer | jeff <jeff> | 2008-01-25 18:29:04 +0000 |
commit | 0b4247f88f8a290a7bbbdebe93404baef2d1e29d (patch) | |
tree | be28fc2b39edb211b55dac4507346f18b5fbf49e /httemplate/misc/process | |
parent | 106804d4e10a904ae9c7ab0d7578f132c39d2c9b (diff) |
simple payment CSV import
Diffstat (limited to 'httemplate/misc/process')
-rw-r--r-- | httemplate/misc/process/cust_pay-import.cgi | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/httemplate/misc/process/cust_pay-import.cgi b/httemplate/misc/process/cust_pay-import.cgi new file mode 100644 index 0000000..d4ff226 --- /dev/null +++ b/httemplate/misc/process/cust_pay-import.cgi @@ -0,0 +1,21 @@ +<% $cgi->redirect(popurl(3). "search/cust_pay.cgi?magic=paybatch;paybatch=$paybatch") %> +<%init> + +my $fh = $cgi->upload('csvfile'); + +# webbatch? I suppose +my $paybatch = time2str('webbatch-%Y/%m/%d-%T'. "-$$-". rand() * 2**32, time); + +my $error = defined($fh) + ? FS::cust_pay::batch_import( { + 'filehandle' => $fh, + 'agentnum' => scalar($cgi->param('agentnum')), + 'format' => scalar($cgi->param('format')), + 'paybatch' => $paybatch, + } ) + : 'No file'; + +errorpage($error) + if ( $error ); + +</%init> |