quick tools for profiling phone number insert/delete, RT#24767

1 files changed, 36 insertions, 0 deletions

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;