add ability to remove suffix-ed config items, RT#5218
[freeside.git] / bin / expand-country
1 #!/usr/bin/perl -w
2
3 use strict;
4 use Locale::SubCountry;
5 use FS::UID qw(adminsuidsetup);
6 use FS::Setup;
7 use FS::Record qw(qsearch);
8 use FS::cust_main_county;
9
10 my $user = shift or die &usage;
11 my $country = shift or die &usage;
12
13 adminsuidsetup($user);
14
15 my @country = qsearch('cust_main_county', { 'country' => $country } );
16 die "unknown country $country" unless (@country);
17 #die "$country already expanded" if scalar(@country) > 1;
18
19 foreach my $cust_main_county ( @country ) {
20   my $error = $cust_main_county->delete;
21   die $error if $error;
22 }
23
24 FS::Setup::_add_country($country);
25
26 sub usage {
27   die "Usage:\n\n  expand-country user countrycode\n";
28 }
29