package fs; # $Id$
use diagnostics;
use strict;
use common qw(:common :file :system :functional);
use log;
use devices;
use partition_table qw(:types);
use run_program;
use swap;
use detect_devices;
use commands;
use modules;
use fsedit;
use loopback;
1;
sub add_options(\$@) {
my ($option, @options) = @_;
my %l; @l{split(',', $$option), @options} = (); delete $l{defaults};
$$option = join(',', keys %l) || "defaults";
}
sub read_fstab($) {
my ($file) = @_;
local *F;
open F, $file or return;
map {
my ($dev, @l) = split;
$dev =~ s,/(tmp|dev)/,,;
{ device => $dev, mntpoint => $l[0], type => $l[1], options => $l[2] }
} <F>;
}
sub up_mount_point {
my ($mntpoint, $fstab) = @_;
while (1) {
$mntpoint = dirname($mntpoint);
$mntpoint ne "." or return;
$_->{mntpoint} eq $mntpoint and return $_ foreach @$fstab;
}
}
sub check_mounted($) {
my ($fstab) = @_;
local (*F, *G, *H);
open F, "/etc/mtab";
open G, "/proc/mounts";
open H, "/proc/swaps";
foreach (<F>, <G>, <H>) {
foreach my $p (@$fstab) {
/$p->{device}\s+([^\s]*)\s+/ and $p->{mntpoint} = $1, $p->{isMounted} = $p->{isFormatted} = 1;
}
}
}
sub get_mntpoints_from_fstab {
my ($fstab, $prefix, $uniq) = @_;
log::l("reading fstab");
foreach (read_fstab("$prefix/etc/fstab")) {
next if $uniq && fsedit::mntpoint2part($_->{mntpoint}, $fstab);
foreach my $p (@$fstab) {
$p->{device} eq $_->{device} or next;
$_->{type} ne 'auto' && $_->{type} ne type2fs($p->{type}) and
log::l("err, fstab and partition table do not agree for $_->{device} type: " . (type2fs($p->{type}) || type2name($p->{type})) . " vs $_->{type}"), next;
delete $p->{unsafeMntpoint} || !$p->{mntpoint} or next;
$p->{mntpoint} = $_->{mntpoint};
$p->{options} = $_->{options};
}
}
}
#- mke2fs -b (1024|2048|4096) -c -i(1024 > 262144) -N (1 > 100000000) -m (0-100%) -L volume-label
#- tune2fs
sub format_ext2($@) {
my ($dev, @options) = @_;
$dev =~ m,(rd|ida)/, and push @options, qw(-b 4096 -R stride=16); #- For RAID only.
push @options, qw(-b 1024 -O none) if arch() =~ /alpha/;
run_program::run("mke2fs", @options, devices::make($dev)) or die _("%s formatting of %s failed", "ext2", $dev);
}
sub format_reiserfs($@) {
my ($dev, @options) = @_;
#TODO add -h tea
run_program::run("mkreiserfs", "-f", @options, devices::make($dev)) or die _("%s formatting of %s failed", "reiserfs", $dev);
}
sub format_dos($@) {
my ($dev, @options) = @_;
run_program::run("mkdosfs", @options, devices::make($dev)) or die _("%s formatting of %s failed", "dos", $dev);
}
sub format_hfs($@) {
my ($dev, @options) = @_;
run_program::run("hformat", @options, devices::make($dev)) or die _("%s formatting of %s failed", "HFS", $dev);
}
sub real_format_part {
my ($part) = @_;
$part->{isFormatted} and return;
my @options = $part->{toFormatCheck} ? "-c" : ();
log::l("formatting device $part->{device} (type ", type2name($part->{type}), ")");
if (isExt2($part)) {
push @options, "-F" if isLoopback($part);
format_ext2($part->{device}, @options);
} elsif (isReiserfs($part)) {
format_reiserfs($part->{device}, @options);
} elsif (isDos($part)) {
format_dos($part->{device}, @options);
} elsif (isWin($part)) {
format_dos($part->{device}, @options, '-F', 32);
} elsif (isHFS($part)) {
format_hfs($part->{device}, @options, '-l', "Untitled");
} elsif (isSwap($part)) {
my $check_blocks = grep { /^-c$/ } @options;
swap::make($part->{device}, $check_blocks);
} else {
die _("I don't know how to format %s in type %s", $_->{device}, type2name($_->{type}));
}
$part->{isFormatted} = 1;
}
sub format_part {
my ($raid, $part, $prefix) = @_;
if (isMDRAID($part)) {
require raid;
raid::format_part($raid, $part);
} elsif (isLoopback($part)) {
loopback::format_part($part, $prefix);
} else {
real_format_part($part);
}
}
sub formatMount_part {
my ($part, $raid, $fstab, $prefix, $callback) = @_;
if (isLoopback($part)) {
formatMount_part($part->{device}, $raid, $fstab, $prefix, $callback);
}
if (my $p = up_mount_point($part->{mntpoint}, $fstab)) {
formatMount_part($p, $raid, $fstab, $prefix, $callback) unless loopback::carryRootLoopback($part);
}
if ($part->{toFormat}) {
$callback->($part) if $callback;
format_part($raid, $part, $prefix);
}
mount_part($part, $prefix);
}
sub formatMount_all {
my ($raid, $fstab, $prefix, $callback) = @_;
formatMount_part($_, $raid, $fstab, $prefix, $callback)
foreach sort { isLoopback($a) ? 1 : isSwap($a) ? -1 : 0 } grep { $_->{mntpoint} } @$fstab;
#- ensure the link is there
loopback::carryRootCreateSymlink($_, $prefix) foreach @$fstab;
#- for fun :)
#- that way, when install exits via ctrl-c, it gives hand to partition
eval {
local $SIG{__DIE__} = 'ignore';
my ($type, $major, $minor) = devices::entry(fsedit::get_root($fstab)->{device});
output "/proc/sys/kernel/real-root-dev", makedev($major, $minor);
};
}
sub mount($$$;$) {
my ($dev, $where, $fs, $rdonly) = @_;
log::l("mounting $dev on $where as type $fs");
-d $where or commands::mkdir_('-p', $where);
if ($fs eq 'nfs') {
log::l("calling nfs::mount($dev, $where)");
# nfs::mount($dev, $where) or die _("nfs mount failed");
} elsif ($fs eq 'smb') {
die "no smb yet...";
} else {
$dev = devices::make($dev) if $fs ne 'proc' && $fs ne 'usbdevfs';
my $flag = c::MS_MGC_VAL();
$flag |= c::MS_RDONLY() if $rdonly;
my $mount_opt = "";
if ($fs eq 'vfat') {
$mount_opt = 'check=relaxed';
eval { modules::load('vfat') }; #- try using vfat
eval { modules::load('msdos') } if $@; #- otherwise msdos...
} elsif ($fs eq 'ufs') {
eval { modules::load('ufs') };
} elsif ($fs eq 'reiserfs') {
#- could be better if we knew if there is a /boot or not
#- without knowing it, / is forced to be mounted with notail
$mount_opt = 'notail' if $where =~ m|/(boot)?$|;
eval { modules::load('reiserfs') };
} elsif ($fs eq 'romfs') {
eval { modules::load('romfs') };
}
$where =~ s|/$||;
log::l("calling mount($dev, $where, $fs, $flag, $mount_opt)");
syscall_('mount', $dev, $where, $fs, $flag, $mount_opt) or die _("mount failed: ") . "$!";
}
local *F;
open F, ">>/etc/mtab" or return; #- fail silently, must be read-only /etc
print F "$dev $where $fs defaults 0 0\n";
}
#- takes the mount point to umount (can also be the device)
sub umount($) {
my ($mntpoint) = @_;
$mntpoint =~ s|/$||;
log::l("calling umount($mntpoint)");
syscall_('umount', $mntpoint) or die _("error unmounting %s: %s", $mntpoint, "$!");
substInFile { $_ = '' if /(^|\s)$mntpoint\s/ } '/etc/mtab'; #- don't care about error, if we can't read, we won't manage to write... (and mess mtab)
}
sub mount_part($;$$) {
my ($part, $prefix, $rdonly) = @_;
#- root carrier's link can't be mounted
loopback::carryRootCreateSymlink($part, $prefix);
return if $part->{isMounted};
unless ($::testing) {
if (isSwap($part)) {
swap::swapon(isLoopback($part) ? $prefix . loopback::file($part) : $part->{device});
} else {
$part->{mntpoint} or die "missing mount point";
my $dev = $part->{device};
my $mntpoint = ($prefix || '') . $part->{mntpoint};
if (isLoopback($part)) {
eval { modules::load('loop') };
$dev = $part->{real_device} = devices::set_loop($prefix . loopback::file($part)) || die;
} elsif (loopback::carryRootLoopback($part)) {
$mntpoint = "/initrd/loopfs";
}
mount(devices::make($dev), $mntpoint, type2fs($part->{type}), $rdonly);
rmdir "$mntpoint/lost+found";
}
}
$part->{isMounted} = $part->{isFormatted} = 1; #- assume that if mount works, partition is formatted
}
sub umount_part($;$) {
my ($part, $prefix) = @_;
$part->{isMounted} or return;
unless ($::testing) {
if (isSwap($part)) {
swap::swapoff($part->{device});
} elsif (loopback::carryRootLoopback($part)) {
umount("/initrd/loopfs");
} else {
umount(($prefix || '') . $part->{mntpoint} || devices::make($part->{device}));
c::del_loop(delete $part->{real_device}) if isLoopback($part);
}
}
$part->{isMounted} = 0;
}
sub mount_all($;$$) {
my ($fstab, $prefix) = @_;
#- TODO fsck, create check_mount_all ?
log::l("mounting all filesystems");
#- order mount by alphabetical ordre, that way / < /home < /home/httpd...
foreach (sort { $a->{mntpoint} cmp $b->{mntpoint} } grep { isSwap($_) || $_->{mntpoint} && isTrueFS($_) } @$fstab) {
mount_part($_, $prefix);
}
}
sub umount_all($;$) {
my ($fstab, $prefix) = @_;
log::l("unmounting all filesystems");
foreach (sort { $b->{mntpoint} cmp $a->{mntpoint} } @$fstab) {
$_->{mntpoint} and umount_part($_, $prefix);
}
}
sub df {
my ($part, $prefix) = @_;
my $dir = "/tmp/tmp_fs_df";
return $part->{free} if exists $part->{free};
if ($part->{isMounted}) {
$dir = ($prefix || '') . $part->{mntpoint};
} elsif ($part->{notFormatted} && !$part->{isFormatted}) {
return; #- won't even try!
} else {
mkdir $dir;
eval { mount($part->{device}, $dir, type2fs($part->{type}), 'readonly') };
if ($@) {
$part->{notFormatted} = 1;
$part->{isFormatted} = 0;
unlink $dir;
return;
}
}
my (undef, $free) = common::df($dir);
if (!$part->{isMounted}) {
umount($dir);
unlink($dir)
}
$part->{free} = 2 * $free if defined $free;
$part->{free};
}
#- do some stuff before calling write_fstab
sub write($$$$) {
my ($prefix, $fstab, $manualFstab, $useSupermount) = @_;
$fstab = [ @{$fstab||[]}, @{$manualFstab||[]} ];
unless ($::live) {
log::l("resetting /etc/mtab");
local *F;
open F, "> $prefix/etc/mtab" or die "error resetting $prefix/etc/mtab";
}
my $floppy = detect_devices::floppy();
my @to_add = (
$useSupermount ?
[ split ' ', "/mnt/floppy /mnt/floppy supermount fs=vfat,dev=/dev/$floppy 0 0" ] :
[ split ' ', "/dev/$floppy /mnt/floppy auto sync,user,noauto,nosuid,nodev 0 0" ],
[ split ' ', 'none /proc proc defaults 0 0' ],
[ split ' ', 'none /dev/pts devpts mode=0620 0 0' ],
(map_index {
my $i = $::i ? $::i + 1 : '';
mkdir "$prefix/mnt/cdrom$i", 0755;#- or log::l("failed to mkdir $prefix/mnt/cdrom$i: $!");
symlinkf $_->{device}, "$prefix/dev/cdrom$i" or log::l("failed to symlink $prefix/dev/cdrom$i: $!");
chown 0, 22, "$prefix/dev/$_->{device}";
$useSupermount ?
[ "/mnt/cdrom$i", "/mnt/cdrom$i", "supermount", "fs=iso9660,dev=/dev/cdrom$i", 0, 0 ] :
[ "/dev/cdrom$i", "/mnt/cdrom$i", "auto", "user,noauto,nosuid,exec,nodev,ro", 0, 0 ];
} detect_devices::cdroms()),
(map_index { #- for zip drives, the right partition is the 4th by default.
my $i = $::i ? $::i + 1 : '';
mkdir "$prefix/mnt/zip$i", 0755 or log::l("failed to mkdir $prefix/mnt/zip$i: $!");
symlinkf "$_->{device}4", "$prefix/dev/zip$i" or log::l("failed to symlink $prefix/dev/zip$i: $!");
$useSupermount ?
[ "/mnt/zip$i", "/mnt/zip$i", "supermount", "fs=vfat,dev=/dev/zip$i", 0, 0 ] :
[ "/dev/zip$i", "/mnt/zip$i", "auto", "user,noauto,nosuid,exec,nodev", 0, 0 ];
} detect_devices::zips()));
write_fstab($fstab, $prefix, @to_add);
}
sub write_fstab($;$$) {
my ($fstab, $prefix, @to_add) = @_;
$prefix ||= '';
#- get the list of devices and mntpoint to remove existing entries
#- and @to_add take precedence over $fstab to handle removable device
#- if they are mounted OR NOT during install.
my @new = grep { $_ ne 'none' } map { @$_[0,1] } @to_add;
my %new; @new{@new} = undef;
unshift @to_add,
grep {
my $b = !exists $new{$_->[0]} && !exists $new{$_->[1]};
#- keep in mind the new line for fstab.
@new{@$_[0,1]} = undef;
$b
} map {
my ($dir, $options, $freq, $passno) = qw(/dev/ defaults 0 0);
$options = $_->{options} || $options;
isTrueFS($_) and ($freq, $passno) = (1, ($_->{mntpoint} eq '/') ? 1 : 2);
isNfs($_) and $dir = '', $options = $_->{options} || 'ro,nosuid,rsize=8192,wsize=8192';
isFat($_) and $options = $_->{options} || "user,exec,umask=0";
isReiserfs($_) && $_ == fsedit::get_root($fstab, 'boot') and add_options($options, "notail");
my $dev = isLoopback($_) ?
($_->{mntpoint} eq '/' ? "/initrd/loopfs$_->{loopback_file}" : loopback::file($_)) :
($_->{device} =~ /^\// ? $_->{device} : "$dir$_->{device}");
local $_->{mntpoint} = do {
$passno = 0;
"/initrd/loopfs";
} if loopback::carryRootLoopback($_);
add_options($options, "loop") if isLoopback($_) && !isSwap($_); #- no need for loop option for swap files
eval { devices::make("$prefix/$dev") } if $dir && !isLoopback($_);
mkdir "$prefix/$_->{mntpoint}", 0755 if $_->{mntpoint} && !isSwap($_);
[ $dev, $_->{mntpoint}, type2fs($_->{type}), $options, $freq, $passno ];
} grep { $_->{mntpoint} && type2fs($_->{type}) } @$fstab;
push @to_add,
grep { !exists $new{$_->[0]} && !exists $new{$_->[1]} }
map { [ split ] } cat_("$prefix/etc/fstab");
log::l("writing $prefix/etc/fstab");
local *F;
open F, "> $prefix/etc/fstab" or die "error writing $prefix/etc/fstab";
print F join(" ", @$_), "\n" foreach sort { $a->[1] cmp $b->[1] } @to_add;
}
sub merge_fstabs {
my ($fstab, $manualFstab) = @_;
my %l; $l{$_->{device}} = $_ foreach @$manualFstab;
%$_ = (%$_, %{$l{$_->{device}} || next}) foreach @$fstab;
}
#sub check_mount_all_fstab($;$) {
# my ($fstab, $prefix) = @_;
# $prefix ||= '';
#
# foreach (sort { ($a->{mntpoint} || '') cmp ($b->{mntpoint} || '') } @$fstab) {
# #- avoid unwanted mount in fstab.
# next if ($_->{device} =~ /none/ || $_->{type} =~ /nfs|smbfs|ncpfs|proc/ || $_->{options} =~ /noauto|ro/);
#
# #- TODO fsck
#
# eval { mount(devices::make($_->{device}), $prefix . $_->{mntpoint}, $_->{type}, 0); };
# if ($@) {
# log::l("unable to mount partition $_->{device} on $prefix/$_->{mntpoint}");
# }
# }
#}
44'>244</a>
<a id='n245' href='#n245'>245</a>
<a id='n246' href='#n246'>246</a>
<a id='n247' href='#n247'>247</a>
<a id='n248' href='#n248'>248</a>
<a id='n249' href='#n249'>249</a>
<a id='n250' href='#n250'>250</a>
<a id='n251' href='#n251'>251</a>
<a id='n252' href='#n252'>252</a>
<a id='n253' href='#n253'>253</a>
<a id='n254' href='#n254'>254</a>
<a id='n255' href='#n255'>255</a>
<a id='n256' href='#n256'>256</a>
<a id='n257' href='#n257'>257</a>
<a id='n258' href='#n258'>258</a>
<a id='n259' href='#n259'>259</a>
<a id='n260' href='#n260'>260</a>
<a id='n261' href='#n261'>261</a>
<a id='n262' href='#n262'>262</a>
<a id='n263' href='#n263'>263</a>
<a id='n264' href='#n264'>264</a>
<a id='n265' href='#n265'>265</a>
<a id='n266' href='#n266'>266</a>
<a id='n267' href='#n267'>267</a>
<a id='n268' href='#n268'>268</a>
<a id='n269' href='#n269'>269</a>
<a id='n270' href='#n270'>270</a>
<a id='n271' href='#n271'>271</a>
<a id='n272' href='#n272'>272</a>
<a id='n273' href='#n273'>273</a>
<a id='n274' href='#n274'>274</a>
<a id='n275' href='#n275'>275</a>
<a id='n276' href='#n276'>276</a>
<a id='n277' href='#n277'>277</a>
<a id='n278' href='#n278'>278</a>
<a id='n279' href='#n279'>279</a>
<a id='n280' href='#n280'>280</a>
<a id='n281' href='#n281'>281</a>
<a id='n282' href='#n282'>282</a>
<a id='n283' href='#n283'>283</a>
<a id='n284' href='#n284'>284</a>
<a id='n285' href='#n285'>285</a>
<a id='n286' href='#n286'>286</a>
<a id='n287' href='#n287'>287</a>
<a id='n288' href='#n288'>288</a>
<a id='n289' href='#n289'>289</a>
<a id='n290' href='#n290'>290</a>
<a id='n291' href='#n291'>291</a>
<a id='n292' href='#n292'>292</a>
<a id='n293' href='#n293'>293</a>
<a id='n294' href='#n294'>294</a>
<a id='n295' href='#n295'>295</a>
<a id='n296' href='#n296'>296</a>
<a id='n297' href='#n297'>297</a>
<a id='n298' href='#n298'>298</a>
<a id='n299' href='#n299'>299</a>
<a id='n300' href='#n300'>300</a>
<a id='n301' href='#n301'>301</a>
<a id='n302' href='#n302'>302</a>
<a id='n303' href='#n303'>303</a>
</pre></td>
<td class='lines'><pre><code><span class="hl slc">#!/usr/bin/perl</span>
<span class="hl slc">#open F, "/usr/bin/lynx -dump http://www.eecis.udel.edu/~mills/ntp/clock1a.html|";</span>
<span class="hl kwc">open</span><span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$G,</span> <span class="hl str">"/usr/bin/lynx -dump http://www.eecis.udel.edu/~mills/ntp/clock2a.html|"</span><span class="hl opt">);</span>
<span class="hl slc"># Chris Kloiber <ckloiber@redhat.com> writes:</span>
<span class="hl slc"># > It's not considered polite to use the Stratum 1 servers for purposes that </span>
<span class="hl slc"># > are not absolutely critical. I would use Stratum 2 servers and live with </span>
<span class="hl slc"># > the few nanoseconds difference. </span>
<span class="hl slc">#parse() while <F>;</span>
parse<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">)</span> <span class="hl kwa">while</span> <span class="hl opt"><</span><span class="hl kwb">$G</span><span class="hl opt">>;</span>
<span class="hl kwc">my</span> <span class="hl kwb">@all</span><span class="hl opt">;</span>
<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$l, $nb</span><span class="hl opt">);</span>
<span class="hl kwa">sub</span> parse <span class="hl opt">{</span>
<span class="hl kwc">local</span> <span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">) =</span> <span class="hl kwb">@_</span><span class="hl opt">;</span>
<span class="hl kwd">/Active Servers/</span> <span class="hl opt">..</span> <span class="hl kwd">/Discontinued Service/</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwd">/^\s+\d+\. ([A-Z ]*[A-Z]);?\s+([.\w-]+)/</span><span class="hl opt">) {</span>
<span class="hl kwc">push</span> <span class="hl kwb">@all, $l</span> <span class="hl opt">= {</span> name <span class="hl opt">=></span> <span class="hl kwb">$2,</span> indic <span class="hl opt">=></span> <span class="hl kwb">$1</span> <span class="hl opt">};</span>
<span class="hl kwb">$nb</span> <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
<span class="hl kwd">s/^\s*//</span><span class="hl opt">;</span>
<span class="hl kwd">s/\s*$//</span><span class="hl opt">;</span>
<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$field, $val</span><span class="hl opt">) =</span> <span class="hl kwd">/^(.*):\s*(.*)/</span><span class="hl opt">;</span>
<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$field</span> <span class="hl opt">=~</span> <span class="hl kwd">/policy/i</span><span class="hl opt">) {</span>
<span class="hl kwb">$field</span> <span class="hl opt">=</span> <span class="hl str">"policy"</span><span class="hl opt">;</span>
<span class="hl kwb">$val</span> <span class="hl opt">=</span> <span class="hl kwc">lc join</span><span class="hl opt">(</span><span class="hl str">' '</span><span class="hl opt">,</span> <span class="hl kwc">split</span><span class="hl opt">(</span><span class="hl str">' '</span><span class="hl opt">,</span> <span class="hl kwb">$val</span><span class="hl opt">));</span>
<span class="hl kwb">$val</span> <span class="hl opt">=~</span> <span class="hl kwd">s/glad to receive a note//</span><span class="hl opt">;</span>
<span class="hl kwb">$val</span> <span class="hl opt">=~</span> <span class="hl kwd">s/(but )?please send (a )?message to notify//</span><span class="hl opt">;</span>
<span class="hl kwb">$val</span> <span class="hl opt">=~</span> <span class="hl kwd">s/an email note is appreciated//</span><span class="hl opt">;</span>
<span class="hl kwb">$val</span> <span class="hl opt">=~</span> <span class="hl kwd">s/please send a message with the//</span><span class="hl opt">;</span>
<span class="hl kwb">$val</span> <span class="hl opt">=~</span> <span class="hl kwd">s/no need to notify//</span><span class="hl opt">;</span>
<span class="hl kwb">$val</span> <span class="hl opt">=~</span> <span class="hl kwd">s/[(), .;]*$//</span><span class="hl opt">;</span>
<span class="hl kwb">$val</span> <span class="hl opt">=</span> <span class="hl str">"open access"</span> <span class="hl kwa">if</span> <span class="hl kwb">$val</span> <span class="hl kwc">eq</span> <span class="hl str">"public"</span><span class="hl opt">;</span>
<span class="hl kwc">warn</span> <span class="hl str">"</span><span class="hl ipl">$val</span> <span class="hl str">(</span><span class="hl ipl">$all</span><span class="hl str">[-1]{name})</span><span class="hl esc">\n</span><span class="hl str">"</span> <span class="hl kwa">if</span> <span class="hl kwb">$val</span> <span class="hl kwc">ne</span> <span class="hl str">'open access'</span><span class="hl opt">;</span>
<span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$field</span> <span class="hl opt">=~</span> <span class="hl kwd">/^Contact|Synchroni[sz]ation|Location|Geographic\s+Coordinates|Service\s+Area|Note$/i</span><span class="hl opt">) {</span>
<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
<span class="hl slc"># warn "bad line ($field) $_\n";</span>
<span class="hl kwa">return</span><span class="hl opt">;</span>
<span class="hl opt">}</span>
<span class="hl kwb">$l</span><span class="hl opt">->{</span><span class="hl kwb">$field</span><span class="hl opt">} .= (</span><span class="hl kwb">$l</span><span class="hl opt">->{</span><span class="hl kwb">$field</span><span class="hl opt">} &&</span> <span class="hl str">' '</span><span class="hl opt">) .</span> <span class="hl kwb">$val</span><span class="hl opt">;</span>
<span class="hl opt">}</span>
<span class="hl kwb">$nb++</span><span class="hl opt">;</span>
<span class="hl opt">}</span>
<span class="hl kwa">use</span> Data<span class="hl opt">::</span>Dumper<span class="hl opt">;</span>
<span class="hl slc">#warn Dumper(\@all);</span>
<span class="hl kwa">foreach</span> <span class="hl opt">(</span><span class="hl kwc">grep</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span><span class="hl opt">->{</span>policy<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">'open access'</span> <span class="hl opt">}</span> <span class="hl kwb">@all</span><span class="hl opt">) {</span>
<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$country, $state</span><span class="hl opt">) =</span> <span class="hl kwc">split</span> <span class="hl str">' '</span><span class="hl opt">,</span> <span class="hl kwb">$_</span><span class="hl opt">->{</span>indic<span class="hl opt">};</span>
<span class="hl kwb">$country</span> <span class="hl opt">=</span> <span class="hl kwc">ucfirst</span><span class="hl opt">(</span><span class="hl kwc">lc</span> <span class="hl kwb">$country_codes</span><span class="hl opt">{</span><span class="hl kwb">$country</span><span class="hl opt">});</span>
<span class="hl kwb">$country</span> <span class="hl opt">.=</span> <span class="hl str">"</span> <span class="hl ipl">$state</span><span class="hl str">"</span> <span class="hl kwa">if</span> <span class="hl kwb">$state</span><span class="hl opt">;</span>
<span class="hl kwc">printf</span> <span class="hl str">"</span><span class="hl esc">\t</span><span class="hl str">'</span><span class="hl ipl">%s</span><span class="hl str">' => '</span><span class="hl ipl">%s</span><span class="hl str">',</span><span class="hl esc">\n</span><span class="hl str">"</span><span class="hl opt">,</span> <span class="hl kwc">lc</span><span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">->{</span>name<span class="hl opt">}),</span> <span class="hl kwb">$country</span><span class="hl opt">;</span>
<span class="hl opt">}</span>
<span class="hl kwa">BEGIN</span> <span class="hl opt">{</span>
<span class="hl kwb">%country_codes</span> <span class="hl opt">= (</span> <span class="hl slc"># from ftp://ftp.ripe.net/iso3166-countrycodes</span>
<span class="hl str">"AF"</span><span class="hl opt">,</span> <span class="hl str">"AFGHANISTAN"</span><span class="hl opt">,</span>
<span class="hl str">"AL"</span><span class="hl opt">,</span> <span class="hl str">"ALBANIA"</span><span class="hl opt">,</span>
<span class="hl str">"DZ"</span><span class="hl opt">,</span> <span class="hl str">"ALGERIA"</span><span class="hl opt">,</span>
<span class="hl str">"AS"</span><span class="hl opt">,</span> <span class="hl str">"AMERICAN SAMOA"</span><span class="hl opt">,</span>
<span class="hl str">"AD"</span><span class="hl opt">,</span> <span class="hl str">"ANDORRA"</span><span class="hl opt">,</span>
<span class="hl str">"AO"</span><span class="hl opt">,</span> <span class="hl str">"ANGOLA"</span><span class="hl opt">,</span>
<span class="hl str">"AI"</span><span class="hl opt">,</span> <span class="hl str">"ANGUILLA"</span><span class="hl opt">,</span>
<span class="hl str">"AQ"</span><span class="hl opt">,</span> <span class="hl str">"ANTARCTICA"</span><span class="hl opt">,</span>
<span class="hl str">"AG"</span><span class="hl opt">,</span> <span class="hl str">"ANTIGUA AND BARBUDA"</span><span class="hl opt">,</span>
<span class="hl str">"AR"</span><span class="hl opt">,</span> <span class="hl str">"ARGENTINA"</span><span class="hl opt">,</span>
<span class="hl str">"AM"</span><span class="hl opt">,</span> <span class="hl str">"ARMENIA"</span><span class="hl opt">,</span>
<span class="hl str">"AW"</span><span class="hl opt">,</span> <span class="hl str">"ARUBA"</span><span class="hl opt">,</span>
<span class="hl str">"AU"</span><span class="hl opt">,</span> <span class="hl str">"AUSTRALIA"</span><span class="hl opt">,</span>
<span class="hl str">"AT"</span><span class="hl opt">,</span> <span class="hl str">"AUSTRIA"</span><span class="hl opt">,</span>
<span class="hl str">"AZ"</span><span class="hl opt">,</span> <span class="hl str">"AZERBAIJAN"</span><span class="hl opt">,</span>
<span class="hl str">"BS"</span><span class="hl opt">,</span> <span class="hl str">"BAHAMAS"</span><span class="hl opt">,</span>
<span class="hl str">"BH"</span><span class="hl opt">,</span> <span class="hl str">"BAHRAIN"</span><span class="hl opt">,</span>
<span class="hl str">"BD"</span><span class="hl opt">,</span> <span class="hl str">"BANGLADESH"</span><span class="hl opt">,</span>
<span class="hl str">"BB"</span><span class="hl opt">,</span> <span class="hl str">"BARBADOS"</span><span class="hl opt">,</span>
<span class="hl str">"BY"</span><span class="hl opt">,</span> <span class="hl str">"BELARUS"</span><span class="hl opt">,</span>
<span class="hl str">"BE"</span><span class="hl opt">,</span> <span class="hl str">"BELGIUM"</span><span class="hl opt">,</span>
<span class="hl str">"BZ"</span><span class="hl opt">,</span> <span class="hl str">"BELIZE"</span><span class="hl opt">,</span>
<span class="hl str">"BJ"</span><span class="hl opt">,</span> <span class="hl str">"BENIN"</span><span class="hl opt">,</span>
<span class="hl str">"BM"</span><span class="hl opt">,</span> <span class="hl str">"BERMUDA"</span><span class="hl opt">,</span>
<span class="hl str">"BT"</span><span class="hl opt">,</span> <span class="hl str">"BHUTAN"</span><span class="hl opt">,</span>
<span class="hl str">"BO"</span><span class="hl opt">,</span> <span class="hl str">"BOLIVIA"</span><span class="hl opt">,</span>
<span class="hl str">"BA"</span><span class="hl opt">,</span> <span class="hl str">"BOSNIA AND HERZEGOWINA"</span><span class="hl opt">,</span>
<span class="hl str">"BW"</span><span class="hl opt">,</span> <span class="hl str">"BOTSWANA"</span><span class="hl opt">,</span>
<span class="hl str">"BV"</span><span class="hl opt">,</span> <span class="hl str">"BOUVET ISLAND"</span><span class="hl opt">,</span>
<span class="hl str">"BR"</span><span class="hl opt">,</span> <span class="hl str">"BRAZIL"</span><span class="hl opt">,</span>
<span class="hl str">"IO"</span><span class="hl opt">,</span> <span class="hl str">"BRITISH INDIAN OCEAN TERRITORY"</span><span class="hl opt">,</span>
<span class="hl str">"BN"</span><span class="hl opt">,</span> <span class="hl str">"BRUNEI DARUSSALAM"</span><span class="hl opt">,</span>
<span class="hl str">"BG"</span><span class="hl opt">,</span> <span class="hl str">"BULGARIA"</span><span class="hl opt">,</span>
<span class="hl str">"BF"</span><span class="hl opt">,</span> <span class="hl str">"BURKINA FASO"</span><span class="hl opt">,</span>
<span class="hl str">"BI"</span><span class="hl opt">,</span> <span class="hl str">"BURUNDI"</span><span class="hl opt">,</span>
<span class="hl str">"KH"</span><span class="hl opt">,</span> <span class="hl str">"CAMBODIA"</span><span class="hl opt">,</span>
<span class="hl str">"CM"</span><span class="hl opt">,</span> <span class="hl str">"CAMEROON"</span><span class="hl opt">,</span>
<span class="hl str">"CA"</span><span class="hl opt">,</span> <span class="hl str">"CANADA"</span><span class="hl opt">,</span>
<span class="hl str">"CV"</span><span class="hl opt">,</span> <span class="hl str">"CAPE VERDE"</span><span class="hl opt">,</span>
<span class="hl str">"KY"</span><span class="hl opt">,</span> <span class="hl str">"CAYMAN ISLANDS"</span><span class="hl opt">,</span>
<span class="hl str">"CF"</span><span class="hl opt">,</span> <span class="hl str">"CENTRAL AFRICAN REPUBLIC"</span><span class="hl opt">,</span>
<span class="hl str">"TD"</span><span class="hl opt">,</span> <span class="hl str">"CHAD"</span><span class="hl opt">,</span>
<span class="hl str">"CL"</span><span class="hl opt">,</span> <span class="hl str">"CHILE"</span><span class="hl opt">,</span>
<span class="hl str">"CN"</span><span class="hl opt">,</span> <span class="hl str">"CHINA"</span><span class="hl opt">,</span>
<span class="hl str">"CX"</span><span class="hl opt">,</span> <span class="hl str">"CHRISTMAS ISLAND"</span><span class="hl opt">,</span>
<span class="hl str">"CC"</span><span class="hl opt">,</span> <span class="hl str">"COCOS (KEELING) ISLANDS"</span><span class="hl opt">,</span>
<span class="hl str">"CO"</span><span class="hl opt">,</span> <span class="hl str">"COLOMBIA"</span><span class="hl opt">,</span>
<span class="hl str">"KM"</span><span class="hl opt">,</span> <span class="hl str">"COMOROS"</span><span class="hl opt">,</span>
<span class="hl str">"CG"</span><span class="hl opt">,</span> <span class="hl str">"CONGO"</span><span class="hl opt">,</span>
<span class="hl str">"CD"</span><span class="hl opt">,</span> <span class="hl str">"CONGO, THE DEMOCRATIC REPUBLIC OF THE"</span><span class="hl opt">,</span>
<span class="hl str">"CK"</span><span class="hl opt">,</span> <span class="hl str">"COOK ISLANDS"</span><span class="hl opt">,</span>
<span class="hl str">"CR"</span><span class="hl opt">,</span> <span class="hl str">"COSTA RICA"</span><span class="hl opt">,</span>
<span class="hl str">"CI"</span><span class="hl opt">,</span> <span class="hl str">"COTE D'IVOIRE"</span><span class="hl opt">,</span>
<span class="hl str">"HR"</span><span class="hl opt">,</span> <span class="hl str">"CROATIA"</span><span class="hl opt">,</span>
<span class="hl str">"CU"</span><span class="hl opt">,</span> <span class="hl str">"CUBA"</span><span class="hl opt">,</span>
<span class="hl str">"CY"</span><span class="hl opt">,</span> <span class="hl str">"CYPRUS"</span><span class="hl opt">,</span>
<span class="hl str">"CZ"</span><span class="hl opt">,</span> <span class="hl str">"CZECH REPUBLIC"</span><span class="hl opt">,</span>
<span class="hl str">"DK"</span><span class="hl opt">,</span> <span class="hl str">"DENMARK"</span><span class="hl opt">,</span>
<span class="hl str">"DJ"</span><span class="hl opt">,</span> <span class="hl str">"DJIBOUTI"</span><span class="hl opt">,</span>
<span class="hl str">"DM"</span><span class="hl opt">,</span> <span class="hl str">"DOMINICA"</span><span class="hl opt">,</span>
<span class="hl str">"DO"</span><span class="hl opt">,</span> <span class="hl str">"DOMINICAN REPUBLIC"</span><span class="hl opt">,</span>
<span class="hl str">"TP"</span><span class="hl opt">,</span> <span class="hl str">"EAST TIMOR"</span><span class="hl opt">,</span>
<span class="hl str">"EC"</span><span class="hl opt">,</span> <span class="hl str">"ECUADOR"</span><span class="hl opt">,</span>
<span class="hl str">"EG"</span><span class="hl opt">,</span> <span class="hl str">"EGYPT"</span><span class="hl opt">,</span>
<span class="hl str">"SV"</span><span class="hl opt">,</span> <span class="hl str">"EL SALVADOR"</span><span class="hl opt">,</span>
<span class="hl str">"GQ"</span><span class="hl opt">,</span> <span class="hl str">"EQUATORIAL GUINEA"</span><span class="hl opt">,</span>
<span class="hl str">"ER"</span><span class="hl opt">,</span> <span class="hl str">"ERITREA"</span><span class="hl opt">,</span>
<span class="hl str">"EE"</span><span class="hl opt">,</span> <span class="hl str">"ESTONIA"</span><span class="hl opt">,</span>
<span class="hl str">"ET"</span><span class="hl opt">,</span> <span class="hl str">"ETHIOPIA"</span><span class="hl opt">,</span>
<span class="hl str">"FK"</span><span class="hl opt">,</span> <span class="hl str">"FALKLAND ISLANDS (MALVINAS)"</span><span class="hl opt">,</span>
<span class="hl str">"FO"</span><span class="hl opt">,</span> <span class="hl str">"FAROE ISLANDS"</span><span class="hl opt">,</span>
<span class="hl str">"FJ"</span><span class="hl opt">,</span> <span class="hl str">"FIJI"</span><span class="hl opt">,</span>
<span class="hl str">"FI"</span><span class="hl opt">,</span> <span class="hl str">"FINLAND"</span><span class="hl opt">,</span>
<span class="hl str">"FR"</span><span class="hl opt">,</span> <span class="hl str">"FRANCE"</span><span class="hl opt">,</span>
<span class="hl str">"FX"</span><span class="hl opt">,</span> <span class="hl str">"FRANCE, METROPOLITAN"</span><span class="hl opt">,</span>
<span class="hl str">"GF"</span><span class="hl opt">,</span> <span class="hl str">"FRENCH GUIANA"</span><span class="hl opt">,</span>
<span class="hl str">"PF"</span><span class="hl opt">,</span> <span class="hl str">"FRENCH POLYNESIA"</span><span class="hl opt">,</span>
<span class="hl str">"TF"</span><span class="hl opt">,</span> <span class="hl str">"FRENCH SOUTHERN TERRITORIES"</span><span class="hl opt">,</span>
<span class="hl str">"GA"</span><span class="hl opt">,</span> <span class="hl str">"GABON"</span><span class="hl opt">,</span>
<span class="hl str">"GM"</span><span class="hl opt">,</span> <span class="hl str">"GAMBIA"</span><span class="hl opt">,</span>
<span class="hl str">"GE"</span><span class="hl opt">,</span> <span class="hl str">"GEORGIA"</span><span class="hl opt">,</span>
<span class="hl str">"DE"</span><span class="hl opt">,</span> <span class="hl str">"GERMANY"</span><span class="hl opt">,</span>
<span class="hl str">"GH"</span><span class="hl opt">,</span> <span class="hl str">"GHANA"</span><span class="hl opt">,</span>
<span class="hl str">"GI"</span><span class="hl opt">,</span> <span class="hl str">"GIBRALTAR"</span><span class="hl opt">,</span>
<span class="hl str">"GR"</span><span class="hl opt">,</span> <span class="hl str">"GREECE"</span><span class="hl opt">,</span>
<span class="hl str">"GL"</span><span class="hl opt">,</span> <span class="hl str">"GREENLAND"</span><span class="hl opt">,</span>
<span class="hl str">"GD"</span><span class="hl opt">,</span> <span class="hl str">"GRENADA"</span><span class="hl opt">,</span>
<span class="hl str">"GP"</span><span class="hl opt">,</span> <span class="hl str">"GUADELOUPE"</span><span class="hl opt">,</span>
<span class="hl str">"GU"</span><span class="hl opt">,</span> <span class="hl str">"GUAM"</span><span class="hl opt">,</span>
<span class="hl str">"GT"</span><span class="hl opt">,</span> <span class="hl str">"GUATEMALA"</span><span class="hl opt">,</span>
<span class="hl str">"GN"</span><span class="hl opt">,</span> <span class="hl str">"GUINEA"</span><span class="hl opt">,</span>
<span class="hl str">"GW"</span><span class="hl opt">,</span> <span class="hl str">"GUINEA-BISSAU"</span><span class="hl opt">,</span>
<span class="hl str">"GY"</span><span class="hl opt">,</span> <span class="hl str">"GUYANA"</span><span class="hl opt">,</span>
<span class="hl str">"HT"</span><span class="hl opt">,</span> <span class="hl str">"HAITI"</span><span class="hl opt">,</span>
<span class="hl str">"HM"</span><span class="hl opt">,</span> <span class="hl str">"HEARD AND MC DONALD ISLANDS"</span><span class="hl opt">,</span>
<span class="hl str">"VA"</span><span class="hl opt">,</span> <span class="hl str">"HOLY SEE (VATICAN CITY STATE)"</span><span class="hl opt">,</span>
<span class="hl str">"HN"</span><span class="hl opt">,</span> <span class="hl str">"HONDURAS"</span><span class="hl opt">,</span>
<span class="hl str">"HK"</span><span class="hl opt">,</span> <span class="hl str">"HONG KONG"</span><span class="hl opt">,</span>
<span class="hl str">"HU"</span><span class="hl opt">,</span> <span class="hl str">"HUNGARY"</span><span class="hl opt">,</span>
<span class="hl str">"IS"</span><span class="hl opt">,</span> <span class="hl str">"ICELAND"</span><span class="hl opt">,</span>
<span class="hl str">"IN"</span><span class="hl opt">,</span> <span class="hl str">"INDIA"</span><span class="hl opt">,</span>
<span class="hl str">"ID"</span><span class="hl opt">,</span> <span class="hl str">"INDONESIA"</span><span class="hl opt">,</span>
<span class="hl str">"IR"</span><span class="hl opt">,</span> <span class="hl str">"IRAN (ISLAMIC REPUBLIC OF)"</span><span class="hl opt">,</span>
<span class="hl str">"IQ"</span><span class="hl opt">,</span> <span class="hl str">"IRAQ"</span><span class="hl opt">,</span>
<span class="hl str">"IE"</span><span class="hl opt">,</span> <span class="hl str">"IRELAND"</span><span class="hl opt">,</span>
<span class="hl str">"IL"</span><span class="hl opt">,</span> <span class="hl str">"ISRAEL"</span><span class="hl opt">,</span>
<span class="hl str">"IT"</span><span class="hl opt">,</span> <span class="hl str">"ITALY"</span><span class="hl opt">,</span>
<span class="hl str">"JM"</span><span class="hl opt">,</span> <span class="hl str">"JAMAICA"</span><span class="hl opt">,</span>
<span class="hl str">"JP"</span><span class="hl opt">,</span> <span class="hl str">"JAPAN"</span><span class="hl opt">,</span>
<span class="hl str">"JO"</span><span class="hl opt">,</span> <span class="hl str">"JORDAN"</span><span class="hl opt">,</span>
<span class="hl str">"KZ"</span><span class="hl opt">,</span> <span class="hl str">"KAZAKHSTAN"</span><span class="hl opt">,</span>
<span class="hl str">"KE"</span><span class="hl opt">,</span> <span class="hl str">"KENYA"</span><span class="hl opt">,</span>
<span class="hl str">"KI"</span><span class="hl opt">,</span> <span class="hl str">"KIRIBATI"</span><span class="hl opt">,</span>
<span class="hl str">"KP"</span><span class="hl opt">,</span> <span class="hl str">"KOREA, DEMOCRATIC PEOPLE'S REPUBLIC OF"</span><span class="hl opt">,</span>
<span class="hl str">"KR"</span><span class="hl opt">,</span> <span class="hl str">"KOREA, REPUBLIC OF"</span><span class="hl opt">,</span>
<span class="hl str">"KW"</span><span class="hl opt">,</span> <span class="hl str">"KUWAIT"</span><span class="hl opt">,</span>
<span class="hl str">"KG"</span><span class="hl opt">,</span> <span class="hl str">"KYRGYZSTAN"</span><span class="hl opt">,</span>
<span class="hl str">"LA"</span><span class="hl opt">,</span> <span class="hl str">"LAO PEOPLE'S DEMOCRATIC REPUBLIC"</span><span class="hl opt">,</span>
<span class="hl str">"LV"</span><span class="hl opt">,</span> <span class="hl str">"LATVIA"</span><span class="hl opt">,</span>
<span class="hl str">"LB"</span><span class="hl opt">,</span> <span class="hl str">"LEBANON"</span><span class="hl opt">,</span>
<span class="hl str">"LS"</span><span class="hl opt">,</span> <span class="hl str">"LESOTHO"</span><span class="hl opt">,</span>
<span class="hl str">"LR"</span><span class="hl opt">,</span> <span class="hl str">"LIBERIA"</span><span class="hl opt">,</span>
<span class="hl str">"LY"</span><span class="hl opt">,</span> <span class="hl str">"LIBYAN ARAB JAMAHIRIYA"</span><span class="hl opt">,</span>
<span class="hl str">"LI"</span><span class="hl opt">,</span> <span class="hl str">"LIECHTENSTEIN"</span><span class="hl opt">,</span>
<span class="hl str">"LT"</span><span class="hl opt">,</span> <span class="hl str">"LITHUANIA"</span><span class="hl opt">,</span>
<span class="hl str">"LU"</span><span class="hl opt">,</span> <span class="hl str">"LUXEMBOURG"</span><span class="hl opt">,</span>
<span class="hl str">"MO"</span><span class="hl opt">,</span> <span class="hl str">"MACAU"</span><span class="hl opt">,</span>
<span class="hl str">"MK"</span><span class="hl opt">,</span> <span class="hl str">"MACEDONIA, THE FORMER YUGOSLAV REPUBLIC OF"</span><span class="hl opt">,</span>
<span class="hl str">"MG"</span><span class="hl opt">,</span> <span class="hl str">"MADAGASCAR"</span><span class="hl opt">,</span>
<span class="hl str">"MW"</span><span class="hl opt">,</span> <span class="hl str">"MALAWI"</span><span class="hl opt">,</span>
<span class="hl str">"MY"</span><span class="hl opt">,</span> <span class="hl str">"MALAYSIA"</span><span class="hl opt">,</span>
<span class="hl str">"MV"</span><span class="hl opt">,</span> <span class="hl str">"MALDIVES"</span><span class="hl opt">,</span>
<span class="hl str">"ML"</span><span class="hl opt">,</span> <span class="hl str">"MALI"</span><span class="hl opt">,</span>
<span class="hl str">"MT"</span><span class="hl opt">,</span> <span class="hl str">"MALTA"</span><span class="hl opt">,</span>
<span class="hl str">"MH"</span><span class="hl opt">,</span> <span class="hl str">"MARSHALL ISLANDS"</span><span class="hl opt">,</span>
<span class="hl str">"MQ"</span><span class="hl opt">,</span> <span class="hl str">"MARTINIQUE"</span><span class="hl opt">,</span>
<span class="hl str">"MR"</span><span class="hl opt">,</span> <span class="hl str">"MAURITANIA"</span><span class="hl opt">,</span>
<span class="hl str">"MU"</span><span class="hl opt">,</span> <span class="hl str">"MAURITIUS"</span><span class="hl opt">,</span>
<span class="hl str">"YT"</span><span class="hl opt">,</span> <span class="hl str">"MAYOTTE"</span><span class="hl opt">,</span>
<span class="hl str">"MX"</span><span class="hl opt">,</span> <span class="hl str">"MEXICO"</span><span class="hl opt">,</span>
<span class="hl str">"FM"</span><span class="hl opt">,</span> <span class="hl str">"MICRONESIA, FEDERATED STATES OF"</span><span class="hl opt">,</span>
<span class="hl str">"MD"</span><span class="hl opt">,</span> <span class="hl str">"MOLDOVA, REPUBLIC OF"</span><span class="hl opt">,</span>
<span class="hl str">"MC"</span><span class="hl opt">,</span> <span class="hl str">"MONACO"</span><span class="hl opt">,</span>
<span class="hl str">"MN"</span><span class="hl opt">,</span> <span class="hl str">"MONGOLIA"</span><span class="hl opt">,</span>
<span class="hl str">"MS"</span><span class="hl opt">,</span> <span class="hl str">"MONTSERRAT"</span><span class="hl opt">,</span>
<span class="hl str">"MA"</span><span class="hl opt">,</span> <span class="hl str">"MOROCCO"</span><span class="hl opt">,</span>
<span class="hl str">"MZ"</span><span class="hl opt">,</span> <span class="hl str">"MOZAMBIQUE"</span><span class="hl opt">,</span>
<span class="hl str">"MM"</span><span class="hl opt">,</span> <span class="hl str">"MYANMAR"</span><span class="hl opt">,</span>
<span class="hl str">"NA"</span><span class="hl opt">,</span> <span class="hl str">"NAMIBIA"</span><span class="hl opt">,</span>
<span class="hl str">"NR"</span><span class="hl opt">,</span> <span class="hl str">"NAURU"</span><span class="hl opt">,</span>
<span class="hl str">"NP"</span><span class="hl opt">,</span> <span class="hl str">"NEPAL"</span><span class="hl opt">,</span>
<span class="hl str">"NL"</span><span class="hl opt">,</span> <span class="hl str">"NETHERLANDS"</span><span class="hl opt">,</span>
<span class="hl str">"AN"</span><span class="hl opt">,</span> <span class="hl str">"NETHERLANDS ANTILLES"</span><span class="hl opt">,</span>
<span class="hl str">"NC"</span><span class="hl opt">,</span> <span class="hl str">"NEW CALEDONIA"</span><span class="hl opt">,</span>
<span class="hl str">"NZ"</span><span class="hl opt">,</span> <span class="hl str">"NEW ZEALAND"</span><span class="hl opt">,</span>
<span class="hl str">"NI"</span><span class="hl opt">,</span> <span class="hl str">"NICARAGUA"</span><span class="hl opt">,</span>
<span class="hl str">"NE"</span><span class="hl opt">,</span> <span class="hl str">"NIGER"</span><span class="hl opt">,</span>
<span class="hl str">"NG"</span><span class="hl opt">,</span> <span class="hl str">"NIGERIA"</span><span class="hl opt">,</span>
<span class="hl str">"NU"</span><span class="hl opt">,</span> <span class="hl str">"NIUE"</span><span class="hl opt">,</span>
<span class="hl str">"NF"</span><span class="hl opt">,</span> <span class="hl str">"NORFOLK ISLAND"</span><span class="hl opt">,</span>
<span class="hl str">"MP"</span><span class="hl opt">,</span> <span class="hl str">"NORTHERN MARIANA ISLANDS"</span><span class="hl opt">,</span>
<span class="hl str">"NO"</span><span class="hl opt">,</span> <span class="hl str">"NORWAY"</span><span class="hl opt">,</span>
<span class="hl str">"OM"</span><span class="hl opt">,</span> <span class="hl str">"OMAN"</span><span class="hl opt">,</span>
<span class="hl str">"PK"</span><span class="hl opt">,</span> <span class="hl str">"PAKISTAN"</span><span class="hl opt">,</span>
<span class="hl str">"PW"</span><span class="hl opt">,</span> <span class="hl str">"PALAU"</span><span class="hl opt">,</span>
<span class="hl str">"PA"</span><span class="hl opt">,</span> <span class="hl str">"PANAMA"</span><span class="hl opt">,</span>
<span class="hl str">"PG"</span><span class="hl opt">,</span> <span class="hl str">"PAPUA NEW GUINEA"</span><span class="hl opt">,</span>
<span class="hl str">"PY"</span><span class="hl opt">,</span> <span class="hl str">"PARAGUAY"</span><span class="hl opt">,</span>
<span class="hl str">"PE"</span><span class="hl opt">,</span> <span class="hl str">"PERU"</span><span class="hl opt">,</span>
<span class="hl str">"PH"</span><span class="hl opt">,</span> <span class="hl str">"PHILIPPINES"</span><span class="hl opt">,</span>
<span class="hl str">"PN"</span><span class="hl opt">,</span> <span class="hl str">"PITCAIRN"</span><span class="hl opt">,</span>
<span class="hl str">"PL"</span><span class="hl opt">,</span> <span class="hl str">"POLAND"</span><span class="hl opt">,</span>
<span class="hl str">"PT"</span><span class="hl opt">,</span> <span class="hl str">"PORTUGAL"</span><span class="hl opt">,</span>
<span class="hl str">"PR"</span><span class="hl opt">,</span> <span class="hl str">"PUERTO RICO"</span><span class="hl opt">,</span>
<span class="hl str">"QA"</span><span class="hl opt">,</span> <span class="hl str">"QATAR"</span><span class="hl opt">,</span>
<span class="hl str">"RE"</span><span class="hl opt">,</span> <span class="hl str">"REUNION"</span><span class="hl opt">,</span>
<span class="hl str">"RO"</span><span class="hl opt">,</span> <span class="hl str">"ROMANIA"</span><span class="hl opt">,</span>
<span class="hl str">"RU"</span><span class="hl opt">,</span> <span class="hl str">"RUSSIA"</span><span class="hl opt">,</span>
<span class="hl str">"RW"</span><span class="hl opt">,</span> <span class="hl str">"RWANDA"</span><span class="hl opt">,</span>
<span class="hl str">"KN"</span><span class="hl opt">,</span> <span class="hl str">"SAINT KITTS AND NEVIS"</span><span class="hl opt">,</span>
<span class="hl str">"LC"</span><span class="hl opt">,</span> <span class="hl str">"SAINT LUCIA"</span><span class="hl opt">,</span>
<span class="hl str">"VC"</span><span class="hl opt">,</span> <span class="hl str">"SAINT VINCENT AND THE GRENADINES"</span><span class="hl opt">,</span>
<span class="hl str">"WS"</span><span class="hl opt">,</span> <span class="hl str">"SAMOA"</span><span class="hl opt">,</span>
<span class="hl str">"SM"</span><span class="hl opt">,</span> <span class="hl str">"SAN MARINO"</span><span class="hl opt">,</span>
<span class="hl str">"ST"</span><span class="hl opt">,</span> <span class="hl str">"SAO TOME AND PRINCIPE"</span><span class="hl opt">,</span>
<span class="hl str">"SA"</span><span class="hl opt">,</span> <span class="hl str">"SAUDI ARABIA"</span><span class="hl opt">,</span>
<span class="hl str">"SN"</span><span class="hl opt">,</span> <span class="hl str">"SENEGAL"</span><span class="hl opt">,</span>
<span class="hl str">"SC"</span><span class="hl opt">,</span> <span class="hl str">"SEYCHELLES"</span><span class="hl opt">,</span>
<span class="hl str">"SL"</span><span class="hl opt">,</span> <span class="hl str">"SIERRA LEONE"</span><span class="hl opt">,</span>
<span class="hl str">"SG"</span><span class="hl opt">,</span> <span class="hl str">"SINGAPORE"</span><span class="hl opt">,</span>
<span class="hl str">"SK"</span><span class="hl opt">,</span> <span class="hl str">"SLOVAKIA (Slovak Republic)"</span><span class="hl opt">,</span>
<span class="hl str">"SI"</span><span class="hl opt">,</span> <span class="hl str">"SLOVENIA"</span><span class="hl opt">,</span>
<span class="hl str">"SB"</span><span class="hl opt">,</span> <span class="hl str">"SOLOMON ISLANDS"</span><span class="hl opt">,</span>
<span class="hl str">"SO"</span><span class="hl opt">,</span> <span class="hl str">"SOMALIA"</span><span class="hl opt">,</span>
<span class="hl str">"ZA"</span><span class="hl opt">,</span> <span class="hl str">"SOUTH AFRICA"</span><span class="hl opt">,</span>
<span class="hl str">"GS"</span><span class="hl opt">,</span> <span class="hl str">"SOUTH GEORGIA AND THE SOUTH SANDWICH ISLANDS"</span><span class="hl opt">,</span>
<span class="hl str">"ES"</span><span class="hl opt">,</span> <span class="hl str">"SPAIN"</span><span class="hl opt">,</span>
<span class="hl str">"LK"</span><span class="hl opt">,</span> <span class="hl str">"SRI LANKA"</span><span class="hl opt">,</span>
<span class="hl str">"SH"</span><span class="hl opt">,</span> <span class="hl str">"ST. HELENA"</span><span class="hl opt">,</span>
<span class="hl str">"PM"</span><span class="hl opt">,</span> <span class="hl str">"ST. PIERRE AND MIQUELON"</span><span class="hl opt">,</span>
<span class="hl str">"SD"</span><span class="hl opt">,</span> <span class="hl str">"SUDAN"</span><span class="hl opt">,</span>
<span class="hl str">"SR"</span><span class="hl opt">,</span> <span class="hl str">"SURINAME"</span><span class="hl opt">,</span>
<span class="hl str">"SJ"</span><span class="hl opt">,</span> <span class="hl str">"SVALBARD AND JAN MAYEN ISLANDS"</span><span class="hl opt">,</span>
<span class="hl str">"SZ"</span><span class="hl opt">,</span> <span class="hl str">"SWAZILAND"</span><span class="hl opt">,</span>
<span class="hl str">"SE"</span><span class="hl opt">,</span> <span class="hl str">"SWEDEN"</span><span class="hl opt">,</span>
<span class="hl str">"CH"</span><span class="hl opt">,</span> <span class="hl str">"SWITZERLAND"</span><span class="hl opt">,</span>
<span class="hl str">"SY"</span><span class="hl opt">,</span> <span class="hl str">"SYRIAN ARAB REPUBLIC"</span><span class="hl opt">,</span>
<span class="hl str">"TW"</span><span class="hl opt">,</span> <span class="hl str">"TAIWAN, PROVINCE OF CHINA"</span><span class="hl opt">,</span>
<span class="hl str">"TJ"</span><span class="hl opt">,</span> <span class="hl str">"TAJIKISTAN"</span><span class="hl opt">,