From 5b5168d7ada7b6ca5375762837dc999cab0e8a9e Mon Sep 17 00:00:00 2001
From: Ivan Kohler <ivan@freeside.biz>
Date: Mon, 9 Sep 2013 00:37:14 -0700
Subject: quick tools for profiling phone number insert/delete, RT#24767

---
 bin/svc_phone-bulk_delete | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)
 create mode 100755 bin/svc_phone-bulk_delete

(limited to 'bin/svc_phone-bulk_delete')

diff --git a/bin/svc_phone-bulk_delete b/bin/svc_phone-bulk_delete
new file mode 100755
index 000000000..28f1a3f23
--- /dev/null
+++ b/bin/svc_phone-bulk_delete
@@ -0,0 +1,36 @@
+#!/usr/bin/perl -w
+
+use strict;
+use DBIx::Profile;
+use FS::UID qw( adminsuidsetup );
+use FS::Record qw( qsearch );
+use FS::svc_phone;
+
+my $user = shift or die &usage;
+my $dbh = adminsuidsetup($user);
+
+#my $pkgnum = shift or die &usage;
+#my $svcpart = shift or die &usage;
+
+my @svc_phone = qsearch( {
+  'table'   => 'svc_phone',
+  'hashref' => { 'phonenum' => { op=>'LIKE', value=>'3125%', } },
+});
+
+my $num = 0;
+
+foreach my $svc_phone ( @svc_phone ) {
+  my $error = $svc_phone->delete;
+  die $error if $error;
+  #last if $num++ > 54;
+}
+
+
+print "\n";
+print $dbh->sprintProfile;
+
+sub usage {
+  die "Usage:\n svc_phone-bulk_delete user\n";
+}
+
+1;
-- 
cgit v1.2.1