Artifact 12023b989cd6eed6ec27935dcf88ee316957fa3a:

• File Examples/aolserver/servers/tclws/modules/tcl/tclws/init.tcl — part of check-in [062fea597e] at 2010-12-01 18:54:18 on branch proposed-main — Added AOLserver support and example of use.

  git-svn-id: http://tclws.googlecode.com/svn/trunk@98 4eab59b1-ed42-0410-973d-ab9b78d4c8bc (user: [email protected]@4eab59b1-ed42-0410-973d-ab9b78d4c8bc size: 729) [more...]

# Require WS::AOLserver and record version
# Note: All required packages must be in a lib directory.

namespace eval ::WS::AOLserver {
    
    variable logVersion [ns_ictl package require log]
    variable wsVersion  [ns_ictl package require WS::Server]
    variable version    [ns_ictl package require WS::AOLserver]
}

ns_register_filter preauth GET /*/wsdl ::ws_aolserver_redirect wsdl
ns_register_filter preauth POST /*/op  ::ws_aolserver_redirect op

proc ::ws_aolserver_redirect { why } {

    set urlv [split [ns_conn url] /]

    set new_url "[join [lrange $urlv 0 end-1] /]/index.tcl"
    ns_log Notice "WS::AOLserver::Redirect: from [lindex $urlv end] to '$new_url'"
    ns_rewriteurl $new_url

    return filter_ok
}