bin/svc_phone-bulk_delete

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use DBIx::Profile;
   5 use FS::UID qw( adminsuidsetup );
   6 use FS::Record qw( qsearch );
   7 use FS::svc_phone;
   8
   9 my $user = shift or die &usage;
  10 my $dbh = adminsuidsetup($user);
  11
  12 #my $pkgnum = shift or die &usage;
  13 #my $svcpart = shift or die &usage;
  14
  15 my @svc_phone = qsearch( {
  16   'table'   => 'svc_phone',
  17   'hashref' => { 'phonenum' => { op=>'LIKE', value=>'3125%', } },
  18 });
  19
  20 my $num = 0;
  21
  22 foreach my $svc_phone ( @svc_phone ) {
  23   my $error = $svc_phone->delete;
  24   die $error if $error;
  25   #last if $num++ > 54;
  26 }
  27
  28
  29 print "\n";
  30 print $dbh->sprintProfile;
  31
  32 sub usage {
  33   die "Usage:\n svc_phone-bulk_delete user\n";
  34 }
  35
  36 1;