Tcl plugin
This page will explain how to write a Tcl plugin for proxenet
.
Plugin skeleton
AUTHOR = ""
PLUGIN_NAME = ""
proc proxenet_on_load {} {
return
}
proc proxenet_on_leave {} {
return
}
proc proxenet_request_hook {request_id request uri} {
return $request
}
proc proxenet_response_hook {response_id response uri} {
return $response
}
# add test cases here
Example
AUTHOR = "hugsy"
PLUGIN_NAME = "AddHeader"
proc proxenet_on_load {} {
return
}
proc proxenet_on_leave {} {
return
}
proc proxenet_request_hook {request_id request uri} {
regsub -all "\r\n\r\n" $request "\r\nX-Powered-By: tcl-proxenet\r\n\r\n" request
return $request
}
proc proxenet_response_hook {response_id response uri} {
return $response
}
# add test cases here