index.tcl
If static pages fs_root is set to a directory which exists in www/ then display the static files at the fs_root for this instance. Otherwise simply redirect to admin. this makes it possible to e.g. create a static doc tree for a community mounted at example.com/c1 and if fs_root is set to /www/c1/static and static pages is mounted at example/c1/static then the files in the static tree can simply be browsed. It should probably check for a /www/c1/static/index.html or index.htm page though.
- Location:
- /packages/static-pages/www/index.tcl
- Author:
- Jeff Davis <davis@xarg.net>
- Created:
- 2001-02-23
- CVS ID:
$Id: index.tcl,v 1.4 2018/05/21 16:40:47 gustafn Exp $
Related Files
[ hide source ]
File Contents
# packages/static-pages/www/index.tcl ad_page_contract { If static pages fs_root is set to a directory which exists in www/ then display the static files at the fs_root for this instance. Otherwise simply redirect to admin. this makes it possible to e.g. create a static doc tree for a community mounted at example.com/c1 and if fs_root is set to /www/c1/static and static pages is mounted at example/c1/static then the files in the static tree can simply be browsed. It should probably check for a /www/c1/static/index.html or index.htm page though. @author Jeff Davis (davis@xarg.net) @creation-date 2001-02-23 @cvs-id $Id: index.tcl,v 1.4 2018/05/21 16:40:47 gustafn Exp $ } { } # if the mount point is the package_url and there is a directory there then show # the files in the filesystem otherwise jump to the admin page set fs_root [string trimright [parameter::get -parameter fs_root] /] if {"$fs_root/" eq "/www[ad_conn package_url]" && [file isdirectory "[acs_root_dir]$fs_root"] } { set listing [rp_html_directory_listing [acs_root_dir]$fs_root] } else { ad_returnredirect "admin/" }