bin/add-usps-af

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5 use FS::UID qw( adminsuidsetup );
   6 use FS::Setup;
   7
   8 adminsuidsetup(shift) or die "usage: add-usps-af username\n";
   9
  10   my %addl = (
  11     'US' => {
  12 #      'FM' => 'Federated States of Micronesia',
  13 #      'MH' => 'Marshall Islands',
  14 #      'PW' => 'Palau',
  15       'AA' => "Armed Forces Americas (except Canada)",
  16       'AE' => "Armed Forces Europe / Canada / Middle East / Africa",
  17       'AP' => "Armed Forces Pacific",
  18     },
  19   );
  20
  21   foreach my $country ( keys %addl ) {
  22     foreach my $state ( keys %{ $addl{$country} } ) {
  23       # $longname = $addl{$country}{$state};
  24       FS::Setup::_add_locale( 'country'=>$country, 'state'=>$state);
  25     }
  26   }
  27
  28 1;
  29