#85 Auth_InitCrypt calling non-existant variable
When a user configures a password for "webmaster", the
system barfs out with an error "Unknown variable
password".
To test for the problem configure a password for the
webmaster user in the tclhttpd.rc file:
Config Auth {user,webmaster somepassword}
The process will kick out an error and tell you
.htaccess is not available.
I have traced the problem to the Auth_InitCrypt
procedure in auth.tcl. The bug is quite simple, a
routine embedded in a foreach loop seems to be calling
an old variable name instead of the one specified by
the loop.
foreach {var val} $Config(Auth) {
if {[string match user,* $var]} {
# encrypt the password
set salt [Passgen_Salt]
set val [crypt $password $salt]
}
set authdefault($var) $val
}
Attached is a patch to repair the problem. It basically
changes the reference from $password to $val, and with
that fix.
Patch to auth.tcl