HTTPS/Client-authenticated: Difference between revisions
Content added Content deleted
Line 14: | Line 14: | ||
(while (line) |
(while (line) |
||
(doSomeProcessingWithLine @) ) )</lang> |
(doSomeProcessingWithLine @) ) )</lang> |
||
=={{header|Run BASIC}}== |
|||
<lang runbasic>html " |
|||
<CENTER><TABLE CELLPADDING=0 CELLSPACING=0 border=1 bgcolor=wheat> |
|||
<TR><TD colspan=2 bgcolor=tan align=center>LOGIN</TD></TR> |
|||
<TR><TD align=right>UserName</TD><TD>" |
|||
TEXTBOX #userName, "" |
|||
html "</TR></TD><TR><TD align=right>Password:</TD><TD>" |
|||
PasswordBox #passWord, "" |
|||
html "</TD></TR><TD align=center colspan=2>" |
|||
button #si, "Signin", [doSignin] |
|||
html " " |
|||
button #ex, "Exit", [exit] |
|||
html "</TD></TR></TABLE>" |
|||
WAIT |
|||
[doSignin] |
|||
loginUserName$ = trim$(#userName contents$()) |
|||
loginPassWord$ = trim$(#passWord contents$()) |
|||
if (loginUserName$ = "admin" and loginPassWord$ = "admin" then |
|||
print "Login ok" |
|||
else |
|||
print "invalid User or Pass" |
|||
cls |
|||
goto [loop] |
|||
end if |
|||
[exit] |
|||
end</lang> |
|||
=={{header|Tcl}}== |
=={{header|Tcl}}== |