#!/usr/bin/env swipl
/* Part of SWI-Prolog
Author: Jan Wielemaker
This example code is in the public domain
*/
:- use_module(library(cgi)).
:- initialization main.
main :-
cgi_get_form(Arguments),
format('Content-type: text/html~n~n', []),
format('~n', []),
format('~n', []),
format('Simple SWI-Prolog CGI script output~n', []),
format('~n~n', []),
format('~n', []),
format('Form arguments
'),
format('', []),
print_args(Arguments),
format('
~n~n', []),
halt.
print_args([]).
print_args([A0|T]) :-
A0 =.. [Name, Value],
format('~w=~w
~n', [Name, Value]),
print_args(T).