X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=bin%2Ftest_scrub;h=45a257ab9d16c0bf4fa6ed1736ccb0731e81a4c1;hb=4ad88e4863417a9004b991ffbaffa05d520bf1e9;hp=88edc335bd2ed08921a2a2680efcd277e9a3f291;hpb=2a282861974954f3ae072363845b8dbffd6decc0;p=freeside.git diff --git a/bin/test_scrub b/bin/test_scrub index 88edc335b..45a257ab9 100644 --- a/bin/test_scrub +++ b/bin/test_scrub @@ -42,10 +42,17 @@ my $dsth = dbh->prepare("DELETE FROM cust_main_invoice WHERE dest != 'POST'") or die dbh->errstr; $dsth->execute or die $dsth->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); }