4 use FS::UID qw( adminsuidsetup );
5 use FS::Record qw( qsearch );
8 my $user = shift or die &usage;
11 my $svcpart = shift or die &usage;
13 foreach my $cust_svc ( qsearch('cust_svc', { 'svcpart'=>$svcpart } ) ) {
14 my $svc_x = $cust_svc->svc_x;
15 my $error = $svc_x->replace;
16 warn "$error\n" if $error
20 die "Usage\n\n svc.replace user svcpart\n";