-#!/bin/sh
+#!/usr/bin/perl
-AGENTNUMS="1 2 3 5 8 9 10"
+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"
-lock=".billco-upload.lock"
-cd "$dir"
+adminsuidsetup shift or die "usage: billco-upload username agentnum\n";
+my $agentnum = shift or die "usage: billco-upload username agentnum\n";
-failed_mutex()
-{
- echo "billco-upload already running; exiting"
- exit 1
-}
+FS::Cron::upload::billco_upload( 'agentnum' => $agentnum,
+ 'date' => time,
+ 'v' => 1,
+ 'l' => 2,
+ );
-#acquire mutex
-[ -f $lock ] && {
- failed_mutex
-} || {
- echo $$ > $lock
- [ $(cat $lock 2>/dev/null) -eq $$ ] || failed_mutex
-}
-
-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
-
-# Remove if trying to find problems with billco upload files
- rm *$AGENTNUM-$date*.csv
-
- echo $dir/agentnum$AGENTNUM-$date.zip
-
-done
-
-#release mutex
-rm -f $lock
+1;