src/perl/lib/OpenSRF/Transport/SlimJabber/MessageWrapper.pm

   1 package OpenSRF::Transport::SlimJabber::MessageWrapper;
   2 use strict; use warnings;
   3 use OpenSRF::Transport::SlimJabber::XMPPMessage;
   4
   5 # ----------------------------------------------------------
   6 # Legacy wrapper for XMPPMessage
   7 # ----------------------------------------------------------
   8
   9 sub new {
  10         my $class = shift;
  11     my $msg = shift;
  12     return bless({msg => $msg}, ref($class) || $class);
  13 }
  14
  15 sub msg {
  16     my($self, $msg) = @_;
  17     $self->{msg} = $msg if $msg;
  18     return $self->{msg};
  19 }
  20
  21 sub toString {
  22     return $_[0]->msg->to_xml;
  23 }
  24
  25 sub get_body {
  26     return $_[0]->msg->body;
  27 }
  28
  29 sub get_sess_id {
  30     return $_[0]->msg->thread;
  31 }
  32
  33 sub get_msg_type {
  34     return $_[0]->msg->type;
  35 }
  36
  37 sub get_remote_id {
  38     return $_[0]->msg->from;
  39 }
  40
  41 sub setType {
  42     $_[0]->msg->type(shift());
  43 }
  44
  45 sub setTo {
  46     $_[0]->msg->to(shift());
  47 }
  48
  49 sub setThread {
  50     $_[0]->msg->thread(shift());
  51 }
  52
  53 sub setBody {
  54     $_[0]->msg->body(shift());
  55 }
  56
  57 sub set_router_command {
  58     $_[0]->msg->router_command(shift());
  59 }
  60 sub set_router_class {
  61     $_[0]->msg->router_class(shift());
  62 }
  63
  64 sub set_osrf_xid {
  65     $_[0]->msg->osrf_xid(shift());
  66 }
  67
  68 sub get_osrf_xid {
  69    return $_[0]->msg->osrf_xid;
  70 }
  71
  72 1;