From 49bc2dac92d2bb60e000088449b27aa380cc3490 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Wed, 27 Feb 2002 21:57:24 +0000
Subject: better debugging

---
 FS/bin/freeside-daily | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'FS/bin')

diff --git a/FS/bin/freeside-daily b/FS/bin/freeside-daily
index 8d839cb21..e6f02df33 100755
--- a/FS/bin/freeside-daily
+++ b/FS/bin/freeside-daily
@@ -9,12 +9,14 @@ use FS::Record qw(qsearch qsearchs);
 use FS::cust_main;
 
 &untaint_argv;	#what it sounds like  (eww)
-use vars qw($opt_d);
-getopts("d:");
+use vars qw($opt_d $opt_v);
+getopts("d:v");
 my $user = shift or die &usage;
 
 adminsuidsetup $user;
 
+$FS::cust_main::Debug = 1 if $opt_v;
+
 my @cust_main = @ARGV
   ? map { qsearchs('cust_main', { custnum => $_ } ) } @ARGV
   : qsearch('cust_main', {} )
-- 
cgit v1.2.1