Index: openacs-4/packages/acs-templating/www/doc/demo/show.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/www/doc/demo/show.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/acs-templating/www/doc/demo/show.tcl 13 Mar 2001 22:59:27 -0000 1.1 +++ openacs-4/packages/acs-templating/www/doc/demo/show.tcl 27 Oct 2014 16:40:19 -0000 1.2 @@ -1,11 +1,15 @@ set file [ns_queryget file] -if { [regexp {\.\.|^/} $file] } { +if { $file eq "" } { + set output "no file specified" + +} elseif { [regexp {\.\.|^/} $file] } { + set output "Only files within this directory may be shown." } else { - + # [ns_url2file [ns_conn url]] fails under request processor ! # the file for URL pkg/page may be in packages/pkg/www/page, not www/pkg/page set dir [file dirname [ad_conn file]]