[freeside-commits] freeside/bin cust_main-bill_now,NONE,1.1

Ivan,,, ivan at wavetail.420.am
Thu Aug 4 19:00:35 PDT 2011


Update of /home/cvs/cvsroot/freeside/bin
In directory wavetail.420.am:/tmp/cvs-serv19182

Added Files:
	cust_main-bill_now 
Log Message:
adding quick commandline tool to bill now with debugging, RT#13915

--- NEW FILE: cust_main-bill_now ---
#!/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 );

sub usage {
  die "Usage:\n  cust_main-bill_now user custnum\n";
}

1;



More information about the freeside-commits mailing list