diff options
author | ivan <ivan> | 2002-02-27 21:57:24 +0000 |
---|---|---|
committer | ivan <ivan> | 2002-02-27 21:57:24 +0000 |
commit | 49bc2dac92d2bb60e000088449b27aa380cc3490 (patch) | |
tree | 8f99fd58b786e9472f34785c6bc8a5b58584ea97 /FS/bin | |
parent | 69f252e5353483662c81b1d6d0e750ae08577649 (diff) |
better debugging
Diffstat (limited to 'FS/bin')
-rwxr-xr-x | FS/bin/freeside-daily | 6 |
1 files changed, 4 insertions, 2 deletions
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', {} ) |