This commit was manufactured by cvs2svn to create tag 'TORRUS_1_0_9'.TORRUS_1_0_9

1 files changed, 0 insertions, 34 deletions

diff --git a/bin/explain-bill-query b/bin/explain-bill-query
deleted file mode 100644
index e3f69781b..000000000
--- a/bin/explain-bill-query
+++ /dev/null
@@ -1,34 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-use Getopt::Std;
-use FS::UID qw(adminsuidsetup dbh);
-use FS::Cron::bill qw(bill_where);
-
-my $user = 'fs_daily';
-
-#&untaint_argv;  #what it sounds like  (eww)
-use vars qw(%opt);
-getopts("p:a:d:vl:sy:nmrk", \%opt);
-
-adminsuidsetup $user;
-
-  #we're at now now (and later).
-  $opt{'time'} = $opt{'d'} ? str2time($opt{'d'}) : $^T;
-  $opt{'time'} += $opt{'y'} * 86400 if $opt{'y'};
-
-  $opt{'invoice_time'} = $opt{'n'} ? $^T : $opt{'time'};
-
-
-my $sql = 'EXPLAIN SELECT custnum FROM cust_main WHERE '. bill_where(%opt);
-
-my $sth = dbh->prepare($sql) or die dbh->errstr;
-
-$sth->execute or die $sth->errstr;
-
-while ( my $row = $sth->fetchrow_arrayref ) {
-
-  print join(' / ', @$row ). "\n";
-
-}
-