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 ce4a43d..a5f67cd
--- a/bin/billco-upload
+++ b/bin/billco-upload
@@ -1,20 +1,15 @@
-#!/bin/sh
+#!/usr/bin/perl
 
-AGENTNUMS="1 2 3"
+use FS::UID qw(adminsuidsetup);
+use FS::Cron::upload;
 
-date=`date +"%Y%m%d"`
-dir="/usr/local/etc/freeside/export.DBI:Pg:dbname=freeside/cust_bill"
-cd "$dir"
+adminsuidsetup shift or die "usage: billco-upload username agentnum\n";
+my $agentnum = shift or die "usage: billco-upload username agentnum\n";
 
-for AGENTNUM in $AGENTNUMS; do
-
-  for a in header detail; do
-    mv agentnum$AGENTNUM-$a.csv agentnum$AGENTNUM-$date-$a.csv
-  done
-
-  zip agentnum$AGENTNUM-$date.zip agentnum$AGENTNUM-$date-header.csv agentnum$AGENTNUM-$date-detail.csv
-
-  echo $dir/agentnum$AGENTNUM-$date.zip
-
-done
+FS::Cron::upload::billco_upload( 'agentnum' => $agentnum,
+                                 'date' => time,
+                                 'v' => 1,
+                                 'l' => 2,
+                               );
 
+1;