From: ivan <ivan>
Date: Fri, 13 Jul 2007 23:59:39 +0000 (+0000)
Subject: adding quick find-overapplied script
X-Git-Tag: freeside_1_7_3rc1~373
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=af17d8bf17247fda0afd4b20b5212f728aac8fd3;p=freeside.git

adding quick find-overapplied script
---

diff --git a/bin/find-overapplied b/bin/find-overapplied
new file mode 100644
index 000000000..6bcc31539
--- /dev/null
+++ b/bin/find-overapplied
@@ -0,0 +1,27 @@
+#!/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 credits:\n". Dumper(@payments). "\n";
+}
+
+sub usage {
+  die "Usage:\n\n  find-overapplied user\n";
+}
+
diff --git a/bin/strip-eps b/bin/strip-eps
new file mode 100755
index 000000000..2c2d124d7
--- /dev/null
+++ b/bin/strip-eps
@@ -0,0 +1,20 @@
+#!/usr/bin/perl -w
+
+# Author: Andy Turner <andrew.turner@acadia.net>
+ 
+use strict;
+
+# The first line has some binary magic for file identification
+# purposes.  GhostScript doesn't like it.  Strip it.
+scalar <>;
+
+# Add a header so that we can use magic to determine the file type.
+print "%!PS-Adobe-3.0 EPSF-3.0\n";
+
+while (<>) {
+    print;  
+
+    # Illustrator Version 7 format EPS files have a bunch of binary gook
+    # after the "%%EOF" line.  (% is a comment in PostScript, right?)
+    last if /^%%EOF/;                                                
+}