#!/usr/www/users/dimiter/cgi-bin/strawberry
?- C is getenv(post),
X is get_html_form(_,"tfield", C),
Y is get_html_form(_,"area", C),
S is get_html_form(_,"select",C),
RB is get_html_form(_,"rad",C),
R is getenv("HTTP_REFERER"),
I is getenv("REMOTE_ADDR"),
go(X,Y,R,I,S,RB).
go(X,Y,R,I,S,RB) :- say(X,Y,R,I,S,RB).
say(X,Y,R,I,S,RB) :- set_content_type("text/html"),write("
Method POST
Method POST Demo
|
Your IP address:
|
"),
write(I),
write(" |
|
You are from:
|
"),
write(R),
write(" |
|
Text Field:
|
"),
write(X),
write(" |
|
Text Area:
|
"),
write(Y),
write(" |
|
You Selected:
|
"),
write(S),
write(" |
|
Radio Select:
|
"),
write(RB),
write(" |
").