wtxs upload changes, RT#12326

diff --git a/bin/billco-upload b/bin/billco-upload
new file mode 100644 (file)
index 0000000..4efc180
--- /dev/null
+++ b/bin/billco-upload
@@ -0,0 +1,14 @@
+#!/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
+                                 'v' => 1,
+                                 'l' => 2,
+                               );
+
+1;