[freeside-commits] branch FREESIDE_3_BRANCH updated. 5cedbad0760a0a14ee38bcc8031d8185f1113b9b

[Ivan]

The branch, FREESIDE_3_BRANCH has been updated
       via  5cedbad0760a0a14ee38bcc8031d8185f1113b9b (commit)
      from  de27e71335e90813543e5c87025a6bce23bb7645 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 5cedbad0760a0a14ee38bcc8031d8185f1113b9b
Author: Ivan Kohler <ivan at freeside.biz>
Date:   Wed Nov 13 11:08:04 2013 -0800

    remove cards too, try to be extra-safe

diff --git a/bin/test_scrub b/bin/test_scrub
index 45a257a..e39a28a 100644
--- a/bin/test_scrub
+++ b/bin/test_scrub
@@ -3,6 +3,7 @@
 #This drops anything from the database that could cause live things to happen.
 #You'd want to do this on a test copy of your live database but NEVER on the
 #live database itself.
+die "remove this line to run -- NEVER ON A LIVE DATABASE";
 
 #-all exports (all records in part_export, part_export_option export_svc)
 #-all non-POST invoice destinations (cust_main_invoice)
@@ -42,6 +43,17 @@ my $dsth = dbh->prepare("DELETE FROM cust_main_invoice WHERE dest != 'POST'")
   or die dbh->errstr;
 $dsth->execute or die $dsth->errstr;
 
+foreach my $table (qw( cust_main
+                       cust_pay_pending cust_pay cust_pay_void cust_pay_batch
+                       cust_refund
+)) {
+  my $ccsth = dbh->prepare("
+    UPDATE $table SET payinfo = '4111111111111111'
+      WHERE payby = 'CARD' OR payby = 'DCRD'
+  ") or die dbh->errstr;
+  $ccsth->execute or die $ccsth->errstr;
+}
+
 my $sth = dbh->prepare("UPDATE part_event SET disabled = 'Y'");
 $sth->execute or die $sth->errstr;
 

-----------------------------------------------------------------------

Summary of changes:
 bin/test_scrub |   12 ++++++++++++
 1 files changed, 12 insertions(+), 0 deletions(-)