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