diff options
author | ivan <ivan> | 2011-08-11 18:24:47 +0000 |
---|---|---|
committer | ivan <ivan> | 2011-08-11 18:24:47 +0000 |
commit | 11dd69f4d4a84356a095d6882a1873279cc7cb7f (patch) | |
tree | 27dc057b99f7b757fb6f6ff77d76bfe4c3be5db7 | |
parent | ace15413d2fe16ac9eeac3e7e292025b60d40d22 (diff) |
adding
-rw-r--r-- | bin/cust_main-bill_now | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/bin/cust_main-bill_now b/bin/cust_main-bill_now new file mode 100644 index 000000000..17e48fbcf --- /dev/null +++ b/bin/cust_main-bill_now @@ -0,0 +1,22 @@ +#!/usr/bin/perl -w + +use strict; +use FS::UID qw( adminsuidsetup ); +#use FS::Schema qw( dbdef ); +use FS::Record qw(qsearchs); +use FS::cust_main; + +my $user = shift or die &usage; +adminsuidsetup($user); + +my $custnum = shift or die &usage; +my $cust_main = qsearchs('cust_main', { 'custnum' => $custnum } ) + or die "unknown custnum $custnum\n"; + +$cust_main->bill_and_collect( debug=>2, check_freq=>'1d' ); + +sub usage { + die "Usage:\n cust_main-bill_now user custnum\n"; +} + +1; |