From 0b4247f88f8a290a7bbbdebe93404baef2d1e29d Mon Sep 17 00:00:00 2001
From: jeff <jeff>
Date: Fri, 25 Jan 2008 18:29:04 +0000
Subject: simple payment CSV import

---
 httemplate/misc/process/cust_pay-import.cgi | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 httemplate/misc/process/cust_pay-import.cgi

(limited to 'httemplate/misc/process/cust_pay-import.cgi')

diff --git a/httemplate/misc/process/cust_pay-import.cgi b/httemplate/misc/process/cust_pay-import.cgi
new file mode 100644
index 000000000..d4ff226ec
--- /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>
-- 
cgit v1.2.1