#!/usr/www/users/dimiter/cgi-bin/strawberry
?-
P is getenv(post),
N is get_html_form(_,"name",P),
E is get_html_form(_,"email",P),
I is getenv("REMOTE_ADDR"),
s_mail("prolog@dobrev.com",N,E,"New User","New User"),
s_mail(E,"Strawberry Prolog","dimiter@dobrev.com","Sign Up Confirmation",
"Dear "+N+",
Thank You for your interest in Strawberry Prolog.
The information that you've sent to us is as follows:
"+N+"
"+E+"
Sincerely,
Dimiter Dobrev
http://www.dobrev.com
Strawberry Prolog"),
F is open("../users/users.txt","a"),
writef(F,"p("""+E+""", """+N+"""). % "+I+"
"),
close(F),
set_cookie("NAME="+N+"=EMAIL="+E,"/","Friday, 12-Feb-05 10:00:00 GMT"),
execute("touch ../index.html"),
set_content_type("text/html"),
write("
Method POST
"),
write("Thank You For Signing Up With Strawberry
Now we can recognize you. You can see your name in our Home page. We sent to you on your e-mail address a Sign Up Confirmation.
").