1 files changed, 0 insertions, 30 deletions
diff --git a/bin/wipe-customers b/bin/wipe-customers
deleted file mode 100644
index e65ed61..0000000
--- a/bin/wipe-customers
+++ /dev/null
@@ -1,30 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use FS::UID qw(adminsuidsetup);
-use FS::Record qw(qsearch);
-use FS::cust_main;
-
-die "this removes all customers in your database except for customer 1 - remove this line to enable";
-
-my $user = shift or die "usage: wipe-customers username\n";
-adminsuidsetup $user;
-
-#this isn't terribly efficient, but the idea was clearing out a test database,
-#not actually destroying a large amount of data
-
-foreach my $cust_main (
-
-  qsearch('cust_main', { 'custnum' => { op=>'!=', value=>'1' } } )
-
-) {
-
-  my @cerrors = $cust_main->cancel( quiet=>1, nobill=>1 );
-  if ( @cerrors ) {
-    die join(' / ', @cerrors);
-  }
-
-  my $error = $cust_main->delete( 'delete_financials' => 1);
-  die $error if $error;
-
-}