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

1 files changed, 29 insertions, 0 deletions

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;
+