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;