web/src/cgi.tcl-1.10/example/passwd.tcl


1
2
3
4
5
6
7
8
9
10

# common definitions for all password-related pages

proc password {prompt varname} {
    br
    put "$prompt password: "
    cgi_text $varname= type=password size=16
}

proc successmsg {s} {h3 "$s"}
proc errormsg   {s} {h3 "Error: $s"}