OpenSRF::Utils::JSON->register_class_hint(name => "OpenSRF::Application", hint => "method", type => "hash");
OpenSRF::Transport->message_envelope("OpenSRF::Transport::SlimJabber::MessageWrapper");
OpenSRF::Transport::PeerHandle->set_peer_client("OpenSRF::Transport::SlimJabber::PeerConnection");
- OpenSRF::Transport::Listener->set_listener("OpenSRF::Transport::SlimJabber::Inbound");
OpenSRF::Application->server_class('client');
}
# --- These must be implemented by all Transport subclasses
# -------------------------------------------
-=head2 get_listener
-
-Returns the package name of the package the system will use to
-gather incoming requests
-
-=cut
-
-sub get_listener { shift()->alert_abstract(); }
-
=head2 get_peer_client
Returns the name of the package responsible for client communication
package OpenSRF::Transport::Listener;
use base 'OpenSRF';
use OpenSRF::Utils::Logger qw(:level);
-use OpenSRF::Transport::SlimJabber::Inbound;
-use base 'OpenSRF::Transport::SlimJabber::Inbound';
=head1 Description
=cut
-=head2 set_listener()
-
-Sets my superclass. Pass in a string representing the perl module
-(e.g. OpenSRF::Transport::Jabber::JInbound) to be used as the
-superclass and it will be pushed onto @ISA.
-
-=cut
-
-sub set_listener {
- my( $class, $listener ) = @_;
- OpenSRF::Utils::Logger->debug("Loading Listener $listener");
- if( $listener ) {
- $listener->use;
- if( $@ ) {
- OpenSRF::Utils::Logger->error(
- "Unable to set transport listener: $@", ERROR );
- }
- unshift @ISA, $listener;
- }
-}
-
-
1;
=cut
-sub get_listener { return "OpenSRF::Transport::SlimJabber::Inbound"; }
-
sub get_peer_client { return "OpenSRF::Transport::SlimJabber::PeerConnection"; }
sub get_msg_envelope { return "OpenSRF::Transport::SlimJabber::MessageWrapper"; }
use_ok( 'OpenSRF::Transport::PeerHandle' );
use_ok( 'OpenSRF::Transport::SlimJabber' );
use_ok( 'OpenSRF::Transport::SlimJabber::Client' );
-use_ok( 'OpenSRF::Transport::SlimJabber::Inbound' );
use_ok( 'OpenSRF::Transport::SlimJabber::MessageWrapper' );
use_ok( 'OpenSRF::Transport::SlimJabber::PeerConnection' );
use_ok( 'OpenSRF::Transport::SlimJabber::XMPPMessage' );