bin/svc_phone-bulk_delete


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
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;