| ## myrivetapp.tcl -- |
| # |
| # Application class definition and instance creation |
| # |
| |
| package require Itcl |
| |
| ::itcl::class MyRivetApp { |
| |
| private variable application_name |
| |
| public method init {} |
| public method request_processing {urlencoded_args} |
| |
| } |
| |
| ::itcl::body MyRivetApp::init {app_name}{ |
| |
| # any initialization steps must go here |
| # .... |
| |
| set application_name $app_name |
| |
| } |
| |
| ::itcl::body MyRivetApp::request_processing {urlencoded_args} { |
| |
| # the whole application code will run from this method |
| ... |
| |
| } |
| |
| set ::theApplication [MyRivetApp #auto] |
| |
| $::theApplication init [dict get [::rivet::inspect server] hostname] |
| |
| # -- myrivetapp.tcl |
