| # cookie example - store context in a cookie |
| # |
| # this example demonstrates how to use cookies with websh3 |
| # |
| |
| # create session context manager with the name "state" |
| web::cookiecontext state |
| |
| # produce the page of this sample application |
| proc page {} { |
| |
| # get current access counter from state ... |
| set cnt [state::cget cnt 0] |
| |
| # ... and increment right away |
| # |
| # Note: cookie must be sent before the first "web::put" is used |
| # This is because a cookie must be sent as a HTTP header |
| set newcnt $cnt |
| incr newcnt |
| state::cset cnt $newcnt |
| |
| # commit the changes on the state |
| state::commit |
| |
| # now the html output |
| web::put "<html><head><title>Cookie Example</title></head>" |
| web::put "<body bgcolor=\"#FFFFFF\">" |
| |
| # change welcome text depending on state |
| if { $cnt == 0 } { |
| # the first time a warm welcome |
| web::put "<h1>Welcome</h1>" |
| web::put "to the wonderful world of Websh" |
| } else { |
| # then just a hello |
| web::put "<h1>Hello</h1>" |
| web::put "looks like this is your visit Nr $cnt" |
| } |
| web::put "<p>" |
| |
| # and give the user the change to: |
| # - invalidate the cookie |
| web::put "<a href=\"[web::cmdurl clearCookie]\">reset</a>" |
| web::put " | " |
| # - to move on to the next page of the application |
| # in this example, just go back to the same page |
| web::put "<a href=\"[web::cmdurl default]\">next visit</a>" |
| |
| # properly close html code |
| web::put "</body></html>" |
| } |
| |
| |
| web::command clearCookie { |
| |
| # get current cookie, if any |
| state::init mycookie |
| |
| # ... and invalidate immediately |
| state::invalidate |
| |
| # show page |
| page |
| } |
| |
| web::command default { |
| |
| # get current cookie, if any |
| state::init mycookie |
| |
| # show page |
| page |
| } |
| |
| # dispatch |
| web::dispatch |
| |
| # cleanup context after request (to prevent session crosstalk) |
| state::delete |
