Return to CLIP Main Page

Active Modules as Form Servers: Example (Cont.)

• CGI script using that active module:

  #!/usr/local/bin/lpshell
  :- use_active_module(phone_db,[response/2]).
  :- use_module('/usr/local/src/pillow/pillow.pl').
  
  main(_) :-
          get_form_input(Input),
          get_form_value(Input,person_name,Name),
          response(Name,Response),
          output_html([
            cgi_reply,
            start,
            title('Simple CLIP telephone database'),
            center( [ 
              image('http://localhost/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('http://localhost/images/pillow_d.gif') ]),
            end ]).
  
  module_address(phone_db,Address) :-
     see('phone_db.addr'), read(Address), seen.