1 files changed, 0 insertions, 22 deletions
diff --git a/bin/countdeclines b/bin/countdeclines
deleted file mode 100755
index bbc3925..0000000
--- a/bin/countdeclines
+++ /dev/null
@@ -1,22 +0,0 @@
-#!/usr/bin/perl
-
-use Date::Parse;
-
-my $e = 'PlugnPay error: 97: Declined for CVV failure';
-my @y = (2008,2009);
-
-my $p = 0;
-
-foreach my $y (@y) {
-  foreach my $m (1..12) {
-    my $d = "$m/1/$y";
-    my $t = str2time($d);
-
-    #print "$pd-$d: SELECT count(*) from cust_bill_event where statustext = '$e' and _date >= $p and _date < $t;\n"
-    print "SELECT count(*) from cust_bill_event where statustext = '$e' and _date >= $p and _date < $t;\n"
-      if $p;
-
-    $p = $t;
-    $pd = $d;
-  }
-}