bin/add-usps-af


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
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;