From 5c1ffe11b3af54011fb87e4dceb845139d0d3553 Mon Sep 17 00:00:00 2001 From: Ivan Kohler Date: Sun, 8 Sep 2013 22:05:52 -0700 Subject: [PATCH] redundant --- bin/profile-bill | 25 ------------------------- 1 file changed, 25 deletions(-) delete mode 100755 bin/profile-bill 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"; - -- 2.11.0