Commit 1c9be435 authored by Leigh Stoller's avatar Leigh Stoller

Minor fix.

parent a67840b9
......@@ -1251,6 +1251,7 @@ sub SSLPassPhrase($$$)
sub SetPassword($$$)
{
my ($self, $encoding, $expires) = @_;
my $safe_encoding = DBQuoteSpecial($encoding);
# Must be a real reference.
return -1
......@@ -1261,7 +1262,7 @@ sub SetPassword($$$)
# Clear the chpasswd stuff anytime passwd is set.
return -1
if (! DBQueryWarn("update users set ".
" usr_pswd='$encoding', pswd_expires=$expires, ".
" usr_pswd=$safe_encoding, pswd_expires=$expires, ".
" chpasswd_key=NULL,chpasswd_expires=0 ".
"where uid_idx='$uid_idx'"));
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment