projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add stack backtrace to fatal problems in virtual field check
[freeside.git]
/
fs_passwd
/
fs_passwd.cgi
diff --git
a/fs_passwd/fs_passwd.cgi
b/fs_passwd/fs_passwd.cgi
index
34a33c7
..
38b70d0
100755
(executable)
--- a/
fs_passwd/fs_passwd.cgi
+++ b/
fs_passwd/fs_passwd.cgi
@@
-22,6
+22,9
@@
my $cgi = new CGI;
$cgi->param('username') =~ /^([^\n]{0,255}$)/ or die "Illegal username";
my $me = $1;
$cgi->param('username') =~ /^([^\n]{0,255}$)/ or die "Illegal username";
my $me = $1;
+$cgi->param('domain') =~ /^([^\n]{0,255}$)/ or die "Illegal domain";
+my $domain = $1;
+
$cgi->param('old_password') =~ /^([^\n]{0,255}$)/ or die "Illegal old_password";
my $old_password = $1;
$cgi->param('old_password') =~ /^([^\n]{0,255}$)/ or die "Illegal old_password";
my $old_password = $1;
@@
-33,6
+36,7
@@
die "New passwords don't match"
my $rv = passwd(
'username' => $me,
my $rv = passwd(
'username' => $me,
+ 'domain' => $domain,
'old_password' => $old_password,
'new_password' => $new_password,
);
'old_password' => $old_password,
'new_password' => $new_password,
);