Perl Sample 1:
Requesting an Air Availability

Declares the XWSController class, which manages the XML Select Web Service request.

package Controllers::XWS;

use SOAP::Lite +trace => 'debug';

Creates and sets up the credentials for the XML Select Web Service. The user name and password are assigned by Galileo.

Note: Credentials are only required for one file in a module.  However, the credentials are included in each sample Controller so that they can function as stand-alone samples.

our $USER_NAME = "UserName";

our $PASSWORD  = "Password";

sub SOAP::Transport::HTTP::Client::get_basic_credentials {

return $USER_NAME => $PASSWORD;

}

The constructor for XML Select.

sub new {

my $type = shift;

my $self = {};

Defines the Host Access Profile, which is required to access Galileo Web Services.

$self->{HAP} = "HostAcessProfile";

Declares and initializes variables for the required namespaces and XML Select Web Service endpoint.

$self->{NAMESPACE} = 'http://webservices.galileo.com';

$self->{ENDPOINT} = 'https://americas.copy-webservices.travelport.com/B2BGateway/service/XMLSelect.asmx';

return bless $self, $type;

}

Builds an XML document using fixed endpoints and the required date.

sub BuildRequest

{

my $self = shift;

Finds the 15th of the month three months from the current date.

my $day = "15";

my $month = (localtime)[4] + 3;

my $year = (localtime)[5] + 1900;

if ($month > 12)

{

$month -=12;

$year += 1;

}

XML Select AirAvailability_6_2 transaction. See the AirAvailability_6_2 Sample Request for complete request parameters.

my $req;

$req .= "<AirAvailability_6_5>\r\n";

Air availability request.

$req .= "    <AirAvailMods>\r\n";

General air availability.

$req .= "        <GenAvail>\r\n";

Number of seats.

$req .= "            <NumSeats>1</NumSeats>\r\n";

Preferred class of service. If no specific class of service is requested, a CDATA structure is used to force a blank. The CRS will not process a zero value for this element.

$req .= "            <Class><![CDATA[ ]]></Class>\r\n";

Departure date for the flight segment. The CRS processes dates in a yyyyMMdd format.

$req .= "            <StartDt>".sprintf("%04d%02d%02d",$year, $month, $day)."</StartDt>\r\n";

Departure airport or city. Metro codes can be denoted with an asterisk, e.g., LAX*.

$req .= "            <StartPt>DEN</StartPt>\r\n";

Destination airport or city.

$req .= "            <EndPt>ORD</EndPt>\r\n";

Departure time at noon in a 24-hour clock, HHMM.  
Blank for CRS default.

$req .= "            <StartTm>1200</StartTm>\r\n";

Time Window Indicator specifies if a time window applies to a D (departure time/date) or A (arrival time/date).

$req .= "            <TmWndInd>D</TmWndInd>\r\n";

Start and End Time of Departure/Arrival Window. Values in a 24-hour clock, HHMM.
Blank if not used.

$req .= "            <StartTmWnd>0800</StartTmWnd>\r\n";

$req .= "            <EndTmWnd>1400</EndTmWnd>\r\n";

Flight type preference.
Blank if no preference.

$req .= "            <FltTypeInd></FltTypeInd>\r\n";

Start point indicator.
Specifies the allowed departure airports.
B (Select the specified airport first, then expand to other airports in a multi-airport city.)
Blank (Use CRS default.)

$req .= "            <StartPtInd></StartPtInd>\r\n";

End point indicator.
B (Destination as entered, either city or airport. This option expands airports to cities, giving preference to specified airport. For example, LAX would be processed as an airport.)
Blank (Default to B).

$req .= "            <EndPtInd></EndPtInd>\r\n";

Ignore TravelScreen preferences.
Y (Ignore TS preferences)
N (Do not ignore TS preferences)
Blank (Default to N)

$req .= "            <IgnoreTSPref></IgnoreTSPref>\r\n";

End general availability.

$req .= "        </GenAvail>\r\n";

End availability request.

$req .= "    </AirAvailMods>\r\n";

End XML Select transaction.

$req .= "</AirAvailability_6_5>\r\n";

return $req;

}

Builds a default filter that returns flight availability.

sub BuildFilter

{

my $self = shift;

A wildcard filter returns all data for flight availability <AvailFlt>.

return "<AirAvailability_6_5><AirAvail><AvailFlt><_/>
</AvailFlt></AirAvail></AirAvailability_6_5>";

}

Makes the availability call.

sub doAvail

{

my $self = shift;

Wraps the input parameters with the appropriate parameter names. SOAP::Lite does support this function for complex types, such as XML.

my $xmlFilter = '<Filter>'.(shift).'</Filter>';

my $xmlRequest = '<Request>'.(shift).'</Request>';

Saves the Filter and Request to the object.

$self->{filter} = $xmlFilter;

$self->{request} = $xmlRequest;

Instantiates the XWS Soap::Lite object.

my $xws = SOAP::Lite

Sets the URL for the XWS Soap Proxy.

-> uri($self->{NAMESPACE})

By default, Soap::Lite uses the pound sign (#) to concatenate URLs. Replace the pound sign with a slash (/).

-> on_action(sub{sprintf '%s/%s', @_ })

The default response is a hash value because the return type, xmlelement, is complex. Setting outputxml() to TRUE creates an XML response.

-> outputxml("1")

Sets the proxy endpoint to XML Select.

-> proxy($self->{ENDPOINT});

Assigns the return value of the XML Select object's call to the SubmitXml method.

my $response = $xws

Sets the namespace for the SubmitXml method parameters.

->call(SOAP::Data->name("SubmitXml")->attr({xmlns => $self->{NAMESPACE}}),

A Host Access Profile is required to access Galileo Web Services.

SOAP::Data->name(Profile => $self->{HAP})->type('string'),

Specifies the Document (root) XML element for the request and filter.

SOAP::Data->name(Request => $xmlRequest)->type('xml'),

SOAP::Data->name(Filter => $xmlFilter)->type('xml'));

Saves the response to the object.

$self->{response} = $response;

return $response;

}