Posted by admin (Graham Ellis), 26 September 2004
Had a couple of questions about server side Tcl scripts running through CGI ... so here's an example. You can run it through
http://www.wellho.net/cgi-bin/demo/isitnz.tcl Code:#!/usr/bin/tcl
set params [split $env(QUERY_STRING) &] foreach par $params { set pair [split $par =] set name [lindex $pair 0] set value [lindex $pair 1] regsub -all \\\+ $value " " value regsub -all -nocase {%([0-9a-f][0-9a-f])} $value \ {[format %c 0x\1]} value set form($name) [subst $value] } puts {content-type: text/html
<html> <head><title>This is a Tcl script demo</title></head> <body bgcolo = white><h1>Tcl Script running through CGI</h1> <form>Please enter a string in which to look for .co.nz <input name=haystack><input type=submit></form><br> }
if {[info exists form(haystack)]} { if {[regexp {\.co\.nz} $form(haystack)]} { puts "$form(haystack) contains .co.nz" } else { puts "Nothing from New Zealand found in $form(haystack)" } } else { puts "Your answer will appear here" }
puts { <hr> Example written by <a href=mailto:graham@wellho.net>Graham Ellis </a> </body></html> } |
|
This page is a thread posted to the opentalk forum
at
www.opentalk.org.uk and
archived here for reference. To jump to the archive index please
follow
this link.