add northern cyprus, RT#39335

[freeside.git] / bin / enable-kktc

diff --git a/bin/enable-kktc b/bin/enable-kktc
new file mode 100755 (executable)
index 0000000..f6f2ea4
--- /dev/null
+++ b/bin/enable-kktc
@@ -0,0 +1,21 @@
+#!/usr/bin/perl
+
+use FS::UID qw( adminsuidsetup );
+use FS::cust_main_county;
+use FS::Setup;
+
+adminsuidsetup shift or die "Usage: enable-kktc username\n";
+
+my %states = (
+      'Gazimagosa' => 'Gazimagosa',
+      'Girne'      => 'Girne',
+      'Guzelyurt'  => 'Guzelyurt',
+      'Iskele'     => 'Iskele',
+      'Lefkosa'    => 'Lefkosa',
+);
+
+foreach my $state ( keys %states ) {
+  FS::Setup::_add_locale( country=>'XC', state=>$state );
+}
+
+1;