Script1 'flights.cgi':
Quote:
#!/usr/bin/perl -w
# flight.cgi - flight SOAP handler
use SOAP::Transport::HTTP +trace;
SOAP::Transport::HTTP::CGI
-> dispatch_to('flight: ?:checkFlightAvailability)')
-> handle
;
|
Script2 'check-flight.pl':
Code:
#!/usr/bin/perl -w
# check-flight.pl
use SOAP::Lite;
my $flight_code=shift;
my $date=shift;
print "\n\nThe Result is:";
print SOAP::Lite
-> uri('urn:flight')
-> proxy('http://cgi-bin/flights.cgi')
-> checkFlightAvailability($flight_code,$date)
-> result . "\n";
I'm trying to write a WSDL file that matches the web service provided by flights.cgi but i'm not sure how to go about it? Any help would be great. Many thanks