[otrs-de] Jabber Notification

5 Feb 2007

      Hi,
da SMTP/POP/IMAP und Co. Protokolle sind, die auf Entwicklerseite als Tot betrachtet werden können, fände ich eine Implementation von Jabber als Ticket-Notification sehr sinnvoll.
Ich habe bereits einen Jabber-Client mit TLS Support in Perl geschrieben.
Der Client selber ist sehr simple und nutzt Net::XMPP.
Was ich jedoch nicht hinbekomme ist die Einbindung in OTRS selber.
Ich dachte es wäre schnell getan, in dem ich einfach im Sendmail oder SMTP Module von OTRS, Jabber mit hinzufüge, das hat aber bisher nicht geklappt.

Vielleicht hat einer von euch eine Idee.

Hier mein cmd Client, sollte schnell auf OTRS angepasst sein:

#########################################################
#! /usr/bin/perl
use strict;
use Net::XMPP;

my $len = scalar @ARGV;
if ($len ne 5) {
   die "Usage...\n jabber-notify.pl [user] [password] [recipient-jid] [subject] [message]\n";
}

my $user = $ARGV[0];
my $password = $ARGV[1];
my $recipient = $ARGV[2];
my $subject = $ARGV[3];
my $body = $ARGV[4];
my $server   = 'jabberserver.org';
my $resource = 'Notify';
my $tls      = 1;

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

# Verbindung aufbauen
$jabber->Connect(
                'hostname' => $server,
                'tls'      => $tls
                );

# Authentisieren
$jabber->AuthSend(
                hostname => $server,
                username => $user,
                password => $password,
                resource => $resource,
                );

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

$jabber->MessageSend(
                to      => $recipient,
                subject => $subject,
                body    => $body );

$jabber->Disconnect();
#########################################################

Falls es Probleme mit XML::Stream gibt, wenn die TLS-Verbindung instanziert wird, liegt das an einem Bug in der Perl lib XML::Stream.
Hier zu gibt es ein kleines Workarround von slibstream aus dem BugReport http://jabberstudio.org/projects/xmlstream/bugs/view.php?id=4794 :

1) open Stream.pm
2) locate the line: delete($self->{SIDS}->{$currsid});
(should be only one occurrence , inside sub OpenStream)
3) replace with: delete($self->{SIDS}->{$currsid}) unless ($currsid eq $sid);

------------------------------------------------------------------------
H&G Hansen & Gieraths EDV Vertriebsgesellschaft mbH
Postfach 1605 - 53006 Bonn - Telefon: 0228/9080-0 Telefax: 0228/9080-405
Amtsgericht Bonn HR B 4027 - USt.IdNr. DE122121252
Geschaeftsfuehrung: Dr. H. Hellmuth Hansen
------------------------------------------------------------------------

[otrs-de] Jabber Notification

Simon Pirschel