# ---------------------------------------------------------------------------
# main websh configuration file (referenced by Apache WebshConfig directive)
# $Id$
# ---------------------------------------------------------------------------

# where is all the stuff
set document_root [eval file join [lrange [file split [info script]] 0 end-2]]

# map of requests to interpreter classes
proc web::interpmap {file} {

    # what needs to be passed to websh.interpclass
    if {[string match $::document_root/websh/* $file]} {
        return $::document_root/websh/websh.interpclass
    }
    # default (all other files use their own class)
    return $file
}

# allow 1000 requests per interpreter before cleaning it up
web::interpclasscfg $::document_root/websh/websh.interpclass maxrequests 1000