bin/svc.replace

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use FS::UID qw( adminsuidsetup );
   5 use FS::Record qw( qsearch );
   6 use FS::cust_svc;
   7
   8 my $user = shift or die &usage;
   9 adminsuidsetup $user;
  10
  11 my $svcpart = shift or die &usage;
  12
  13 foreach my $cust_svc ( qsearch('cust_svc', { 'svcpart'=>$svcpart } ) ) {
  14   my $svc_x = $cust_svc->svc_x;
  15   $svc_x->setfixed;
  16   my $error = $svc_x->replace;
  17   warn "$error\n" if $error
  18 }
  19
  20 sub usage {
  21   die "Usage\n\n svc.replace user svcpart\n";
  22 }