set pageName [ns_queryget file ""]
switch -exact $pageName {
nsconf.tcl -
nsstats.tcl {
set source https://bitbucket.org/naviserver/[file rootname $pageName]/get/tip.tar.gz
set page [ns_server pagedir]/$pageName
if {![file readable $page]} {
exec wget --quiet --no-check-certificate -O /tmp/nsstats.tar.gz $source
if {$tcl_platform(os) eq "Darwin"} {
set tar "exec tar Ozxvf /tmp/nsstats.tar.gz *$pageName > $page"
} else {
set tar "exec tar -Ozxvf /tmp/nsstats.tar.gz --wildcards *$pageName > $page"
}
if {[catch $tar errorMsg]} {
if {![string match "*.tcl" $errorMsg]} {
ns_log notice "error: $errorMsg"
ns_return 200 text/html \
"error while downloading $pageName: $errorMsg. return"
}
}
ns_return 200 text/html \
"$pageName successfully downloaded and installed. return"
}
ns_return 200 text/html \
"$pageName already installed. return"
}
default {
set pageName [string map [list < "<" > ">"] $pageName]
ns_return 200 text/html "page $pageName unknown. return"
}
}