sipwise export, part 1
[freeside.git] / bin / enable-kktc
1 #!/usr/bin/perl
2
3 use FS::UID qw( adminsuidsetup );
4 use FS::cust_main_county;
5 use FS::Setup;
6
7 adminsuidsetup shift or die "Usage: enable-kktc username\n";
8
9 my %states = (
10       'Gazimagosa' => 'Gazimagosa',
11       'Girne'      => 'Girne',
12       'Guzelyurt'  => 'Guzelyurt',
13       'Iskele'     => 'Iskele',
14       'Lefkosa'    => 'Lefkosa',
15 );
16
17 foreach my $state ( keys %states ) {
18   FS::Setup::_add_locale( country=>'XC', state=>$state );
19 }
20
21 1;