#! /bin/sh 
exec /home/clip/bin/ciao-shell-1.10 $0 $* # -*- mode: ciao; -*-

:- include(library(pillow)).

main(_) :-
	get_form_input(Input),
        get_form_value(Input,person_name,Name),
        response(Name,Response),
	output_html([
 	  cgi_reply,
 	  begin(html),
 	  title('Simple CLIP telephone database'),
 	  begin(body,[background='/demo/images/Clip_bg.gif']),
	  center( [ 
            image('/demo/images/clip.gif'),
            heading(2,'Simple CLIP telephone database'),
            --,
            Response,
            start_form,
            'Click here, enter name of clip member, 
             and press return:',  
            \\,
            input(text,[name=person_name,size=20]),
            --,
            end_form,
            image('/demo/images/pillow_d.gif')
                 ]),
          end(body), end(html)]).

response(Name, []) :- form_empty_value(Name), !.
response(Name, ['Phone number for ',bf(Name),' is ',Info, --]) :-
	phone(Name,Info), !.
response(Name, ['No phone number available for ',bf(Name), '.', --]).

%% Database
phone('CLIP',   '336-7448').
phone('Paco',   '554-5225').
phone('Daniel', '460-0569').