Posted to tcl by colin at Tue Jan 04 01:21:18 GMT 2011view raw
- # mkForms construct the default login forms
- method mkForms {} {
- variable mount
- variable forms
- if {![dict exists $forms login]} {
- # forms for Login
- dict set forms login [subst {
- [<form> action [file join $mount login] class login {
- [<submit> submit style {display:none;} Login]
- [<text> user size 8 title Username]
- [<text> password size 8 title Password]
- }]
- }]
- }
- if {![dict exists $forms logout]} {
- dict set forms logout [<a> href [file join $mount logout] Logout]
- }
- if {![dict exists $forms logmsg]} {
- dict set forms logmsg {[<message> "$message [<a> href $url {Go Back.}]"]}
- }
- if {![dict exists $forms new]} {
- dict set forms new [<form> newuser action new class login [<fieldset> [subst {
- [<legend> "Create User"]
- [<text> user title "user id" label "User Id: " "%USER"]
- [<text> password title "password" label "Password: " "%PASSWORD"]
- [<br>][<text> given title "given name" label "Given: " ""]
- [<text> surname title "surname" label "Surname: " ""]
- [<br>][<submit> submit value 1]
- }]]]
- }
- }