From eb061f5119325e666f0dff40d4089e5c1df58e17 Mon Sep 17 00:00:00 2001
From: cvs2git <cvs2git>
Date: Sun, 16 Mar 2008 19:58:34 +0000
Subject: This commit was manufactured by cvs2svn to create tag 'TRIXBOX_2_6'.

---
 bin/find-overapplied | 27 ---------------------------
 1 file changed, 27 deletions(-)
 delete mode 100644 bin/find-overapplied

(limited to 'bin/find-overapplied')

diff --git a/bin/find-overapplied b/bin/find-overapplied
deleted file mode 100644
index 7973cef5b..000000000
--- a/bin/find-overapplied
+++ /dev/null
@@ -1,27 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-use Data::Dumper;
-use FS::UID qw(adminsuidsetup);
-use FS::Record qw(qsearch);
-use FS::cust_credit;
-use FS::cust_pay;
-
-my $user = shift or die &usage;
-adminsuidsetup $user;
-
-my @credits  = grep { $_->credited  < 0 } qsearch('cust_credit', {});
-my @payments = grep { $_->unapplied < 0 } qsearch('cust_pay',    {});
-
-if ( @credits ) {
-  print scalar(@credits). " overapplied credits:\n". Dumper(@credits). "\n";
-}
-
-if ( @payments ) {
-  print scalar(@payments). " overapplied payments:\n". Dumper(@payments). "\n";
-}
-
-sub usage {
-  die "Usage:\n\n  find-overapplied user\n";
-}
-
-- 
cgit v1.2.1