#!/usr/bin/perl

use SOAP::Transport::HTTP;
use ExamineNames;

SOAP::Transport::HTTP::CGI
  ->dispatch_to('ExamineNames')
  ->handle;

####################
#
# This cgi script serve up the methods in the ExamineNames.pm module
# as SOAP methods when invoked over the web. 
#
# SOAP::Lite provides several different ways to configure servers.
# Here this CGI script provides access to one specific module.
# Other possibilities include 
#   * configuration directives in httpd.conf or .htaccess
#   * access to may perl modules, or any modules in a given directory
#
######################

#### Here's what it would might as a generic cgi script.
#### (I used this for testing, to ensure that apache would load the modules.)
# print "Content-type: text/plain\n\n";
# my $name="Jim";
# my $obj=ExamineNames->new;
# my $gender = $obj->getGender($name);
# print " Gender of '$name' is '$gender'. \n";
# exit;