diff options
Diffstat (limited to 'bin/find-overapplied')
-rw-r--r-- | bin/find-overapplied | 27 |
1 files changed, 0 insertions, 27 deletions
diff --git a/bin/find-overapplied b/bin/find-overapplied deleted file mode 100644 index 7973cef..0000000 --- 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"; -} - |