KILLSCRIPT.PH

#!/usr/bin/perl

#Libraries
use Net::Jabber;
use Mysql;

#Modules
require "chatRoutine.pm";
require "trimSpaces.pm";

#--------------- Config Vars -----------------
# Jabber Client
my $jbrHostname = "HOSTNAME";
my $jbrUserName = "USER";
my $jbrPassword = "PASS";
my $jbrResource = "RESOURCE";

# MySQL
my $dbHostname = "DBHOSTNAME";
my $dbName = "DBNAME";
my $dbUserName = "DBUSERNAME";
my $dbPassword = "DBPASS";

#my $dbCon = Mysql->connect($dbHostname,$dbName,$dbUserName,$dbPassword);
my $exeResult;
my @qryResults;

my $con = Net::Jabber::Client->new();

$con->SetMessageCallBacks(chat=>\&chatRoutine);
$con->SetPresenceCallBacks(available=>\&welcomeRoutine,unavailable=>\&killScript);


my $status = $con->Connect(hostname=>$jbrHostname) or die "Cannot connect ($!)\n";

my @results = $con->AuthSend(username=>$jbrUserName,password=>$jbrPassword,resource=>$jbrResource);

if($results[0] ne "ok")
{
    die "Jabber auth error @results\n";
}

$con->PresenceSend(type=>"available");
$con->Process(1);

sub prnt
{
    print $_[1]."\n";
    &sitAndWait;
}

sub welcomeRoutine
{
        print "Welcome!\n";
        $con->MessageSend(to=>"ANOTHERUSER",subject=>"",body=>"Hello There!",type=>"chat",priority=>10);
        &sitAndWait;
        print "End Welcome!\n";
}

sub sitAndWait
{
    print "Waiting!\n";
    my $proc = $con->Process(1);
    while(defined($proc))
    {
        print $proc."\n";
            $proc = $con->Process(1);
    }
}

sub killScript
{
    print "Killing\n";
    $con->Disconnect();
    exit;
}