bin/billco-upload


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

#!/usr/bin/perl

use FS::UID qw(adminsuidsetup);
use FS::Cron::upload;

adminsuidsetup shift or die "usage: billco-upload username agentnum\n";
my $agentnum = shift or die "usage: billco-upload username agentnum\n";

FS::Cron::upload::billco_upload( 'agentnum' => $agentnum,
                                 'date' => time,
                                 'v' => 1,
                                 'l' => 2,
                               );

1;