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;