#!/usr/bin/perl

# Make individual KML files for ICOADS data in the Southern Ocean.

use strict;
use warnings;

for ( my $Year = 1895 ; $Year < 1940 ; $Year++ ) {
    my $FileName = sprintf "%04d-%04d.kml", $Year, $Year + 1;

    # Make last year - removing redundant digitis
    my $Lastyear = $Year + 1;
    if ( int( $Lastyear / 100 ) == int( $Year / 100 ) ) {
        $Lastyear = $Lastyear % 100;
    }
    my $Title = sprintf "%04d-%d", $Year, $Lastyear;
    print "    <NetworkLink>\n";
    print "      <name>$Title</name>\n";
    print "      <open>0</open>\n";
    print "      <visibility>0</visibility>\n";
    print "      <Link>\n";
    print "      <href>\n";
    print "        http://brohan.org/philip/job/digitisation/antarctic/"
      . "presentation/icoads_data_kml/$FileName\n";
    print "      </href>\n";
    print "      <refreshMode>onChange</refreshMode> \n";
    print "      <viewRefreshMode>never</viewRefreshMode> \n";
    print "      </Link>\n";
    print "    </NetworkLink>\n";

}