X-Git-Url: http://www.wagner.pp.ru/gitweb/?a=blobdiff_plain;f=archivedir;h=de405552b02d8e8971b002fa50175e836b202552;hb=HEAD;hp=1a5e0dfad0db029b53a5a5d27f6cb5b9ed4481a5;hpb=12e2a3511d9098ca03b6614b53b8c7b09efe5443;p=oss%2Fimgwww.git diff --git a/archivedir b/archivedir index 1a5e0df..de40555 100755 --- a/archivedir +++ b/archivedir @@ -15,41 +15,67 @@ array set monName { 12 "\u0414\u0435\u043a\u0430\u0431\u0440\u044f" } -proc year_header {year items} { - return "

$year \u0433\u043e\u0434

$year \u0433\u043e\u0434

$day $monName($month) $place

$day $monName($month)
$place

$day $monName($month) $place

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

$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 "