fix quotations, RT#21103
[freeside.git] / bin / billco-upload
1 #!/usr/bin/perl
2
3 use FS::UID qw(adminsuidsetup);
4 use FS::Cron::upload;
5
6 adminsuidsetup shift or die "usage: billco-upload username agentnum\n";
7 my $agentnum = shift or die "usage: billco-upload username agentnum\n";
8
9 FS::Cron::upload::billco_upload( 'agentnum' => $agentnum,
10                                  'date' => time,
11                                  'v' => 1,
12                                  'l' => 2,
13                                );
14
15 1;