#!/usr/bin/wapptclsh # # Show all files in the same directory as the script. # package require wapp proc wapp-page-env {} { wapp-allow-xorigin-params wapp-trim {

Wapp Environment

%html([wapp-debug-env])
} } proc wapp-default {} { cd [file dir [wapp-param SCRIPT_FILENAME {}]] regsub {/[^/]+$} [wapp-param BASE_URL] {} base wapp-trim {
    } foreach file [lsort [glob -nocomplain *]] { if {[file isdir $file]} continue if {![file readable $file]} continue wapp-trim {
  1. %html($file)
  2. } } wapp-trim {
\n} } wapp-start $argv