[freeside-commits] freeside/bin cust_main-bill_now-profile, NONE, 1.1 cust_main-bulk_change, 1.1, 1.2 freeside-session-kill, 1.2, NONE

[Ivan,,,]

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

Modified Files:
	cust_main-bulk_change 
Added Files:
	cust_main-bill_now-profile 
Removed Files:
	freeside-session-kill 
Log Message:
quick script to profile billing a customer

--- NEW FILE: cust_main-bill_now-profile ---
#!/usr/bin/perl -w

use strict;

use DBIx::Profile;

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;
my $dbh = adminsuidsetup($user);

my $custnum = shift or die &usage;
my $cust_main = qsearchs('cust_main', { 'custnum' => $custnum } )
  or die "unknown custnum $custnum\n";

$FS::cust_main::DEBUG = 3;
$cust_main->bill_and_collect( debug=>3, check_freq=>'1d' );

print "\n";
print $dbh->sprintProfile;
#$dbh->printProfile;

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

1;

Index: cust_main-bulk_change
===================================================================
RCS file: /home/cvs/cvsroot/freeside/bin/cust_main-bulk_change,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -w -d -r1.1 -r1.2
--- cust_main-bulk_change	12 Apr 2011 02:29:42 -0000	1.1
+++ cust_main-bulk_change	11 Jan 2012 09:31:33 -0000	1.2
@@ -14,6 +14,8 @@
 
 $FS::cust_main::skip_fuzzyfiles = 1;
 $FS::cust_main::skip_fuzzyfiles = 1;
+$FS::cust_main::import = 1;
+$FS::cust_main::import = 1;
 
 while (<STDIN>) {
 

--- freeside-session-kill DELETED ---