Posted to tcl by colin at Thu Dec 22 22:20:44 GMT 2011view pretty

[
 # This file is evaluated after content is received but prior to conversion
 # this script file performs basic authentication
 lassign [Http Credentials $response] userid pass
 if {$userid ne "admin" || $pass ne "admin"} {
     set challenge "Please login user: 'admin' password: 'admin'"
     set content "You must login with user: 'admin' password: 'admin'"
     set response [Http Unauthorized $response [Http BasicAuth $challenge] $content x-text/html-fragment]
 }
### Local Variables: ***
### mode:tcl ***
### tcl-indent-level:4 ***
### tcl-continued-indent-level:4 ***
### indent-tabs-mode:nil ***
### End: ***
]