32 lines
797 B
Perl
32 lines
797 B
Perl
|
:- use_package(pillow).
|
||
|
|
|
||
|
|
main :-
|
||
|
|
get_form_input(Input),
|
||
|
|
get_form_value(Input,person_name,Name),
|
||
|
|
response(Name,Response),
|
||
|
|
output_html([
|
||
|
|
cgi_reply,
|
||
|
|
start,
|
||
|
|
title('Telephone database'),
|
||
|
|
heading(2,'Telephone database'),
|
||
|
|
--,
|
||
|
|
Response,
|
||
|
|
start_form,
|
||
|
|
'Click here, enter name of clip member, and press Return:',
|
||
|
|
\\,
|
||
|
|
input(text,[name=person_name,size=20]),
|
||
|
|
end_form,
|
||
|
|
end]).
|
||
|
|
|
||
|
|
response(Name, Response) :-
|
||
|
|
form_empty_value(Name) ->
|
||
|
|
Response = []
|
||
|
|
; phone(Name, Phone) ->
|
||
|
|
Response = ['Telephone number of ',b(Name),': ',Phone,$]
|
||
|
|
; Response = ['No telephone number available for ',b(Name),'.',$].
|
||
|
|
|
||
|
|
phone(daniel, '336-7448').
|
||
|
|
phone(manuel, '336-7435').
|
||
|
|
phone(sacha, '543-5316').
|
||
|
|
|