4.x style

[freeside.git] / bin / billco-upload

diff --git a/bin/billco-upload b/bin/billco-upload
old mode 100644 (file)
new mode 100755 (executable)
index b224605..a5f67cd
--- a/bin/billco-upload
+++ b/bin/billco-upload
@@ -1,14 +1,15 @@
-#!/bin/sh
+#!/usr/bin/perl
 
-date = `date`
-dir = /usr/local/etc/freeside/export.DBI:Pg:dbname=freeside/cust_bill
-cd $dir
+use FS::UID qw(adminsuidsetup);
+use FS::Cron::upload;
 
-for a in header detail; do
-  mv spool-$a.csv $date-$a.csv
-done
+adminsuidsetup shift or die "usage: billco-upload username agentnum\n";
+my $agentnum = shift or die "usage: billco-upload username agentnum\n";
 
-zip $date.zip $date-header.csv $date-detail.csv
-
-echo $dir/$date.zip
+FS::Cron::upload::billco_upload( 'agentnum' => $agentnum,
+                                 'date' => time,
+                                 'v' => 1,
+                                 'l' => 2,
+                               );
 
+1;