Wapp: Artifact [146a98684b]

Artifact 146a98684bd3c53fffeda630145d35c421dd888918a5d7d19e67d42b542abfc1:

Executable file examples/filelist.tcl — part of check-in [fba858d541] at 2018-05-21 15:25:48 on branch trunk — Add the filelist.tcl example script. (user: drh size: 666)

#!/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 {
    <h1>Wapp Environment</h1>
    <pre>%html([wapp-debug-env])</pre>
  }
}
proc wapp-default {} {
  cd [file dir [wapp-param SCRIPT_FILENAME {}]]
  regsub {/[^/]+$} [wapp-param BASE_URL] {} base
  wapp-trim {
     <html>
     <body>
     <ol>
  }
  foreach file [lsort [glob -nocomplain *]] {
    if {[file isdir $file]} continue
    if {![file readable $file]} continue
    wapp-trim {
       <li><a href="%html($base/$file)">%html($file)</a></li>
    }
  }
  wapp-trim {</ol>\n}
}
wapp-start $argv