#!/afs/athena/contrib/perl/perl

# t1-9109.country - t1.9212.country
# nsf-9301.country - nsf-9504.country

sub lynx {
    local($s, $year, $month) = @_;

    $cmd = sprintf("lynx -dump gopher://nic.merit.edu:7043/00/nsfnet/statistics/19%02d/%s-%02d%02d.country > nsf-%02d%02d.country", $year, $s, $year, $month, $year, $month);

    print "+ $cmd\n";

    system $cmd;
}

for $i (9..12) {
    &lynx("t1", 91, $i);
}

for $i (1..12) {
    &lynx("t1", 92, $i);
}

for $i (1..12) {
    &lynx("nsf", 93, $i);
}

for $i (1..12) {
    &lynx("nsf", 94, $i);
}

for $i (1..4) {
    &lynx("nsf", 95, $i);
}
