Return to CLIP Main Page

Combining the Form Producer and Handler

#!/usr/local/bin/lpshell
:- use_module('/usr/local/src/pillow/html.pl').
main(_) :-
  get_form_input(Input),
  get_form_value(Input,person_name,Name),
  output_html([
      cgi_reply,
      start,
      --,
      heading(2,'You submitted the name: '),
      em(Name),
      --,
      heading(2,'Please enter input (person_name):'),
      start_form,
      input(text,[name=person_name,size=40]),
      input(submit,[value='Submit']),
      end_form,
      --,
      end]).