From abfc0c47dba5237cd19e94fb0ede2928095915a7 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Fri, 5 Aug 2011 02:00:32 +0000
Subject: [PATCH] adding quick commandline tool to bill now with debugging,
 RT#13915

---
 bin/cust_main-bill_now | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 bin/cust_main-bill_now

diff --git a/bin/cust_main-bill_now b/bin/cust_main-bill_now
new file mode 100644
index 000000000..779b4a0bb
--- /dev/null
+++ b/bin/cust_main-bill_now
@@ -0,0 +1,22 @@
+#!/usr/bin/perl -w
+
+use strict;
+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;
+adminsuidsetup($user);
+
+my $custnum = shift or die &usage;
+my $cust_main = qsearchs('cust_main', { 'custnum' => $custnum } )
+  or die "unknown custnum $custnum\n";
+
+$cust_main->bill_and_collect( 'debug' => 2 );
+
+sub usage {
+  die "Usage:\n  cust_main-bill_now user custnum\n";
+}
+
+1;
-- 
2.11.0