diff options
author | Ivan Kohler <ivan@freeside.biz> | 2015-09-15 11:38:41 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2015-09-15 11:38:41 -0700 |
commit | 8cbf995cfbc851821242f4ab5e03713b3de8ef69 (patch) | |
tree | 2c505fd6f632ff39835a3a1b58f8842c1de41f0b /bin | |
parent | 205cf3b843285a5858f1d6387386381564a5deca (diff) |
add cancel option, RT#38145
Diffstat (limited to 'bin')
-rwxr-xr-x | bin/cust_main-bulk_change | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/bin/cust_main-bulk_change b/bin/cust_main-bulk_change index 32a6d7bd6..e03901272 100755 --- a/bin/cust_main-bulk_change +++ b/bin/cust_main-bulk_change @@ -1,7 +1,7 @@ #!/usr/bin/perl use strict; -use vars qw( $opt_a $opt_p $opt_t $opt_k ); +use vars qw( $opt_a $opt_p $opt_t $opt_k $opt_c ); use Getopt::Std; use FS::UID qw(adminsuidsetup); use FS::Record qw(qsearch qsearchs); @@ -9,7 +9,7 @@ use FS::cust_main; use FS::cust_tag; use FS::cust_pkg; -getopts('a:p:t:k:'); +getopts('a:p:t:k:c:'); my $user = shift or &usage; adminsuidsetup $user; @@ -64,6 +64,11 @@ while (<STDIN>) { } } + if ( $opt_c ) { + my @error = $cust_main->cancel( 'reason' => $opt_c ); + die join(' / ', @error). "\n" if @error; + } + } sub usage { @@ -76,7 +81,7 @@ cust_main-bulk_change =head1 SYNOPSIS - cust_main-bulk_change [ -a agentnum ] [ -p NEW_PAYBY ] [ -t tagnum ] [ -k old_pkgpart:new_pkgpart,... ] username <custnums.txt + cust_main-bulk_change [ -a agentnum ] [ -p NEW_PAYBY ] [ -t tagnum ] [ -k old_pkgpart:new_pkgpart,... ] [ -c reasonnum ] username <custnums.txt =head1 DESCRIPTION @@ -90,6 +95,8 @@ Command-line tool to make bulk changes to a group of customers. -k: old_pkgpart:new_pkgpart, for example, I<5:4>. Multiple entries can be comma-separated. +-c: Cancel customer + user: Employee username =head1 BUGS |