#! /usr/local/bin/tclsh
set html [open index.html w+]
set w 480
set h 320
set dir [file tail [pwd]]
if {![catch {set dbfile [open database.txt r]}]} {
for {set line [gets $dbfile]} {$line != ""} {set line [gets $dbfile]} {
set list [split $line ":"]
set db([lindex $list 0]) [lindex $list 1]
}
}
puts $html "index of pictures in $dir"
puts $html ""
puts $html "Index of pictures in $dir
"
set desc [lindex [array get db "*comments*"] 1]
if {$desc != ""} {
puts $html "$desc"
puts $html "
"
}
foreach jpg [lsort [glob *.jpg *.JPG]] {
puts $html "
"
set desc [lindex [array get db $jpg] 1]
if {$desc == ""} {set desc "no description"}
puts $html "$jpg: $desc"
puts $html "
"
puts $html "\n\n"
}
puts $html "
This page automatically generated by a dumb script Matt wrote."
puts $html ""
close $html