From 11a4787e386291574aca2357421b586e365252d9 Mon Sep 17 00:00:00 2001
From: Ivan Kohler <ivan@freeside.biz>
Date: Fri, 4 Dec 2015 14:37:24 -0800
Subject: add northern cyprus, RT#39335

---
 bin/enable-kktc | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100755 bin/enable-kktc

(limited to 'bin/enable-kktc')

diff --git a/bin/enable-kktc b/bin/enable-kktc
new file mode 100755
index 000000000..f6f2ea41b
--- /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;
-- 
cgit v1.2.1