File Coverage

blib/lib/Jabber/SimpleSend.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

package Jabber::SimpleSend;

use strict;
use warnings;

require Exporter;

use Carp;
use Net::Jabber qw(Client);

our @ISA =qw( Exporter );
our @EXPORT_OK = qw( send_jabber_message );
our $VERSION='0.03';

sub send_jabber_message {

  my $arguments = {};
  my $first_argument = shift;
  if (ref($first_argument)) {
    $arguments = $first_argument;
  } else {
    $arguments->{user} = $first_argument;
    ($arguments->{password},$arguments->{target},$arguments->{subject},$arguments->{message}) = @_;
  }

  for (qw(user password target message subject)) {
    croak "send_jabber_message requires a $_ argument." unless defined $arguments->{$_};
  }

  croak "The user argument doesnt look like a valid JID."   unless ($arguments->{user} =~ m/.*@.*/);
  croak "The user argument doesnt look like a valid JID."   unless (scalar($arguments->{user} =~ m/@/g) == 1);
  croak "The target argument doesnt look like a valid JID." unless ($arguments->{target} =~ m/.*@.*/);
  croak "The target argument doesnt look like a valid JID." unless (scalar($arguments->{target} =~ m/@/g) == 1);

  my ($username,$hostname) = split /@/,$arguments->{user};

  croak "The user argument doesnt look like a valid JID."  unless (length($username));
  croak "The user argument doesnt look like a valid JID." unless (length($hostname));


  my $jabber_connection = Net::Jabber::Client->new();
  $jabber_connection->Connect(  'hostname' => $hostname,
                                'port'     => 5222
                             );


  $jabber_connection->AuthSend( 'username' => $username,
                                'password' => $arguments->{password},
                                'resource' => 'SimpleSend');

  die "Could not connect to Jabber server" unless ($jabber_connection->Connected());

  #print STDERR "USERNAME : $username , PASSWORD : $arguments->{password}\n";
  $jabber_connection->MessageSend( to      => $arguments->{target},
                                   subject => $arguments->{subject},
                                   body    => $arguments->{message});
  $jabber_connection->Process(1);
  $jabber_connection->Disconnect();

  return 1;
}

1;

__END__