[otrs-de] Jabber Notification

Dennis Schwan dennis.schwan at leuchtturm-it.de
Mon Feb 5 10:13:57 GMT 2007


Ich kann zwar nicht weiterhelfen aber das ist in jedem Fall eine gute Idee.

Simon Pirschel schrieb:
> 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 Mailingliste: otrs-de - Webpage: http://otrs.org/
> Archiv: http://lists.otrs.org/pipermail/otrs-de/
> Listenabo verwalten: http://lists.otrs.org/cgi-bin/listinfo/otrs-de/
> Support oder Consulting fuer Ihr OTRS System?
> =http://www.otrs.com/
>
>
>