#!/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("