7 use FS::UID qw( adminsuidsetup );
8 #use FS::Schema qw( dbdef );
9 use FS::Record qw(qsearchs);
12 my $user = shift or die &usage;
13 my $dbh = adminsuidsetup($user);
15 my $custnum = shift or die &usage;
16 my $cust_main = qsearchs('cust_main', { 'custnum' => $custnum } )
17 or die "unknown custnum $custnum\n";
19 $FS::cust_main::DEBUG = 3;
20 $cust_main->bill_and_collect( debug=>3, check_freq=>'1d' );
23 print $dbh->sprintProfile;
27 die "Usage:\n cust_main-bill_now user custnum\n";