The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

NAME

Business::Travel::OTA::Dispatcher::General - The General Dispatcher replies to OTA Request messages according to configuration files rather than hard-coded logic. It is useful for a test server or as a base class for a customized server.

SYNOPSIS

  # TBD

DESCRIPTION

This server class contains logic to process incoming OTA Request messages and reply with reasonable OTA Response messages. It parses the information on the Request message, chooses an appropriate canned Response message which has been preformatted, makes a few substitutions so that the content of the Response corresponds to the content of the Request, and replies with the message.

This is a General Dispatcher because it is driven by configuration files. This may or may not be sufficient for a full production server. It is smart enough to allow a user to make a decent test server so that he can test his client software against it. It may also serve as a base class for a customized Dispatcher.

METHODS

execute()

 * Signature: $dispatcher->execute($request_xml)
 * Param:     $request_xml      SCALAR
 * Returns:   $response_xml     SCALAR

ACKNOWLEDGEMENTS

 * Author:  Stephen Adkins <sadkins@therubicongroup.com>
 * Copyright: (c) 2007 Stephen Adkins (for the purpose of making it Free)
 * License: This is free software. It is licensed under the same terms as Perl itself.

SEE ALSO