From: Ivan Kohler <ivan@freeside.biz>
Date: Tue, 29 Aug 2017 18:33:18 +0000 (-0700)
Subject: quick script to add armed forces USPS "state" abbrivations, RT#77312
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=72ad2f16955e4593891bb851243f8a6de9c3fb80

quick script to add armed forces USPS "state" abbrivations, RT#77312
---

diff --git a/bin/add-usps-af b/bin/add-usps-af
new file mode 100755
index 000000000..5aec110b7
--- /dev/null
+++ b/bin/add-usps-af
@@ -0,0 +1,29 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use FS::UID qw( adminsuidsetup );
+use FS::Setup;
+
+adminsuidsetup(shift) or die "usage: add-usps-af username\n";
+
+  my %addl = (
+    'US' => {
+#      'FM' => 'Federated States of Micronesia',
+#      'MH' => 'Marshall Islands',
+#      'PW' => 'Palau',
+      'AA' => "Armed Forces Americas (except Canada)",
+      'AE' => "Armed Forces Europe / Canada / Middle East / Africa",
+      'AP' => "Armed Forces Pacific",
+    },
+  );
+
+  foreach my $country ( keys %addl ) {
+    foreach my $state ( keys %{ $addl{$country} } ) {
+      # $longname = $addl{$country}{$state};
+      FS::Setup::_add_locale( 'country'=>$country, 'state'=>$state);
+    }
+  }
+
+1;
+