5 use FS::UID qw( adminsuidsetup );
8 adminsuidsetup(shift) or die "usage: add-usps-af username\n";
12 # 'FM' => 'Federated States of Micronesia',
13 # 'MH' => 'Marshall Islands',
15 'AA' => "Armed Forces Americas (except Canada)",
16 'AE' => "Armed Forces Europe / Canada / Middle East / Africa",
17 'AP' => "Armed Forces Pacific",
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);