#!/usr/local/bin/perl

use strict;
use warnings;
use Jabber::SimpleSend qw(send_jabber_message);
use AppConfig qw( :argcount :expand);

my $c = AppConfig->new( { GLOBAL => {
                                ARGCOUNT    =>  ARGCOUNT_ONE,
                                EXPAND      =>  EXPAND_ENV
                            }
                        }, qw( user pass target)
        );

$c->file( $ENV{HOME} . "/.send_jabber_rc" );

my $text;

if ( $ARGV[0] eq '-' ) {
    local $/ = undef;
    $text = <>;
} else {
    $text = join( " ", @ARGV ); 
}

exit unless $text;

send_jabber_message({
        user        =>  $c->user,
        password    =>  $c->pass,
        target      =>  $c->target,
        subject     =>  'test',
        message     =>  $text,
    });