diff options
| -rw-r--r-- | bin/test_scrub | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/bin/test_scrub b/bin/test_scrub index 88edc335b..e39a28a4e 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,10 +43,28 @@ 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; + my $conf = new FS::Conf; foreach my $item (qw( business-onlinepayment business-onlinepayment-ach + dump-localdest + dump-scpdest + cust_bill-ftp_spool + smtpmachine )) { $conf->delete($item); } |