From 39528768257d18afdf14573cad2f4f2099bdd1b8 Mon Sep 17 00:00:00 2001 From: Victor Wagner Date: Mon, 15 Jun 2015 17:39:34 +0300 Subject: [PATCH 1/1] =?utf8?q?=D0=9F=D0=B5=D1=80=D0=B5=D1=85=D0=BE=D0=B4?= =?utf8?q?=20=D0=BA=20=D0=B4=D0=B2=D1=83=D1=85=D0=BE=D1=80=D0=BE=D0=B2?= =?utf8?q?=D0=BD=D0=B5=D0=B2=D0=BE=D0=B9=20=D1=81=D1=82=D1=80=D1=83=D0=BA?= =?utf8?q?=D1=82=D1=83=D1=80=D0=B5=20=D0=B8=D0=BD=D0=B4=D0=B5=D0=BA=D1=81?= =?utf8?q?=D0=B0?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- archivedir | 74 ++++++++++++++++++++++++++++++++++++------------------ 1 file changed, 50 insertions(+), 24 deletions(-) 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" -- 2.39.2

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

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