AOLserver Documentation

<% set dir [file dirname [ns_url2file [ns_conn url]]] foreach {title section} [list "Programs" 1 "Tcl Commands" n "Library Routines" 3] { ns_adp_puts "

# $title

" ns_adp_puts

set n 0 set ncols 3 foreach file [lsort [glob -nocomplain $dir/*.$section.htm]] { if !$n { ns_adp_puts
} set link [file tail $file] set page [file rootname [file rootname $link]] ns_adp_puts "$page " if {[incr n] == $ncols} { ns_adp_puts
set n 0 } } ns_adp_puts

} %>