From ca3590aaa171f5d084367a587ab006ba9078003c Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Wed, 11 Jan 2012 09:31:33 +0000
Subject: quick script to profile billing a customer

---
 bin/cust_main-bill_now-profile | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100755 bin/cust_main-bill_now-profile

(limited to 'bin/cust_main-bill_now-profile')

diff --git a/bin/cust_main-bill_now-profile b/bin/cust_main-bill_now-profile
new file mode 100755
index 000000000..b6d75974e
--- /dev/null
+++ b/bin/cust_main-bill_now-profile
@@ -0,0 +1,30 @@
+#!/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;
-- 
cgit v1.2.1