From b15adb7762b6caaecaa83637abfcf5fdb4802092 Mon Sep 17 00:00:00 2001
From: Holger Weiss <holger@zedat.fu-berlin.de>
Date: Mon, 2 Sep 2013 13:16:24 +0200
Subject: Remove "contrib" plugins

These days, sites such as "Nagios Exchange" are a much better place for
publishing plugins not maintained by the Plugins Development Team.
---
 contrib/nagios_sendim.pl | 66 ------------------------------------------------
 1 file changed, 66 deletions(-)
 delete mode 100644 contrib/nagios_sendim.pl

(limited to 'contrib/nagios_sendim.pl')

diff --git a/contrib/nagios_sendim.pl b/contrib/nagios_sendim.pl
deleted file mode 100644
index 02870a6d..00000000
--- 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;
-- 
cgit v1.2.3-74-g34f1