archivedir

   1 #!/usr/bin/tclsh
   2
   3 array set monName {
   4 01 "ñÎ×ÁÒÑ"
   5 02 "æÅ×ÒÁÌÑ"
   6 03 "íÁÒÔÁ"
   7 04 "áÐÒÅÌÑ"
   8 05 "íÁÑ"
   9 06 "éÀÎÑ"
  10 07 "éÀÌÑ"
  11 08 "á×ÇÕÓÔÁ"
  12 09 "óÅÎÔÑÂÒÑ"
  13 10 "ïËÔÑÂÒÑ"
  14 11 "îÏÑÂÒÑ"
  15 12 "äÅËÁÂÒÑ"
  16 }
  17
  18 proc year_header {year items} {
  19         return "<h2>$year ÇÏÄ</h2><ul>"
  20 #       return "<table border=1 width=\"100%\" cellspacing=0><tr><td align=\"center\" colspan=\"$items\"><b><font size=+2>$year ÇÏÄ</font></td></tr>\n<tr>"
  21 }
  22
  23 proc year_footer {year} {
  24     return "</ul>"
  25 #       return "</tr></table><p>&nbsp;</p>"
  26 }
  27
  28 proc out_item { month day place dir} {
  29         global monName
  30         return "<li><a href=\"$dir\">$day $monName($month)</a> $place</li>"
  31 #       return "<td align=center><a href=\"$dir\">$day $monName($month)<br>$place</a></td>"
  32 }
  33 set f [open "index.html" w]
  34 puts $f "<HTML><HEAD><TITLE>áÒÈÉ× ÆÏÔÏÇÒÁÆÉÊ</TITLE></HEAD><BODY>
  35 <H1>áÒÈÉ× ÆÏÔÏÇÒÁÆÉÊ</H1>"
  36 foreach dirname [lsort -decreasing [glob *]] {
  37         if {![regexp {^(\d{4})\.(\d{2})\.(\d{2}(-\d{2})?)-(.*)$} $dirname \
  38                         match year month day xxx place]} {
  39                         continue
  40         }
  41         lappend a($year) [list $month $day $place $dirname]
  42 }
  43
  44 foreach y [lsort -decreasing [array names a]] {
  45         puts $f [year_header $y [llength $a($y)]]
  46         foreach item $a($y) {
  47                 puts $f [eval out_item $item]
  48         }
  49         puts $f [year_footer $y]
  50 }
  51
  52
  53
  54 puts $f "</BODY></HTML>"
  55 close $f