From: Ivan Kohler <ivan@freeside.biz>
Date: Mon, 9 Sep 2013 05:05:52 +0000 (-0700)
Subject: redundant
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=5c1ffe11b3af54011fb87e4dceb845139d0d3553

redundant
---

diff --git a/bin/profile-bill b/bin/profile-bill
deleted file mode 100755
index 3a1bcb579..000000000
--- a/bin/profile-bill
+++ /dev/null
@@ -1,25 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use DBIx::Profile;
-use FS::UID qw( adminsuidsetup dbh );
-use FS::Record qw(qsearchs);
-
-my $user = shift;
-adminsuidsetup( $user );
-
-my $custnum = shift;
-
-my $cust_main = qsearchs('cust_main', { 'custnum' => $custnum })
-  or die "unknown custnum $custnum";
-
-#foreach my $cust_bill ( $cust_main->open_cust_bill ) {
-#  print $cust_bill->invnum. "\n";
-#}
-
-$FS::cust_main::Billing::DEBUG = 1;
-
-$cust_main->bill_and_collect();
-
-print dbh->sprintProfile, "\n";
-