#!/usr/bin/tclsh
array set monName {
-01 "ñÎ×ÁÒÑ"
-02 "æÅ×ÒÁÌÑ"
-03 "íÁÒÔÁ"
-04 "áÐÒÅÌÑ"
-05 "íÁÑ"
-06 "éÀÎÑ"
-07 "éÀÌÑ"
-08 "á×ÇÕÓÔÁ"
-09 "óÅÎÔÑÂÒÑ"
-10 "ïËÔÑÂÒÑ"
-11 "îÏÑÂÒÑ"
-12 "äÅËÁÂÒÑ"
+01 "\u042f\u043d\u0432\u0430\u0440\u044f"
+02 "\u0424\u0435\u0432\u0440\u0430\u043b\u044f"
+03 "\u041c\u0430\u0440\u0442\u0430"
+04 "\u0410\u043f\u0440\u0435\u043b\u044f"
+05 "\u041c\u0430\u044f"
+06 "\u0418\u044e\u043d\u044f"
+07 "\u0418\u044e\u043b\u044f"
+08 "\u0410\u0432\u0433\u0443\u0441\u0442\u0430"
+09 "\u0421\u0435\u043d\u0442\u044f\u0431\u0440\u044f"
+10 "\u041e\u043a\u0442\u044f\u0431\u0440\u044f"
+11 "\u041d\u043e\u044f\u0431\u0440\u044f"
+12 "\u0414\u0435\u043a\u0430\u0431\u0440\u044f"
}
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>"
+ return "<h2>$year
\u0433\u043e\u0434</h2><ul>"
+# 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>"
}
proc year_footer {year} {
# 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>"
+puts $f "<HTML><HEAD><TITLE>\u0410\u0440\u0445\u0438\u0432 \u0444\u043e\u0442\u043e\u0433\u0440\u0430\u0444\u0438\u0439</TITLE></HEAD><BODY>
+<H1>\u0410\u0440\u0445\u0438\u0432 \u0444\u043e\u0442\u043e\u0433\u0440\u0430\u0444\u0438\u0439</H1>"
foreach dirname [lsort -decreasing [glob *]] {
if {![regexp {^(\d{4})\.(\d{2})\.(\d{2}(-\d{2})?)-(.*)$} $dirname \
match year month day xxx place]} {
projects / oss / imgwww.git / blobdiff