#!/usr/bin/perl -w
#
# script to send jabber message to GoogleTalk Instant Messaging
#   using XMPP protocol and SASL PLAIN authentication.
#
# author: Thus0 <Thus0@free.fr>
# Copyright (c) 2005, Thus0 <thus0@free.fr>. All rights reserved.
#
# released under the terms of the GNU General Public License v2

use GTalk;
use strict;

&main;

#################################################################
#
# main - Main subroutine
#
#################################################################
sub main ()
{
    my $username = "thus0";
    my $password = "test123";
    my $to = "petrus\@gmail.com";
    my $body = "hello world";

    GTalk::GTalk(username=>$username, password=>$password,
                 to=>$to, body=>$body);

    #GTalk::GTalk(debuglevel=>2, debugfile=>'gtalk.log',
    #             username=>$username, password=>$password,
    #             to=>$to, body=>$body);

    exit(0);
}