summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorIvan Kohler <ivan@freeside.biz>2016-02-02 15:12:38 -0800
committerIvan Kohler <ivan@freeside.biz>2016-02-02 15:12:38 -0800
commit22f23deeb9e8158cac346b1ff5a8922780d60aef (patch)
tree43eee74381fdbceeb04570641fa2b396fef00970
parent239fbbb40172bbafbe046dc63b8c345078b82924 (diff)
add service replacement script, RT#40031
-rw-r--r--bin/svc.replace21
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";
+}