1 files changed, 0 insertions, 30 deletions
diff --git a/bin/h_cust_main-wipe_paycvv b/bin/h_cust_main-wipe_paycvv
deleted file mode 100755
index d34c15f34..000000000
--- a/bin/h_cust_main-wipe_paycvv
+++ /dev/null
@@ -1,30 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use FS::UID qw(adminsuidsetup dbh);
-use FS::Record; #buh?
-
-my $user = shift or die 'usage';
-adminsuidsetup $user;
-
-while (1) {
-
-  my $sql = ' UPDATE h_cust_main SET paycvv = NULL
-                WHERE historynum IN ( SELECT historynum FROM h_cust_main
-                                        WHERE paycvv IS NOT NULL LIMIT 8192 )';
-#                                        WHERE paycvv IS NOT NULL LIMIT 1 )';
-
-  my $sth = dbh->prepare($sql) or die dbh->errstr;
-
-  print '.'; $|=1;
-
-  my $rv = $sth->execute;
-
-  dbh->commit or die dbh->errstr;
-
-  last if $rv == 0;
-
-}
-
-print "\n";
-