The Wedding Photo Album
<%
set curdir [file dirname [ns_conn url]]
cd "[ns_info pageroot]$curdir"
source DictionaryCompare.tcl
set filelist [lsort -command DictionaryCompare -increasing [glob -nocomplain {*.jpg}]]
foreach file $filelist {
if {[catch {set dimensions [ns_jpegsize $file]}]} { continue }
set x [lindex $dimensions 0]
set y [lindex $dimensions 1]
ns_puts "$file
"
}
%>