<<
loginfile="users.txt"
welcomepage="menu.html"
>>
<html>
<title>Mulit-Staff Login</title>
<<
IF errmessage <> "ERROR" DO
DISPLAY '<font color=red><b>' + errmessage +
'</b></font><br><br>'
/DISPLAY
errmessage = "ERROR"
/IF
>>
<form method=post action=checkpassword><br>
Name:
<input type=text size=30 name=multicheckname><br>
Password:
<input type=password size=30 name=multicheckpassword>
<input type=submit value="Enter">
</form>
</html>
<<OVERLAY checkpassword
# load login,password pairs from file /#
IF multicheckname="" THEN
errmessage = "Bad Login."
GOTO PAGE
/IF
COPY FILE=loginfile TS="," TO checkpassword /COPY
checkpassword = GETCOLEQ(checkpassword,1,multicheckname)
IF checkpassword = "" THEN
errmessage = "Bad Login."
GOTO PAGE
/IF
IF multicheckpassword != checkpassword[2,1] THEN
errmessage = "Bad Login."
GOTO PAGE
/IF
accesslevel = checkpassword[3,1]
GOTO welcomepage
>>
NOTE: The users.txt file is assumed to be comma-delimited. The login IDs
are stored in clolumn 1 and the passwords are stored in column 2. For example:
jsmith,mypassword
achen,mypassword2
bbabson,mypassword3
admin,mypassword4
jjackson,mypassword5
wpeter,password6