bin/cust_main-bill_now

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use FS::UID qw( adminsuidsetup );
   5 #use FS::Schema qw( dbdef );
   6 use FS::Record qw(qsearchs);
   7 use FS::cust_main;
   8
   9 my $user = shift or die &usage;
  10 adminsuidsetup($user);
  11
  12 my $custnum = shift or die &usage;
  13 my $cust_main = qsearchs('cust_main', { 'custnum' => $custnum } )
  14   or die "unknown custnum $custnum\n";
  15
  16 $cust_main->bill_and_collect( debug=>2, check_freq=>'1d' );
  17
  18 sub usage {
  19   die "Usage:\n  cust_main-bill_now user custnum\n";
  20 }
  21
  22 1;