4 01 "\u042f\u043d\u0432\u0430\u0440\u044f"
5 02 "\u0424\u0435\u0432\u0440\u0430\u043b\u044f"
6 03 "\u041c\u0430\u0440\u0442\u0430"
7 04 "\u0410\u043f\u0440\u0435\u043b\u044f"
8 05 "\u041c\u0430\u044f"
9 06 "\u0418\u044e\u043d\u044f"
10 07 "\u0418\u044e\u043b\u044f"
11 08 "\u0410\u0432\u0433\u0443\u0441\u0442\u0430"
12 09 "\u0421\u0435\u043d\u0442\u044f\u0431\u0440\u044f"
13 10 "\u041e\u043a\u0442\u044f\u0431\u0440\u044f"
14 11 "\u041d\u043e\u044f\u0431\u0440\u044f"
15 12 "\u0414\u0435\u043a\u0430\u0431\u0440\u044f"
18 proc year_header {year items} {
19 return "<h2>$year \u0433\u043e\u0434</h2><ul>"
20 # return "<table border=1 width=\"100%\" cellspacing=0><tr><td align=\"center\" colspan=\"$items\"><b><font size=+2>$year \u0433\u043e\u0434</font></td></tr>\n<tr>"
23 proc year_footer {year} {
25 # return "</tr></table><p> </p>"
28 proc out_item { month day place dir} {
30 return "<li><a href=\"$dir\">$day $monName($month)</a> $place</li>"
31 # return "<td align=center><a href=\"$dir\">$day $monName($month)<br>$place</a></td>"
33 set f [open "index.html" w]
34 puts $f "<HTML><HEAD><TITLE>\u0410\u0440\u0445\u0438\u0432 \u0444\u043e\u0442\u043e\u0433\u0440\u0430\u0444\u0438\u0439</TITLE></HEAD><BODY>
35 <H1>\u0410\u0440\u0445\u0438\u0432 \u0444\u043e\u0442\u043e\u0433\u0440\u0430\u0444\u0438\u0439</H1>"
36 foreach dirname [lsort -decreasing [glob *]] {
37 if {![regexp {^(\d{4})\.(\d{2})\.(\d{2}(-\d{2})?)-(.*)$} $dirname \
38 match year month day xxx place]} {
41 lappend a($year) [list $month $day $place $dirname]
44 foreach y [lsort -decreasing [array names a]] {
45 puts $f [year_header $y [llength $a($y)]]
47 puts $f [eval out_item $item]
49 puts $f [year_footer $y]
54 puts $f "</BODY></HTML>"