bin/cust_main-bill_now-profile

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