|
|
| encrypts and puts address string to web-output |
 |
| link |
address string |
|
external procedure WebHWEditLine(string,string,string,string,Boolean);
global
procedure WebHWGetNewPasswd()
begin
WebOutString("<form method=""post"" action=""");
WebOutLink("WebHWSendNewPassword.hal?sessionid=" & WebGetArg("sessionid"));
WebOutString(""">");
WebOutString("<table width=""500"" border=""0"" cellpadding=""1"" cellspacing=""0"">");
if (WebLoginStatus==3) then begin
WebHWEditLine(USetStr(20544),"pass","password",WebGetArg("pass"),false);
WebHWEditLine(USetStr(20545),"pass2","password",WebGetArg("pass2"),false);
end else begin
WebOutString("<tr><td colspan=""2"">" & USetStr(20546) & "</td></tr>");
WebHWEditLine(USetStr(9334),"custcode","text",WebGetArg("custcode"),false);
WebHWEditLine(USetStr(20509),"email","text",WebGetArg("email"),false);
end;
WebOutString("<tr valign=""top"">");
WebOutString("<td width=""28%""> </td>");
WebOutString("<td width=""72%"">");
WebOutString("<input type=""submit"" name=""" & USetStr(20514) & """ value=""Submit"">");
WebOutString("<input type=""reset"" name=""" & USetStr(20515) & """ value=""Reset"">");
WebOutString("</td>");
WebOutString("</tr>");
WebOutString("</table>");
WebOutString("</form>");
return;
end;
|
««