#!/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 {
%html([wapp-debug-env])} } proc wapp-default {} { cd [file dir [wapp-param SCRIPT_FILENAME {}]] regsub {/[^/]+$} [wapp-param BASE_URL] {} base wapp-trim {