Posted to tcl by colin at Tue Jan 04 01:21:18 GMT 2011view raw

  1. # mkForms construct the default login forms
  2. method mkForms {} {
  3. variable mount
  4. variable forms
  5. if {![dict exists $forms login]} {
  6. # forms for Login
  7. dict set forms login [subst {
  8. [<form> action [file join $mount login] class login {
  9. [<submit> submit style {display:none;} Login]
  10. [<text> user size 8 title Username]
  11. [<text> password size 8 title Password]
  12. }]
  13. }]
  14. }
  15.  
  16. if {![dict exists $forms logout]} {
  17. dict set forms logout [<a> href [file join $mount logout] Logout]
  18. }
  19. if {![dict exists $forms logmsg]} {
  20. dict set forms logmsg {[<message> "$message [<a> href $url {Go Back.}]"]}
  21. }
  22. if {![dict exists $forms new]} {
  23. dict set forms new [<form> newuser action new class login [<fieldset> [subst {
  24. [<legend> "Create User"]
  25. [<text> user title "user id" label "User Id: " "%USER"]
  26. [<text> password title "password" label "Password: " "%PASSWORD"]
  27. [<br>][<text> given title "given name" label "Given: " ""]
  28. [<text> surname title "surname" label "Surname: " ""]
  29. [<br>][<submit> submit value 1]
  30. }]]]
  31. }
  32. }