From: Victor Wagner Date: Mon, 15 Jun 2015 14:39:34 +0000 (+0300) Subject: Переход к двухоровневой структуре индекса X-Git-Url: http://www.wagner.pp.ru/gitweb/?p=oss%2Fimgwww.git;a=commitdiff_plain;h=39528768257d18afdf14573cad2f4f2099bdd1b8 Переход к двухоровневой структуре индекса --- diff --git a/archivedir b/archivedir index 1a5e0df..7bc4e1c 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 "

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