-#!/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;