#!/usr/local/bin/perl

# INKLUDERING AV FIL, UTMATNING TILL UT-FILEN
 
sub includefile
{
    local($filename)= @_;
    open(INCFILE,$filename) || die "Cannot read $filename";
    while(<INCFILE>)
    {
	s/!YEAR-RANGE!//g;
        print UT "$_";
    }
    close(INCFILE);
}

# Fixa in tidsuppdelningssträngen

do './timediv.perl';
@timediv=split(/;/,$timediv);
$files=$#timediv+1;

# Gör saker

open(UT,">timeline-whole.html")||die("opening timeline-whole.html");

includefile("pre.html");

print UT "<div class='timeline'>";
print UT "<nav class='time-jump'><ul>";

my $year = 1900 + (localtime)[5];
foreach $y (1962..$year) {
	print UT "<li><a href='#$y'>$y</a></li>\n";
}
print UT "</ul></nav>";

print UT "<tl_begin />\n";

foreach $ts (@timediv)
{
    ($fyear,$tyear)=split(/-/,$ts);
    print UT "<eval><insert quote=\"none\" file=\"timeline-$fyear-$tyear.items\" /></eval>\n";
}

print UT "<tl_end />\n";

print UT "</div>";

includefile("post.html");
close UT;