From 58dc9d69ebcab50f284c3cc5f097d380e5b80d65 Mon Sep 17 00:00:00 2001
From: Julien Mathis <jmathis@merethis.com>
Date: Thu, 5 Jul 2007 13:35:54 +0000
Subject: [PATCH] git-svn-id: http://svn.centreon.com/Plugins/Dev@2573
 6bcd3966-0018-0410-8128-fd23d134de7e

---
 src/check_centreon_tcp | 114 -----------------------------------------
 1 file changed, 114 deletions(-)
 delete mode 100644 src/check_centreon_tcp

diff --git a/src/check_centreon_tcp b/src/check_centreon_tcp
deleted file mode 100644
index e21bd7ba0..000000000
--- a/src/check_centreon_tcp
+++ /dev/null
@@ -1,114 +0,0 @@
-#! /usr/bin/perl -w
-# $Id: check_graph_tcp.pl,v 1.3 2005/08/01 17:50:50 gollum123 Exp $
-#
-# Oreon's plugins are developped with GPL Licence :
-# http://www.fsf.org/licenses/gpl.txt
-# Developped by : Julien Mathis - Romain Le Merlus
-#
-# Modified for Oreon Project by : Mathieu Chateau - Christophe Coraboeuf
-# Modified By Julien Mathis - Sugumaran Mathavarajan For Merethis Company
-#
-# The Software is provided to you AS IS and WITH ALL FAULTS.
-# OREON makes no representation and gives no warranty whatsoever,
-# whether express or implied, and without limitation, with regard to the quality,
-# safety, contents, performance, merchantability, non-infringement or suitability for
-# any particular or intended purpose of the Software found on the OREON web site.
-# In no event will OREON be liable for any direct, indirect, punitive, special,
-# incidental or consequential damages however they may arise and even if OREON has
-# been previously advised of the possibility of such damages.
-
-use strict;
-use FindBin;
-use lib "$FindBin::Bin";
-use lib "@NAGIOS_PLUGINS@";
-use utils qw($TIMEOUT %ERRORS &print_revision &support);
-
-if (eval "require oreon" ) {
-	use oreon qw(get_parameters);
-	use vars qw($VERSION %oreon);
-	%oreon=get_parameters();
-} else {
-	print "Unable to load oreon perl module\n";
-    exit $ERRORS{'UNKNOWN'};
-}
-
-use Getopt::Long;
-use vars qw($opt_V $opt_h $opt_p $opt_c $opt_w $opt_H);
-use vars qw($PROGNAME);
-
-my $pathtolibexectcp = $oreon{GLOBAL}{NAGIOS_LIBEXEC}."check_tcp";
-
-sub print_help ();
-sub print_usage ();
-$PROGNAME = "$0";
-
-#
-# get options
-#
-
-Getopt::Long::Configure('bundling');
-GetOptions
-    ("h|help"   		=> \$opt_h,
-     "V|version"   		=> \$opt_V,
-     "H|hostname=s" 	=> \$opt_H,
-     "p|port=s" 		=> \$opt_p,
-     "w|warning=s" 		=> \$opt_w,
-     "c|critical=s" 	=> \$opt_c);
-
-if (defined($opt_h)) {
-	print_help();
-    exit $ERRORS{'OK'};
-}
-
-$opt_H = shift unless ($opt_H);
-(print_usage() && exit $ERRORS{'OK'}) unless ($opt_H);
-
-$opt_p = shift unless ($opt_p);
-(print_usage() && exit $ERRORS{'OK'}) unless ($opt_p);
-
-
-##################################################
-#### Create Command line 
-#
-
-my $args_check_tcp = "-H $opt_H -p $opt_p";
-$args_check_tcp .= " -w $opt_w -c $opt_c" if ($opt_w && $opt_c);
-
-my $start=time;
-
-
-my $result = `$pathtolibexectcp $args_check_tcp`;
-my $return_code = $? / 256;
-$_ = $result;
-m/(\d*\.\d*) second/;
-my $time = $1;
-
-print "$result";
-exit $return_code;
-
-sub print_usage () {
-    print "\nUsage:\n";
-    print $0."\n";
-    print "\t-H (--hostname)\t\tHostname to query (required)\n";
-    print "\t-p, --port\t\tPort number (required)\n";
-    print "\t-w, --warning\t\tResponse time to result in warning status (seconds) - optional\n";
-    print "\t-c, --critical\t\tResponse time to result in critical status (seconds) - optional\n";
-    print "\t-V (--version)\t\tVieuw plugin version\n";
-    print "\t-h (--help)\t\tusage help\n";
-
-}
-
-sub print_help () {
-    print "################################################\n";
-    print "#    Bugs to http://bugs.oreon-project.org/    #\n";
-    print "################################################\n";
-    print "\n";
-    print_usage();
-    print "\n";
-}
-
-
-
-
-
-