View Source

[/]
.htaccess
app.css
app.js
archive/
documentation.wtcl
download.wtcl
examples/
feedback.wtcl
home.wtcl
img/
index.wtcl
lib/
people/
source.wtcl
viewSource.wtcl
File: / viewSource.wtcl

Lines Size Modified Created Owner MIME Types
23 489 2010/08/20 00:10:14 2011/06/13 15:35:15 BUILTIN\Administrators application/x-wtcl, text/x-wtcl

0001
<?
0002
0003
include lib/page.wtcl
0004
0005
::wt::examples::setTitle "View Source"
0006
0007
set subPath [queryParams get path]
0008
set sysPath [file dirname \
0009
  [::wt::server::serverVars get SCRIPT_FILENAME]]
0010
set viewUrl [::wt::examples::appUrl /view]
0011
set baseUrl [::wt::examples::appUrl]
0012
0013
::wt::fileBrowser::init
0014
::wt::fileBrowser::addPermission people read 0
0015
::wt::fileBrowser::printView $subPath $sysPath $viewUrl $baseUrl
0016
0017
include lib/header.wtcl
0018
0019
?>
0020
0021
[::wt::fileBrowser::printHtml]
0022
0023
<? include lib/footer.wtcl ?>