1 files changed, 0 insertions, 66 deletions

diff --git a/contrib/nagios_sendim.pl b/contrib/nagios_sendim.pl
deleted file mode 100644
index 02870a6..0000000
--- a/contrib/nagios_sendim.pl
+++ /dev/null
@@ -1,66 +0,0 @@
-#!/usr/bin/perl -w
-#
-# SENDIM 1.0 by Sergio Freire (sergio-s-freire@ptinovacao.pt)
-# Nagios plugin to send notifications using instant messages through a jabber server
-# 
-# Note:  a) you can send messages to several different IM systems like ICQ,AIM,MSN,etc...
-#        b) to test this plugin you can execute it with the arguments needed and write the message followed by a CTRL+D
-#
-# Please check http://www.jabber.org and http://www.jabberstudio.org for more information on Jabber Instant Messaging
- 
-
-use Net::Jabber qw(Client);
-use Getopt::Std;
-
-my $tmp;
-my $mensagem="";
-getopts("u:p:t:");
-if ( (!defined($opt_u)) || (!defined($opt_p)) || (!defined($opt_t)))
-        {
-                print "USE: sendim -u user_JID -p password -t destination_JID\n";
-                print 'EXAMPLE: sendim -u nagios@jabber.org -p nagios -t bitcoder@nagios.org'."\n";
-                print "        (send an instant message as user nagios\@jabber.org to bitcoder\@jabber.org)\n";
-                exit;
-        }
-
-my @buf=split('@',$opt_u);
-my $login=$buf[0];
-@buf=split('/',$buf[1]);
-my $server=$buf[0];
-my $resource=$buf[1] || "nagios";
-my $password=$opt_p;
-my $jid_dest=$opt_t;
-my $debug=0; # Set debug=1 to enable output of debug information
-
-while ($tmp=<STDIN>)
-{
- $mensagem.=$tmp;
-}
-
-print "LOGIN: $login\nSERVER: $server\nRESOURCE: $resource\n" if $debug;
-print "TO: $jid_dest\n" if $debug;
-
-$Con1 = new Net::Jabber::Client();
-$Con1->Connect(hostname=>$server);
-
-           if ($Con1->Connected()) {
-             print "CON1: We are connected to the server...\n" if $debug;
-           } 
-
-           @result1 = $Con1->AuthSend(username=>$login,
-                                    password=>$password,
-                                    resource=>$resource);
-
-
-$Con1->PresenceSend();
-$Con1->Process(1);
-
-@result1=$Con1->MessageSend( to=>$jid_dest,
-                             subject=>"nagios",
-                             body=>$mensagem,
-                             type=>"chat",
-                             priority=>1);
-
-$Con1->Process(1);
-$Con1->Disconnect();
-exit;