insert($w, text(my_("Password changed")));
} else {
$formerror .= my_("Password could not be changed") . "\n";
}
}
}
if (!$_POST || $formerror) {
myError($w, $p, $formerror, FALSE);
if ($user) {
insert($w, heading(3, sprintf(my_("Change password for user %s"), $user)));
} else {
insert($w, heading(3, sprintf(my_("Change password for user %s"), getAuthUsername())));
}
// start form
insert($w, $f = form(array("method" => "post", "action" => $_SERVER["PHP_SELF"])));
insert($f, $con = container("fieldset", array("class" => "fieldset")));
insert($con, $legend = container("legend", array("class" => "legend")));
insert($legend, text($title));
// display opening text
if ($user) {
insert($con, hidden(array("name" => "user", "value" => "{$user}")));
}
insert($con, textbr(my_("New password (case sensitive!):")));
insert($con, password(array("name" => "password1", "value" => "{$password1}", "size" => "40", "maxlength" => "40")));
insert($con, textbrbr(my_("New password (again):")));
insert($con, password(array("name" => "password2", "value" => "{$password2}", "size" => "40", "maxlength" => "40")));
insert($con, generic("br"));
insert($con, submit(array("value" => my_("Submit"))));
insert($con, freset(array("value" => my_("Clear"))));
}
printhtml($p);
function insertCreateUserForm($w, $ds)
{
list($userid, $userdescrip, $useremail, $grp) = myRegister("S:userid S:userdescrip S:useremail S:grp");
insert($w, $f = form(array("method" => "post", "action" => $_SERVER["PHP_SELF"])));
insert($f, hidden(array("name" => "action", "value" => "parsecreateuserform")));
insert($f, $con = container("fieldset", array("class" => "fieldset")));
insert($con, $legend = container("legend", array("class" => "legend")));
insert($legend, text(my_("Create new user")));
insert($con, textbr(my_("User-id (case sensitive!):")));
insert($con, input_text(array("name" => "userid", "value" => "{$userid}", "size" => "20", "maxlength" => "40")));
insert($con, textbrbr(my_("User's fullname:")));
insert($con, input_text(array("name" => "userdescrip", "value" => "{$userdescrip}", "size" => "40", "maxlength" => "80")));
insert($con, textbrbr(my_("User's e-mail:")));
insert($con, input_text(array("name" => "useremail", "value" => "{$useremail}", "size" => "40", "maxlength" => "64")));
if (AUTH_INTERNAL) {
insert($con, textbrbr(my_("Password (case sensitive!):")));
insert($con, password(array("name" => "password1", "size" => "20", "maxlength" => "40")));
insert($con, textbrbr(my_("Password (again):")));
insert($con, password(array("name" => "password2", "size" => "20", "maxlength" => "40")));
}
$result2 = $ds->GetGrps();
$lst = array("" => "No group");
while ($row = $result2->FetchRow()) {
$col = $row["grp"];
$lst["{$col}"] = $row["grp"] . " - " . $row["grpdescrip"];
}
insert($con, textbrbr(my_("Group")));
insert($con, selectbox($lst, array("name" => "grp"), $grp));
insert($f, generic("br"));
insert($f, submit(array("value" => my_("Create User"))));
insert($f, freset(array("value" => my_("Clear"))));
}
