#!/usr/bin/tclsh

array set monName {
01 ""
02 ""
03 ""
04 ""
05 ""
06 ""
07 ""
08 ""
09 ""
10 ""
11 ""
12 ""
}

proc year_header {year items} {
	return "<h2>$year </h2><ul>"
#	return "<table border=1 width=\"100%\" cellspacing=0><tr><td align=\"center\" colspan=\"$items\"><b><font size=+2>$year </font></td></tr>\n<tr>"
}

proc year_footer {year} {
    return "</ul>"
#	return "</tr></table><p>&nbsp;</p>"
}	

proc out_item { month day place dir} {
	global monName
	return "<li><a href=\"$dir\">$day $monName($month)</a> $place</li>"
#	return "<td align=center><a href=\"$dir\">$day $monName($month)<br>$place</a></td>"
}
set f [open "index.html" w]
puts $f "<HTML><HEAD><TITLE> </TITLE></HEAD><BODY>
<H1> </H1>"
foreach dirname [lsort -decreasing [glob *]] {
	if {![regexp {^(\d{4})\.(\d{2})\.(\d{2}(-\d{2})?)-(.*)$} $dirname \
			match year month day xxx place]} {
			continue
	}	
	lappend a($year) [list $month $day $place $dirname]
}	

foreach y [lsort -decreasing [array names a]] {
	puts $f [year_header $y [llength $a($y)]]
	foreach item $a($y) {
		puts $f [eval out_item $item]
	}	
	puts $f [year_footer $y]
}	



puts $f "</BODY></HTML>"
close $f
