# $Id$
# interp pool testing websh code.

web::initializer {

    set classid [web::interpcfg]
    web::interpclasscfg $classid maxrequests 10

    web::command default {
	if { [info exists counter] } {
	    incr counter
	} else {
	    set counter 1
	}
	web::put "Counter is $counter, maxrequests is [web::interpclasscfg $classid maxrequests]"
    }

}

web::dispatch