X-Git-Url: http://wagner.pp.ru/gitweb/?a=blobdiff_plain;f=archivedir;h=de405552b02d8e8971b002fa50175e836b202552;hb=1195759f18d76c5163cf037f2b13df4aa6408ee6;hp=54b48d9aede8428eba41aca4e1a81d9fce720fe6;hpb=c32d5aaa4789c7b9c91277e27ec90a8944e6852d;p=oss%2Fimgwww.git diff --git a/archivedir b/archivedir index 54b48d9..de40555 100755 --- a/archivedir +++ b/archivedir @@ -1,55 +1,81 @@ #!/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 "

$year ÇÏÄ

$year ÇÏÄ

$day $monName($month) $place

$day $monName($month)
$place

$day $monName($month) $place

áÒÈÉ× ÆÏÔÏÇÒÁÆÉÊ

$year

\u0410\u0440\u0445\u0438\u0432 \u0444\u043e\u0442\u043e\u0433\u0440\u0430\u0444\u0438\u0439

\u0410\u0440\u0445\u0438\u0432 +\u0444\u043e\u0442\u043e\u0433\u0440\u0430\u0444\u0438\u0439

\n" +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] + lappend a($year) [list $month $day $place [llength [glob $dirname/*.html]]] } -foreach y [lsort -decreasing [array names a]] { - puts $f [year_header $y [llength $a($y)]] +set html_finish "

$title

$y ($dircount \u0434\u043d\u0435\u0439, $count \u0444\u043e\u0442\u043e)\n" } - -puts $f "" -close $f +append years $html_finish +try_save $years "index.html"

" + append yearindex [nextyearlink [lindex $yearlist [expr $i+1]]] + append yearindex "

back

" + append yearindex [nextyearlink [lindex $yearlist [expr $i-1]]] + append yearindex "