Revision 6231ae0a
Von Moritz Bunkus vor etwa 18 Jahren hinzugefügt
| bin/mozilla/admin.pl | ||
|---|---|---|
| 863 | 863 |
$myconfig = new User "$memberfile", "$form->{login}";
|
| 864 | 864 |
|
| 865 | 865 |
# redo acs variable and delete all the acs codes |
| 866 |
@acs = split /;/, $form->{acs};
|
|
| 866 |
@acs = split(/;/, $form->{acs});
|
|
| 867 | 867 |
|
| 868 | 868 |
$form->{acs} = "";
|
| 869 | 869 |
foreach $item (@acs) {
|
| ... | ... | |
| 1121 | 1121 |
|
| 1122 | 1122 |
<form method=post action=$form->{script}>
|
| 1123 | 1123 |
|
| 1124 |
<b>| |
|
| 1125 |
. $locale->text('Password')
|
|
| 1126 |
. qq|</b> <input type=password name=password size=8> |
|
| 1124 |
<table> |
|
| 1125 |
<tr> |
|
| 1126 |
<td><b>| . $locale->text('Password') . qq|</b></td>
|
|
| 1127 |
<td><input type=password name=password size=8></td> |
|
| 1128 |
</tr> |
|
| 1129 |
<tr> |
|
| 1130 |
<td><b>| . $locale->text('Repeat the password') . qq|</b></td>
|
|
| 1131 |
<td><input type=password name=password_again size=8></b></td> |
|
| 1132 |
</tr> |
|
| 1133 |
</table> |
|
| 1127 | 1134 |
|
| 1128 | 1135 |
<input type=hidden name=path value=$form->{path}>
|
| 1129 | 1136 |
<input type=hidden name=rpw value=$form->{rpw}>
|
| ... | ... | |
| 1141 | 1148 |
} |
| 1142 | 1149 |
|
| 1143 | 1150 |
sub change_password {
|
| 1151 |
if ($form->{"password"} ne $form->{"password_again"}) {
|
|
| 1152 |
$form->{title} =
|
|
| 1153 |
qq|Lx-Office ERP | |
|
| 1154 |
. $locale->text('Administration') . " / "
|
|
| 1155 |
. $locale->text('Change Admin Password');
|
|
| 1156 |
|
|
| 1157 |
$form->header; |
|
| 1158 |
|
|
| 1159 |
print qq| |
|
| 1160 |
<body class=admin> |
|
| 1161 |
|
|
| 1162 |
|
|
| 1163 |
<h2>| . $locale->text('Change Admin Password') . qq|</h2>
|
|
| 1164 |
|
|
| 1165 |
<p>| . $locale->text("The passwords do not match.") . qq|<br>
|
|
| 1166 |
<input type="button" onclick="history.back()" value="| . $locale->text("Back") . qq|">|;
|
|
| 1167 |
return; |
|
| 1168 |
} |
|
| 1144 | 1169 |
|
| 1145 | 1170 |
$root->{password} = $form->{password};
|
| 1146 | 1171 |
|
Auch abrufbar als: Unified diff
Beim Ändern des Administratorpasswortes sollte das neue Passwort doppelt angegeben werden müssen, um versehentliche Falscheingaben zu erschweren.