From: ivan <ivan>
Date: Tue, 24 Mar 2009 09:42:13 +0000 (+0000)
Subject: quick tool for RT#3843
X-Git-Tag: root_of_svc_elec_features~1347
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=48d92203f94f5592f1face92e3f1c74acf306a11;p=freeside.git

quick tool for RT#3843
---

diff --git a/bin/countdeclines b/bin/countdeclines
new file mode 100755
index 000000000..bbc392560
--- /dev/null
+++ b/bin/countdeclines
@@ -0,0 +1,22 @@
+#!/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;
+  }
+}