#!/opt/perl-5.8/bin/perl -w
use strict;
use diagnostics;
use Net::XMPP;

# Zugangs- und Verbindungsdaten zum Jabber-Server
my $user     = 'wawa';
my $password = 'urmel';
my $server   = 'jabber.example.com';
my $resource = 'Net::XMPP';
my $tls      = 1;

# Jabber-ID des Empfaengers, den wir begluecken wollen
my $sendto   = 'walross@superjabberserver.invalid';

# Jabber-Objekt erzeugen
my $jabber = Net::XMPP::Client->new();

# Verbindung aufbauen
$jabber->Connect(
		'hostname' => $server,
		'tls'      => $tls
		) or die "Kann mit $server nicht verbinden: $!\n";

# Authentisieren
my @cnres = $jabber->AuthSend(
		hostname => $server,
		username => $user,
		password => $password,
		resource => $resource,
		);
die "Anmeldung von $user\@$server fehlgeschlagen.\n" unless ($cnres[0] eq "ok");

# Unsichtbar bleiben
$jabber->PresenceSend(type=>'unavailable');

# Nachricht senden
$jabber->MessageSend(
		to      => $sendto,
		subject => "Test",
		body    => "Sinnlos"
		);

# Adios!
$jabber->Disconnect();