diff options
author | Ivan Kohler <ivan@freeside.biz> | 2016-02-02 15:12:38 -0800 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2016-02-02 15:12:38 -0800 |
commit | 22f23deeb9e8158cac346b1ff5a8922780d60aef (patch) | |
tree | 43eee74381fdbceeb04570641fa2b396fef00970 | |
parent | 239fbbb40172bbafbe046dc63b8c345078b82924 (diff) |
add service replacement script, RT#40031
-rw-r--r-- | bin/svc.replace | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/bin/svc.replace b/bin/svc.replace new file mode 100644 index 000000000..1d2513a33 --- /dev/null +++ b/bin/svc.replace @@ -0,0 +1,21 @@ +#!/usr/bin/perl -w + +use strict; +use FS::UID qw( adminsuidsetup ); +use FS::Record qw( qsearch ); +use FS::cust_svc; + +my $user = shift or die &usage; +adminsuidsetup; + +my $svcpart = shift or die &usage; + +foreach my $cust_svc ( qsearch('cust_svc', { 'svcpart'=>$svcpart } ) ) { + my $svc_x = $cust_svc->svc_x; + my $error = $svc_x->replace; + warn "$error\n" if $error +} + +sub usage { + die "Usage\n\n svc.replace user svcpart\n"; +} |