[REBOL] Antwort: Re: Help!
From: sharriff:aina:med-iq at: 27-Oct-2000 7:52
oops, no attachments allowed, here are the files in text Elan!
temp-db
[
sharriff [
logname "sharriff"
name "Sharriff Aina"
password "gong"
email [sharriff--aina--med-iq--de]
dept "Administration"
view "yes"
edit "yes"
modify "yes"
publish "yes"
]
test [
logname "test"
name "Test Testman"
password "unfold"
email [test--testman--med-iq--de]
dept "Entwicklung"
view "yes"
edit "no"
modify "no"
publish "no"
]
admin [
logname "admin"
name "Administrator"
password "medintouch"
email [admin--med-iq--de]
dept "Development"
view "yes"
edit "yes"
modify "yes"
publish "yes"
]
]
My code:
#!c:\rebol\rebol.exe -cs
REBOL[]
Print "Content-Type: text/html ^/^/"
temp-db: load %medintouch-users-db.shdb
challenge: make object! decode-cgi system/options/cgi/query-string
temp-logname: to-word challenge/login-name
temp-password: challenge/password
sub-db: select temp-db temp-logname
either found? sub-db [
either temp-password = sub-db/password [print {right password!}][ print
{wrong password!}]] [ print {wrong login name!} ]
simplified, beacuse it sends a lot of XHTML to the client...
Best regards
Sharriff Aina
med.iq information & quality in healthcare AG