+ New centreon plugin system

.project

@@ -1,11 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<projectDescription>
-	<name>Plugins</name>
-	<comment></comment>
-	<projects>
-	</projects>
-	<buildSpec>
-	</buildSpec>
-	<natures>
-	</natures>
-</projectDescription>

CHANGELOG

@@ -1,22 +0,0 @@
-##########################
-# Centreon Plugins Change Log
-##########################
-
-1.2.3 - 02/11/2005
-----------------
-* Enhanced Oreon Perl Package oreon.pm (wistof)
-* Integration of some Manubulon plugins (wistof)
-* New install script for plugins (wistof)
-* Minor bug fixes
-
-1.2.2 - xx/08/2005
-----------------
-* Add Oreon Perl Package oreon.pm (gollum123)
-* Globalization of paths in oreon.conf (gollum123)
-* Management of RRDTOOL errors (wistof)
-* Use Net::SNMP instead of snmpwalk and snmpget (wistof)
-* Disable regex for '-H' option (wistof)
-* Minor bug fixes
-
-
-

INSTALL

@@ -1,8 +0,0 @@
-#################################
-# Centreon Plugins Installation #
-#################################
-
-- just run install.sh in src/ directory
-- don't directly copy plugins in Nagios plugins directory
-
-

REQUIREMENT

@@ -1,13 +0,0 @@
-################################
-# Centreon Plugins Requirement #
-################################
-
-- Perl in /usr/bin/perl - or just run 'perl script'
-- Net::SNMP
-- Getopt::Long;
-- FindBin::Bin;
-- Config::IniFiles
-- centreon perl module (centreon.pm)
-- Centreon configuration file for Centreon perl module (Centreon.conf)
-- file 'utils.pm' in plugins diretory (/usr/local/nagios/libexec)
-- sed program for installation script

centreon/plugins/dbi.pm

@@ -0,0 +1,266 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package centreon::plugins::dbi;
+
+use strict;
+use warnings;
+use DBI;
+use Digest::MD5 qw(md5_hex);
+
+sub new {
+    my ($class, %options) = @_;
+    my $self  = {};
+    bless $self, $class;
+    # $options{options} = options object
+    # $options{output} = output object
+    # $options{exit_value} = integer
+    # $options{noptions} = integer
+
+    if (!defined($options{output})) {
+        print "Class DBI: Need to specify 'output' argument.\n";
+        exit 3;
+    }
+    if (!defined($options{options})) {
+        $options{output}->add_option_msg(short_msg => "Class DBI: Need to specify 'options' argument.");
+        $options{output}->option_exit();
+    }
+    
+    if (!defined($options{noptions})) {
+        $options{options}->add_options(arguments => 
+                    { "datasource:s@"      => { name => 'data_source' },
+                      "username:s@"        => { name => 'username' },
+                      "password:s@"        => { name => 'password' },
+                      "sql-errors-exit:s"  => { name => 'sql_errors_exit', default => 'unknown' },
+        });
+    }
+    $options{options}->add_help(package => __PACKAGE__, sections => 'DBI OPTIONS', once => 1);
+
+    $self->{output} = $options{output};
+    $self->{mode} = $options{mode};
+    $self->{instance} = undef;
+    $self->{statement_handle} = undef;
+    $self->{version} = undef;
+    
+    $self->{data_source} = undef;
+    $self->{username} = undef;
+    $self->{password} = undef;
+    
+    return $self;
+}
+
+# Method to manage multiples
+sub set_options {
+    my ($self, %options) = @_;
+    # options{options_result}
+
+    $self->{option_results} = $options{option_results};
+}
+
+# Method to manage multiples
+sub set_defaults {
+    my ($self, %options) = @_;
+    # options{default}
+    
+    # Manage default value
+    foreach (keys %{$options{default}}) {
+        if ($_ eq $self->{mode}) {
+            for (my $i = 0; $i < scalar(@{$options{default}->{$_}}); $i++) {
+                foreach my $opt (keys %{$options{default}->{$_}[$i]}) {
+                    if (!defined($self->{option_results}->{$opt}[$i])) {
+                        $self->{option_results}->{$opt}[$i] = $options{default}->{$_}[$i]->{$opt};
+                    }
+                }
+            }
+        }
+    }
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    # return 1 = ok still data_source
+    # return 0 = no data_source left
+    
+    $self->{data_source} = (defined($self->{option_results}->{data_source})) ? shift(@{$self->{option_results}->{data_source}}) : undef;
+    $self->{username} = (defined($self->{option_results}->{username})) ? shift(@{$self->{option_results}->{username}}) : undef;
+    $self->{password} = (defined($self->{option_results}->{password})) ? shift(@{$self->{option_results}->{password}}) : undef;
+    $self->{sql_errors_exit} = $self->{option_results}->{sql_errors_exit};
+    
+    if (!defined($self->{data_source}) || $self->{data_source} eq '') {
+        $self->{output}->add_option_msg(short_msg => "Need to specify database arguments.");
+        $self->{output}->option_exit(exit_litteral => $self->{sql_errors_exit});
+    }
+    
+    if (scalar(@{$self->{option_results}->{data_source}}) == 0) {
+        return 0;
+    }
+    return 1;
+}
+
+sub quote {
+    my $self = shift;
+
+    if (defined($self->{instance})) {
+        return $self->{instance}->quote($_[0]);
+    }
+    return undef;
+}
+
+sub is_version_minimum {
+    my ($self, %options) = @_;
+    # $options{version} = string version to check
+    
+    my @version_src = split /\./, $self->{version};
+    my @versions = split /\./, $options{version};
+    for (my $i = 0; $i < scalar(@versions); $i++) {
+        return 1 if ($versions[$i] eq 'x');
+        return 1 if (!defined($version_src[$i]));
+        $version_src[$i] =~ /^([0-9]*)/;
+        next if ($versions[$i] == int($1));
+        return 0 if ($versions[$i] > int($1));
+        return 1 if ($versions[$i] < int($1));
+    }
+    
+    return 1;
+}
+    
+sub connect {
+    my ($self, %options) = @_;
+    my $dontquit = (defined($options{dontquit}) && $options{dontquit} == 1) ? 1 : 0;
+
+    $self->{instance} = DBI->connect(
+        "DBI:". $self->{data_source},
+        $self->{username},
+        $self->{password},
+        { "RaiseError" => 0, "PrintError" => 0, "AutoCommit" => 1 }
+    );
+
+    if (!defined($self->{instance})) {
+        if ($dontquit == 0) {
+            $self->{output}->add_option_msg(short_msg => "Cannot connect: " . $DBI::errstr);
+            $self->{output}->option_exit(exit_litteral => $self->{sql_errors_exit});
+        }
+        return (-1, "Cannot connect: " . $DBI::errstr);
+    }
+    
+    $self->{version} = $self->{instance}->get_info(18); # SQL_DBMS_VER
+    return 0;
+}
+
+sub get_id {
+    my ($self, %options) = @_;
+    
+    return $self->{data_source};
+}
+
+sub get_unique_id4save {
+    my ($self, %options) = @_;
+
+    return md5_hex($self->{data_source});
+}
+
+sub fetchall_arrayref {
+    my ($self, %options) = @_;
+    
+    return $self->{statement_handle}->fetchall_arrayref();
+}
+
+sub fetchrow_array {
+    my ($self, %options) = @_;
+    
+    return $self->{statement_handle}->fetchrow_array();
+}
+
+sub fetchrow_hashref {
+    my ($self, %options) = @_;
+    
+    return $self->{statement_handle}->fetchrow_hashref();
+}
+
+sub query {
+    my ($self, %options) = @_;
+    
+    $self->{statement_handle} = $self->{instance}->prepare($options{query});
+    if (!defined($self->{statement_handle})) {
+        $self->{output}->add_option_msg(short_msg => "Cannot execute query: " . $self->{instance}->errstr);
+        $self->{output}->option_exit(exit_litteral => $self->{sql_errors_exit});
+    }
+
+    my $rv = $self->{statement_handle}->execute;
+    if (!$rv) {
+        $self->{output}->add_option_msg(short_msg => "Cannot execute query: " . $self->{statement_handle}->errstr);
+        $self->{output}->option_exit(exit_litteral => $self->{sql_errors_exit});
+    }    
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+DBI global
+
+=head1 SYNOPSIS
+
+dbi class
+
+=head1 DBI OPTIONS
+
+=over 8
+
+=item B<--datasource>
+
+Hostname to query (required).
+
+=item B<--username>
+
+Database username.
+
+=item B<--password>
+
+Database password.
+
+=item B<--sql-errors-exit>
+
+Exit code for DB Errors (default: unknown)
+
+=back
+
+=head1 DESCRIPTION
+
+B<snmp>.
+
+=cut

centreon/plugins/misc.pm

@@ -0,0 +1,143 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package centreon::plugins::misc;
+
+use strict;
+use warnings;
+
+sub mymodule_load {
+    my (%options) = @_;
+    my $file;
+    ($file = $options{module} . ".pm") =~ s{::}{/}g;
+     
+    eval {
+        local $SIG{__DIE__} = 'IGNORE';
+        require $file;
+    };
+    if ($@) {
+        $options{output}->add_option_msg(long_msg => $@);
+        $options{output}->add_option_msg(short_msg => $options{error_msg});
+        $options{output}->option_exit();
+    }
+}
+
+sub backtick {
+    my %arg = (
+        command => undef,
+        arguments => [],
+        timeout => 30,
+        wait_exit => 0,
+        redirect_stderr => 0,
+        @_,
+    );
+    my @output;
+    my $pid;
+    my $return_code;
+    
+    my $sig_do;
+    if ($arg{wait_exit} == 0) {
+        $sig_do = 'IGNORE';
+        $return_code = undef;
+    } else {
+        $sig_do = 'DEFAULT';
+    }
+    local $SIG{CHLD} = $sig_do;
+
+    if (!defined($pid = open( KID, "-|" ))) {
+        return (-1001, "Cant fork: $!", -1);
+    }
+
+    if ($pid) {
+        
+        eval {
+           local $SIG{ALRM} = sub { die "Timeout by signal ALARM\n"; };
+           alarm( $arg{timeout} );
+           while (<KID>) {
+               chomp;
+               push @output, $_;
+           }
+
+           alarm(0);
+        };
+
+        if ($@) {
+            if ($pid != -1) {
+                kill -9, $pid;
+            }
+
+            alarm(0);
+            return (-1000, "Command too long to execute (timeout)...", -1);
+        } else {
+            if ($arg{wait_exit} == 1) {
+                # We're waiting the exit code                
+                waitpid($pid, 0);
+                $return_code = ($? >> 8);
+            }
+            close KID;
+        }
+    } else {
+        # child
+        # set the child process to be a group leader, so that
+        # kill -9 will kill it and all its descendents
+        setpgrp( 0, 0 );
+
+        if ($arg{redirect_stderr} == 1) {
+            open STDERR, ">&STDOUT";
+        }
+        open STDERR, ">&STDOUT";
+        if (scalar(@{$arg{arguments}}) <= 0) {
+            exec($arg{command});
+        } else {
+            exec($arg{command}, @{$arg{arguments}});
+        }
+        exit(0);
+    }
+
+    return (0, join("\n", @output), $return_code);
+}
+
+sub trim {
+    # Sometimes there is a null character
+    $_[0] =~ s/\x00$//;
+    $_[0] =~ s/^[ \t]+//;
+    $_[0] =~ s/[ \t]+$//;
+    return $_[0];
+}
+
+1;
+
+__END__
+

centreon/plugins/mode.pm

@@ -0,0 +1,93 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package centreon::plugins::mode;
+
+use strict;
+use warnings;
+use centreon::plugins::perfdata;
+
+sub new {
+    my ($class, %options) = @_;
+    my $self  = {};
+    bless $self, $class;
+
+    $self->{perfdata} = centreon::plugins::perfdata->new(output => $options{output});
+    %{$self->{option_results}} = ();
+    $self->{output} = $options{output};
+    $self->{mode} = $options{mode};
+    $self->{version} = undef;
+
+    return $self;
+}
+
+sub init {
+    my ($self, %options) = @_;
+    # options{default} = [ {option_name => '', option_value => '' }, ]
+
+    %{$self->{option_results}} = %{$options{option_results}};
+    # Manage default value
+    return if (!defined($options{default}));
+    foreach (keys %{$options{default}}) {
+        if ($_ eq $self->{mode}) {
+            foreach my $value (keys %{$options{default}->{$_}}) {
+                if (!defined($self->{option_results}->{$value})) {
+                    $self->{option_results}->{$value} = $options{default}->{$_}->{$value};
+                }
+            }
+        }
+    }
+}
+
+sub version {
+    my ($self, %options) = @_;
+    
+    $self->{output}->add_option_msg(short_msg => "Mode Version: " . $self->{version});
+}
+
+sub disco_format {
+    my ($self, %options) = @_;
+
+}
+
+sub disco_show {
+    my ($self, %options) = @_;
+
+}
+
+1;
+
+__END__
+

centreon/plugins/options.pm

@@ -0,0 +1,143 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package centreon::plugins::options;
+use Pod::Usage;
+use Pod::Find qw(pod_where);
+use Getopt::Long;
+Getopt::Long::Configure("pass_through");
+Getopt::Long::Configure('bundling');
+
+sub new {
+    my $class = shift;
+    my $self  = {};
+    bless $self, $class;
+
+    $self->{options_stored} = {};
+    $self->{options} = {};
+    @{$self->{pod_package}} = ();
+    $self->{pod_packages_once} = {};
+    return $self;
+}
+
+sub set_output {
+    my ($self, %options) = @_;
+    
+    $self->{output} = $options{output};
+}
+
+sub display_help {
+    my ($self, %options) = @_;
+    
+    foreach (@{$self->{pod_package}}) {
+        my $stdout;
+       
+        {
+            local *STDOUT;
+            open STDOUT, '>', \$stdout;
+            pod2usage(-exitval => 'NOEXIT', -input => pod_where({-inc => 1}, $_->{package}),
+                      -verbose => 99, 
+                      -sections => $_->{sections});
+        }
+        
+        $self->{output}->add_option_msg(long_msg => $stdout) if (defined($stdout));
+    }
+}
+
+sub add_help {
+    my ($self, %options) = @_;
+    # $options{package} = string package
+    # $options{sections} = string sections
+    # $options{help_first} = put at the beginning
+    # $options{once} = put help only one time for a package
+    
+    if (defined($options{once}) && defined($self->{pod_packages_once}->{$options{package}})) {
+        return ;
+    }
+    
+    if (defined($options{help_first})) {
+        shift @{$self->{pod_package}}, {package => $options{package}, sections => $options{sections}};
+    } else {
+        push @{$self->{pod_package}}, {package => $options{package}, sections => $options{sections}};
+    }
+    
+    $self->{pod_packages_once}->{$options{package}} = 1;
+}
+
+sub add_options {
+    my ($self, %options) = @_;
+    # $options{arguments} = ref to hash table with string and name to store (example: { 'mode:s' => { name => 'mode', default => 'defaultvalue' )
+    
+    foreach (keys %{$options{arguments}}) {
+        if (defined($options{arguments}->{$_}->{default})) {
+            $self->{options_stored}->{$options{arguments}->{$_}->{name}} = $options{arguments}->{$_}->{default};
+        } else {
+            $self->{options_stored}->{$options{arguments}->{$_}->{name}} = undef;
+        }
+        $self->{options}->{$_} = \$self->{options_stored}->{$options{arguments}->{$_}->{name}};
+    }
+}
+
+sub parse_options {
+    my $self = shift;
+    #%{$self->{options_stored}} = ();
+
+    GetOptions(
+       %{$self->{options}}
+    );
+    %{$self->{options}} = ();
+}
+
+sub get_option {
+    my ($self, %options) = @_;
+
+    return $self->{options_stored}->{$options{argument}};
+}
+
+sub get_options {
+    my $self = shift;
+
+    return $self->{options_stored};
+}
+
+sub clean {
+    my $self = shift;
+    
+    $self->{options_stored} = {};
+}
+
+1;
+
+__END__

centreon/plugins/output.pm

@@ -0,0 +1,656 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package centreon::plugins::output;
+use Encode;
+use centreon::plugins::misc;
+
+sub new {
+    my ($class, %options) = @_;
+    my $self  = {};
+    bless $self, $class;
+    # $options->{options} = options object
+    if (!defined($options{options})) {
+        print "Class Output: Need to specify 'options' argument to load.\n";
+        exit 3;
+    }
+
+    $options{options}->add_options(arguments =>
+                                {
+                                  "ignore-perfdata"         => { name => 'ignore_perfdata' },
+                                  "verbose"                 => { name => 'verbose' },
+                                  "opt-exit:s"              => { name => 'opt_exit', default => 'unknown' },
+                                  "output-xml"              => { name => 'output_xml' },
+                                  "output-json"             => { name => 'output_json' },
+                                  "disco-format"            => { name => 'disco_format' },
+                                  "disco-show"              => { name => 'disco_show' },
+                                });
+    %{$self->{option_results}} = ();
+
+    $self->{option_msg} = [];
+    
+    $self->{is_output_xml} = 0;
+    $self->{is_output_json} = 0;
+    $self->{errors} = {OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3, PENDING => 4};
+    $self->{myerrors} = {0 => "OK", 1 => "WARNING", 3 => "CRITICAL", 7 => "UNKNOWN"};
+    $self->{myerrors_mask} = {CRITICAL => 3, WARNING => 1, UNKNOWN => 7, OK => 0};
+    $self->{global_short_concat_outputs} = {OK => undef, WARNING => undef, CRITICAL => undef, UNKNOWN => undef, UNQUALIFIED_YET => undef};
+    $self->{global_short_outputs} = {OK => [], WARNING => [], CRITICAL => [], UNKNOWN => [], UNQUALIFIED_YET => []};
+    $self->{global_long_output} = [];
+    $self->{perfdatas} = [];
+    $self->{global_status} = 0;
+
+    $self->{disco_elements} = [];
+    $self->{disco_entries} = [];
+
+    $self->{plugin} = '';
+    $self->{mode} = '';
+
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    # $options{option_results} = ref to options result
+
+    %{$self->{option_results}} = %{$options{option_results}};
+    $self->{option_results}->{opt_exit} = lc($self->{option_results}->{opt_exit});
+    if (!$self->is_litteral_status(status => $self->{option_results}->{opt_exit})) {
+        $self->add_option_msg(short_msg => "Unknown value '" . $self->{option_results}->{opt_exit}  . "' for --opt-exit.");
+        $self->option_exit(exit_litteral => 'unknown');
+    }
+    # Go in XML Mode
+    if ($self->is_disco_show() || $self->is_disco_format()) {
+        # By Default XML
+        if (!defined($self->{option_results}->{output_json})) {
+            $self->{option_results}->{output_xml} = 1;
+        }
+    }
+}
+
+sub add_option_msg {
+    my ($self, %options) = @_;
+    # $options{short_msg} = string msg
+    # $options{long_msg} = string msg
+    $options{severity} = 'UNQUALIFIED_YET';
+    
+    $self->output_add(%options);
+}
+
+sub set_status {
+    my ($self, %options) = @_;
+    # $options{exit_litteral} = string litteral exit
+
+    # Nothing to do for 'UNQUALIFIED_YET'
+    if (!$self->{myerrors_mask}->{uc($options{exit_litteral})}) {
+        return ;
+    }
+    $self->{global_status} |= $self->{myerrors_mask}->{uc($options{exit_litteral})};
+}
+
+sub output_add {
+    my ($self, %params) = @_;
+    my %args = (
+                severity => 'OK',
+                separator => ' - ',
+                short_msg => undef,
+                long_msg => undef
+                );
+    my $options = {%args, %params};
+    
+    if (defined($options->{short_msg})) {
+        chomp $options->{short_msg};
+        if (defined($self->{global_short_concat_outputs}->{uc($options->{severity})})) {
+            $self->{global_short_concat_outputs}->{uc($options->{severity})} .= $options->{separator} . $options->{short_msg};
+        } else {
+            $self->{global_short_concat_outputs}->{uc($options->{severity})} = $options->{short_msg};
+        }
+        
+        push @{$self->{global_short_outputs}->{uc($options->{severity})}}, $options->{short_msg};
+        $self->set_status(exit_litteral => $options->{severity});
+    }
+    if (defined($options->{long_msg})) {
+        chomp $options->{long_msg};
+        push @{$self->{global_long_output}}, $options->{long_msg};
+    }
+}
+
+sub perfdata_add {
+    my ($self, %options) = @_;
+    my $perfdata = {'label' => '', 'value' => '', unit => '', warning => '', critical => '', min => '', max => ''}; 
+    $perfdata = {%$perfdata, %options};
+    push @{$self->{perfdatas}}, $perfdata;
+}
+
+sub output_json {
+    my ($self, %options) = @_;
+    my $force_ignore_perfdata = defined($options{force_ignore_perfdata}) ? 1 : 0;
+    my $json_content = {plugin => {
+                                   name => $self->{plugin},
+                                   mode => $self->{mode},
+                                   exit => $options{exit_litteral},
+                                   outputs => [],
+                                   perfdatas => []
+                                  }
+                        };    
+
+    foreach my $code_litteral (keys %{$self->{global_short_outputs}}) {
+        foreach (@{$self->{global_short_outputs}->{$code_litteral}}) {
+            my ($child_output, $child_type, $child_msg, $child_exit);
+            my $lcode_litteral = ($code_litteral eq 'UNQUALIFIED_YET' ? uc($options{exit_litteral}) : $code_litteral);
+
+            push @{$json_content->{plugin}->{outputs}}, {
+                                                           type => 1,
+                                                           msg => ($options{nolabel} == 0 ? ($lcode_litteral . ': ') : '') . $_,
+                                                           exit => $lcode_litteral
+                                                        };
+        }
+    }
+
+    if (defined($self->{option_results}->{verbose}) || defined($options{force_long_output})) {
+        foreach (@{$self->{global_long_output}}) {
+            push @{$json_content->{plugin}->{outputs}}, {
+                                                           type => 2,
+                                                           msg => $_,
+                                                        };
+        }
+    }
+
+    if (!defined($self->{option_results}->{ignore_perfdata}) && $options{force_ignore_perfdata} == 1) {
+        foreach (@{$self->{perfdatas}}) {
+            my %values = ();
+            foreach my $key (keys %$_) {
+                $values{$key} = $_->{$key};
+            }
+            
+            push @{$json_content->{plugin}->{perfdatas}}, {
+                                                           %values
+                                                        };
+        }
+    }
+
+    print $self->{json_output}->encode($json_content);
+}
+
+sub output_xml {
+    my ($self, %options) = @_;
+    my $force_ignore_perfdata = defined($options{force_ignore_perfdata}) ? 1 : 0;
+    my ($child_plugin_name, $child_plugin_mode, $child_plugin_exit, $child_plugin_output, $child_plugin_perfdata); 
+
+    my $root = $self->{xml_output}->createElement('plugin');
+    $self->{xml_output}->setDocumentElement($root);
+
+    $child_plugin_name = $self->{xml_output}->createElement("name");
+    $child_plugin_name->appendText($self->{plugin});
+
+    $child_plugin_mode = $self->{xml_output}->createElement("mode");
+    $child_plugin_mode->appendText($self->{mode});
+
+    $child_plugin_exit = $self->{xml_output}->createElement("exit");
+    $child_plugin_exit->appendText($options{exit_litteral});
+
+    $child_plugin_output = $self->{xml_output}->createElement("outputs");
+    $child_plugin_perfdata = $self->{xml_output}->createElement("perfdatas");
+
+    $root->addChild($child_plugin_name);
+    $root->addChild($child_plugin_mode);
+    $root->addChild($child_plugin_exit);
+    $root->addChild($child_plugin_output);
+    $root->addChild($child_plugin_perfdata);
+
+    foreach my $code_litteral (keys %{$self->{global_short_outputs}}) {
+        foreach (@{$self->{global_short_outputs}->{$code_litteral}}) {
+            my ($child_output, $child_type, $child_msg, $child_exit);
+            my $lcode_litteral = ($code_litteral eq 'UNQUALIFIED_YET' ? uc($options{exit_litteral}) : $code_litteral);
+
+            $child_output = $self->{xml_output}->createElement("output");
+            $child_plugin_output->addChild($child_output);
+
+            $child_type = $self->{xml_output}->createElement("type");
+            $child_type->appendText(1); # short
+
+            $child_msg = $self->{xml_output}->createElement("msg");
+            $child_msg->appendText(($options{nolabel} == 0 ? ($lcode_litteral . ': ') : '') . $_);
+            $child_exit = $self->{xml_output}->createElement("exit");
+            $child_exit->appendText($lcode_litteral);
+
+            $child_output->addChild($child_type);
+            $child_output->addChild($child_exit);
+            $child_output->addChild($child_msg);
+        }
+    }
+
+    if (defined($self->{option_results}->{verbose}) || defined($options{force_long_output})) {
+        foreach (@{$self->{global_long_output}}) {
+            my ($child_output, $child_type, $child_msg);
+        
+            $child_output = $self->{xml_output}->createElement("output");
+            $child_plugin_output->addChild($child_output);
+
+            $child_type = $self->{xml_output}->createElement("type");
+            $child_type->appendText(2); # long
+
+            $child_msg = $self->{xml_output}->createElement("msg");
+            $child_msg->appendText($_);
+
+            $child_output->addChild($child_type);
+            $child_output->addChild($child_msg);
+        }
+    }
+
+    if (!defined($self->{option_results}->{ignore_perfdata}) && $options{force_ignore_perfdata} == 1) {
+        foreach (@{$self->{perfdatas}}) {
+            my ($child_perfdata);
+            $child_perfdata = $self->{xml_output}->createElement("perfdata");
+            $child_plugin_perfdata->addChild($child_perfdata);
+            foreach my $key (keys %$_) {
+                my $child = $self->{xml_output}->createElement($key);
+                $child->appendText($_->{$key});
+                $child_perfdata->addChild($child);
+            }
+        }
+    }
+
+    print $self->{xml_output}->toString(1);
+}
+
+sub output_txt {
+    my ($self, %options) = @_;
+    my $force_ignore_perfdata = defined($options{force_ignore_perfdata}) ? 1 : 0;
+
+    if (defined($self->{global_short_concat_outputs}->{UNQUALIFIED_YET})) {
+        $self->output_add(severity => uc($options{exit_litteral}), short_msg => $self->{global_short_concat_outputs}->{UNQUALIFIED_YET});
+    }
+
+    if (defined($self->{global_short_concat_outputs}->{CRITICAL})) {
+        print (($options{nolabel} == 0 ? 'CRITICAL: ' : '') . $self->{global_short_concat_outputs}->{CRITICAL} . " ");
+    }
+    if (defined($self->{global_short_concat_outputs}->{WARNING})) {
+        print (($options{nolabel} == 0 ? 'WARNING: ' : '') . $self->{global_short_concat_outputs}->{WARNING} . " ");
+    }
+    if (defined($self->{global_short_concat_outputs}->{UNKNOWN})) {
+        print (($options{nolabel} == 0 ? 'UNKNOWN: ' : '') . $self->{global_short_concat_outputs}->{UNKNOWN} . " ");
+    }
+    if (uc($options{exit_litteral}) eq 'OK') {
+        print (($options{nolabel} == 0 ? 'OK: ' : '') . $self->{global_short_concat_outputs}->{OK});
+    }
+
+    if ($force_ignore_perfdata == 1 || defined($self->{option_results}->{ignore_perfdata})) {
+        print "\n";
+    } else {
+        print "|";
+        foreach (@{$self->{perfdatas}}) {
+            print " '" . $_->{label} . "'=" . $_->{value} . $_->{unit} . ";" . $_->{warning} . ";" . $_->{critical} . ";" . $_->{min} . ";" . $_->{max} . ";";
+        }
+        print "\n";
+    }
+    
+    if (defined($self->{option_results}->{verbose}) || defined($options{force_long_output})) {
+        if (scalar(@{$self->{global_long_output}})) {
+            print join("\n", @{$self->{global_long_output}});
+            print "\n";
+        }
+    }
+}
+
+sub display {
+    my ($self, %options) = @_;
+    my $nolabel = defined($options{nolabel}) ? 1 : 0;
+    my $force_ignore_perfdata = defined($options{force_ignore_perfdata}) ? 1 : 0;
+
+    if (defined($self->{option_results}->{output_xml})) {
+        $self->create_xml_document();
+        if ($self->{is_output_xml}) {
+            $self->output_xml(exit_litteral => $self->get_litteral_status(), 
+                              nolabel => $nolabel, force_ignore_perfdata => $force_ignore_perfdata);
+            return ;
+        }
+    } elsif (defined($self->{option_results}->{output_json})) {
+        $self->create_json_document();
+        if ($self->{is_output_json}) {
+            $self->output_json(exit_litteral => $self->get_litteral_status(), 
+                               nolabel => $nolabel, force_ignore_perfdata => $force_ignore_perfdata);
+            return ;
+        }
+    } 
+    
+    $self->output_txt(exit_litteral => $self->get_litteral_status(), 
+                      nolabel => $nolabel, force_ignore_perfdata => $force_ignore_perfdata);
+}
+
+sub die_exit {
+    my ($self, %options) = @_;
+    # $options{exit_litteral} = string litteral exit
+    # $options{nolabel} = interger label display
+    my $exit_litteral = defined($options{exit_litteral}) ? $options{exit_litteral} : $self->{option_results}->{opt_exit};
+    my $nolabel = defined($options{nolabel}) ? 1 : 0;
+    # ignore long output in the following case
+    $self->{option_results}->{verbose} = undef;
+
+    if (defined($self->{option_results}->{output_xml})) {
+        $self->create_xml_document();
+        if ($self->{is_output_xml}) {
+            $self->output_xml(exit_litteral => $exit_litteral, nolabel => $nolabel, force_ignore_perfdata => 1);
+            $self->exit(exit_litteral => $exit_litteral);
+        }
+    } elsif (defined($self->{option_results}->{output_json})) {
+        $self->create_json_document();
+        if ($self->{is_output_json}) {
+            $self->output_json(exit_litteral => $exit_litteral, nolabel => $nolabel, force_ignore_perfdata => 1);
+            $self->exit(exit_litteral => $exit_litteral);
+        }
+    } 
+
+    $self->output_txt(exit_litteral => $exit_litteral, nolabel => $nolabel, force_ignore_perfdata => 1);
+    $self->exit(exit_litteral => $exit_litteral);
+}
+
+sub option_exit {
+    my ($self, %options) = @_;
+    # $options{exit_litteral} = string litteral exit
+    # $options{nolabel} = interger label display
+    my $exit_litteral = defined($options{exit_litteral}) ? $options{exit_litteral} : $self->{option_results}->{opt_exit};
+    my $nolabel = defined($options{nolabel}) ? 1 : 0;
+
+    if (defined($self->{option_results}->{output_xml})) {
+        $self->create_xml_document();
+        if ($self->{is_output_xml}) {
+            $self->output_xml(exit_litteral => $exit_litteral, nolabel => $nolabel, force_ignore_perfdata => 1, force_long_output => 1);
+            $self->exit(exit_litteral => $exit_litteral);
+        }
+    } elsif (defined($self->{option_results}->{output_json})) {
+        $self->create_json_document();
+        if ($self->{is_output_json}) {
+            $self->output_json(exit_litteral => $exit_litteral, nolabel => $nolabel, force_ignore_perfdata => 1, force_long_output => 1);
+            $self->exit(exit_litteral => $exit_litteral);
+        }
+    } 
+
+    $self->output_txt(exit_litteral => $exit_litteral, nolabel => $nolabel, force_ignore_perfdata => 1, force_long_output => 1);
+    $self->exit(exit_litteral => $exit_litteral);
+}
+
+sub exit {
+    my ($self, %options) = @_;
+    # $options{exit_litteral} = exit
+    
+    if (defined($options{exit_litteral})) {
+        exit $self->{errors}->{uc($options{exit_litteral})};
+    }
+    exit $self->{errors}->{$self->{myerrors}->{$self->{global_status}}};
+}
+
+sub get_most_critical {
+    my ($self, %options) = @_;
+    my $current_status = 0; # For 'OK'
+
+    foreach (@{$options{status}}) {
+        if ($self->{myerrors_mask}->{uc($_)} > $current_status) {
+            $current_status = $self->{myerrors_mask}->{uc($_)};
+        }
+    }
+    return $self->{myerrors}->{$current_status};
+}
+
+sub get_litteral_status {
+    my ($self, %options) = @_;
+    
+    if (defined($options{status})) {
+        if (defined($self->{myerrors}->{$options{status}})) {
+            return $self->{myerrors}->{$options{status}};
+        }
+        return $options{status};
+    } else {
+        return $self->{myerrors}->{$self->{global_status}};
+    }
+}
+
+sub is_status {
+    my ($self, %options) = @_;
+    # $options{value} = string status 
+    # $options{litteral} = value is litteral
+    # $options{compare} = string status 
+
+    if (defined($options{litteral})) {
+        my $value = defined($options{value}) ? $options{value} : $self->get_litteral_status();
+    
+        if (uc($value) eq uc($options{compare})) {
+            return 1;
+        }
+        return 0;
+    }
+
+    my $value = defined($options{value}) ? $options{value} : $self->{global_status};
+    my $dec_val = $self->{myerrors_mask}->{$value};
+    my $lresult = $value & $dec_val;
+    # Need to manage 0
+    if ($lresult > 0 || ($dec_val == 0 && $value == 0)) {
+        return 1;
+    }
+    return 0;
+}
+
+sub is_litteral_status {
+    my ($self, %options) = @_;
+    # $options{status} = string status
+
+    if (defined($self->{errors}->{uc($options{status})})) {
+        return 1;
+    }
+
+    return 0;
+}
+
+sub create_json_document {
+    my ($self) = @_;
+
+    require JSON;
+    $self->{is_output_json} = 1;
+    $self->{json_output} = JSON->new->utf8();
+}
+
+sub create_xml_document {
+    my ($self) = @_;
+
+    require XML::LibXML;
+    $self->{is_output_xml} = 1;
+    $self->{xml_output} = XML::LibXML::Document->new('1.0', 'utf-8');
+}
+
+sub plugin {
+    my ($self, %options) = @_;
+    # $options{name} = string name
+    
+    if (defined($options{name})) {
+        $self->{plugin} = $options{name};
+    }
+    return $self->{plugin};
+}
+
+sub mode {
+    my ($self, %options) = @_;
+    # $options{name} = string name
+
+    if (defined($options{name})) {
+        $self->{mode} = $options{name};
+    }
+    return $self->{mode};
+}
+
+sub add_disco_format {
+    my ($self, %options) = @_;
+
+    push @{$self->{disco_elements}}, @{$options{elements}};
+}
+
+sub display_disco_format {
+    my ($self, %options) = @_;
+    
+    if (defined($self->{option_results}->{output_xml})) {
+        $self->create_xml_document();
+    
+        my $root = $self->{xml_output}->createElement('data');
+        $self->{xml_output}->setDocumentElement($root);
+
+        foreach (@{$self->{disco_elements}}) {
+            my $child = $self->{xml_output}->createElement("element");
+            $child->appendText($_);
+            $root->addChild($child);
+        }
+
+        print $self->{xml_output}->toString(1);
+    } elsif (defined($self->{option_results}->{output_json})) {
+        $self->create_json_document();
+        my $json_content = {data => [] };
+        foreach (@{$self->{disco_elements}}) {
+            push @{$json_content->{data}}, $_;
+        }
+        
+        print $self->{json_output}->encode($json_content);
+    }
+}
+
+sub display_disco_show {
+    my ($self, %options) = @_;
+    
+     if (defined($self->{option_results}->{output_xml})) {
+        $self->create_xml_document();
+        
+        my $root = $self->{xml_output}->createElement('data');
+        $self->{xml_output}->setDocumentElement($root);
+
+        foreach (@{$self->{disco_entries}}) {
+            my $child = $self->{xml_output}->createElement("label");
+            foreach my $key (keys %$_) {
+                $child->setAttribute($key, $_->{$key});
+            }
+            $root->addChild($child);
+        }
+
+        print $self->{xml_output}->toString(1);
+    } elsif (defined($self->{option_results}->{output_json})) {
+        $self->create_json_document();
+        my $json_content = {data => [] };
+        foreach (@{$self->{disco_entries}}) {
+            my %values = ();
+            foreach my $key (keys %$_) {
+                $values{$key} = $_->{$key};
+            }
+            push @{$json_content->{data}}, {%values};
+        }
+        
+        print $self->{json_output}->encode($json_content);
+    }
+}
+
+sub to_utf8 {
+    my ($self, $value) = @_;
+    
+    return centreon::plugins::misc::trim(Encode::decode('UTF-8', $value, Encode::PERLQQ));
+}
+
+sub add_disco_entry {
+    my ($self, %options) = @_;
+    
+    push @{$self->{disco_entries}}, {%options};
+}
+
+sub is_disco_format {
+    my ($self) = @_;
+
+    if (defined($self->{option_results}->{disco_format}) ) {
+        return 1;
+    }
+    return 0;
+}
+
+sub is_disco_show {
+    my ($self) = @_;
+
+    if ( defined($self->{option_results}->{disco_show}) ) {
+        return 1;
+    }
+    return 0;
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+Output class
+
+=head1 SYNOPSIS
+
+-
+
+=head1 OUTPUT OPTIONS
+
+=over 8
+
+=item B<--verbose>
+
+Display long output.
+
+=item B<--ignore-perfdata>
+
+Don't display perfdata.
+
+=item B<--opt-exit>
+
+Exit code for an option error, usage (default: unknown).
+
+=item B<--output-xml>
+
+Display output in XML Format.
+
+=item B<--output-json>
+
+Display output in JSON Format.
+
+=item B<--disco-format>
+
+Display discovery arguments (if the mode manages it).
+
+=item B<--disco-show>
+
+Display discovery values (if the mode manages it).
+
+=head1 DESCRIPTION
+
+B<output>.
+
+=cut

centreon/plugins/perfdata.pm

@@ -0,0 +1,253 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package centreon::plugins::perfdata;
+
+sub new {
+    my ($class, %options) = @_;
+    my $self  = {};
+    bless $self, $class;
+
+    $self->{output} = $options{output};
+    # Typical Nagios Perfdata 'with ~ @ ..'
+    $self->{threshold_label} = {};
+
+    return $self;
+}
+
+sub get_perfdata_for_output {
+    my ($self, %options) = @_;
+    # $options{label} : threshold label
+    # $options{total} : percent threshold to transform in global
+    # $options{cast_int} : cast absolute to int
+    
+    my $perf_output = $self->{threshold_label}->{$options{label}}->{value};
+    if (defined($perf_output) && $perf_output ne '' && defined($options{total})) {
+            $perf_output = ($self->{threshold_label}->{$options{label}}->{arobase} == 1 ? "@" : "") . 
+                            (($self->{threshold_label}->{$options{label}}->{infinite_neg} == 0) ? (defined($options{cast_int}) ? sprintf("%d", ($self->{threshold_label}->{$options{label}}->{start} * $options{total} / 100)) : sprintf("%.2f", ($self->{threshold_label}->{$options{label}}->{start} * $options{total} / 100))) : "") . 
+                             ":" . 
+                             (($self->{threshold_label}->{$options{label}}->{infinite_pos} == 0) ? (defined($options{cast_int}) ? sprintf("%d", ($self->{threshold_label}->{$options{label}}->{end} * $options{total} / 100)) : sprintf("%.2f", ($self->{threshold_label}->{$options{label}}->{end} * $options{total} / 100))) : "");
+    }
+
+    if (!defined($perf_output)) {
+        $perf_output = '';
+    }
+    return $perf_output;
+}
+
+sub threshold_validate {
+    my ($self, %options) = @_;
+    # $options{label} : threshold label
+    # $options{value} : threshold value
+
+    my $status = 1;
+    $self->{threshold_label}->{$options{label}} = {'value' => $options{value}, 'start' => undef, 'end' => undef, 'arobase' => undef, infinite_neg => undef, intinite_pos => undef};
+    if (!defined($options{value}) || $options{value} eq '') {
+        return $status;
+    }
+
+    ($status, $self->{threshold_label}->{$options{label}}->{start}, $self->{threshold_label}->{$options{label}}->{end}, $self->{threshold_label}->{$options{label}}->{arobase}, $self->{threshold_label}->{$options{label}}->{infinite_neg}, $self->{threshold_label}->{$options{label}}->{infinite_pos}) = $self->parse_threshold($options{value});
+
+    return $status;
+}
+
+sub threshold_check {
+    my ($self, %options) = @_;
+    # Can check multiple threshold. First match: out. Order is important
+    # options{value}: value to compare
+    # options{threshold}: ref to an array (example: [ {label => 'warning', exit_litteral => 'warning' }, {label => 'critical', exit_litteral => 'critical'} ]
+    foreach (@{$options{threshold}}) {
+        next if (!defined($self->{threshold_label}->{$_->{label}}));
+        next if (!defined($self->{threshold_label}->{$_->{label}}->{value}) || $self->{threshold_label}->{$_->{label}}->{value} eq '');
+        if ($self->{threshold_label}->{$_->{label}}->{arobase} == 0 && ($options{value} < $self->{threshold_label}->{$_->{label}}->{start} || $options{value} > $self->{threshold_label}->{$_->{label}}->{end})) {
+            return $_->{exit_litteral};
+        } elsif ($self->{threshold_label}->{$_->{label}}->{arobase}  == 1 && ($options{value} >= $self->{threshold_label}->{$_->{label}}->{end} && $options{value} <= $self->{threshold_label}->{$_->{label}}->{end})) {
+            return $_->{exit_litteral};
+        }
+    }
+
+    return 'ok';
+}
+
+sub trim {
+    my ($self, $value) = @_;
+    
+    $value =~ s/^[ \t]+//;
+    $value =~ s/[ \t]+$//;
+    return $value;
+}
+
+sub continue_to {
+    my $self = shift;
+    my ($forbidden, $stop1, $not_stop_after) = @_;
+    my $value = "";
+
+    while ($self->{perfdata_pos} < $self->{perfdata_size}) {
+        if (defined($forbidden) && ${$self->{perfdata_chars}}[$self->{perfdata_pos}] =~ /$forbidden/) {
+            return undef;
+        }
+        if (${$self->{perfdata_chars}}[$self->{perfdata_pos}] =~ /$stop1/) {
+            if (!defined($not_stop_after)) {
+                return $value;
+            }
+            if (!($self->{perfdata_pos} + 1 < $self->{perfdata_size} && ${$self->{perfdata_chars}}[$self->{perfdata_pos} + 1] =~ /$not_stop_after/)) {
+                $self->{perfdata_pos}++;
+                return $value;
+            }
+            $self->{perfdata_pos}++;
+        }
+
+        $value .= ${$self->{perfdata_chars}}[$self->{perfdata_pos}];
+        $self->{perfdata_pos}++;
+    }
+
+    return $value;
+}
+
+sub parse_threshold {
+    my $self = shift;
+
+    @{$self->{perfdata_chars}} = split //, $self->trim($_[0]);
+    $self->{perfdata_pos} = 0;
+    $self->{perfdata_size} = scalar(@{$self->{perfdata_chars}});
+
+    my $neg = 1;
+    my $value_tmp = "";
+
+    my $arobase = 0;
+    my $infinite_neg = 0;
+    my $infinite_pos = 0;
+    my $value_start = "";
+    my $value_end = "";
+    my $global_status = 1;
+    
+    if (defined(${$self->{perfdata_chars}}[$self->{perfdata_pos}]) && ${$self->{perfdata_chars}}[$self->{perfdata_pos}] eq "@") {
+        $arobase = 1;
+        $self->{perfdata_pos}++;
+    }
+
+    if (defined(${$self->{perfdata_chars}}[$self->{perfdata_pos}]) && ${$self->{perfdata_chars}}[$self->{perfdata_pos}] eq "~") {
+        $infinite_neg = 1;
+        $self->{perfdata_pos}++;
+    } else {
+        if (defined(${$self->{perfdata_chars}}[$self->{perfdata_pos}]) && ${$self->{perfdata_chars}}[$self->{perfdata_pos}] eq "-") {
+            $neg = -1;
+            $self->{perfdata_pos}++;
+        }
+        $value_tmp = $self->continue_to(undef, "[^0-9\.,]");
+        if (defined($value_tmp) && $value_tmp ne "") {
+            $value_tmp =~ s/,/./g;
+            $value_tmp = $value_tmp * $neg;
+        }
+        $neg = 1;
+    }
+
+    if (defined(${$self->{perfdata_chars}}[$self->{perfdata_pos}]) && ${$self->{perfdata_chars}}[$self->{perfdata_pos}] eq ":") {
+        if ($value_tmp ne "") {
+            $value_start = $value_tmp;
+        } else {
+            $value_start = 0;
+        }
+        $self->{perfdata_pos}++;
+
+        if (defined(${$self->{perfdata_chars}}[$self->{perfdata_pos}]) && ${$self->{perfdata_chars}}[$self->{perfdata_pos}] eq "-") {
+            $neg = -1;
+            $self->{perfdata_pos}++;
+        }
+        $value_end = $self->continue_to(undef, "[^0-9\.,]");
+        if (defined($value_tmp) && $value_end ne "") {
+            $value_end =~ s/,/./g;
+            $value_end = $value_end * $neg;
+        } else {
+            $infinite_pos = 1;
+        }
+    } else {
+        $value_start = 0;
+        $value_end = $value_tmp;
+    }
+    
+    my $value = $self->continue_to(undef, "[ \t;]");
+    if ($value ne '') {
+        $global_status = 0;
+    }
+
+    if ($infinite_neg == 1) {
+        $value_start = '-1e500';
+    }
+    if ($infinite_pos == 1) {
+        $value_end = '1e500';
+    }
+
+    return ($global_status, $value_start, $value_end, $arobase, $infinite_neg, $infinite_pos);
+}
+
+sub change_bytes {
+    my ($self, %options) = @_;
+
+    my $unit = defined($options{network}) ? 'b' : 'B';
+    my $divide = defined($options{network}) ? 1000 : 1024;
+    
+    if (($options{value} / $divide) >= 1) {
+        $options{value} = $options{value} / $divide;
+        $unit = defined($options{network}) ? 'Kb' : 'KB';
+    }
+    if (($options{value} / $divide) >= 1) {
+        $options{value} = $options{value} / $divide;
+        $unit = defined($options{network}) ? 'Mb' : 'MB';
+    }
+    if (($options{value} / $divide) >= 1) {
+        $options{value} = $options{value} / $divide;
+        $unit = defined($options{network}) ? 'Gb' : 'GB';
+    }
+    return (sprintf("%.2f", $options{value}), $unit);
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+Perfdata class
+
+=head1 SYNOPSIS
+
+-
+
+=head1 DESCRIPTION
+
+B<perfdata>.
+
+=cut

centreon/plugins/script.pm

@@ -0,0 +1,260 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package centreon::plugins::script;
+
+use strict;
+use warnings;
+use centreon::plugins::options;
+use centreon::plugins::output;
+use centreon::plugins::misc;
+use FindBin;
+use Pod::Usage;
+use Pod::Find qw(pod_where);
+
+my %handlers = ('DIE' => {});
+
+sub new {
+    my $class = shift;
+    my $self  = {};
+    bless $self, $class;
+
+    $self->{options} = undef;
+    $self->{plugin} = undef;
+    $self->{help} = undef;
+
+    $self->set_signal_handlers;
+    return $self;
+}
+
+sub set_signal_handlers {
+    my $self = shift;
+
+    $SIG{__DIE__} = \&class_handle_DIE;
+    $handlers{DIE}->{$self} = sub { $self->handle_DIE($_[0]) };
+}
+
+sub class_handle_DIE {
+    my ($msg) = @_;
+
+    foreach (keys %{$handlers{DIE}}) {
+        &{$handlers{DIE}->{$_}}($msg);
+    }
+}
+
+sub handle_DIE {
+    my ($self, $msg) = @_;
+
+    # For 'mod_perl'
+    die $msg if $^S;
+    $self->{output}->add_option_msg(short_msg => $msg);
+    $self->{output}->die_exit();
+}
+
+sub get_plugin {
+    my $self = shift;
+    
+    ######
+    # Need to load global 'Output' and 'Options'
+    ######
+    $self->{options} = centreon::plugins::options->new();
+    $self->{output} = centreon::plugins::output->new(options => $self->{options});
+    $self->{options}->set_output(output => $self->{output});
+
+    $self->{options}->add_options(arguments => {
+                                                'plugin:s' => { name => 'plugin' }, 
+                                                'help' => { name => 'help' },
+                                                'version' => { name => 'version' },
+                                                'runas:s' => { name => 'runas' },
+                                                'environment:s%' => { name => 'environment' },
+                                                } );
+
+    $self->{options}->parse_options();
+
+    $self->{plugin} = $self->{options}->get_option(argument => 'plugin' );
+    $self->{help} = $self->{options}->get_option(argument => 'help' );
+    $self->{version} = $self->{options}->get_option(argument => 'version' );
+    $self->{runas} = $self->{options}->get_option(argument => 'runas' );
+    $self->{environment} = $self->{options}->get_option(argument => 'environment' );
+
+    $self->{output}->mode(name => $self->{mode});
+    $self->{output}->plugin(name => $self->{plugin});
+    $self->{output}->check_options(option_results => $self->{options}->get_options());
+
+    $self->{options}->clean();
+}
+
+sub display_local_help {
+    my $self = shift;
+
+    my $stdout;
+    if ($self->{help}) {
+        local *STDOUT;
+        open STDOUT, '>', \$stdout;
+        pod2usage(-exitval => "NOEXIT", -input => pod_where({-inc => 1}, __PACKAGE__));
+    }
+    
+    $self->{output}->add_option_msg(long_msg => $stdout) if (defined($stdout));
+}
+
+sub check_relaunch {
+    my $self = shift;
+    my $need_restart = 0;
+    my $cmd = $FindBin::Bin . "/" . $FindBin::Script;
+    my @args = ();
+    
+    if (defined($self->{environment})) {
+        foreach (keys %{$self->{environment}}) {
+            if ($_ ne '' && (!defined($ENV{$_}) || $ENV{$_} ne $self->{environment}->{$_})) {
+                $ENV{$_} = $self->{environment}->{$_};
+                $need_restart = 1;
+            }
+        }
+    }
+    
+    if (defined($self->{runas}) && $self->{runas} ne '') {
+        # Check if it's already me and user exist ;)
+        my ($name, $passwd, $uid) = getpwnam($self->{runas});
+        if (!defined($uid)) {
+            $self->{output}->add_option_msg(short_msg => "Runas user '" . $self->{runas} . "' not exist.");
+            $self->{output}->option_exit();
+        }
+        if ($uid != $>) {
+            if ($> == 0) {
+                unshift @args, "-s", "/bin/bash", "-l", $self->{runas}, "-c", join(" ", $cmd, "--plugin=" . $self->{plugin}, @ARGV);
+                $cmd = "su";
+            } else {
+                unshift @args, "-S", "-u", $self->{runas}, $cmd, "--plugin=" . $self->{plugin}, @ARGV;
+                $cmd = "sudo";
+            }
+            $need_restart = 1;
+        }
+    }
+
+    if ($need_restart == 1) {
+        if (scalar(@args) <= 0) {
+            unshift @args, @ARGV, "--plugin=" . $self->{plugin}
+        }
+
+        my ($lerror, $stdout, $exit_code) = centreon::plugins::misc::backtick(
+                                                 command => $cmd,
+                                                 arguments => [@args],
+                                                 timeout => 30,
+                                                 wait_exit => 1
+                                                 );
+        if ($exit_code <= -1000) {
+            if ($exit_code == -1000) {
+                $self->{output}->output_add(severity => 'UNKNOWN', 
+                                            short_msg => $stdout);
+            }
+            $self->{output}->display();
+            $self->{output}->exit();
+        }
+        print $stdout;
+        # We put unknown
+        if (!($exit_code >= 0 && $exit_code <= 4)) {
+            exit 3;
+        }
+        exit $exit_code;
+    }
+}
+
+sub run {
+    my $self = shift;
+
+    $self->get_plugin();
+
+    if (defined($self->{help}) && !defined($self->{plugin})) {
+        $self->display_local_help();
+        $self->{output}->option_exit();
+    }
+    if (!defined($self->{plugin}) || $self->{plugin} eq '') {
+        $self->{output}->add_option_msg(short_msg => "Need to specify '--plugin' option.");
+        $self->{output}->option_exit();
+    }
+
+    $self->check_relaunch();
+    
+    centreon::plugins::misc::mymodule_load(output => $self->{output}, module => $self->{plugin}, 
+                                           error_msg => "Cannot load module --plugin.");
+    my $plugin = $self->{plugin}->new(options => $self->{options}, output => $self->{output});
+    $plugin->init(help => $self->{help},
+                  version => $self->{version});
+    $plugin->run();
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+centreon_plugins.pl - main program to call Merethis plugins.
+
+=head1 SYNOPSIS
+
+centreon_plugins.pl [options]
+
+=head1 OPTIONS
+
+=over 8
+
+=item B<--plugin>
+
+Specify the path to the plugin.
+
+=item B<--version>
+
+Print plugin version.
+
+=item B<--help>
+
+Print a brief help message and exits.
+
+=item B<--runas>
+
+Run the script as a different user (prefer to use directly the good user).
+
+=item B<--environment>
+
+Set environment variables for the script (prefer to set it before running it for better performance).
+
+=back
+
+=head1 DESCRIPTION
+
+B<centreon_plugins.pl> .
+
+=cut

centreon/plugins/script_custom.pm

@@ -0,0 +1,280 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package centreon::plugins::script_custom;
+
+use strict;
+use warnings;
+use centreon::plugins::misc;
+
+sub new {
+    my ($class, %options) = @_;
+    my $self  = {};
+    bless $self, $class;
+    # $options{package} = parent package caller
+    # $options{options} = options object
+    # $options{output} = output object
+    $self->{options} = $options{options};
+    $self->{output} = $options{output};
+    
+    $self->{options}->add_options(
+                                   arguments => {
+                                                'mode:s'          => { name => 'mode_name' },
+                                                'dyn-mode:s'      => { name => 'dynmode_name' },
+                                                'list-mode'       => { name => 'list_mode' },
+                                                'custommode:s'    => { name => 'custommode_name' },
+                                                'list-custommode' => { name => 'list_custommode' },
+                                                'multiple'        => { name => 'multiple' },
+                                                }
+                                  );
+    $self->{version} = '1.0';
+    %{$self->{modes}} = ();
+    %{$self->{custom_modes}} = ();
+    $self->{default} = undef;
+    $self->{customdefault} = {};
+    $self->{custommode_current} = undef;
+    $self->{custommode_stored} = [];
+    
+    $self->{options}->parse_options();
+    $self->{option_results} = $self->{options}->get_options();
+    foreach (keys %{$self->{option_results}}) {
+        $self->{$_} = $self->{option_results}->{$_};
+    }
+    $self->{options}->clean();
+
+    $self->{options}->add_help(package => $options{package}, sections => 'PLUGIN DESCRIPTION');
+    $self->{options}->add_help(package => __PACKAGE__, sections => 'GLOBAL OPTIONS');
+
+    return $self;
+}
+
+sub init {
+    my ($self, %options) = @_;
+    # $options{version} = string version
+    # $options{help} = string help
+
+    if (defined($options{help}) && !defined($self->{mode_name}) && !defined($self->{dynmode_name})) {
+        $self->{options}->display_help();
+        $self->{output}->option_exit();
+    }
+    if (defined($options{version}) && !defined($self->{mode_name})&& !defined($self->{dynmode_name})) {
+        $self->version();
+    }
+    if (defined($self->{list_mode})) {
+        $self->list_mode();
+    }
+    if (defined($self->{list_custommode})) {
+        $self->list_custommode();
+    }
+
+    # Output HELP
+    $self->{options}->add_help(package => 'centreon::plugins::output', sections => 'OUTPUT OPTIONS');
+
+    if (defined($self->{custommode_name}) && $self->{custommode_name} ne '') {
+        $self->is_custommode(custommode => $self->{custommode_name});
+        centreon::plugins::misc::mymodule_load(output => $self->{output}, module => $self->{custom_modes}{$self->{custommode_name}}, 
+                                               error_msg => "Cannot load module --custommode.");
+        $self->{custommode_current} = $self->{custom_modes}{$self->{custommode_name}}->new(options => $self->{options}, output => $self->{output}, mode => $self->{custommode_name});
+    } else {
+        $self->{output}->add_option_msg(short_msg => "Need to specify '--custommode'.");
+        $self->{output}->option_exit();
+    }
+    
+    # Load mode
+    if (defined($self->{mode_name}) && $self->{mode_name} ne '') {
+        $self->is_mode(mode => $self->{mode_name});
+        centreon::plugins::misc::mymodule_load(output => $self->{output}, module => $self->{modes}{$self->{mode_name}}, 
+                                               error_msg => "Cannot load module --mode.");
+        $self->{mode} = $self->{modes}{$self->{mode_name}}->new(options => $self->{options}, output => $self->{output}, mode => $self->{mode_name});
+    } elsif (defined($self->{dynmode_name}) && $self->{dynmode_name} ne '') {
+        centreon::plugins::misc::mymodule_load(output => $self->{output}, module => $self->{dynmode_name}, 
+                                               error_msg => "Cannot load module --dyn-mode.");
+        $self->{mode} = $self->{dynmode_name}->new(options => $self->{options}, output => $self->{output}, mode => $self->{mode_name});
+    } else {
+        $self->{output}->add_option_msg(short_msg => "Need to specify '--mode' or '--dyn-mode' option.");
+        $self->{output}->option_exit();
+    }
+
+    if (defined($options{help})) {
+        $self->{options}->add_help(package => $self->{modes}{$self->{mode_name}}, sections => 'MODE');
+        $self->{options}->display_help();
+        $self->{output}->option_exit();
+    }
+    if (defined($options{version})) {
+        $self->{mode}->version();
+        $self->{output}->option_exit(nolabel => 1);
+    }
+    
+    $self->{options}->parse_options();
+    $self->{option_results} = $self->{options}->get_options();
+
+    push @{$self->{custommode_stored}}, $self->{custommode_current};
+    $self->{custommode_current}->set_options(option_results => $self->{option_results});
+    $self->{custommode_current}->set_defaults(default => $self->{customdefault});
+
+    while ($self->{custommode_current}->check_options()) {
+        $self->{custommode_current} = $self->{custom_modes}{$self->{custommode_name}}->new(noptions => 1, options => $self->{options}, output => $self->{output}, mode => $self->{custommode_name});
+        $self->{custommode_current}->set_options(option_results => $self->{option_results});
+        push @{$self->{custommode_stored}}, $self->{custommode_current};
+    }
+    $self->{mode}->check_options(option_results => $self->{option_results}, default => $self->{default});
+}
+
+sub run {
+    my $self = shift;
+
+    if ($self->{output}->is_disco_format()) {
+        $self->{mode}->disco_format();
+        $self->{output}->display_disco_format();
+        $self->{output}->exit(exit_litteral => 'ok');
+    }
+
+    if ($self->{output}->is_disco_show()) {
+        if (defined($self->{multiple})) {
+            $self->{mode}->disco_show(custom => $self->{custommode});
+        } else {
+            $self->{mode}->disco_show(custom => $self->{custommode_stored}[0]);
+        }
+        $self->{output}->display_disco_show();
+        $self->{output}->exit(exit_litteral => 'ok');
+    } else {
+        if (defined($self->{multiple})) {
+            $self->{mode}->run(custom => $self->{custommode_stored});
+        } else {
+            $self->{mode}->run(custom => $self->{custommode_stored}[0]);
+        }
+    }
+}
+
+sub is_mode {
+    my ($self, %options) = @_;
+    
+    # $options->{mode} = mode
+    if (!defined($self->{modes}{$options{mode}})) {
+        $self->{output}->add_option_msg(short_msg => "mode '" . $options{mode} . "' doesn't exist (use --list-mode option to show available modes).");
+        $self->{output}->option_exit();
+    }
+}
+
+sub is_custommode {
+    my ($self, %options) = @_;
+    
+    # $options->{custommode} = mode
+    if (!defined($self->{custom_modes}{$options{custommode}})) {
+        $self->{output}->add_option_msg(short_msg => "mode '" . $options{custommode} . "' doesn't exist (use --list-custommode option to show available modes).");
+        $self->{output}->option_exit();
+    }
+}
+
+
+sub version {
+    my $self = shift;    
+    $self->{output}->add_option_msg(short_msg => "Plugin Version: " . $self->{version});
+    $self->{output}->option_exit(nolabel => 1);
+}
+
+sub list_mode {
+    my $self = shift;
+    $self->{options}->display_help();
+    
+    $self->{output}->add_option_msg(long_msg => "Modes Available:");
+    foreach (keys %{$self->{modes}}) {
+        $self->{output}->add_option_msg(long_msg => "   " . $_);
+    }
+    $self->{output}->option_exit(nolabel => 1);
+}
+
+sub list_custommode {
+    my $self = shift;
+    $self->{options}->display_help();
+    
+    $self->{output}->add_option_msg(long_msg => "Custom Modes Available:");
+    foreach (keys %{$self->{custom_modes}}) {
+        $self->{output}->add_option_msg(long_msg => "   " . $_);
+    }
+    $self->{output}->option_exit(nolabel => 1);
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+-
+
+=head1 SYNOPSIS
+
+-
+
+=head1 GLOBAL OPTIONS
+
+=over 8
+
+=item B<--mode>
+
+Choose a mode.
+
+=item B<--list-mode>
+
+List available modes.
+
+=item B<--version>
+
+Display plugin version.
+
+=item B<--dyn-mode>
+
+Specify a mode with the path (separated by '::').
+
+=item B<--custommode>
+
+Choose a custom mode.
+
+=item B<--list-custommode>
+
+List available custom modes.
+
+=item B<--multiple>
+
+Multiple custom mode objects (some mode needs it).
+
+=back
+
+=head1 DESCRIPTION
+
+B<>.
+
+=cut

centreon/plugins/script_simple.pm

@@ -0,0 +1,194 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package centreon::plugins::script_simple;
+
+use strict;
+use warnings;
+
+sub new {
+    my ($class, %options) = @_;
+    my $self  = {};
+    bless $self, $class;
+    # $options{package} = parent package caller
+    # $options{options} = options object
+    # $options{output} = output object
+    $self->{options} = $options{options};
+    $self->{output} = $options{output};
+    
+    $self->{options}->add_options(
+                                   arguments => {
+                                                'mode:s'       => { name => 'mode' },
+                                                'dyn-mode:s'   => { name => 'dynmode_name' },
+                                                'list-mode'    => { name => 'list_mode' },
+                                                }
+                                  );
+    $self->{version} = '1.0';
+    %{$self->{modes}} = ();
+    $self->{default} = undef;
+    
+    $self->{options}->parse_options();
+    $self->{mode_name} = $self->{options}->get_option(argument => 'mode' );
+    $self->{list_mode} = $self->{options}->get_option(argument => 'list_mode' );
+    $self->{options}->clean();
+
+    $self->{options}->add_help(package => $options{package}, sections => 'PLUGIN DESCRIPTION');
+    $self->{options}->add_help(package => __PACKAGE__, sections => 'GLOBAL OPTIONS');
+
+    return $self;
+}
+
+sub init {
+    my ($self, %options) = @_;
+    # $options{version} = string version
+    # $options{help} = string help
+
+    if (defined($options{help}) && !defined($self->{mode_name})) {
+        $self->{options}->display_help();
+        $self->{output}->option_exit();
+    }
+    if (defined($options{version}) && !defined($self->{mode_name})) {
+        $self->version();
+    }
+    if (defined($self->{list_mode})) {
+        $self->list_mode();
+    }
+
+    # Output HELP
+    $self->{options}->add_help(package => 'centreon::plugins::output', sections => 'OUTPUT OPTIONS');
+    
+    # Load mode
+    if (defined($self->{mode_name}) && $self->{mode_name} ne '') {
+        $self->is_mode(mode => $self->{mode_name});
+        centreon::plugins::misc::mymodule_load(output => $self->{output}, module => $self->{modes}{$self->{mode_name}}, 
+                                               error_msg => "Cannot load module --mode.");
+        $self->{mode} = $self->{modes}{$self->{mode_name}}->new(options => $self->{options}, output => $self->{output}, mode => $self->{mode_name});
+    } elsif (defined($self->{dynmode_name}) && $self->{dynmode_name} ne '') {
+        centreon::plugins::misc::mymodule_load(output => $self->{output}, module => $self->{dynmode_name}, 
+                                               error_msg => "Cannot load module --dyn-mode.");
+        $self->{mode} = $self->{dynmode_name}->new(options => $self->{options}, output => $self->{output}, mode => $self->{mode_name});
+    } else {
+        $self->{output}->add_option_msg(short_msg => "Need to specify '--mode' or '--dyn-mode' option.");
+        $self->{output}->option_exit();
+    }
+
+    if (defined($options{help})) {
+        $self->{options}->add_help(package => $self->{modes}{$self->{mode_name}}, sections => 'MODE');
+        $self->{options}->display_help();
+        $self->{output}->option_exit();
+    }
+    if (defined($options{version})) {
+        $self->{mode}->version();
+        $self->{output}->option_exit(nolabel => 1);
+    }
+    
+    $self->{options}->parse_options();
+    $self->{option_results} = $self->{options}->get_options();
+
+    $self->{mode}->check_options(option_results => $self->{option_results}, default => $self->{default});
+}
+
+sub run {
+    my $self = shift;
+
+    $self->{mode}->run();
+}
+
+sub is_mode {
+    my ($self, %options) = @_;
+    
+    # $options->{mode} = mode
+    if (!defined($self->{modes}{$options{mode}})) {
+        $self->{output}->add_option_msg(short_msg => "mode '" . $options{mode} . "' doesn't exist (use --list option to show available modes).");
+        $self->{output}->option_exit();
+    }
+}
+
+sub version {
+    my $self = shift;    
+    $self->{output}->add_option_msg(short_msg => "Plugin Version: " . $self->{version});
+    $self->{output}->option_exit(nolabel => 1);
+}
+
+sub list_mode {
+    my $self = shift;
+    $self->{options}->display_help();
+    
+    $self->{output}->add_option_msg(long_msg => "Modes Available:");
+    foreach (keys %{$self->{modes}}) {
+        $self->{output}->add_option_msg(long_msg => "   " . $_);
+    }
+    $self->{output}->option_exit(nolabel => 1);
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+-
+
+=head1 SYNOPSIS
+
+-
+
+=head1 GLOBAL OPTIONS
+
+=over 8
+
+=item B<--mode>
+
+Choose a mode.
+
+=item B<--dyn-mode>
+
+Specify a mode with the path (separated by '::').
+
+=item B<--list-mode>
+
+List available modes.
+
+=item B<--version>
+
+Display plugin version.
+
+=back
+
+=head1 DESCRIPTION
+
+B<>.
+
+=cut

centreon/plugins/script_snmp.pm

@@ -0,0 +1,213 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package centreon::plugins::script_snmp;
+
+use strict;
+use warnings;
+use centreon::plugins::snmp;
+use centreon::plugins::misc;
+
+sub new {
+    my ($class, %options) = @_;
+    my $self  = {};
+    bless $self, $class;
+    # $options{package} = parent package caller
+    # $options{options} = options object
+    # $options{output} = output object
+    $self->{options} = $options{options};
+    $self->{output} = $options{output};
+    
+    $self->{options}->add_options(
+                                   arguments => {
+                                                'mode:s'       => { name => 'mode' },
+                                                'dyn-mode:s'   => { name => 'dynmode_name' },
+                                                'list-mode'    => { name => 'list_mode' },
+                                                }
+                                  );
+    $self->{version} = '1.0';
+    %{$self->{modes}} = ();
+    $self->{default} = undef;
+    
+    $self->{options}->parse_options();
+    $self->{mode_name} = $self->{options}->get_option(argument => 'mode' );
+    $self->{list_mode} = $self->{options}->get_option(argument => 'list_mode' );
+    $self->{options}->clean();
+
+    $self->{options}->add_help(package => $options{package}, sections => 'PLUGIN DESCRIPTION');
+    $self->{options}->add_help(package => __PACKAGE__, sections => 'GLOBAL OPTIONS');
+
+    return $self;
+}
+
+sub init {
+    my ($self, %options) = @_;
+    # $options{version} = string version
+    # $options{help} = string help
+
+    if (defined($options{help}) && !defined($self->{mode_name})) {
+        $self->{options}->display_help();
+        $self->{output}->option_exit();
+    }
+    if (defined($options{version}) && !defined($self->{mode_name})) {
+        $self->version();
+    }
+    if (defined($self->{list_mode})) {
+        $self->list_mode();
+    }
+
+    # Output HELP
+    $self->{options}->add_help(package => 'centreon::plugins::output', sections => 'OUTPUT OPTIONS');
+
+    # SNMP
+    $self->{snmp} = centreon::plugins::snmp->new(options => $self->{options}, output => $self->{output});
+    
+    # Load mode
+    if (defined($self->{mode_name}) && $self->{mode_name} ne '') {
+        $self->is_mode(mode => $self->{mode_name});
+        centreon::plugins::misc::mymodule_load(output => $self->{output}, module => $self->{modes}{$self->{mode_name}}, 
+                                               error_msg => "Cannot load module --mode.");
+        $self->{mode} = $self->{modes}{$self->{mode_name}}->new(options => $self->{options}, output => $self->{output}, mode => $self->{mode_name});
+    } elsif (defined($self->{dynmode_name}) && $self->{dynmode_name} ne '') {
+        centreon::plugins::misc::mymodule_load(output => $self->{output}, module => $self->{dynmode_name}, 
+                                               error_msg => "Cannot load module --dyn-mode.");
+        $self->{mode} = $self->{dynmode_name}->new(options => $self->{options}, output => $self->{output}, mode => $self->{mode_name});
+    } else {
+        $self->{output}->add_option_msg(short_msg => "Need to specify '--mode' or '--dyn-mode' option.");
+        $self->{output}->option_exit();
+    }
+
+    if (defined($options{help})) {
+        $self->{options}->add_help(package => $self->{modes}{$self->{mode_name}}, sections => 'MODE');
+        $self->{options}->display_help();
+        $self->{output}->option_exit();
+    }
+    if (defined($options{version})) {
+        $self->{mode}->version();
+        $self->{output}->option_exit(nolabel => 1);
+    }
+    
+    $self->{options}->parse_options();
+    $self->{option_results} = $self->{options}->get_options();
+
+    $self->{snmp}->check_options(option_results => $self->{option_results});
+    $self->{mode}->check_options(option_results => $self->{option_results}, default => $self->{default});
+}
+
+sub run {
+    my $self = shift;
+
+    if ($self->{output}->is_disco_format()) {
+        $self->{mode}->disco_format();
+        $self->{output}->display_disco_format();
+        $self->{output}->exit(exit_litteral => 'ok');
+    }
+
+    $self->{snmp}->connect();
+    if ($self->{output}->is_disco_show()) {
+        $self->{mode}->disco_show(snmp => $self->{snmp});
+        $self->{output}->display_disco_show();
+        $self->{output}->exit(exit_litteral => 'ok');
+    } else {
+        $self->{mode}->run(snmp => $self->{snmp});
+    }
+}
+
+sub is_mode {
+    my ($self, %options) = @_;
+    
+    # $options->{mode} = mode
+    if (!defined($self->{modes}{$options{mode}})) {
+        $self->{output}->add_option_msg(short_msg => "mode '" . $options{mode} . "' doesn't exist (use --list-mode option to show available modes).");
+        $self->{output}->option_exit();
+    }
+}
+
+sub version {
+    my $self = shift;    
+    $self->{output}->add_option_msg(short_msg => "Plugin Version: " . $self->{version});
+    $self->{output}->option_exit(nolabel => 1);
+}
+
+sub list_mode {
+    my $self = shift;
+    $self->{options}->display_help();
+    
+    $self->{output}->add_option_msg(long_msg => "Modes Available:");
+    foreach (keys %{$self->{modes}}) {
+        $self->{output}->add_option_msg(long_msg => "   " . $_);
+    }
+    $self->{output}->option_exit(nolabel => 1);
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+-
+
+=head1 SYNOPSIS
+
+-
+
+=head1 GLOBAL OPTIONS
+
+=over 8
+
+=item B<--mode>
+
+Choose a mode.
+
+=item B<--dyn-mode>
+
+Specify a mode with the path (separated by '::').
+
+=item B<--list-mode>
+
+List available modes.
+
+=item B<--version>
+
+Display plugin version.
+
+=back
+
+=head1 DESCRIPTION
+
+B<>.
+
+=cut

centreon/plugins/script_sql.pm

@@ -0,0 +1,280 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package centreon::plugins::script_sql;
+
+use strict;
+use warnings;
+use centreon::plugins::misc;
+
+sub new {
+    my ($class, %options) = @_;
+    my $self  = {};
+    bless $self, $class;
+    # $options{package} = parent package caller
+    # $options{options} = options object
+    # $options{output} = output object
+    $self->{options} = $options{options};
+    $self->{output} = $options{output};
+    
+    $self->{options}->add_options(
+                                   arguments => {
+                                                'mode:s'       => { name => 'mode_name' },
+                                                'dyn-mode:s'   => { name => 'dynmode_name' },
+                                                'list-mode'    => { name => 'list_mode' },
+                                                'sqlmode:s'    => { name => 'sqlmode_name', default => 'dbi' },
+                                                'list-sqlmode' => { name => 'list_sqlmode' },
+                                                'multiple'     => { name => 'multiple' },
+                                                }
+                                  );
+    $self->{version} = '1.0';
+    %{$self->{modes}} = ();
+    %{$self->{sql_modes}} = ('dbi' => 'centreon::plugins::dbi');
+    $self->{default} = undef;
+    $self->{sqldefault} = {};
+    $self->{sqlmode_current} = undef;
+    $self->{sqlmode_stored} = [];
+    
+    $self->{options}->parse_options();
+    $self->{option_results} = $self->{options}->get_options();
+    foreach (keys %{$self->{option_results}}) {
+        $self->{$_} = $self->{option_results}->{$_};
+    }
+    $self->{options}->clean();
+
+    $self->{options}->add_help(package => $options{package}, sections => 'PLUGIN DESCRIPTION');
+    $self->{options}->add_help(package => __PACKAGE__, sections => 'GLOBAL OPTIONS');
+
+    return $self;
+}
+
+sub init {
+    my ($self, %options) = @_;
+    # $options{version} = string version
+    # $options{help} = string help
+
+    if (defined($options{help}) && !defined($self->{mode_name}) && !defined($self->{dynmode_name})) {
+        $self->{options}->display_help();
+        $self->{output}->option_exit();
+    }
+    if (defined($options{version}) && !defined($self->{mode_name})&& !defined($self->{dynmode_name})) {
+        $self->version();
+    }
+    if (defined($self->{list_mode})) {
+        $self->list_mode();
+    }
+    if (defined($self->{list_sqlmode})) {
+        $self->list_sqlmode();
+    }
+
+    # Output HELP
+    $self->{options}->add_help(package => 'centreon::plugins::output', sections => 'OUTPUT OPTIONS');
+
+    if (defined($self->{sqlmode_name}) && $self->{sqlmode_name} ne '') {
+        $self->is_sqlmode(sqlmode => $self->{sqlmode_name});
+        centreon::plugins::misc::mymodule_load(output => $self->{output}, module => $self->{sql_modes}{$self->{sqlmode_name}}, 
+                                               error_msg => "Cannot load module --sqlmode.");
+        $self->{sqlmode_current} = $self->{sql_modes}{$self->{sqlmode_name}}->new(options => $self->{options}, output => $self->{output}, mode => $self->{sqlmode_name});
+    } else {
+        $self->{output}->add_option_msg(short_msg => "Need to specify '--sqlmode'.");
+        $self->{output}->option_exit();
+    }
+    
+    # Load mode
+    if (defined($self->{mode_name}) && $self->{mode_name} ne '') {
+        $self->is_mode(mode => $self->{mode_name});
+        centreon::plugins::misc::mymodule_load(output => $self->{output}, module => $self->{modes}{$self->{mode_name}}, 
+                                               error_msg => "Cannot load module --mode.");
+        $self->{mode} = $self->{modes}{$self->{mode_name}}->new(options => $self->{options}, output => $self->{output}, mode => $self->{mode_name});
+    } elsif (defined($self->{dynmode_name}) && $self->{dynmode_name} ne '') {
+        centreon::plugins::misc::mymodule_load(output => $self->{output}, module => $self->{dynmode_name}, 
+                                               error_msg => "Cannot load module --dyn-mode.");
+        $self->{mode} = $self->{dynmode_name}->new(options => $self->{options}, output => $self->{output}, mode => $self->{mode_name});
+    } else {
+        $self->{output}->add_option_msg(short_msg => "Need to specify '--mode' or '--dyn-mode' option.");
+        $self->{output}->option_exit();
+    }
+
+    if (defined($options{help})) {
+        $self->{options}->add_help(package => $self->{modes}{$self->{mode_name}}, sections => 'MODE');
+        $self->{options}->display_help();
+        $self->{output}->option_exit();
+    }
+    if (defined($options{version})) {
+        $self->{mode}->version();
+        $self->{output}->option_exit(nolabel => 1);
+    }
+    
+    $self->{options}->parse_options();
+    $self->{option_results} = $self->{options}->get_options();
+
+    push @{$self->{sqlmode_stored}}, $self->{sqlmode_current};
+    $self->{sqlmode_current}->set_options(option_results => $self->{option_results});
+    $self->{sqlmode_current}->set_defaults(default => $self->{sqldefault});
+
+    while ($self->{sqlmode_current}->check_options()) {
+        $self->{sqlmode_current} = $self->{sql_modes}{$self->{sqlmode_name}}->new(noptions => 1, options => $self->{options}, output => $self->{output}, mode => $self->{sqlmode_name});
+        $self->{sqlmode_current}->set_options(option_results => $self->{option_results});
+        push @{$self->{sqlmode_stored}}, $self->{sqlmode_current};
+    }
+    $self->{mode}->check_options(option_results => $self->{option_results}, default => $self->{default});
+}
+
+sub run {
+    my $self = shift;
+
+    if ($self->{output}->is_disco_format()) {
+        $self->{mode}->disco_format();
+        $self->{output}->display_disco_format();
+        $self->{output}->exit(exit_litteral => 'ok');
+    }
+
+    if ($self->{output}->is_disco_show()) {
+        if (defined($self->{multiple})) {
+            $self->{mode}->disco_show(sql => $self->{sqlmode});
+        } else {
+            $self->{mode}->disco_show(sql => $self->{sqlmode_stored}[0]);
+        }
+        $self->{output}->display_disco_show();
+        $self->{output}->exit(exit_litteral => 'ok');
+    } else {
+        if (defined($self->{multiple})) {
+            $self->{mode}->run(sql => $self->{sqlmode_stored});
+        } else {
+            $self->{mode}->run(sql => $self->{sqlmode_stored}[0]);
+        }
+    }
+}
+
+sub is_mode {
+    my ($self, %options) = @_;
+    
+    # $options->{mode} = mode
+    if (!defined($self->{modes}{$options{mode}})) {
+        $self->{output}->add_option_msg(short_msg => "mode '" . $options{mode} . "' doesn't exist (use --list-mode option to show available modes).");
+        $self->{output}->option_exit();
+    }
+}
+
+sub is_sqlmode {
+    my ($self, %options) = @_;
+    
+    # $options->{sqlmode} = mode
+    if (!defined($self->{sql_modes}{$options{sqlmode}})) {
+        $self->{output}->add_option_msg(short_msg => "mode '" . $options{sqlmode} . "' doesn't exist (use --list-sqlmode option to show available modes).");
+        $self->{output}->option_exit();
+    }
+}
+
+
+sub version {
+    my $self = shift;    
+    $self->{output}->add_option_msg(short_msg => "Plugin Version: " . $self->{version});
+    $self->{output}->option_exit(nolabel => 1);
+}
+
+sub list_mode {
+    my $self = shift;
+    $self->{options}->display_help();
+    
+    $self->{output}->add_option_msg(long_msg => "Modes Available:");
+    foreach (keys %{$self->{modes}}) {
+        $self->{output}->add_option_msg(long_msg => "   " . $_);
+    }
+    $self->{output}->option_exit(nolabel => 1);
+}
+
+sub list_sqlmode {
+    my $self = shift;
+    $self->{options}->display_help();
+    
+    $self->{output}->add_option_msg(long_msg => "SQL Modes Available:");
+    foreach (keys %{$self->{sql_modes}}) {
+        $self->{output}->add_option_msg(long_msg => "   " . $_);
+    }
+    $self->{output}->option_exit(nolabel => 1);
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+-
+
+=head1 SYNOPSIS
+
+-
+
+=head1 GLOBAL OPTIONS
+
+=over 8
+
+=item B<--mode>
+
+Choose a mode.
+
+=item B<--list-mode>
+
+List available modes.
+
+=item B<--version>
+
+Display plugin version.
+
+=item B<--dyn-mode>
+
+Specify a mode with the path (separated by '::').
+
+=item B<--sqlmode>
+
+Choose a sql mode (Default: "dbi").
+
+=item B<--list-sqlmode>
+
+List available sql modes.
+
+=item B<--multiple>
+
+Multiple database connections (some mode needs it).
+
+=back
+
+=head1 DESCRIPTION
+
+B<>.
+
+=cut

centreon/plugins/snmp.pm

@@ -0,0 +1,702 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package centreon::plugins::snmp;
+
+use strict;
+use warnings;
+use SNMP;
+use Socket;
+
+sub new {
+    my ($class, %options) = @_;
+    my $self  = {};
+    bless $self, $class;
+    # $options{options} = options object
+    # $options{output} = output object
+    # $options{exit_value} = integer
+    
+    if (!defined($options{output})) {
+        print "Class SNMP: Need to specify 'output' argument.\n";
+        exit 3;
+    }
+    if (!defined($options{options})) {
+        $options{output}->add_option_msg(short_msg => "Class SNMP: Need to specify 'options' argument.");
+        $options{output}->option_exit();
+    }
+
+    $options{options}->add_options(arguments => 
+                { "hostname|host:s"           => { name => 'host' },
+                  "snmp-community:s"          => { name => 'snmp_community', default => 'public' },
+                  "snmp-version:s"            => { name => 'snmp_version', default => 1 },
+                  "snmp-port:s"               => { name => 'snmp_port', default => 161 },
+                  "snmp-timeout:s"            => { name => 'snmp_timeout', default => 1 },
+                  "snmp-retries:s"            => { name => 'snmp_retries', default => 5 },
+                  "maxrepetitions:s"          => { name => 'maxrepetitions', default => 50 },
+                  "subsetleef:s"              => { name => 'subsetleef', default => 50 },
+                  "snmp-username:s"           => { name => 'snmp_security_name' },
+                  "authpassphrase:s"          => { name => 'snmp_auth_passphrase' },
+                  "authprotocol:s"            => { name => 'snmp_auth_protocol' },
+                  "privpassphrase:s"          => { name => 'snmp_priv_passphrase' },
+                  "privprotocol:s"            => { name => 'snmp_priv_protocol' },
+                  "contextname:s"             => { name => 'snmp_context_name' },
+                  "contextengineid:s"         => { name => 'snmp_context_engine_id' },
+                  "securityengineid:s"        => { name => 'snmp_security_engine_id' },
+                  "snmp-errors-exit:s"        => { name => 'snmp_errors_exit', default => 'unknown' },
+    });
+    $options{options}->add_help(package => __PACKAGE__, sections => 'SNMP OPTIONS');
+
+    #####
+    $self->{session} = undef;
+    $self->{output} = $options{output};
+    $self->{maxrepetitions} = undef;
+    $self->{snmp_params} = {};
+    
+    # Dont load MIB
+    $SNMP::auto_init_mib = 0;
+    # For snmpv v1 - get request retries when you have "NoSuchName"
+    $self->{RetryNoSuch} = 1;
+    # Dont try to translate OID (we keep value)
+    $self->{UseNumeric} = 1;
+    
+    $self->{error_msg} = undef;
+    $self->{error_status} = 0;
+    
+    return $self;
+}
+
+sub connect {
+    my ($self, %options) = @_;
+    # $options{exit_value} = integer
+    
+    my ($exit_value) = defined($options{exit_value}) ? $options{exit_value} : $self->{global_exit_value};
+
+    $self->{snmp_params}->{RetryNoSuch} = $self->{RetryNoSuch};
+    $self->{snmp_params}->{UseNumeric} = $self->{UseNumeric};
+
+    if (!$self->{output}->is_litteral_status(status => $self->{snmp_errors_exit})) {
+        $self->{output}->add_option_msg(short_msg => "Unknown value '" . $self->{snmp_errors_exit}  . "' for --snmp-errors-exit.");
+        $self->{output}->option_exit(exit_litteral => 'unknown');
+    }
+    
+    $self->{session} = new SNMP::Session(%{$self->{snmp_params}});
+    if ($self->{session}->{ErrorNum}) {
+        $self->{output}->add_option_msg(short_msg => 'UNKNOWN: SNMP Session : ' . $self->{session}->{ErrorStr});
+        $self->{output}->option_exit(exit_litteral => $self->{option_results}->{snmp_errors_exit});
+    }
+}
+
+sub load {
+    my ($self, %options) = @_;
+    # $options{oids} = ref to array of oids (example: ['.1.2', '.1.2'])
+    # $options{instances} = ref to array of oids instances
+    # $options{begin}, $args->{end} = integer instance end
+    # $options{instance_regexp} = str
+    # 3 way to use: with instances, with end, none
+    
+    if (defined($options{end})) {
+        for (my $i = $options{begin}; $i <= $options{end}; $i++) {
+            foreach (@{$options{oids}}) {
+                push @{$self->{oids_loaded}}, $_ . "." . $i;
+            }
+        }
+        return ;
+    }
+    
+    if (defined($options{instances})) {
+        $options{instance_regexp} = defined($options{instance_regexp}) ? $options{instance_regexp} : '(\d+)$';
+        foreach my $instance (@{$options{instances}}) {
+            $instance =~ /$options{instance_regexp}/;
+            foreach (@{$options{oids}}) {
+                push @{$self->{oids_loaded}}, $_ . "." . $1;
+            }
+        }
+        return ;
+    }
+    
+    push @{$self->{oids_loaded}}, @{$options{oids}};
+}
+
+sub get_leef {
+    my ($self, %options) = @_;
+    # $options{dont_quit} = integer
+    # $options{nothing_quit} = integer
+    # $options{oids} = ref to array of oids (example: ['.1.2', '.1.2'])
+    
+    # Returns array
+    #    'undef' value for an OID means NoSuchValue
+    
+    my ($dont_quit) = (defined($options{dont_quit}) && $options{dont_quit} == 1) ? 1 : 0;
+    my ($nothing_quit) = (defined($options{nothing_quit}) && $options{nothing_quit} == 1) ? 1 : 0;
+    $self->set_error();
+    
+    if (!defined($options{oids})) {
+        if ($#{$self->{oids_loaded}} < 0) {
+            if ($dont_quit == 1) {
+                $self->set_error(error_status => -1, error_msg => "Need to specify OIDs");
+                return undef;
+            }
+            $self->{output}->add_option_msg(short_msg => 'Need to specify OIDs');
+            $self->{output}->option_exit(exit_litteral => $self->{option_results}->{snmp_errors_exit});
+        }
+        push @{$options{oids}}, @{$self->{oids_loaded}};
+        @{$self->{oids_loaded}} = ();
+    }
+    
+    my $results = {};
+    my @array_ref_ar = ();
+    my $subset_current = 0;
+    my $subset_construct = [];
+    foreach my $oid (@{$options{oids}}) {
+        # Get last value
+        next if ($oid !~ /(.*)\.(\d+)([\.\s]*)$/);
+        
+        my ($oid, $instance) = ($1, $2);
+        $results->{$oid . "." . $instance} = undef;
+        push @$subset_construct, [$oid, $instance];
+        $subset_current++;
+        if ($subset_current == $self->{subsetleef}) {
+            push @array_ref_ar, \@$subset_construct;
+            $subset_construct = [];
+            $subset_current = 0;
+        }
+    }
+    if ($subset_current) {
+        push @array_ref_ar, \@$subset_construct;
+    }
+    
+    ############################
+    # If wrong oid with SNMP v1, packet resent (2 packets more). Not the case with SNMP > 1.
+    # Can have "NoSuchName", if nothing works...
+    # = v1: wrong oid
+    #   bless( [
+    #       '.1.3.6.1.2.1.1.3',
+    #       '0',
+    #       '199720062',
+    #       'TICKS'
+    #       ], 'SNMP::Varbind' ),
+    #   bless( [
+    #       '.1.3.6.1.2.1.1.999',
+    #       '0'
+    #       ], 'SNMP::Varbind' ),
+    #   bless( [
+    #       '.1.3.6.1.2.1.1',
+    #       '1000'
+    #       ], 'SNMP::Varbind' )
+    # > v1: wrong oid
+    #   bless( [
+    #        '.1.3.6.1.2.1.1.3',
+    #        '0',
+    #        '199728713',
+    #        'TICKS'
+    #       ], 'SNMP::Varbind' ),
+    #   bless( [
+    #         '.1.3.6.1.2.1.1',
+    #         '3',
+    #         'NOSUCHINSTANCE',
+    #        'TICKS'
+    #    ], 'SNMP::Varbind' )
+    #   bless( [
+    #        '.1.3.6.1.2.1.1.999',
+    #        '0',
+    #        'NOSUCHOBJECT',
+    #        'NOSUCHOBJECT'
+    #       ], 'SNMP::Varbind' ),
+    #   bless( [
+    #        '.1.3.6.1.2.1.1',
+    #        '1000',
+    #        'NOSUCHOBJECT',
+    #        'NOSUCHOBJECT'
+    #       ], 'SNMP::Varbind' )
+    ############################
+    
+    my $total = 0;
+    foreach (@array_ref_ar) {
+        my $vb = new SNMP::VarList(@{$_});
+        $self->{session}->get($vb);
+        if ($self->{session}->{ErrorNum}) {
+            # 0    noError       Pas d'erreurs.
+            # 1    tooBig        Reponse de taille trop grande.
+            # 2    noSuchName    Variable inexistante.
+            if ($self->{session}->{ErrorNum} == 2) {
+                # We are at the end with snmpv1. We next.
+                next;
+            }
+        
+            my $msg = 'SNMP GET Request : ' . $self->{session}->{ErrorStr};
+            
+            if ($dont_quit == 0) {
+                $self->{output}->add_option_msg(short_msg => $msg);
+                $self->{output}->option_exit(exit_litteral => $self->{option_results}->{snmp_errors_exit});
+            }
+            
+            $self->set_error(error_status => -1, error_msg => $msg);
+            return undef;
+        }
+
+        foreach my $entry (@$vb) {
+            if ($#$entry < 3) {
+                # Can be snmpv1 not find
+                next;
+            }
+            if (${$entry}[2] eq 'NOSUCHOBJECT' || ${$entry}[2] eq 'NOSUCHINSTANCE') {
+                # Error in snmp > 1
+                next;
+            }
+            
+            $total++;
+            $results->{${$entry}[0] . "." . ${$entry}[1]} = ${$entry}[2];
+        }
+    }
+    
+    if ($nothing_quit == 1 && $total == 0) {
+        $self->{output}->add_option_msg(short_msg => "SNMP GET Request : Cant get a single value.");
+        $self->{output}->option_exit(exit_litteral => $self->{option_results}->{snmp_errors_exit});
+    }
+    
+    return $results;
+}
+
+sub get_table {
+    my ($self, %options) = @_;
+    # $options{dont_quit} = integer
+    # $options{oid} = string (example: '.1.2')
+    # $options{start} = string (example: '.1.2')
+    # $options{end} = string (example: '.1.2')
+    
+    my ($dont_quit) = (defined($options{dont_quit}) && $options{dont_quit} == 1) ? 1 : 0;
+    my ($nothing_quit) = (defined($options{nothing_quit}) && $options{nothing_quit} == 1) ? 1 : 0;
+    $self->set_error();
+    
+    if (defined($options{start})) {
+        $options{start} = $self->clean_oid($options{start});
+    }
+    my ($end_base, $end_instance);
+    if (defined($options{end})) {
+        $options{end} = $self->clean_oid($options{end});
+    }
+    
+    # we use a medium (UDP have a PDU limit. SNMP protcol cant send multiples for one request)
+    # So we need to manage
+    # It's for "bulk". We ask 50 next values. If you set 1, it's like a getnext (snmp v1)
+    my $repeat_count = 50;
+    if (defined($self->{maxrepetitions}) && 
+        $self->{maxrepetitions} =~ /^d+$/) {
+        $repeat_count = $self->{maxrepetitions};
+    }
+    
+    # Transform asking
+    if ($options{oid} !~ /(.*)\.(\d+)([\.\s]*)$/) {
+        if ($dont_quit == 1) {
+            $self->set_error(error_status => -1, error_msg => "Method 'get_table': Wrong OID '" . $options{oid} . "'.");
+            return undef;
+        }
+        $self->{output}->add_option_msg(short_msg => "Method 'get_table': Wrong OID '" . $options{oid} . "'.");
+        $self->{output}->option_exit(exit_litteral => $self->{option_results}->{snmp_errors_exit});
+    }
+    
+    my $main_indice = $1 . "." . $2;
+    my $results = {};
+    
+    # Quit if base not the same or 'ENDOFMIBVIEW' value
+    my $leave = 1;
+    my $last_oid;
+
+    if (defined($options{start})) {
+        $last_oid = $options{start};
+    } else {
+        $last_oid = $options{oid};
+    }
+    while ($leave) {
+        $last_oid =~ /(.*)\.(\d+)([\.\s]*)$/;
+        my $vb = new SNMP::VarList([$1, $2]);
+    
+        if ($self->is_snmpv1()) {
+            $self->{session}->getnext($vb);
+        } else {
+            $self->{session}->getbulk(0, $repeat_count, $vb);
+        }
+        
+        # Error
+        if ($self->{session}->{ErrorNum}) {
+            # 0    noError       Pas d'erreurs.
+            # 1    tooBig        Reponse de taille trop grande.
+            # 2    noSuchName    Variable inexistante.
+            if ($self->{session}->{ErrorNum} == 2) {
+                # We are at the end with snmpv1. We quit.
+                last;
+            }
+            my $msg = 'SNMP Table Request : ' . $self->{session}->{ErrorStr};
+        
+            if ($dont_quit == 0) {
+                $self->{output}->add_option_msg(short_msg => $msg);
+                $self->{output}->option_exit(exit_litteral => $self->{option_results}->{snmp_errors_exit});
+            }
+            
+            $self->set_error(error_status => -1, error_msg => $msg);
+            return undef;
+        }
+        
+        # Manage
+        foreach my $entry (@$vb) {
+            if (${$entry}[2] eq 'ENDOFMIBVIEW') {
+                # END mib
+                $leave = 0;
+                last;
+            }
+        
+            # Not in same table
+            my $complete_oid = ${$entry}[0] . "." . ${$entry}[1];
+            if ($complete_oid !~ /^$main_indice\./ ||
+                (defined($options{end}) && $self->check_oid_up($complete_oid, $options{end}) )) {
+                $leave = 0;
+                last;
+            }
+        
+            $results->{$complete_oid} = ${$entry}[2];
+            $last_oid = $complete_oid;
+        }
+    }
+    
+    if ($nothing_quit == 1 && scalar(keys %$results) == 0) {
+        $self->{output}->add_option_msg(short_msg => "SNMP Table Request: Cant get a single value.");
+        $self->{output}->option_exit(exit_litteral => $self->{option_results}->{snmp_errors_exit});
+    }
+    
+    return $results;
+}
+
+sub set {
+    my ($self, %options) = @_;
+    # $options{dont_quit} = integer
+    # $options{oids} = ref to hash table
+    my ($dont_quit) = (defined($options{dont_quit}) && $options{dont_quit} == 1) ? 1 : 0;
+    $self->set_error();
+
+    my $vars = [];
+    foreach my $oid (keys %{$options{oids}}) {
+        # Get last value
+        next if ($oid !~ /(.*)\.(\d+)([\.\s]*)$/);
+        
+        my $value = $options{oids}->{$oid};
+        my ($oid, $instance) = ($1, $2);
+       
+        push @$vars, [$oid, $instance, $value];
+    }
+    
+    $self->{session}->set($vars);
+    if ($self->{session}->{ErrorNum}) {
+        # 0    noError       Pas d'erreurs.
+        # 1    tooBig        Reponse de taille trop grande.
+        # 2    noSuchName    Variable inexistante.
+    
+        my $msg = 'SNMP SET Request : ' . $self->{session}->{ErrorStr};
+        
+        if ($dont_quit == 0) {
+            $self->{output}->add_option_msg(short_msg => $msg);
+            $self->{output}->option_exit(exit_litteral => $self->{option_results}->{snmp_errors_exit});
+        }
+        
+        $self->set_error(error_status => -1, error_msg => $msg);
+        return undef;
+    }
+
+    return 0;
+}
+
+sub is_snmpv1 {
+    my $self = shift;
+    
+    if ($self->{snmp_params}->{Version} eq '1') {
+        return 1;
+    }
+    return 0;
+}
+
+sub clean_oid {
+    my $self = shift;
+    
+    $_[0] =~ s/\.$//;
+    $_[0] =~ s/^(\d)/\.$1/;
+    return $_[0];
+}
+
+sub check_oid_up {
+    my $self = shift;
+    my ($current_oid, $end_oid) = @_;
+    
+    my @current_oid_splitted = split /\./, $current_oid;
+    my @end_oid_splitted = split /\./, $end_oid;
+    # Skip first value (before first '.' empty)
+    for (my $i = 1; $i <= $#current_oid_splitted && $i <= $#end_oid_splitted; $i++) {
+        if (int($current_oid_splitted[$i]) > int($end_oid_splitted[$i])) {
+            return 1;
+        }
+    }
+    
+    return 0;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    # $options{option_results} = ref to options result
+    
+    if (!defined($options{option_results}->{host})) {
+        $self->{output}->add_option_msg(short_msg => "Missing parameter --hostname.");
+        $self->{output}->option_exit();
+    }
+
+    $options{option_results}->{snmp_version} =~ s/^v//;
+    if ($options{option_results}->{snmp_version} !~ /1|2c|2|3/) {
+        $self->{output}->add_option_msg(short_msg => "Unknown snmp version.");
+        $self->{output}->option_exit();
+    }
+
+    $self->{maxrepetitions} = $options{option_results}->{maxrepetitions};
+    $self->{subsetleef} = (defined($options{option_results}->{subsetleef}) && $options{option_results}->{subsetleef} =~ /^[0-9]+$/) ? $options{option_results}->{subsetleef} : 50;
+    $self->{snmp_errors_exit} = $options{option_results}->{snmp_errors_exit};
+
+    %{$self->{snmp_params}} = (DestHost => $options{option_results}->{host},
+                               Community => $options{option_results}->{snmp_community},
+                               Version => $options{option_results}->{snmp_version},
+                               RemotePort => $options{option_results}->{snmp_port});
+    
+    if (defined($options{option_results}->{snmp_timeout}) && $options{option_results}->{snmp_timeout} =~ /^[0-9]+$/) {
+        $self->{snmp_params}->{Timeout} = $options{option_results}->{snmp_timeout} * (10**6);
+    }
+    if (defined($options{option_results}->{snmp_retries}) && $options{option_results}->{snmp_retries} =~ /^[0-9]+$/) {
+        $self->{snmp_params}->{Retries} = $options{option_results}->{snmp_retries};
+    }
+
+    if ($options{option_results}->{snmp_version} eq "3") {
+
+        $self->{snmp_params}->{Context} = $options{option_results}->{snmp_context_name} if (defined($options{option_results}->{snmp_context_name}));
+        $self->{snmp_params}->{ContextEngineId} = $options{option_results}->{snmp_context_engine_id} if (defined($options{option_results}->{snmp_context_engine_id}));
+        $self->{snmp_params}->{SecEngineId} = $options{option_results}->{snmp_security_engine_id} if (defined($options{option_results}->{snmp_security_engine_id}));
+        $self->{snmp_params}->{SecName} = $options{option_results}->{snmp_security_name} if (defined($options{option_results}->{snmp_security_name}));
+        
+        # Certificate SNMPv3. Need net-snmp > 5.6
+        if ($options{option_results}->{host} =~ /^(dtls|tls|ssh).*:/) {
+            $self->{snmp_params}->{OurIdentity} = $options{option_results}->{snmp_our_identity} if (defined($options{option_results}->{snmp_our_identity}));
+            $self->{snmp_params}->{TheirIdentity} = $options{option_results}->{snmp_their_identity} if (defined($options{option_results}->{snmp_their_identity}));
+            $self->{snmp_params}->{TheirHostname} = $options{option_results}->{snmp_their_hostname} if (defined($options{option_results}->{snmp_their_hostname}));
+            $self->{snmp_params}->{TrustCert} = $options{option_results}->{snmp_trust_cert} if (defined($options{option_results}->{snmp_trust_cert}));
+            $self->{snmp_params}->{SecLevel} = 'authPriv';
+            return ;
+        }
+        
+
+        if (!defined($options{option_results}->{snmp_security_name})) {
+            $self->{output}->add_option_msg(short_msg => "Missing paramater Security Name.");
+            $self->{output}->option_exit();
+        }
+        
+        # unauthenticated and unencrypted
+        if (!defined($options{option_results}->{snmp_auth_passphrase}) && !defined($options{option_results}->{snmp_priv_passphrase})) {
+            $self->{snmp_params}->{SecLevel} = 'noAuthNoPriv';
+            return ;
+        }
+
+        if (defined($options{option_results}->{snmp_auth_passphrase}) && !defined($options{option_results}->{snmp_auth_protocol})) {
+            $self->{output}->add_option_msg(short_msg => "Missing parameter authenticate protocol.");
+            $self->{output}->option_exit();
+        }
+        $options{option_results}->{snmp_auth_protocol} = lc($options{option_results}->{snmp_auth_protocol});
+        if ($options{option_results}->{snmp_auth_protocol} ne "md5" && $options{option_results}->{snmp_auth_protocol} ne "sha") {
+            $self->{output}->add_option_msg(short_msg => "Wrong authentication protocol. Must be MD5 or SHA.");
+            $self->{output}->option_exit();
+        }
+
+        $self->{snmp_params}->{SecLevel} = 'authNoPriv';
+        $self->{snmp_params}->{AuthProto} = $options{option_results}->{snmp_auth_protocol};
+        $self->{snmp_params}->{AuthPass} = $options{option_results}->{snmp_auth_passphrase};
+
+        if (defined($options{option_results}->{snmp_priv_passphrase}) && !defined($options{option_results}->{snmp_priv_protocol})) {
+            $self->{output}->add_option_msg(short_msg => "Missing parameter privacy protocol.");
+            $self->{output}->option_exit();
+        }
+        
+        if (defined($options{option_results}->{snmp_priv_protocol})) {
+            $options{option_results}->{snmp_priv_protocol} = lc($options{option_results}->{snmp_priv_protocol});
+            if ($options{option_results}->{snmp_priv_protocol} ne 'des' && $options{option_results}->{snmp_priv_protocol} ne 'aes') {
+                $self->{output}->add_option_msg(short_msg => "Wrong privacy protocol. Must be DES or AES.");
+                $self->{output}->option_exit();
+            }
+            
+            $self->{snmp_params}->{SecLevel} = 'authPriv';
+            $self->{snmp_params}->{PrivPass} = $options{option_results}->{snmp_priv_passphrase};
+            $self->{snmp_params}->{PrivProto} = $options{option_results}->{snmp_priv_protocol};
+        }
+    }
+}
+
+sub set_error {
+    my ($self, %options) = @_;
+    # $options{error_msg} = string error
+    # $options{error_status} = integer status
+    
+    $self->{error_status} = defined($options{error_status}) ? $options{error_status} : 0;
+    $self->{error_msg} = defined($options{error_msg}) ? $options{error_msg} : undef;
+}
+
+sub error_status {
+     my ($self) = @_;
+    
+    return $self->{error_status};
+}
+
+sub error {
+    my ($self) = @_;
+    
+    return $self->{error_msg};
+}
+
+sub get_hostname {
+    my ($self) = @_;
+
+    my $host = $self->{snmp_params}->{DestHost};
+    $host =~ s/.*://;
+    return $host;
+}
+
+sub oid_lex_sort {
+    my $self = shift;
+
+    if (@_ <= 1) {
+        return @_;
+    }
+
+    return map { $_->[0] }
+            sort { $a->[1] cmp $b->[1] }
+                map
+                {
+                   my $oid = $_;
+                   $oid =~ s/^\.//;
+                   $oid =~ s/ /\.0/g;
+                   [$_, pack 'N*', split m/\./, $oid]
+                } @_;
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+SNMP global
+
+=head1 SYNOPSIS
+
+snmp class
+
+=head1 SNMP OPTIONS
+
+=over 8
+
+=item B<--hostname>
+
+Hostname to query (required).
+
+=item B<--snmp-community>
+
+Read community (defaults to public).
+
+=item B<--snmp-version>
+
+Version: 1 for SNMP v1 (default), 2 for SNMP v2c, 3 for SNMP v3.
+
+=item B<--snmp-port>
+
+Port (default: 161).
+
+=item B<--snmp-timeout>
+
+Timeout in secondes (default: 1) before retries.
+
+=item B<--snmp-retries>
+
+Set the number of retries (default: 5) before failure.
+
+=item B<--maxrepetitions>
+
+Max repititions value (default: 50) (only for SNMP v2 and v3).
+
+=item B<--subsetleef>
+
+How many oid values per SNMP request (default: 50) (for get_leef method. Be cautious whe you set it. Prefer to let the default value).
+
+=item B<--snmp-username>
+
+Security name (only for SNMP v3).
+
+=item B<--authpassphrase>
+
+Authentication protocol pass phrase.
+
+=item B<--authprotocol>
+
+Authentication protocol (MD5|SHA)
+
+=item B<--privpassphrase>
+
+Privacy protocol pass phrase
+
+=item B<--privprotocol>
+
+Privacy protocol (DES|AES)
+
+=item B<--contextname>
+
+Context name
+
+=item B<--contextengineid>
+
+Context engine ID
+
+=item B<--securityengineid>
+
+Security engine ID
+
+=item B<--snmp-errors-exit>
+
+Exit code for SNMP Errors (default: unknown)
+
+=back
+
+=head1 DESCRIPTION
+
+B<snmp>.
+
+=cut

centreon/plugins/statefile.pm

@@ -0,0 +1,185 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package centreon::plugins::statefile;
+use Data::Dumper;
+use vars qw($datas);
+
+sub new {
+    my ($class, %options) = @_;
+    my $self  = {};
+    bless $self, $class;
+
+    if (defined($options{options})) {
+        $options{options}->add_options(arguments =>
+                                {
+                                  "memcached:s"         => { name => 'memcached' },
+                                  "statefile-dir:s"     => { name => 'statefile_dir', default => '/var/lib/centreon/centplugins' },
+                                });
+        $options{options}->add_help(package => __PACKAGE__, sections => 'RETENTION OPTIONS', once => 1);
+    }
+    
+    $self->{output} = $options{output};
+    $self->{datas} = {};
+    $self->{memcached} = undef;
+    
+    $self->{statefile_dir} = undef;
+    
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+
+    if (defined($options{option_results}) && defined($options{option_results}->{memcached})) {
+        require Memcached::libmemcached;
+        $self->{memcached} = Memcached::libmemcached->new();
+        Memcached::libmemcached::memcached_server_add($self->{memcached}, $options{option_results}->{memcached});
+    }
+    $self->{statefile_dir} = $options{option_results}->{statefile_dir};
+}
+
+sub read {
+    my ($self, %options) = @_;
+    $self->{statefile_dir} = defined($options{statefile_dir}) ? $options{statefile_dir} : $self->{statefile_dir};
+    $self->{statefile} =  defined($options{statefile}) ? $options{statefile} : $self->{statefile};
+
+    if (defined($self->{memcached})) {
+        # if "SUCCESS" or "NOT FOUND" is ok. Other with use the file
+        my $val = Memcached::libmemcached::memcached_get($self->{memcached}, $self->{statefile_dir} . "/" . $self->{statefile});
+        if (defined($self->{memcached}->errstr) && $self->{memcached}->errstr =~ /^SUCCESS|NOT FOUND$/i) {
+            if (defined($val)) {
+                eval( $val );
+                $self->{datas} = $datas;
+                $datas = {};
+                return 1;
+            }
+            return 0;
+        }
+        $self->{memcached_ok} = 0;
+    }
+    
+    if (! -e $self->{statefile_dir} . "/" . $self->{statefile}) {
+        if (! -w $self->{statefile_dir}) {
+            $self->{output}->add_option_msg(short_msg =>  "Cannot write statefile '" . $self->{statefile_dir} . "/" . $self->{statefile} . "'. Need write permissions on directory.");
+            $self->{output}->option_exit();
+        }
+        return 0;
+    } elsif (! -w $self->{statefile_dir} . "/" . $self->{statefile}) {
+        $self->{output}->add_option_msg(short_msg => "Cannot write statefile '" . $self->{statefile_dir} . "/" . $self->{statefile} . "'. Need write permissions on file.");
+        $self->{output}->option_exit();
+    }
+    
+    unless (my $return = do $self->{statefile_dir} . "/" . $self->{statefile}) {
+        if ($@) {
+            $self->{output}->add_option_msg(short_msg => "Couldn't parse '" . $self->{statefile_dir} . "/" . $self->{statefile} . "': $@");
+            $self->{output}->option_exit();
+        }
+        unless (defined($return)) {
+            $self->{output}->add_option_msg(short_msg => "Couldn't do '" . $self->{statefile_dir} . "/" . $self->{statefile} . "': $!");
+            $self->{output}->option_exit();
+        }
+        unless ($return) {
+            $self->{output}->add_option_msg(short_msg => "Couldn't run '" . $self->{statefile_dir} . "/" . $self->{statefile} . "': $!");
+            $self->{output}->option_exit();
+        }
+    }
+    $self->{datas} = $datas;
+    $datas = {};
+
+    return 1;
+}
+
+sub get_string_content {
+    my ($self, %options) = @_;
+
+    return Data::Dumper::Dumper($self->{datas});
+}
+
+sub get {
+    my ($self, %options) = @_;
+
+    if (defined($self->{datas}->{$options{name}})) {
+        return $self->{datas}->{$options{name}};
+    }
+    return undef;
+}
+
+sub write {
+    my ($self, %options) = @_;
+
+    if (defined($self->{memcached})) {
+        Memcached::libmemcached::memcached_set($self->{memcached}, $self->{statefile_dir} . "/" . $self->{statefile}, 
+                                               Data::Dumper->Dump([$options{data}], ["datas"]));
+        if (defined($self->{memcached}->errstr) && $self->{memcached}->errstr =~ /^SUCCESS$/i) {
+            return ;
+        }
+    }
+    open FILE, ">", $self->{statefile_dir} . "/" . $self->{statefile};
+    print FILE Data::Dumper->Dump([$options{data}], ["datas"]);
+    close FILE;
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+Statefile class
+
+=head1 SYNOPSIS
+
+-
+
+=head1 RETENTION OPTIONS
+
+=over 8
+
+=item B<--memcached>
+
+Memcached server to use (only one server).
+
+=item B<--statefile-dir>
+
+Directory for statefile (Default: '/var/lib/centreon/centplugins').
+
+=back
+
+=head1 DESCRIPTION
+
+B<statefile>.
+
+=cut

centreon_plugins.pl

@@ -1,6 +1,6 @@
-#! /bin/sh
+#!/usr/bin/perl
 ################################################################################
-# Copyright 2004-2011 MERETHIS
+# Copyright 2005-2013 MERETHIS
 # Centreon is developped by : Julien Mathis and Romain Le Merlus under
 # GPL Licence 2.0.
 # 
@@ -30,26 +30,16 @@
 # do not wish to do so, delete this exception statement from your version.
 # 
 # For more information : contact@centreon.com
-# 
-# SVN : $URL$
-# SVN : $Id$
+# Authors : Quentin Garnier <qgarnier@merethis.com>
 #
 ####################################################################################
-#
-# Script init
-#
 
-# Set perfdata file
-PERFFILE="@NAGIOS_VAR@/service-perfdata"
+use strict;
+use warnings;
+use centreon::plugins::script;
+# Not perl embedded compliant at all
+use FindBin;
+use lib "$FindBin::Bin";
+# use lib '/usr/lib/nagios/plugins/';
 
-# some parameters passed on command line
-TIMET=$1
-HOSTNAME=$2
-SERVICEDESC=$3
-HARDSTATE=$4
-SERVICESTATE=$5
-PERFDATA=$6
-
-# Write data in perfdata file
-/usr/bin/printf "%b" "$TIMET\t$HOSTNAME\t$SERVICEDESC\t$HARDSTATE\t$SERVICESTATE\t$PERFDATA\n" >> $PERFFILE
-chmod 664 $PERFFILE
+centreon::plugins::script->new()->run();

database/mysql/mode/connectiontime.pm

@@ -0,0 +1,123 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package database::mysql::mode::connectiontime;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+use Time::HiRes;
+use POSIX;
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                { 
+                                  "warning:s"               => { name => 'warning', },
+                                  "critical:s"              => { name => 'critical', },
+                                });
+
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+
+    if (($self->{perfdata}->threshold_validate(label => 'warning', value => $self->{option_results}->{warning})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong warning threshold '" . $self->{warn1} . "'.");
+       $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'critical', value => $self->{option_results}->{critical})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong critical threshold '" . $self->{critical} . "'.");
+       $self->{output}->option_exit();
+    }
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{sql} = sqlmode object
+    $self->{sql} = $options{sql};
+
+    my $now = Time::HiRes::time();
+    my ($exit, $msg_error) = $self->{sql}->connect(dontquit => 1);
+    my $now2 = Time::HiRes::time();
+    
+    if ($exit == -1) {
+        $self->{output}->output_add(severity => 'CRITICAL',
+                                    short_msg => $msg_error);
+    } else {
+        my $milliseconds = $now2 - $now;
+        $milliseconds = floor($milliseconds * 1000);
+        my $exit_code = $self->{perfdata}->threshold_check(value => $milliseconds, threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]);
+        $self->{output}->output_add(severity => $exit_code,
+                                    short_msg => sprintf("Connection established in %.3fs.", $milliseconds / 1000));
+        $self->{output}->perfdata_add(label => 'connection_time', unit => 'ms',
+                                      value => $milliseconds,
+                                      warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning'),
+                                      critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical'),
+                                      min => 0);
+    }
+    
+    $self->{output}->display();
+    $self->{output}->exit();
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+Check MySQL connection time.
+
+=over 8
+
+=item B<--warning>
+
+Threshold warning in milliseconds.
+
+=item B<--critical>
+
+Threshold critical in milliseconds.
+
+=back
+
+=cut

database/mysql/mode/databasessize.pm

@@ -0,0 +1,138 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package database::mysql::mode::databasessize;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                { 
+                                  "warning:s"               => { name => 'warning', },
+                                  "critical:s"              => { name => 'critical', },
+                                  "filter:s"                => { name => 'filter', },
+                                });
+
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+
+    if (($self->{perfdata}->threshold_validate(label => 'warning', value => $self->{option_results}->{warning})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong warning threshold '" . $self->{warn1} . "'.");
+       $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'critical', value => $self->{option_results}->{critical})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong critical threshold '" . $self->{critical} . "'.");
+       $self->{output}->option_exit();
+    }
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{sql} = sqlmode object
+    $self->{sql} = $options{sql};
+
+    $self->{sql}->connect();
+    $self->{sql}->query(query => 'SELECT table_schema AS NAME, SUM(data_length+index_length) 
+            FROM information_schema.tables
+            GROUP BY table_schema');
+    my $result = $self->{sql}->fetchall_arrayref();
+    
+    if (!($self->{sql}->is_version_minimum(version => '5'))) {
+        $self->{output}->add_option_msg(short_msg => "MySQL version '" . $self->{sql}->{version} . "' is not supported.");
+        $self->{output}->option_exit();
+    } 
+    
+    $self->{output}->output_add(severity => 'OK',
+                                short_msg => "All databases are ok.");
+    foreach my $row (@$result) {
+        next if (defined($self->{option_results}->{filter}) && 
+                 $$row[0] !~ /$self->{option_results}->{filter}/);
+    
+        my $exit_code = $self->{perfdata}->threshold_check(value => $$row[1], threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]);
+        
+        my ($value, $value_unit) = $self->{perfdata}->change_bytes(value => $$row[1]);
+        $self->{output}->output_add(long_msg => sprintf("DB '" . $$row[0] . "' size: %.3f%s", $value, $value_unit));
+        if (!$self->{output}->is_status(value => $exit_code, compare => 'ok', litteral => 1)) {
+            $self->{output}->output_add(severity => $exit_code,
+                                        short_msg => sprintf("DB '" . $$row[0] . "' size: %.3f%s", $value, $value_unit));
+        }
+        $self->{output}->perfdata_add(label => $$row[0] . '_size',
+                                      value => $$row[1],
+                                      warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning'),
+                                      critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical'),
+                                      min => 0);
+    }
+    
+    $self->{output}->display();
+    $self->{output}->exit();
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+Check MySQL databases size.
+
+=over 8
+
+=item B<--warning>
+
+Threshold warning in bytes.
+
+=item B<--critical>
+
+Threshold critical in bytes.
+
+=item B<--filter>
+
+Filter database to checks.
+
+=back
+
+=cut

database/mysql/mode/innodbbufferpoolhitrate.pm

@@ -0,0 +1,167 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package database::mysql::mode::innodbbufferpoolhitrate;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+use centreon::plugins::statefile;
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                { 
+                                  "warning:s"               => { name => 'warning', },
+                                  "critical:s"              => { name => 'critical', },
+                                  "lookback"                => { name => 'lookback', },
+                                });
+    $self->{statefile_cache} = centreon::plugins::statefile->new(%options);
+
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+
+    if (($self->{perfdata}->threshold_validate(label => 'warning', value => $self->{option_results}->{warning})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong warning threshold '" . $self->{warn1} . "'.");
+       $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'critical', value => $self->{option_results}->{critical})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong critical threshold '" . $self->{critical} . "'.");
+       $self->{output}->option_exit();
+    }
+
+    $self->{statefile_cache}->check_options(%options);
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{sql} = sqlmode object
+    $self->{sql} = $options{sql};
+
+    $self->{sql}->connect();
+    
+    if (!($self->{sql}->is_version_minimum(version => '5'))) {
+        $self->{output}->add_option_msg(short_msg => "MySQL version '" . $self->{sql}->{version} . "' is not supported (need version >= '5.x').");
+        $self->{output}->option_exit();
+    }
+    
+    $self->{sql}->query(query => q{SHOW /*!50000 global */ STATUS WHERE Variable_name IN ('Innodb_buffer_pool_read_requests', 'Innodb_buffer_pool_reads')});
+    my $new_datas = {Innodb_buffer_pool_read_requests => undef, Innodb_buffer_pool_reads => undef};
+    my $result = $self->{sql}->fetchall_arrayref();
+    foreach my $row (@{$result}) {
+        $new_datas->{$$row[0]} = $$row[1];
+    }
+    foreach (keys %$new_datas) {
+        if (!defined($new_datas->{$_})) {
+            $self->{output}->add_option_msg(short_msg => "Cannot get '$_' variable.");
+            $self->{output}->option_exit();
+        }
+    }
+
+    $self->{statefile_cache}->read(statefile => 'mysql_' . $self->{mode} . '_' . $self->{sql}->get_unique_id4save());
+    my $old_timestamp = $self->{statefile_cache}->get(name => 'last_timestamp');
+    $new_datas->{last_timestamp} = time();
+
+    my $old_read_request = $self->{statefile_cache}->get(name => 'Innodb_buffer_pool_read_requests');
+    my $old_read = $self->{statefile_cache}->get(name => 'Innodb_buffer_pool_reads');
+    if (defined($old_read_request) && defined($old_read) &&
+        $new_datas->{Innodb_buffer_pool_read_requests} >= $old_read_request &&
+        $new_datas->{Innodb_buffer_pool_reads} >= $old_read) {
+        
+        
+        my %prcts = ();
+        my $total_read_requests = $new_datas->{Innodb_buffer_pool_read_requests} - $old_read_request;
+        my $total_read_disk = $new_datas->{Innodb_buffer_pool_reads} - $old_read;
+        $prcts{bufferpool_hitrate_now} = ($total_read_requests == 0) ? 100 : ($total_read_requests - $total_read_disk) * 100 / $total_read_requests;
+        $prcts{bufferpool_hitrate} = ($new_datas->{Innodb_buffer_pool_read_requests} == 0) ? 100 : ($new_datas->{Innodb_buffer_pool_read_requests} - $new_datas->{Innodb_buffer_pool_reads}) * 100 / $new_datas->{Innodb_buffer_pool_read_requests};
+        
+        my $exit_code = $self->{perfdata}->threshold_check(value => $prcts{'bufferpool_hitrate' . ((defined($self->{option_results}->{lookback})) ? '_now' : '' )}, threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]);
+        $self->{output}->output_add(severity => $exit_code,
+                                    short_msg => sprintf("innodb buffer pool hitrate at %.2f%%", $prcts{'bufferpool_hitrate' . ((defined($self->{option_results}->{lookback})) ? '' : '_now')})
+                                    );
+        $self->{output}->perfdata_add(label => 'bufferpool_hitrate' . ((defined($self->{option_results}->{lookback})) ? '' : '_now'), unit => '%',
+                                      value => sprintf("%.2f", $prcts{'bufferpool_hitrate' . ((defined($self->{option_results}->{lookback})) ? '_now' : '')}),
+                                      warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning'),
+                                      critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical'),
+                                      min => 0);
+        $self->{output}->perfdata_add(label => 'bufferpool_hitrate' . ((defined($self->{option_results}->{lookback})) ? '_now' : ''), unit => '%',
+                                      value => sprintf("%.2f", $prcts{'bufferpool_hitrate' . ((defined($self->{option_results}->{lookback})) ? '_now' : '')}),
+                                      min => 0);
+    }
+    
+    $self->{statefile_cache}->write(data => $new_datas); 
+    if (!defined($old_timestamp)) {
+        $self->{output}->output_add(severity => 'OK',
+                                    short_msg => "Buffer creation...");
+    }
+    
+    $self->{output}->display();
+    $self->{output}->exit();
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+Check hitrate in the InnoDB Buffer Pool.
+
+=over 8
+
+=item B<--warning>
+
+Threshold warning.
+
+=item B<--critical>
+
+Threshold critical.
+
+=item B<--lookback>
+
+Threshold isn't on the percent calculated from the difference ('bufferpool_hitrate_now').
+
+=back
+
+=cut

database/mysql/mode/myisamkeycachehitrate.pm

@@ -0,0 +1,167 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package database::mysql::mode::myisamkeycachehitrate;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+use centreon::plugins::statefile;
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                { 
+                                  "warning:s"               => { name => 'warning', },
+                                  "critical:s"              => { name => 'critical', },
+                                  "lookback"                => { name => 'lookback', },
+                                });
+    $self->{statefile_cache} = centreon::plugins::statefile->new(%options);
+
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+
+    if (($self->{perfdata}->threshold_validate(label => 'warning', value => $self->{option_results}->{warning})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong warning threshold '" . $self->{warn1} . "'.");
+       $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'critical', value => $self->{option_results}->{critical})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong critical threshold '" . $self->{critical} . "'.");
+       $self->{output}->option_exit();
+    }
+
+    $self->{statefile_cache}->check_options(%options);
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{sql} = sqlmode object
+    $self->{sql} = $options{sql};
+
+    $self->{sql}->connect();
+    
+    if (!($self->{sql}->is_version_minimum(version => '5'))) {
+        $self->{output}->add_option_msg(short_msg => "MySQL version '" . $self->{sql}->{version} . "' is not supported (need version >= '5.x').");
+        $self->{output}->option_exit();
+    }
+    
+    $self->{sql}->query(query => q{SHOW /*!50000 global */ STATUS WHERE Variable_name IN ('Key_read_requests', 'Key_reads')});
+    my $new_datas = {Key_read_requests => undef, Key_reads => undef};
+    my $result = $self->{sql}->fetchall_arrayref();
+    foreach my $row (@{$result}) {
+        $new_datas->{$$row[0]} = $$row[1];
+    }
+    foreach (keys %$new_datas) {
+        if (!defined($new_datas->{$_})) {
+            $self->{output}->add_option_msg(short_msg => "Cannot get '$_' variable.");
+            $self->{output}->option_exit();
+        }
+    }
+
+    $self->{statefile_cache}->read(statefile => 'mysql_' . $self->{mode} . '_' . $self->{sql}->get_unique_id4save());
+    my $old_timestamp = $self->{statefile_cache}->get(name => 'last_timestamp');
+    $new_datas->{last_timestamp} = time();
+
+    my $old_read_request = $self->{statefile_cache}->get(name => 'Key_read_requests');
+    my $old_read = $self->{statefile_cache}->get(name => 'Key_reads');
+    if (defined($old_read_request) && defined($old_read) &&
+        $new_datas->{Key_read_requests} >= $old_read_request &&
+        $new_datas->{Key_reads} >= $old_read) {
+        
+        
+        my %prcts = ();
+        my $total_read_requests = $new_datas->{Key_read_requests} - $old_read_request;
+        my $total_read_disk = $new_datas->{Key_reads} - $old_read;
+        $prcts{keycache_hitrate_now} = ($total_read_requests == 0) ? 100 : ($total_read_requests - $total_read_disk) * 100 / $total_read_requests;
+        $prcts{keycache_hitrate} = ($new_datas->{Key_read_requests} == 0) ? 100 : ($new_datas->{Key_read_requests} - $new_datas->{Key_reads}) * 100 / $new_datas->{Key_read_requests};
+        
+        my $exit_code = $self->{perfdata}->threshold_check(value => $prcts{'keycache_hitrate' . ((defined($self->{option_results}->{lookback})) ? '_now' : '' )}, threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]);
+        $self->{output}->output_add(severity => $exit_code,
+                                    short_msg => sprintf("myisam keycache hitrate at %.2f%%", $prcts{'keycache_hitrate' . ((defined($self->{option_results}->{lookback})) ? '' : '_now')})
+                                    );
+        $self->{output}->perfdata_add(label => 'keycache_hitrate' . ((defined($self->{option_results}->{lookback})) ? '' : '_now'), unit => '%',
+                                      value => sprintf("%.2f", $prcts{'keycache_hitrate' . ((defined($self->{option_results}->{lookback})) ? '_now' : '')}),
+                                      warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning'),
+                                      critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical'),
+                                      min => 0);
+        $self->{output}->perfdata_add(label => 'keycache_hitrate' . ((defined($self->{option_results}->{lookback})) ? '_now' : ''), unit => '%',
+                                      value => sprintf("%.2f", $prcts{'keycache_hitrate' . ((defined($self->{option_results}->{lookback})) ? '_now' : '')}),
+                                      min => 0);
+    }
+    
+    $self->{statefile_cache}->write(data => $new_datas); 
+    if (!defined($old_timestamp)) {
+        $self->{output}->output_add(severity => 'OK',
+                                    short_msg => "Buffer creation...");
+    }
+    
+    $self->{output}->display();
+    $self->{output}->exit();
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+Check hitrate in the Myisam Key Cache.
+
+=over 8
+
+=item B<--warning>
+
+Threshold warning.
+
+=item B<--critical>
+
+Threshold critical.
+
+=item B<--lookback>
+
+Threshold isn't on the percent calculated from the difference ('keycache_hitrate_now').
+
+=back
+
+=cut

database/mysql/mode/openfiles.pm

@@ -0,0 +1,134 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package database::mysql::mode::openfiles;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                { 
+                                  "warning:s"               => { name => 'warning', },
+                                  "critical:s"              => { name => 'critical', },
+                                });
+
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+
+    if (($self->{perfdata}->threshold_validate(label => 'warning', value => $self->{option_results}->{warning})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong warning threshold '" . $self->{warn1} . "'.");
+       $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'critical', value => $self->{option_results}->{critical})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong critical threshold '" . $self->{critical} . "'.");
+       $self->{output}->option_exit();
+    }
+    
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{sql} = sqlmode object
+    $self->{sql} = $options{sql};
+
+    $self->{sql}->connect();
+    
+    if (!($self->{sql}->is_version_minimum(version => '5'))) {
+        $self->{output}->add_option_msg(short_msg => "MySQL version '" . $self->{sql}->{version} . "' is not supported (need version >= '5.x').");
+        $self->{output}->option_exit();
+    }
+    
+    $self->{sql}->query(query => q{SHOW VARIABLES LIKE 'open_files_limit'});
+    my ($dummy, $open_files_limit) = $self->{sql}->fetchrow_array();
+    if (!defined($open_files_limit)) {
+        $self->{output}->add_option_msg(short_msg => "Cannot get ope files limit.");
+        $self->{output}->option_exit();
+    }
+    $self->{sql}->query(query => q{SHOW /*!50000 global */ STATUS LIKE 'Open_files'});
+    ($dummy, my $open_files) = $self->{sql}->fetchrow_array();
+    if (!defined($open_files)) {
+        $self->{output}->add_option_msg(short_msg => "Cannot get open files.");
+        $self->{output}->option_exit();
+    }
+
+    my $prct_open = int(100 * $open_files / $open_files_limit);
+    my $exit_code = $self->{perfdata}->threshold_check(value => $prct_open, threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]);
+    
+    $self->{output}->output_add(severity => $exit_code,
+                                short_msg => sprintf("%.2f%% of the open files limit reached (%d of max. %d)",
+                                $prct_open, $open_files, $open_files_limit));
+    $self->{output}->perfdata_add(label => 'open_files',
+                                  value => $open_files,
+                                  warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning', total => $open_files_limit, cast_int => 1),
+                                  critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical', total => $open_files_limit, cast_int => 1),
+                                  min => 0);
+
+    $self->{output}->display();
+    $self->{output}->exit();
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+Check number of open files.
+
+=over 8
+
+=item B<--warning>
+
+Threshold warning in percent.
+
+=item B<--critical>
+
+Threshold critical in percent.
+
+=back
+
+=cut

database/mysql/mode/queries.pm

@@ -0,0 +1,157 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package database::mysql::mode::queries;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+use centreon::plugins::statefile;
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                { 
+                                  "warning:s"               => { name => 'warning', },
+                                  "critical:s"              => { name => 'critical', },
+                                });
+    $self->{statefile_cache} = centreon::plugins::statefile->new(%options);
+
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+
+    if (($self->{perfdata}->threshold_validate(label => 'warning', value => $self->{option_results}->{warning})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong warning threshold '" . $self->{warn1} . "'.");
+       $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'critical', value => $self->{option_results}->{critical})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong critical threshold '" . $self->{critical} . "'.");
+       $self->{output}->option_exit();
+    }
+    
+    $self->{statefile_cache}->check_options(%options);
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{sql} = sqlmode object
+    $self->{sql} = $options{sql};
+
+    $self->{sql}->connect();
+    $self->{sql}->query(query => q{
+        SHOW /*!50000 global */ STATUS WHERE Variable_name IN ('Queries', 'Com_update', 'Com_delete', 'Com_insert', 'Com_truncate', 'Com_select') 
+    });
+    my $result = $self->{sql}->fetchall_arrayref();
+    
+    if (!($self->{sql}->is_version_minimum(version => '5.0.76'))) {
+        $self->{output}->add_option_msg(short_msg => "MySQL version '" . $self->{sql}->{version} . "' is not supported (need version >= '5.0.76').");
+        $self->{output}->option_exit();
+    }
+    
+    my $new_datas = {};
+    $self->{statefile_cache}->read(statefile => 'mysql_' . $self->{mode} . '_' . $self->{sql}->get_unique_id4save());
+    my $old_timestamp = $self->{statefile_cache}->get(name => 'last_timestamp');
+    $new_datas->{last_timestamp} = time();
+    
+    if (defined($old_timestamp) && $new_datas->{last_timestamp} - $old_timestamp == 0) {
+        $self->{output}->add_option_msg(short_msg => "Need at least one second between two checks.");
+        $self->{output}->option_exit();
+    }
+    
+    foreach my $row (@{$result}) {
+        next if ($$row[0] !~ /^(Queries|Com_update|Com_delete|Com_insert|Com_truncate|Com_select)/i);
+    
+        $new_datas->{$$row[0]} = $$row[1];
+        my $old_val = $self->{statefile_cache}->get(name => $$row[0]);
+        next if (!defined($old_val) || $$row[1] < $old_val);
+        
+        my $value = int(($$row[1] - $old_val) / ($new_datas->{last_timestamp} - $old_timestamp));
+        if ($$row[0] ne 'Queries') {
+            $self->{output}->perfdata_add(label => $$row[0] . '_requests',
+                                      value => $value,
+                                      min => 0);
+            next;
+        }
+        
+        my $exit_code = $self->{perfdata}->threshold_check(value => $value, threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]);
+        $self->{output}->output_add(severity => $exit_code,
+                                    short_msg => sprintf("Total requests = %d.", $value));
+        $self->{output}->perfdata_add(label => 'total_requests',
+                                      value => $value,
+                                      warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning'),
+                                      critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical'),
+                                      min => 0);
+    }
+    
+    $self->{statefile_cache}->write(data => $new_datas); 
+    if (!defined($old_timestamp)) {
+        $self->{output}->output_add(severity => 'OK',
+                                    short_msg => "Buffer creation...");
+    }
+
+    $self->{output}->display();
+    $self->{output}->exit();
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+Check average number of queries executed.
+
+=over 8
+
+=item B<--warning>
+
+Threshold warning.
+
+=item B<--critical>
+
+Threshold critical.
+
+=back
+
+=cut

database/mysql/mode/replicationmasterslave.pm

@@ -0,0 +1,347 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package database::mysql::mode::replicationmasterslave;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                { 
+                                  "warning:s"               => { name => 'warning', },
+                                  "critical:s"              => { name => 'critical', },
+                                });
+
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+
+    if (($self->{perfdata}->threshold_validate(label => 'warning', value => $self->{option_results}->{warning})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong warning threshold '" . $self->{warn1} . "'.");
+       $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'critical', value => $self->{option_results}->{critical})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong critical threshold '" . $self->{critical} . "'.");
+       $self->{output}->option_exit();
+    }
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{sql} = sqlmode object
+    
+    if (ref($options{sql}) ne 'ARRAY') {
+        $self->{output}->add_option_msg(short_msg => "Need to use --multiple options.");
+        $self->{output}->option_exit();
+    }
+    if (scalar(@{$options{sql}}) < 2) {
+        $self->{output}->add_option_msg(short_msg => "Need to specify two MySQL Server.");
+        $self->{output}->option_exit();
+    }
+
+    my ($sql_one, $sql_two) = @{$options{sql}};
+    my ($slave_status, $slave_status_error) = (0, "");
+    my ($position_status, $position_status_error) = (0, "");
+    my ($connection_status_name_srv1, $connection_status_name_srv2) = ($sql_one->get_id(), $sql_two->get_id());
+    my ($master_save, $slave_save);
+    
+    my ($exit1, $msg_error1) = $sql_one->connect(dontquit => 1);
+    my ($exit2, $msg_error2) = $sql_two->connect(dontquit => 1);
+    $self->{output}->output_add(severity => 'OK',
+                                short_msg => "No problems. Replication is ok.");
+    if ($exit1 == -1) {
+        $self->{output}->output_add(severity => 'CRITICAL',
+                                    short_msg => "Connection Status '" . $sql_one->get_id() . "': " . $msg_error1);
+    } else {
+        $self->{output}->output_add(long_msg => "Connection Status '" . $sql_one->get_id() . "' [OK]");
+    }
+    if ($exit2 == -1) {
+        $self->{output}->output_add(severity => 'CRITICAL',
+                                    short_msg => "Connection Status '" . $sql_two->get_id() . "': " . $msg_error2);
+    } else {
+        $self->{output}->output_add(long_msg => "Connection Status '" . $sql_two->get_id() . "' [OK]");
+    }
+    
+    #####
+    # Find SLAVE
+    #####
+    my ($total_srv1, $total_srv2);
+    my ($last_error1, $last_error2);
+
+    my ($io_thread_status_srv1, $sql_thread_status_srv1);
+    if ($exit1 != -1) {
+        $sql_one->query(query => q{
+            SHOW SLAVE STATUS
+        });
+        my $result = $sql_one->fetchrow_hashref();
+        my $slave_io_running = $result->{Slave_IO_Running};
+        my $slave_sql_running = $result->{Slave_SQL_Running};
+        $last_error1 = $result->{Last_Error};
+        
+        if (defined($slave_io_running) && $slave_io_running =~ /^yes$/i) {
+            $io_thread_status_srv1 = 0;
+        } else {
+            $io_thread_status_srv1 = 1;
+        }
+        if (defined($slave_sql_running) && $slave_sql_running =~ /^yes$/i) {
+            $sql_thread_status_srv1 = 0;
+        } else {
+            $sql_thread_status_srv1 = 1;
+        }
+    } else {
+        $io_thread_status_srv1 = 100;
+        $sql_thread_status_srv1 = 100;
+    }
+
+    my ($io_thread_status_srv2, $sql_thread_status_srv2);
+    if ($exit2 != -1) {
+        $sql_two->query(query => q{
+            SHOW SLAVE STATUS
+        });
+        my $result = $sql_two->fetchrow_hashref();
+        my $slave_io_running = $result->{Slave_IO_Running};
+        my $slave_sql_running = $result->{Slave_SQL_Running};
+        $last_error2 = $result->{Last_Error};
+        
+        if (defined($slave_io_running) && $slave_io_running =~ /^yes$/i) {
+            $io_thread_status_srv2 = 0;
+        } else {
+            $io_thread_status_srv2 = 1;
+        }
+        if (defined($slave_sql_running) && $slave_sql_running =~ /^yes$/i) {
+            $sql_thread_status_srv2 = 0;
+        } else {
+            $sql_thread_status_srv2 = 1;
+        }
+    } else {
+        $io_thread_status_srv2 = 100;
+        $sql_thread_status_srv2 = 100;
+    }
+
+    $total_srv1 = $io_thread_status_srv1 + $sql_thread_status_srv1;
+    $total_srv2 = $io_thread_status_srv2 + $sql_thread_status_srv2;
+    
+    # Check If there is two slave
+    if ($total_srv1 < 2 && $total_srv2 < 2) {
+        $slave_status = 1;
+        $slave_status_error = "Two slave. Need to have only one.";
+    } else {
+        # Check if a thread is down
+        if ($total_srv1 == 1) {
+            $slave_status = -1;
+            $slave_status_error = "A Replication thread is down on '" . $sql_one->get_id() . "'.";
+            if ($sql_thread_status_srv1 != 0) {
+                if (defined($last_error1) && $last_error1 ne "") {
+                    $slave_status = 1;
+                    $slave_status_error .= " SQL Thread is stopped because of an error (error='" . $last_error1 . "').";
+                }
+            }
+        }
+        if ($total_srv2 == 1) {
+            $slave_status = -1;
+            $slave_status_error = "A Replication thread is down on '" . $sql_two->get_id() . "'.";
+            if ($sql_thread_status_srv2 != 0) {
+                if (defined($last_error2) && $last_error2 ne "") {
+                    $slave_status = 1;
+                    $slave_status_error .= " SQL Thread is stopped because of an error (error='" . $last_error2 . "').";
+                }
+            }
+        }
+        
+        # Check if we need to SKIP
+        if ($io_thread_status_srv1 == 100) {
+            $slave_status = -1;
+            $slave_status_error .= " Skip check on '" . $sql_one->get_id() . "'.";
+        }
+        if ($io_thread_status_srv2 == 100) {
+            $slave_status = -1;
+            $slave_status_error .= " Skip check on '" . $sql_two->get_id() . "'.";
+        }
+        
+        # Save Slave
+        if ($total_srv1 < 2) {
+            $slave_save = $sql_one;
+            $master_save = $sql_two;
+        }
+        if ($total_srv2 < 2) {
+            $slave_save = $sql_two;
+            $master_save = $sql_one;
+        }
+
+        if ($total_srv2 > 1 && $total_srv1 > 1) {
+            $slave_status = 1;
+            $slave_status_error .= " No slave (maybe because we cannot check a server).";
+        }
+    }
+    
+    ####
+    # Check Slave position
+    ####    
+    if (!defined($slave_save)) {
+        $position_status = -2;
+        $position_status_error = "Skip because we can't identify a unique slave.";
+    } else {
+        if ($master_save->get_id() eq $connection_status_name_srv1 && $exit1 == -1) {
+            $position_status = -1;
+            $position_status_error = "Can't get master position on '" . $master_save->get_id() . "'.";
+        } elsif ($master_save->get_id() eq $connection_status_name_srv2 && $exit2 == -1) {
+            $position_status = -1;
+            $position_status_error = "Can't get master position on '" . $master_save->get_id() . "'.";
+        } else {
+            # Get Master Position
+            $master_save->query(query => q{
+                SHOW MASTER STATUS
+            });
+            my $result = $master_save->fetchrow_hashref();
+            my $master_file = $result->{File};
+            my $master_position = $result->{Position};
+            
+            $slave_save->query(query => q{
+                SHOW SLAVE STATUS
+            });
+            my $result2 = $slave_save->fetchrow_hashref();
+            my $slave_file = $result2->{Master_Log_File}; # 'Master_Log_File'
+            my $slave_position = $result2->{Read_Master_Log_Pos}; # 'Read_Master_Log_Pos'
+            my $num_sec_lates = $result2->{Seconds_Behind_Master};
+
+            my $exit_code_sec = $self->{perfdata}->threshold_check(value => $num_sec_lates, threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]);
+            if (!$self->{output}->is_status(value => $exit_code_sec, compare => 'ok', litteral => 1)) {
+                $self->{output}->output_add(severity => $exit_code_sec,
+                                            short_msg => sprintf("Slave has %d seconds latency behind master", $num_sec_lates));
+            }
+            $self->{output}->perfdata_add(label => 'slave_latency', unit => 's',
+                                          value => $num_sec_lates,
+                                          warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning'),
+                                          critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical'),
+                                          min => 0);
+            
+            my $slave_sql_thread_ko = 1;
+            my $slave_sql_thread_warning = 1;
+            my $slave_sql_thread_ok = 1;
+            
+            $slave_save->query(query => q{
+                SHOW FULL PROCESSLIST
+            });
+            while ((my $row = $slave_save->fetchrow_hashref())) {
+                my $state = $row->{State};
+                $slave_sql_thread_ko = 0 if (defined($state) && $state =~ /^(Waiting to reconnect after a failed binlog dump request|Connecting to master|Reconnecting after a failed binlog dump request|Waiting to reconnect after a failed master event read|Waiting for the slave SQL thread to free enough relay log space)$/i);
+                $slave_sql_thread_warning = 0 if (defined($state) && $state =~ /^Waiting for the next event in relay log|Reading event from the relay log$/i);
+                $slave_sql_thread_ok = 0 if (defined($state) && $state =~ /^Has read all relay log; waiting for the slave I\/O thread to update it$/i);
+            }
+            
+            if ($slave_sql_thread_ko == 0) {
+                $position_status = 1;
+                $position_status_error .= " Slave replication has connection issue with the master.";
+            } elsif (($master_file ne $slave_file || $master_position != $slave_position) && $slave_sql_thread_warning == 0) {
+                $position_status = -1;
+                $position_status_error .= " Slave replication is late but it's progressing..";
+            } elsif (($master_file ne $slave_file || $master_position != $slave_position) && $slave_sql_thread_ok == 0) {
+                $position_status = -1;
+                $position_status_error .= " Slave replication is late but it's progressing..";
+            }
+        }
+    }
+    
+
+
+    $self->replication_add($slave_status, "Slave Thread Status", $slave_status_error);
+	$self->replication_add($position_status, "Position Status", $position_status_error);
+    
+    $self->{output}->display();
+    $self->{output}->exit();
+}
+
+sub replication_add {
+	my ($self, $lstate, $str_display, $lerr) = @_;
+	my $status;
+    my $status_msg;
+
+	if ($lstate == 0) {
+		$status = 'OK';
+	} elsif ($lstate == -1) {
+		$status = 'WARNING';
+	} elsif ($lstate == -2) {
+		$status = 'CRITICAL';
+        $status_msg = 'SKIP';
+	} else {
+		$status = 'CRITICAL';
+	}
+
+    my $output;
+	if (defined($lerr) && $lerr ne "") {
+		$output = $str_display . " [" . (defined($status_msg) ? $status_msg : $status) . "] [" . $lerr . "]";
+	} else {
+		$output = $str_display . " [" . (defined($status_msg) ? $status_msg : $status) . "]";
+	}
+    if (!$self->{output}->is_status(value => $status, compare => 'ok', litteral => 1)) {
+        $self->{output}->output_add(severity => $status,
+                                    short_msg => $output);
+    }
+    
+	$self->{output}->output_add(long_msg => $output);
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+Check MySQL replication master/slave (need to use --multiple).
+
+=over 8
+
+=item B<--warning>
+
+Threshold warning in seconds (slave latency).
+
+=item B<--critical>
+
+Threshold critical in seconds (slave latency).
+
+=back
+
+=cut

database/mysql/mode/slowqueries.pm

@@ -0,0 +1,153 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package database::mysql::mode::slowqueries;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+use centreon::plugins::statefile;
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                { 
+                                  "warning:s"               => { name => 'warning', },
+                                  "critical:s"              => { name => 'critical', },
+                                });
+    $self->{statefile_cache} = centreon::plugins::statefile->new(%options);
+
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+
+    if (($self->{perfdata}->threshold_validate(label => 'warning', value => $self->{option_results}->{warning})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong warning threshold '" . $self->{warn1} . "'.");
+       $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'critical', value => $self->{option_results}->{critical})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong critical threshold '" . $self->{critical} . "'.");
+       $self->{output}->option_exit();
+    }
+    
+    $self->{statefile_cache}->check_options(%options);
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{sql} = sqlmode object
+    $self->{sql} = $options{sql};
+
+    $self->{sql}->connect();
+    
+    if (!($self->{sql}->is_version_minimum(version => '5'))) {
+        $self->{output}->add_option_msg(short_msg => "MySQL version '" . $self->{sql}->{version} . "' is not supported (need version >= '5.x').");
+        $self->{output}->option_exit();
+    }
+    
+    $self->{sql}->query(query => q{SHOW /*!50000 global */ STATUS LIKE 'Slow_queries'});
+    my ($name, $result) = $self->{sql}->fetchrow_array();
+    if (!defined($result)) {
+        $self->{output}->add_option_msg(short_msg => "Cannot get slow queries.");
+        $self->{output}->option_exit();
+    }    
+    
+    
+    my $new_datas = {};
+    $self->{statefile_cache}->read(statefile => 'mysql_' . $self->{mode} . '_' . $self->{sql}->get_unique_id4save());
+    my $old_timestamp = $self->{statefile_cache}->get(name => 'last_timestamp');
+    $new_datas->{last_timestamp} = time();
+    
+    if (defined($old_timestamp) && $new_datas->{last_timestamp} - $old_timestamp == 0) {
+        $self->{output}->add_option_msg(short_msg => "Need at least one second between two checks.");
+        $self->{output}->option_exit();
+    }
+
+    $new_datas->{$name} = $result;
+    my $old_val = $self->{statefile_cache}->get(name => $name);
+    if (defined($old_val) && $result >= $old_val) {
+        my $value = sprintf("%.2f", ($result - $old_val) / ($new_datas->{last_timestamp} - $old_timestamp));
+    
+        my $exit_code = $self->{perfdata}->threshold_check(value => $value, threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]);
+        $self->{output}->output_add(severity => $exit_code,
+                                    short_msg => sprintf("%d slow queries in %d seconds (%.2f/sec)", 
+                                        ($result - $old_val), ($new_datas->{last_timestamp} - $old_timestamp), $value)
+                                    );
+        $self->{output}->perfdata_add(label => 'slow_queries_rate',
+                                      value => $value,
+                                      warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning'),
+                                      critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical'),
+                                      min => 0);
+    }
+    
+    $self->{statefile_cache}->write(data => $new_datas); 
+    if (!defined($old_timestamp)) {
+        $self->{output}->output_add(severity => 'OK',
+                                    short_msg => "Buffer creation...");
+    }
+
+    $self->{output}->display();
+    $self->{output}->exit();
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+Check average number of queries detected as "slow" (per seconds).
+
+=over 8
+
+=item B<--warning>
+
+Threshold warning in queries per seconds.
+
+=item B<--critical>
+
+Threshold critical in queries per seconds.
+
+=back
+
+=cut

database/mysql/mode/threadsconnected.pm

@@ -0,0 +1,129 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package database::mysql::mode::threadsconnected;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                { 
+                                  "warning:s"               => { name => 'warning', },
+                                  "critical:s"              => { name => 'critical', },
+                                });
+
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+
+    if (($self->{perfdata}->threshold_validate(label => 'warning', value => $self->{option_results}->{warning})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong warning threshold '" . $self->{warn1} . "'.");
+       $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'critical', value => $self->{option_results}->{critical})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong critical threshold '" . $self->{critical} . "'.");
+       $self->{output}->option_exit();
+    }
+    
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{sql} = sqlmode object
+    $self->{sql} = $options{sql};
+
+    $self->{sql}->connect();
+    
+    if (!($self->{sql}->is_version_minimum(version => '5'))) {
+        $self->{output}->add_option_msg(short_msg => "MySQL version '" . $self->{sql}->{version} . "' is not supported (need version >= '5.x').");
+        $self->{output}->option_exit();
+    }
+    
+    $self->{sql}->query(query => q{SHOW /*!50000 global */ STATUS LIKE 'Threads_connected'});
+    my ($dummy, $result) = $self->{sql}->fetchrow_array();
+    if (!defined($result)) {
+        $self->{output}->add_option_msg(short_msg => "Cannot get number of open connections.");
+        $self->{output}->option_exit();
+    }
+    
+        
+    my $value = $result;
+    
+    my $exit_code = $self->{perfdata}->threshold_check(value => $value, threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]);
+    $self->{output}->output_add(severity => $exit_code,
+                                short_msg => sprintf("%d client connection threads", $value)
+                                );
+    $self->{output}->perfdata_add(label => 'threads_connected',
+                                  value => $value,
+                                  warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning'),
+                                  critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical'),
+                                  min => 0);
+
+    $self->{output}->display();
+    $self->{output}->exit();
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+Check number of open connections.
+
+=over 8
+
+=item B<--warning>
+
+Threshold warning.
+
+=item B<--critical>
+
+Threshold critical.
+
+=back
+
+=cut

database/mysql/mode/uptime.pm

@@ -0,0 +1,138 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package database::mysql::mode::uptime;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+use POSIX;
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                { 
+                                  "warning:s"               => { name => 'warning', },
+                                  "critical:s"              => { name => 'critical', },
+                                  "seconds"                 => { name => 'seconds', },
+                                });
+
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+
+    if (($self->{perfdata}->threshold_validate(label => 'warning', value => $self->{option_results}->{warning})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong warning threshold '" . $self->{warn1} . "'.");
+       $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'critical', value => $self->{option_results}->{critical})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong critical threshold '" . $self->{critical} . "'.");
+       $self->{output}->option_exit();
+    }
+    
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{sql} = sqlmode object
+    $self->{sql} = $options{sql};
+
+    $self->{sql}->connect();
+    
+    if (!($self->{sql}->is_version_minimum(version => '5'))) {
+        $self->{output}->add_option_msg(short_msg => "MySQL version '" . $self->{sql}->{version} . "' is not supported (need version >= '5.x').");
+        $self->{output}->option_exit();
+    }
+    
+    $self->{sql}->query(query => q{SHOW /*!50000 global */ STATUS LIKE 'Uptime'});
+    my ($dummy, $result) = $self->{sql}->fetchrow_array();
+    if (!defined($result)) {
+        $self->{output}->add_option_msg(short_msg => "Cannot get uptime.");
+        $self->{output}->option_exit();
+    }
+
+    my $value = $result;
+    
+    my $exit_code = $self->{perfdata}->threshold_check(value => $value, threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]);
+    my $msg = sprintf("database is up since %d days", floor($value / 86400));
+    if (defined($self->{option_results}->{seconds})) {
+        $msg = sprintf("database is up since %d seconds", $value);
+    }
+    
+    $self->{output}->output_add(severity => $exit_code,
+                                short_msg => $msg);
+    $self->{output}->perfdata_add(label => 'uptime', unit => 's',
+                                  value => $value,
+                                  warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning'),
+                                  critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical'),
+                                  min => 0);
+
+    $self->{output}->display();
+    $self->{output}->exit();
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+Check MySQL uptime.
+
+=over 8
+
+=item B<--warning>
+
+Threshold warning.
+
+=item B<--critical>
+
+Threshold critical.
+
+=item B<--seconds>
+
+Display uptime in seconds.
+
+=back
+
+=cut

database/mysql/mysqlcmd.pm

@@ -0,0 +1,347 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package database::mysql::mysqlcmd;
+
+use strict;
+use warnings;
+use centreon::plugins::misc;
+use Digest::MD5 qw(md5_hex);
+
+sub new {
+    my ($class, %options) = @_;
+    my $self  = {};
+    bless $self, $class;
+    # $options{options} = options object
+    # $options{output} = output object
+    # $options{exit_value} = integer
+    # $options{noptions} = integer
+    
+    if (!defined($options{output})) {
+        print "Class mysqlcmd: Need to specify 'output' argument.\n";
+        exit 3;
+    }
+    if (!defined($options{options})) {
+        $options{output}->add_option_msg(short_msg => "Class Mysqlcmd: Need to specify 'options' argument.");
+        $options{output}->option_exit();
+    }
+    if (!defined($options{noptions})) {
+        $options{options}->add_options(arguments => 
+                    { "mysql-cmd:s"              => { name => 'mysql_cmd', default => '/usr/bin/mysql' },
+                      "host:s@"                  => { name => 'host' },
+                      "port:s@"                  => { name => 'port' },
+                      "username:s@"              => { name => 'username' },
+                      "password:s@"              => { name => 'password' },
+                      "sql-errors-exit:s"        => { name => 'sql_errors_exit', default => 'unknown' },
+        });
+    }
+    $options{options}->add_help(package => __PACKAGE__, sections => 'MYSQLCMD OPTIONS', once => 1);
+
+    $self->{output} = $options{output};
+    $self->{mode} = $options{mode};
+    $self->{args} = undef;
+    $self->{stdout} = undef;
+    $self->{columns} = undef;
+    $self->{version} = undef;
+    
+    $self->{host} = undef;
+    $self->{port} = undef;
+    $self->{username} = undef;
+    $self->{password} = undef;
+    
+    return $self;
+}
+
+# Method to manage multiples
+sub set_options {
+    my ($self, %options) = @_;
+    # options{options_result}
+
+    $self->{option_results} = $options{option_results};
+}
+
+# Method to manage multiples
+sub set_defaults {
+    my ($self, %options) = @_;
+    # options{default}
+    
+    # Manage default value
+    foreach (keys %{$options{default}}) {
+        if ($_ eq $self->{mode}) {
+            for (my $i = 0; $i < scalar(@{$options{default}->{$_}}); $i++) {
+                foreach my $opt (keys %{$options{default}->{$_}[$i]}) {
+                    if (!defined($self->{option_results}->{$opt}[$i])) {
+                        $self->{option_results}->{$opt}[$i] = $options{default}->{$_}[$i]->{$opt};
+                    }
+                }
+            }
+        }
+    }
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    # return 1 = ok still data_source
+    # return 0 = no data_source left
+    
+    $self->{host} = (defined($self->{option_results}->{host})) ? shift(@{$self->{option_results}->{host}}) : undef;
+    $self->{port} = (defined($self->{option_results}->{port})) ? shift(@{$self->{option_results}->{port}}) : undef;
+    $self->{username} = (defined($self->{option_results}->{username})) ? shift(@{$self->{option_results}->{username}}) : undef;
+    $self->{password} = (defined($self->{option_results}->{password})) ? shift(@{$self->{option_results}->{password}}) : undef;
+    $self->{sql_errors_exit} = $self->{option_results}->{sql_errors_exit};
+    $self->{mysql_cmd} = $self->{option_results}->{mysql_cmd};
+ 
+    if (!defined($self->{host}) || $self->{host} eq '') {
+        $self->{output}->add_option_msg(short_msg => "Need to specify host argument.");
+        $self->{output}->option_exit(exit_litteral => $self->{sql_errors_exit});
+    }
+    
+    $self->{args} = ['--batch', '--raw', '--host', $self->{host}];
+    if (defined($self->{port})) {
+        push @{$self->{args}}, "--port", $self->{port};
+    }
+    if (defined($self->{username})) {
+        push @{$self->{args}}, "--user", $self->{username};
+    }
+    if (defined($self->{password}) && $self->{password} ne '') {
+        push @{$self->{args}}, "-p" . $self->{password};
+    }
+
+    if (scalar(@{$self->{option_results}->{host}}) == 0) {
+        return 0;
+    }
+    return 1;
+}
+
+sub is_version_minimum {
+    my ($self, %options) = @_;
+    # $options{version} = string version to check
+    
+    my @version_src = split /\./, $self->{version};
+    my @versions = split /\./, $options{version};
+    for (my $i = 0; $i < scalar(@versions); $i++) {
+        return 1 if ($versions[$i] eq 'x');
+        return 1 if (!defined($version_src[$i]));
+        $version_src[$i] =~ /^([0-9]*)/;
+        next if ($versions[$i] == int($1));
+        return 0 if ($versions[$i] > int($1));
+        return 1 if ($versions[$i] < int($1));
+    }
+    
+    return 1;
+}
+
+sub get_id {
+    my ($self, %options) = @_;
+    
+    my $msg = $self->{host};
+    if (defined($self->{port})) {
+        $msg .= ":" . $self->{port};
+    }
+    return $msg;
+}
+
+
+sub get_unique_id4save {
+    my ($self, %options) = @_;
+
+    my $msg = $self->{host};
+    if (defined($self->{port})) {
+        $msg .= ":" . $self->{port};
+    }
+    return md5_hex($msg);
+}
+
+sub quote {
+    my $self = shift;
+
+    return undef;
+}
+
+sub command_execution {
+    my ($self, %options) = @_;
+    
+    my ($lerror, $stdout, $exit_code) = centreon::plugins::misc::backtick(
+                                                 command => $self->{mysql_cmd},
+                                                 arguments =>  [@{$self->{args}}, '-e', $options{request}],
+                                                 timeout => 30,
+                                                 wait_exit => 1,
+                                                 redirect_stderr => 1
+                                                 );
+    if ($exit_code <= -1000) {
+        if ($exit_code == -1000) {
+            $self->{output}->output_add(severity => 'UNKNOWN', 
+                                        short_msg => $stdout);
+        }
+        $self->{output}->display();
+        $self->{output}->exit();
+    }
+    
+    return ($exit_code, $stdout); 
+}
+
+# Connection initializer
+sub connect {
+    my ($self, %options) = @_;
+    my $dontquit = (defined($options{dontquit}) && $options{dontquit} == 1) ? 1 : 0;
+
+    (my $exit_code, $self->{stdout}) = $self->command_execution(request => "SHOW VARIABLES LIKE 'version'");
+    if ($exit_code != 0) {
+        if ($dontquit == 0) {
+            $self->{output}->add_option_msg(short_msg => "Cannot connect: " . $self->{stdout});
+            $self->{output}->option_exit(exit_litteral => $self->{sql_errors_exit});
+        }
+        return (-1, "Cannot connect: " . $self->{stdout});
+    }
+    
+    my $row = $self->fetchrow_hashref();
+    $self->{version} = $row->{Value};
+
+    return 0;
+}
+
+sub fetchall_arrayref {
+    my ($self, %options) = @_;
+    my $array_ref = [];
+    
+    if (!defined($self->{columns})) {
+        $self->{stdout} =~ s/^(.*?)(\n|$)//;
+        @{$self->{columns}} = split(/\t/, $1);
+    }
+    foreach (split /\n/, $self->{stdout}) {
+        push @$array_ref, [map({ s/\\n/\x{0a}/g; s/\\t/\x{09}/g; s/\\/\x{5c}/g; $_; } split(/\t/, $_))];
+    }
+    
+    return $array_ref;
+}
+
+sub fetchrow_array {
+    my ($self, %options) = @_;
+    my @array_result = ();
+    
+    if (!defined($self->{columns})) {
+        $self->{stdout} =~ s/^(.*?)(\n|$)//;
+        @{$self->{columns}} = split(/\t/, $1);
+    }
+    if (($self->{stdout} =~ s/^(.*?)(\n|$)//)) {
+        push @array_result, map({ s/\\n/\x{0a}/g; s/\\t/\x{09}/g; s/\\/\x{5c}/g; $_; } split(/\t/, $1));
+    }
+    
+    return @array_result;
+}
+
+sub fetchrow_hashref {
+    my ($self, %options) = @_;
+    my $array_result = undef;
+    
+    if (!defined($self->{columns})) {
+        $self->{stdout} =~ s/^(.*?)(\n|$)//;
+        @{$self->{columns}} = split(/\t/, $1);
+    }
+    if ($self->{stdout} ne '' && $self->{stdout} =~ s/^(.*?)(\n|$)//) {
+        $array_result = {};
+        my @values = split(/\t/, $1);
+        for (my $i = 0; $i < scalar(@values); $i++) {
+            my $value = $values[$i];
+            $value =~ s/\\n/\x{0a}/g;
+            $value =~ s/\\t/\x{09}/g;
+            $value =~ s/\\/\x{5c}/g;
+            $array_result->{$self->{columns}[$i]} = $value;
+        }
+    }
+    
+    return $array_result;
+}
+
+sub query {
+    my ($self, %options) = @_;
+    
+    $self->{columns} = undef;
+    (my $exit_code, $self->{stdout}) = $self->command_execution(request => $options{query});
+    
+    if ($exit_code != 0) {
+        $self->{output}->add_option_msg(short_msg => "Cannot execute query: " . $self->{stdout});
+        $self->{output}->option_exit(exit_litteral => $self->{sql_errors_exit});
+    }
+
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+mysqlcmd global
+
+=head1 SYNOPSIS
+
+mysqlcmd class
+
+=head1 MYSQLCMD OPTIONS
+
+=over 8
+
+=item B<--mysql-cmd>
+
+mysql command (Default: '/usr/bin/mysql').
+
+=item B<--host>
+
+Database hostname.
+
+=item B<--port>
+
+Database port.
+
+=item B<--username>
+
+Database username.
+
+=item B<--password>
+
+Database password.
+
+=item B<--sql-errors-exit>
+
+Exit code for DB Errors (default: unknown)
+
+=back
+
+=head1 DESCRIPTION
+
+B<snmp>.
+
+=cut

database/mysql/plugin.pm

@@ -0,0 +1,118 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package database::mysql::plugin;
+
+use strict;
+use warnings;
+use base qw(centreon::plugins::script_sql);
+
+sub new {
+    my ($class, %options) = @_;
+    
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    # $options->{options} = options object
+
+    $self->{version} = '0.1';
+    %{$self->{modes}} = (
+                         'connection-time' => 'database::mysql::mode::connectiontime',
+                         'databases-size' => 'database::mysql::mode::databasessize',
+                         'queries' => 'database::mysql::mode::queries',
+                         'slow-queries' => 'database::mysql::mode::slowqueries',
+                         'threads-connected' => 'database::mysql::mode::threadsconnected',
+                         'uptime' => 'database::mysql::mode::uptime',
+                         'open-files' => 'database::mysql::mode::openfiles',
+                         'innodb-bufferpool-hitrate' => 'database::mysql::mode::innodbbufferpoolhitrate',
+                         'myisam-keycache-hitrate' => 'database::mysql::mode::myisamkeycachehitrate',
+                         'replication-master-slave' => 'database::mysql::mode::replicationmasterslave',
+                         );
+    $self->{sql_modes}{mysqlcmd} = 'database::mysql::mysqlcmd';
+
+    return $self;
+}
+
+sub init {
+    my ($self, %options) = @_;
+
+    $self->{options}->add_options(
+                                   arguments => {
+                                                'host:s@'  => { name => 'db_host' },
+                                                'port:s@'  => { name => 'db_port' },
+                                                }
+                                  );
+    $self->{options}->parse_options();
+    my $options_result = $self->{options}->get_options();
+    $self->{options}->clean();
+
+    if (defined($options_result->{db_host})) {
+        @{$self->{sqldefault}->{dbi}} = ();
+        @{$self->{sqldefault}->{mysqlcmd}} = ();
+        for (my $i = 0; $i < scalar(@{$options_result->{db_host}}); $i++) {
+            $self->{sqldefault}->{dbi}[$i] = { data_source => 'mysql:host=' . $options_result->{db_host}[$i] };
+            $self->{sqldefault}->{mysqlcmd}[$i] = { host => $options_result->{db_host}[$i] };
+            if (defined($options_result->{db_port}[$i])) {
+                $self->{sqldefault}->{dbi}[$i]->{data_source} .= ';port=' . $options_result->{db_port}[$i];
+                $self->{sqldefault}->{mysqlcmd}[$i]->{port} = $options_result->{db_port}[$i];
+            }
+        }
+    }
+
+    $self->SUPER::init(%options);    
+}
+
+1;
+
+__END__
+
+=head1 PLUGIN DESCRIPTION
+
+Check MySQL Server.
+
+=over 8
+
+You can use following options or options from 'sqlmode' directly.
+
+=item B<--host>
+
+Hostname to query.
+
+=item B<--port>
+
+Database Server Port.
+
+=back
+
+=cut

database/postgres/mode/backends.pm

@@ -0,0 +1,170 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package database::postgres::mode::backends;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                { 
+                                  "warning:s"               => { name => 'warning', },
+                                  "critical:s"              => { name => 'critical', },
+                                  "exclude:s"               => { name => 'exclude', },
+                                  "noidle"                  => { name => 'noidle', },
+                                });
+
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+
+    if (($self->{perfdata}->threshold_validate(label => 'warning', value => $self->{option_results}->{warning})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong warning threshold '" . $self->{warn1} . "'.");
+       $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'critical', value => $self->{option_results}->{critical})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong critical threshold '" . $self->{critical} . "'.");
+       $self->{output}->option_exit();
+    }
+    
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{sql} = sqlmode object
+    $self->{sql} = $options{sql};
+
+    $self->{sql}->connect();
+    
+    my $noidle = '';
+    if (defined($self->{option_results}->{noidle})) {
+        if ($self->{sql}->is_version_minimum(version => '9.2')) {
+            $noidle = " AND state <> 'idle'";
+        } else {
+            $noidle = " AND current_query <> '<IDLE>'";
+        }
+    }
+
+    my $query = "SELECT COUNT(datid) AS current,
+  (SELECT setting AS mc FROM pg_settings WHERE name = 'max_connections') AS mc,
+  d.datname
+FROM pg_database d
+LEFT JOIN pg_stat_activity s ON (s.datid = d.oid $noidle)
+GROUP BY d.datname
+ORDER BY d.datname";
+    $self->{sql}->query(query => $query);
+
+    $self->{output}->output_add(severity => 'OK',
+                                short_msg => "All client database connections are ok.");
+
+    my $database_check = 0;
+    my $result = $self->{sql}->fetchall_arrayref();
+    
+    foreach my $row (@{$result}) {
+        if (defined($self->{option_results}->{exclude}) && $$row[2] !~ /$self->{option_results}->{exclude}/) {
+            $self->{output}->output_add(long_msg => "Skipping database '" . $$row[2] . '"');
+            next;
+        }       
+        
+        $database_check++;
+        my $used = $$row[0];
+        my $max_connections = $$row[1];
+        my $database_name = $$row[2];
+        
+        my $prct_used = ($used * 100) / $max_connections;
+        my $exit_code = $self->{perfdata}->threshold_check(value => $prct_used, threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]);
+        $self->{output}->output_add(long_msg => sprintf("Database '%s': %.2f%% client connections limit reached (%d of max. %d)",
+                                                    $database_name, $prct_used, $used, $max_connections));
+        if (!$self->{output}->is_status(value => $exit_code, compare => 'ok', litteral => 1)) {
+            $self->{output}->output_add(severity => $exit_code,
+                                        short_msg => sprintf("Database '%s': %.2f%% client connections limit reached (%d of max. %d)",
+                                                    $database_name, $prct_used, $used, $max_connections));
+        }
+        
+        $self->{output}->perfdata_add(label => 'connections_' . $database_name,
+                                      value => $used,
+                                      warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning'),
+                                      critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical'),
+                                      min => 0, max => $max_connections);
+    }
+    if ($database_check == 0) {
+        $self->{output}->output_add(severity => 'UNKNOWN',
+                                    short_msg => 'No database checked. (permission or a wrong exclude filter)');
+    }
+
+    $self->{output}->display();
+    $self->{output}->exit();
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+Check the current number of connections for one or more databases
+
+=over 8
+
+=item B<--warning>
+
+Threshold warning in percent.
+
+=item B<--critical>
+
+Threshold critical in percent.
+
+=item B<--exclude>
+
+Filter databases.
+
+=item B<--noidle>
+
+Idle connections are not counted.
+
+=back
+
+=cut

database/postgres/mode/connectiontime.pm

@@ -0,0 +1,123 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package database::postgres::mode::connectiontime;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+use Time::HiRes;
+use POSIX;
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                { 
+                                  "warning:s"               => { name => 'warning', },
+                                  "critical:s"              => { name => 'critical', },
+                                });
+
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+
+    if (($self->{perfdata}->threshold_validate(label => 'warning', value => $self->{option_results}->{warning})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong warning threshold '" . $self->{warn1} . "'.");
+       $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'critical', value => $self->{option_results}->{critical})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong critical threshold '" . $self->{critical} . "'.");
+       $self->{output}->option_exit();
+    }
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{sql} = sqlmode object
+    $self->{sql} = $options{sql};
+
+    my $now = Time::HiRes::time();
+    my ($exit, $msg_error) = $self->{sql}->connect(dontquit => 1);
+    my $now2 = Time::HiRes::time();
+    
+    if ($exit == -1) {
+        $self->{output}->output_add(severity => 'CRITICAL',
+                                    short_msg => $msg_error);
+    } else {
+        my $milliseconds = $now2 - $now;
+        $milliseconds = floor($milliseconds * 1000);
+        my $exit_code = $self->{perfdata}->threshold_check(value => $milliseconds, threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]);
+        $self->{output}->output_add(severity => $exit_code,
+                                    short_msg => sprintf("Connection established in %.3fs.", $milliseconds / 1000));
+        $self->{output}->perfdata_add(label => 'connection_time', unit => 'ms',
+                                      value => $milliseconds,
+                                      warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning'),
+                                      critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical'),
+                                      min => 0);
+    }
+    
+    $self->{output}->display();
+    $self->{output}->exit();
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+Check Postgres connection time.
+
+=over 8
+
+=item B<--warning>
+
+Threshold warning in milliseconds.
+
+=item B<--critical>
+
+Threshold critical in milliseconds.
+
+=back
+
+=cut

database/postgres/mode/hitratio.pm

@@ -0,0 +1,189 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package database::postgres::mode::hitratio;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+use centreon::plugins::statefile;
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                { 
+                                  "warning:s"               => { name => 'warning', },
+                                  "critical:s"              => { name => 'critical', },
+                                  "lookback"                => { name => 'lookback', },
+                                  "exclude:s"               => { name => 'exclude', },
+                                });
+    $self->{statefile_cache} = centreon::plugins::statefile->new(%options);
+
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+
+    if (($self->{perfdata}->threshold_validate(label => 'warning', value => $self->{option_results}->{warning})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong warning threshold '" . $self->{warn1} . "'.");
+       $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'critical', value => $self->{option_results}->{critical})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong critical threshold '" . $self->{critical} . "'.");
+       $self->{output}->option_exit();
+    }
+
+    $self->{statefile_cache}->check_options(%options);
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{sql} = sqlmode object
+    $self->{sql} = $options{sql};
+
+    $self->{sql}->connect();
+    
+    $self->{sql}->query(query => q{
+SELECT sd.blks_hit, sd.blks_read, d.datname
+FROM pg_stat_database sd, pg_database d
+WHERE d.oid=sd.datid
+    });
+
+    $self->{statefile_cache}->read(statefile => 'postgres_' . $self->{mode} . '_' . $self->{sql}->get_unique_id4save());
+    my $old_timestamp = $self->{statefile_cache}->get(name => 'last_timestamp');
+    
+    my $database_check = 0;
+    my $new_datas = {};
+    $new_datas->{last_timestamp} = time();
+    my $result = $self->{sql}->fetchall_arrayref();
+    
+    $self->{output}->output_add(severity => 'OK',
+                                short_msg => "All databases hitratio are ok.");
+
+    
+    foreach my $row (@{$result}) {
+        $new_datas->{$$row[2] . '_blks_hit'} = $$row[0];
+        $new_datas->{$$row[2] . '_blks_read'} = $$row[1];
+        
+        if (defined($self->{option_results}->{exclude}) && $$row[2] !~ /$self->{option_results}->{exclude}/) {
+            $self->{output}->output_add(long_msg => "Skipping database '" . $$row[2] . '"');
+            next;
+        }
+
+        my $old_blks_hit = $self->{statefile_cache}->get(name => $$row[2] . '_blks_hit');
+        my $old_blks_read = $self->{statefile_cache}->get(name => $$row[2] . '_blks_read');
+        
+        next if (!defined($old_blks_hit) || !defined($old_blks_read));
+        $old_blks_hit = 0 if ($$row[0] <= $old_blks_hit);
+        $old_blks_read = 0 if ($$row[1] <= $old_blks_read);
+        
+        $database_check++;
+        my %prcts = ();
+        my $total_read_requests = $new_datas->{$$row[2] . '_blks_hit'} - $old_blks_hit;
+        my $total_read_disk = $new_datas->{$$row[2] . '_blks_read'} - $old_blks_read;
+        $prcts{hitratio_now} = ($total_read_requests == 0) ? 100 : ($total_read_requests - $total_read_disk) * 100 / $total_read_requests;
+        $prcts{hitratio} = ($new_datas->{$$row[2] . '_blks_hit'} == 0) ? 100 : ($new_datas->{$$row[2] . '_blks_hit'} - $new_datas->{$$row[2] . '_blks_read'}) * 100 / $new_datas->{$$row[2] . '_blks_hit'};
+        
+        my $exit_code = $self->{perfdata}->threshold_check(value => $prcts{'hitratio' . ((defined($self->{option_results}->{lookback})) ? '_now' : '' )}, threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]);
+        $self->{output}->output_add(long_msg => sprintf("Database '%s' hitratio at %.2f%%", 
+                                                    $$row[2], $prcts{'hitratio' . ((defined($self->{option_results}->{lookback})) ? '' : '_now')})
+                                    );
+        
+        if (!$self->{output}->is_status(value => $exit_code, compare => 'ok', litteral => 1)) {
+            $self->{output}->output_add(severity => $exit_code,
+                                        short_msg => sprintf("Database '%s' hitratio at %.2f%%", 
+                                                    $$row[2], $prcts{'hitratio' . ((defined($self->{option_results}->{lookback})) ? '' : '_now')})
+                                        );
+        }
+        $self->{output}->perfdata_add(label => $$row[2] . '_hitratio' . ((defined($self->{option_results}->{lookback})) ? '' : '_now'), unit => '%',
+                                      value => sprintf("%.2f", $prcts{'hitratio' . ((defined($self->{option_results}->{lookback})) ? '_now' : '')}),
+                                      warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning'),
+                                      critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical'),
+                                      min => 0, max => 100);
+        $self->{output}->perfdata_add(label => $$row[2] . '_hitratio' . ((defined($self->{option_results}->{lookback})) ? '_now' : ''), unit => '%',
+                                      value => sprintf("%.2f", $prcts{'hitratio' . ((defined($self->{option_results}->{lookback})) ? '_now' : '')}),
+                                      min => 0, max => 100);
+    }
+    
+    $self->{statefile_cache}->write(data => $new_datas); 
+    if (!defined($old_timestamp)) {
+        $self->{output}->output_add(severity => 'OK',
+                                    short_msg => "Buffer creation...");
+    }
+    if (defined($old_timestamp) && $database_check == 0) {
+        $self->{output}->output_add(severity => 'UNKNOWN',
+                                    short_msg => 'No database checked. (permission or a wrong exclude filter)');
+    }
+    
+    $self->{output}->display();
+    $self->{output}->exit();
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+Check hitratio (in buffer cache) for databases.
+
+=over 8
+
+=item B<--warning>
+
+Threshold warning.
+
+=item B<--critical>
+
+Threshold critical.
+
+=item B<--lookback>
+
+Threshold isn't on the percent calculated from the difference ('xxx_hitratio_now').
+
+=item B<--exclude>
+
+Filter databases.
+
+=back
+
+=cut

database/postgres/mode/listdatabases.pm

@@ -0,0 +1,127 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package database::postgres::mode::listdatabases;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+use Time::HiRes;
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                { 
+                                  "exclude:s"               => { name => 'exclude', },
+                                });
+
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+}
+
+sub manage_selection {
+    my ($self, %options) = @_;
+    
+    $self->{sql}->connect();
+
+    $self->{sql}->query(query => q{
+SELECT datname FROM pg_database
+});
+    $self->{list_db} = [];
+    while ((my $row = $self->{sql}->fetchrow_hashref())) {
+        if (defined($self->{option_results}->{exclude}) && $row->{datname} !~ /$self->{option_results}->{exclude}/) {
+            next;
+        }
+        push @{$self->{list_db}}, $row->{datname};
+    }
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{sql} = sqlmode object
+    $self->{sql} = $options{sql};
+
+    $self->manage_selection();
+    
+    $self->{output}->output_add(severity => 'OK',
+                                short_msg => "List of databases: " . join(', ', @{$self->{list_db}}));
+
+    $self->{output}->display();
+    $self->{output}->exit();
+}
+
+sub disco_format {
+    my ($self, %options) = @_;
+    
+    $self->{output}->add_disco_format(elements => ['name']);
+}
+
+sub disco_show {
+    my ($self, %options) = @_;
+    # $options{snmp} = snmp object
+    $self->{sql} = $options{sql};
+
+    $self->manage_selection();
+    foreach (sort @{$self->{list_db}}) {
+        $self->{output}->add_disco_entry(name => $_);
+    }
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+Display databases
+
+=over 8
+
+=item B<--exclude>
+
+Filter databases.
+
+=back
+
+=cut

database/postgres/mode/locks.pm

@@ -0,0 +1,172 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package database::postgres::mode::locks;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                { 
+                                  "warning:s"               => { name => 'warning', default => ''},
+                                  "critical:s"              => { name => 'critical', default => ''},
+                                  "exclude:s"               => { name => 'exclude', },
+                                });
+
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+
+    my @warns = split /,/, $self->{option_results}->{warning};
+    my @crits = split /,/, $self->{option_results}->{critical};
+    
+    foreach my $val (@warns) {
+        next if (!defined($val));
+        my ($label, $value) = split /=/, $val;
+        next if (!defined($label) || !defined($value));
+        
+        if (($self->{perfdata}->threshold_validate(label => 'warn-' . $label, value => $value)) == 0) {
+            $self->{output}->add_option_msg(short_msg => "Wrong warning ('$label' locks) threshold '" . $value . "'.");
+            $self->{output}->option_exit();
+        }
+    }
+    
+    foreach my $val (@crits) {
+        next if (!defined($val));
+        my ($label, $value) = split /=/, $val;
+        next if (!defined($label) || !defined($value));
+        
+        if (($self->{perfdata}->threshold_validate(label => 'crit-' . $label, value => $value)) == 0) {
+            $self->{output}->add_option_msg(short_msg => "Critical warning ('$label' locks) threshold '" . $value . "'.");
+            $self->{output}->option_exit();
+        }
+    }
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{sql} = sqlmode object
+    $self->{sql} = $options{sql};
+
+    $self->{sql}->connect();
+
+    $self->{sql}->query(query => q{
+SELECT granted, mode, datname FROM pg_database d LEFT JOIN pg_locks l ON (d.oid=l.database) WHERE d.datallowconn
+});
+
+    $self->{output}->output_add(severity => 'OK',
+                                short_msg => "All databases locks are ok.");
+
+    my $result = $self->{sql}->fetchall_arrayref();
+    my $dblocks = {};
+    foreach my $row (@{$result}) {        
+        my ($granted, $mode, $dbname) = ($$row[0], $$row[1], $$row[2]);
+        if (defined($self->{option_results}->{exclude}) && $dbname !~ /$self->{option_results}->{exclude}/) {
+            next;
+        }
+        
+        if (!defined($dblocks->{$dbname})) {
+            $dblocks->{$dbname} = {total => 0, waiting => 0};
+            # Empty. no lock (left join)
+            next if (!defined($mode) || $mode eq '');
+        }
+        $dblocks->{$dbname}->{total}++;
+        $mode =~ s{lock$}{};
+        $dblocks->{$dbname}->{lc($mode)}++;
+        $dblocks->{$dbname}->{waiting}++ if (!$granted);
+    }
+
+    foreach my $dbname (keys %$dblocks) {
+        foreach my $locktype (keys %{$dblocks->{$dbname}}) {
+            $self->{output}->output_add(long_msg => sprintf("Database '%s' lock '%s': %d",
+                                                            $dbname, $locktype, $dblocks->{$dbname}->{$locktype}));
+            my $exit_code = $self->{perfdata}->threshold_check(value => $dblocks->{$dbname}->{$locktype}, threshold => [ { label => 'crit-' . $locktype, 'exit_litteral' => 'critical' }, { label => 'warn-' . $locktype, exit_litteral => 'warning' } ]);
+        
+            if (!$self->{output}->is_status(value => $exit_code, compare => 'ok', litteral => 1)) {
+                $self->{output}->output_add(severity => $exit_code,
+                                            short_msg => sprintf("Database '%s' lock '%s': %d",
+                                                            $dbname, $locktype, $dblocks->{$dbname}->{$locktype}));
+            }
+            
+            $self->{output}->perfdata_add(label => $dbname . '_' . $locktype,
+                                          value => $dblocks->{$dbname}->{$locktype},
+                                          warning => $self->{perfdata}->get_perfdata_for_output(label => 'warn-' . $locktype),
+                                          critical => $self->{perfdata}->get_perfdata_for_output(label => 'crit-' . $locktype),
+                                          min => 0);
+        }
+    }
+
+    $self->{output}->display();
+    $self->{output}->exit();
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+Check locks for one or more databases
+
+=over 8
+
+=item B<--warning>
+
+Threshold warning. (example: "total=250,waiting=5,exclusive=20")
+'total', 'waiting', or the name of a lock type used by Postgres.
+
+=item B<--critical>
+
+Threshold critical. (example: "total=250,waiting=5,exclusive=20")
+'total', 'waiting', or the name of a lock type used by Postgres.
+
+=item B<--exclude>
+
+Filter databases.
+
+=back
+
+=cut

database/postgres/mode/querytime.pm

@@ -0,0 +1,167 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package database::postgres::mode::querytime;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                { 
+                                  "warning:s"               => { name => 'warning', },
+                                  "critical:s"              => { name => 'critical', },
+                                  "exclude:s"               => { name => 'exclude', },
+                                  "exclude-user:s"          => { name => 'exclude_user', },
+                                });
+
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+
+    if (($self->{perfdata}->threshold_validate(label => 'warning', value => $self->{option_results}->{warning})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong warning threshold '" . $self->{warn1} . "'.");
+       $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'critical', value => $self->{option_results}->{critical})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong critical threshold '" . $self->{critical} . "'.");
+       $self->{output}->option_exit();
+    }
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{sql} = sqlmode object
+    $self->{sql} = $options{sql};
+
+    $self->{sql}->connect();
+
+    my $query;
+    if ($self->{sql}->is_version_minimum(version => '9.2')) {
+        $query = q{
+SELECT datname, datid, pid, usename, client_addr, query AS current_query, state AS state,
+       CASE WHEN client_port < 0 THEN 0 ELSE client_port END AS client_port,
+       COALESCE(ROUND(EXTRACT(epoch FROM now()-query_start)),0) AS seconds
+FROM pg_stat_activity WHERE (query_start IS NOT NULL AND (state NOT LIKE 'idle%' OR state IS NULL))
+ORDER BY query_start, pid DESC
+};
+    } else {
+        $query = q{
+SELECT datname, datid, procpid AS pid, usename, client_addr, current_query AS current_query, '' AS state,
+       CASE WHEN client_port < 0 THEN 0 ELSE client_port END AS client_port,
+       COALESCE(ROUND(EXTRACT(epoch FROM now()-query_start)),0) AS seconds
+FROM pg_stat_activity WHERE (query_start IS NOT NULL AND current_query NOT LIKE '<IDLE>%')
+ORDER BY query_start, procpid DESC
+};
+    }
+    
+    $self->{sql}->query(query => $query);
+
+    $self->{output}->output_add(severity => 'OK',
+                                short_msg => "All databases queries time are ok.");
+    my $dbquery = {};
+    while ((my $row = $self->{sql}->fetchrow_hashref())) {
+        if (defined($self->{option_results}->{exclude}) && $row->{datname} !~ /$self->{option_results}->{exclude}/) {
+            next;
+        }
+        if (defined($self->{option_results}->{exclude_user}) && $row->{usename} !~ /$self->{option_results}->{exclude_user}/) {
+            next;
+        }
+        
+        my $exit_code = $self->{perfdata}->threshold_check(value => $row->{seconds}, threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]);
+        if ($self->{output}->is_status(value => $exit_code, compare => 'ok', litteral => 1)) {
+            $self->{output}->output_add(long_msg => sprintf("Request from client '%s' too long (%d sec) on database '%s': %s",
+                                                            $row->{client_addr}, $row->{seconds}, $row->{datname}, $row->{current_query}));
+            $dbquery->{$row->{datname}}->{total}++;
+            $dbquery->{$row->{datname}}->{code}->{$exit_code}++;
+        }
+    }
+    
+    foreach my $dbname (keys %$dbquery) {
+        $self->{output}->perfdata_add(label => $dbname . '_qtime_num',
+                                      value => $dbquery->{$dbname}->{total},
+                                      warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning'),
+                                      critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical'),
+                                      min => 0);
+        foreach my $exit_code (keys %{$dbquery->{$dbname}->{code}}) {
+            $self->{output}->output_add(severity => $exit_code,
+                                        short_msg => sprintf("%d request exceed " . lc($exit_code) . " threshold on database '%s'",
+                                                             $dbquery->{$dbname}->{code}->{$exit_code}, $dbname));
+        }
+    }
+
+    $self->{output}->display();
+    $self->{output}->exit();
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+Checks the time of running queries for one or more databases
+
+=over 8
+
+=item B<--warning>
+
+Threshold warning in seconds.
+
+=item B<--critical>
+
+Threshold critical in seconds.
+
+=item B<--exclude>
+
+Filter databases.
+
+=item B<--exclude-user>
+
+Filter users.
+
+=back
+
+=cut

database/postgres/mode/timesync.pm

@@ -0,0 +1,125 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package database::postgres::mode::timesync;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+use Time::HiRes;
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                { 
+                                  "warning:s"               => { name => 'warning', },
+                                  "critical:s"              => { name => 'critical', },
+                                });
+
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+
+    if (($self->{perfdata}->threshold_validate(label => 'warning', value => $self->{option_results}->{warning})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong warning threshold '" . $self->{warn1} . "'.");
+       $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'critical', value => $self->{option_results}->{critical})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong critical threshold '" . $self->{critical} . "'.");
+       $self->{output}->option_exit();
+    }
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{sql} = sqlmode object
+    $self->{sql} = $options{sql};
+
+    $self->{sql}->connect();
+
+    $self->{sql}->query(query => q{
+SELECT extract(epoch FROM now()) AS epok
+});
+
+    my ($result) = $self->{sql}->fetchrow_array();
+    my $ltime = Time::HiRes::time();
+    if (!defined($result)) {
+        $self->{output}->add_option_msg(short_msg => "Cannot get server time.");
+        $self->{output}->option_exit();
+    }
+    
+    my $diff = $result - $ltime;
+    my $exit_code = $self->{perfdata}->threshold_check(value => $result, threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]);
+    
+    $self->{output}->output_add(severity => $exit_code,
+                                short_msg => sprintf("%.3fs time diff between servers", $diff));
+    $self->{output}->perfdata_add(label => 'timediff', unit => 's',
+                                  value => sprintf("%.3f", $diff),
+                                  warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning'),
+                                  critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical'));
+
+    $self->{output}->display();
+    $self->{output}->exit();
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+Compares the local system time with the time reported by Postgres
+
+=over 8
+
+=item B<--warning>
+
+Threshold warning in seconds. (use a range. it can be -0.3s or +0.3s.)
+
+=item B<--critical>
+
+Threshold critical in seconds. (use a range. it can be -0.3s or +0.3s.)
+
+=back
+
+=cut

database/postgres/plugin.pm

@@ -0,0 +1,122 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package database::postgres::plugin;
+
+use strict;
+use warnings;
+use base qw(centreon::plugins::script_sql);
+
+sub new {
+    my ($class, %options) = @_;
+    
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    # $options->{options} = options object
+
+    $self->{version} = '0.1';
+    %{$self->{modes}} = (
+                         'backends' => 'database::postgres::mode::backends',
+                         'connection-time' => 'database::postgres::mode::connectiontime',
+                         'hitratio' => 'database::postgres::mode::hitratio',
+                         'locks' => 'database::postgres::mode::locks',
+                         'list-databases' => 'database::postgres::mode::listdatabases',
+                         'query-time' => 'database::postgres::mode::querytime',
+                         'timesync' => 'database::postgres::mode::timesync',
+                         );
+    $self->{sql_modes}{psqlcmd} = 'database::postgres::psqlcmd';
+    return $self;
+}
+
+sub init {
+    my ($self, %options) = @_;
+
+    $self->{options}->add_options(
+                                   arguments => {
+                                                'host:s@'      => { name => 'db_host' },
+                                                'port:s@'      => { name => 'db_port' },
+                                                'database:s@'  => { name => 'db_name' },
+                                                }
+                                  );
+    $self->{options}->parse_options();
+    my $options_result = $self->{options}->get_options();
+    $self->{options}->clean();
+
+    if (defined($options_result->{db_host})) {
+        @{$self->{sqldefault}->{dbi}} = ();
+        @{$self->{sqldefault}->{psqlcmd}} = ();
+        for (my $i = 0; $i < scalar(@{$options_result->{db_host}}); $i++) {
+            $self->{sqldefault}->{dbi}[$i] = { data_source => 'Pg:host=' . $options_result->{db_host}[$i] };
+            $self->{sqldefault}->{psqlcmd}[$i] = { host => $options_result->{db_host}[$i] };
+            if (defined($options_result->{db_port}[$i])) {
+                $self->{sqldefault}->{dbi}[$i]->{data_source} .= ';port=' . $options_result->{db_port}[$i];
+                $self->{sqldefault}->{psqlcmd}[$i]->{port} = $options_result->{db_port}[$i];
+            }
+            $options_result->{db_name}[$i] = (defined($options_result->{db_name}[$i])) ? $options_result->{db_name}[$i] : 'postgres';
+            $self->{sqldefault}->{dbi}[$i]->{data_source} .= ';database=' . $options_result->{db_name}[$i];
+            $self->{sqldefault}->{psqlcmd}[$i]->{dbname} = $options_result->{db_name}[$i];
+        }
+    }
+    
+    $self->SUPER::init(%options);    
+}
+
+1;
+
+__END__
+
+=head1 PLUGIN DESCRIPTION
+
+Check Postgres Server.
+
+=over 8
+
+You can use following options or options from 'sqlmode' directly.
+
+=item B<--host>
+
+Hostname to query.
+
+=item B<--port>
+
+Database Server Port.
+
+=item B<--database>
+
+Database Name. (default: postgres)
+
+=back
+
+=cut

database/postgres/psqlcmd.pm

@@ -0,0 +1,360 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package database::postgres::psqlcmd;
+
+use strict;
+use warnings;
+use centreon::plugins::misc;
+use Digest::MD5 qw(md5_hex);
+
+sub new {
+    my ($class, %options) = @_;
+    my $self  = {};
+    bless $self, $class;
+    # $options{options} = options object
+    # $options{output} = output object
+    # $options{exit_value} = integer
+    # $options{noptions} = integer
+    
+    if (!defined($options{output})) {
+        print "Class psqlcmd: Need to specify 'output' argument.\n";
+        exit 3;
+    }
+    if (!defined($options{options})) {
+        $options{output}->add_option_msg(short_msg => "Class psqlcmd: Need to specify 'options' argument.");
+        $options{output}->option_exit();
+    }
+    if (!defined($options{noptions})) {
+        $options{options}->add_options(arguments => 
+                    { "psql-cmd:s"               => { name => 'psql_cmd', default => '/usr/bin/psql' },
+                      "host:s@"                  => { name => 'host' },
+                      "port:s@"                  => { name => 'port' },
+                      "username:s@"              => { name => 'username' },
+                      "password:s@"              => { name => 'password' },
+                      "dbname:s@"                => { name => 'dbname' },
+                      "sql-errors-exit:s"        => { name => 'sql_errors_exit', default => 'unknown' },
+        });
+    }
+    $options{options}->add_help(package => __PACKAGE__, sections => 'PSQLCMD OPTIONS', once => 1);
+
+    $self->{output} = $options{output};
+    $self->{mode} = $options{mode};
+    $self->{args} = undef;
+    $self->{stdout} = undef;
+    $self->{columns} = undef;
+    $self->{version} = undef;
+    
+    $self->{host} = undef;
+    $self->{port} = undef;
+    $self->{username} = undef;
+    $self->{password} = undef;
+    $self->{dbname} = undef;
+    
+    $self->{record_separator} = '-====-';
+    $self->{field_separator} = '#====#';
+    
+    return $self;
+}
+
+# Method to manage multiples
+sub set_options {
+    my ($self, %options) = @_;
+    # options{options_result}
+
+    $self->{option_results} = $options{option_results};
+}
+
+# Method to manage multiples
+sub set_defaults {
+    my ($self, %options) = @_;
+    # options{default}
+    
+    # Manage default value
+    foreach (keys %{$options{default}}) {
+        if ($_ eq $self->{mode}) {
+            for (my $i = 0; $i < scalar(@{$options{default}->{$_}}); $i++) {
+                foreach my $opt (keys %{$options{default}->{$_}[$i]}) {
+                    if (!defined($self->{option_results}->{$opt}[$i])) {
+                        $self->{option_results}->{$opt}[$i] = $options{default}->{$_}[$i]->{$opt};
+                    }
+                }
+            }
+        }
+    }
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    # return 1 = ok still data_source
+    # return 0 = no data_source left
+    
+    $self->{host} = (defined($self->{option_results}->{host})) ? shift(@{$self->{option_results}->{host}}) : undef;
+    $self->{port} = (defined($self->{option_results}->{port})) ? shift(@{$self->{option_results}->{port}}) : undef;
+    $self->{username} = (defined($self->{option_results}->{username})) ? shift(@{$self->{option_results}->{username}}) : undef;
+    $self->{password} = (defined($self->{option_results}->{password})) ? shift(@{$self->{option_results}->{password}}) : undef;
+    $self->{dbname} = (defined($self->{option_results}->{dbname})) ? shift(@{$self->{option_results}->{dbname}}) : undef;
+    $self->{sql_errors_exit} = $self->{option_results}->{sql_errors_exit};
+    $self->{psql_cmd} = $self->{option_results}->{psql_cmd};
+    
+    # If we want a command line: password with variable "PGPASSWORD".
+    #  psql -d template1 -A -R '-====-' -F '#====#' -c "select code from films"
+ 
+    if (!defined($self->{host}) || $self->{host} eq '') {
+        $self->{output}->add_option_msg(short_msg => "Need to specify host argument.");
+        $self->{output}->option_exit(exit_litteral => $self->{sql_errors_exit});
+    }
+    
+    $self->{args} = ['-A', '-R', $self->{record_separator}, '-F', $self->{field_separator}, '--pset', 'footer=off', '-h', $self->{host}];
+    if (defined($self->{port})) {
+        push @{$self->{args}}, "-p", $self->{port};
+    }
+    if (defined($self->{username})) {
+        push @{$self->{args}}, "-U", $self->{username};
+    }
+    if (defined($self->{password}) && $self->{password} ne '') {
+        $ENV{PGPASSWORD} = $self->{password};
+    }
+    if (defined($self->{dbname}) && $self->{dbname} ne '') {
+        push @{$self->{args}}, "-d", $self->{dbname};
+    }
+
+    if (scalar(@{$self->{option_results}->{host}}) == 0) {
+        return 0;
+    }
+    return 1;
+}
+
+sub is_version_minimum {
+    my ($self, %options) = @_;
+    # $options{version} = string version to check
+    
+    my @version_src = split /\./, $self->{version};
+    my @versions = split /\./, $options{version};
+    for (my $i = 0; $i < scalar(@versions); $i++) {
+        return 1 if ($versions[$i] eq 'x');
+        return 1 if (!defined($version_src[$i]));
+        $version_src[$i] =~ /^([0-9]*)/;
+        next if ($versions[$i] == int($1));
+        return 0 if ($versions[$i] > int($1));
+        return 1 if ($versions[$i] < int($1));
+    }
+    
+    return 1;
+}
+
+sub get_id {
+    my ($self, %options) = @_;
+    
+    my $msg = $self->{host};
+    if (defined($self->{port})) {
+        $msg .= ":" . $self->{port};
+    }
+    return $msg;
+}
+
+
+sub get_unique_id4save {
+    my ($self, %options) = @_;
+
+    my $msg = $self->{host};
+    if (defined($self->{port})) {
+        $msg .= ":" . $self->{port};
+    }
+    return md5_hex($msg);
+}
+
+sub quote {
+    my $self = shift;
+
+    return undef;
+}
+
+sub command_execution {
+    my ($self, %options) = @_;
+    
+    my ($lerror, $stdout, $exit_code) = centreon::plugins::misc::backtick(
+                                                 command => $self->{psql_cmd},
+                                                 arguments =>  [@{$self->{args}}, '-c', $options{request}],
+                                                 timeout => 30,
+                                                 wait_exit => 1,
+                                                 redirect_stderr => 1
+                                                 );
+    if ($exit_code <= -1000) {
+        if ($exit_code == -1000) {
+            $self->{output}->output_add(severity => 'UNKNOWN', 
+                                        short_msg => $stdout);
+        }
+        $self->{output}->display();
+        $self->{output}->exit();
+    }
+    
+    return ($exit_code, $stdout); 
+}
+
+# Connection initializer
+sub connect {
+    my ($self, %options) = @_;
+    my $dontquit = (defined($options{dontquit}) && $options{dontquit} == 1) ? 1 : 0;
+    
+    (my $exit_code, $self->{stdout}) = $self->command_execution(request => "SELECT current_setting('server_version') as version");
+    if ($exit_code != 0) {
+        if ($dontquit == 0) {
+            $self->{output}->add_option_msg(short_msg => "Cannot connect: " . $self->{stdout});
+            $self->{output}->option_exit(exit_litteral => $self->{sql_errors_exit});
+        }
+        return (-1, "Cannot connect: " . $self->{stdout});
+    }
+    
+    my $row = $self->fetchrow_hashref();
+    $self->{version} = $row->{version};
+
+    return 0;
+}
+
+sub fetchall_arrayref {
+    my ($self, %options) = @_;
+    my $array_ref = [];
+    
+    if (!defined($self->{columns})) {
+        $self->{stdout} =~ s/^(.*?)\Q$self->{record_separator}\E//ms;
+        @{$self->{columns}} = split(/\Q$self->{field_separator}\E/, $1);
+    }
+    foreach (split /\Q$self->{record_separator}\E/, $self->{stdout}) {
+        push @$array_ref, [split(/\Q$self->{field_separator}\E/, $_)];
+    }
+    
+    return $array_ref;
+}
+
+sub fetchrow_array {
+    my ($self, %options) = @_;
+    my @array_result = ();
+    
+    if (!defined($self->{columns})) {
+        $self->{stdout} =~ s/^(.*?)\Q$self->{record_separator}\E//ms;
+        @{$self->{columns}} = split(/\Q$self->{field_separator}\E/, $1);
+    }
+    if (($self->{stdout} =~ s/^(.*?)\Q$self->{record_separator}\E//ms)) {
+        push @array_result, split(/\Q$self->{field_separator}\E/, $1);
+    }
+    
+    return @array_result;
+}
+
+sub fetchrow_hashref {
+    my ($self, %options) = @_;
+    my $array_result = undef;
+    
+    if (!defined($self->{columns})) {
+        $self->{stdout} =~ s/^(.*?)\Q$self->{record_separator}\E//ms;
+        @{$self->{columns}} = split(/\Q$self->{field_separator}\E/, $1);
+    }
+    if ($self->{stdout} ne '' && $self->{stdout} =~ s/^(.*?)\Q$self->{record_separator}\E//ms) {
+        $array_result = {};
+        my @values = split(/\Q$self->{field_separator}\E/, $1);
+        for (my $i = 0; $i < scalar(@values); $i++) {
+            my $value = $values[$i];
+            $array_result->{$self->{columns}[$i]} = $value;
+        }
+    }
+    
+    return $array_result;
+}
+
+sub query {
+    my ($self, %options) = @_;
+    
+    $self->{columns} = undef;
+    (my $exit_code, $self->{stdout}) = $self->command_execution(request => $options{query});
+    
+    if ($exit_code != 0) {
+        $self->{output}->add_option_msg(short_msg => "Cannot execute query: " . $self->{stdout});
+        $self->{output}->option_exit(exit_litteral => $self->{sql_errors_exit});
+    }
+
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+psqlcmd global
+
+=head1 SYNOPSIS
+
+psqlcmd class
+
+=head1 PSQLCMD OPTIONS
+
+=over 8
+
+=item B<--psql-cmd>
+
+postgres command (Default: '/usr/bin/psql').
+
+=item B<--host>
+
+Database hostname.
+
+=item B<--port>
+
+Database port.
+
+=item B<--dbname>
+
+Database name to connect (default: postgres).
+
+=item B<--username>
+
+Database username.
+
+=item B<--password>
+
+Database password.
+
+=item B<--sql-errors-exit>
+
+Exit code for DB Errors (default: unknown)
+
+=back
+
+=head1 DESCRIPTION
+
+B<>.
+
+=cut

example/custommode/simple.pm

@@ -0,0 +1,151 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package example::custommode::simple;
+
+use strict;
+use warnings;
+
+sub new {
+    my ($class, %options) = @_;
+    my $self  = {};
+    bless $self, $class;
+    # $options{options} = options object
+    # $options{output} = output object
+    # $options{exit_value} = integer
+    # $options{noptions} = integer
+
+    if (!defined($options{output})) {
+        print "Class Custom: Need to specify 'output' argument.\n";
+        exit 3;
+    }
+    if (!defined($options{options})) {
+        $options{output}->add_option_msg(short_msg => "Class Custom: Need to specify 'options' argument.");
+        $options{output}->option_exit();
+    }
+    
+    if (!defined($options{noptions})) {
+        $options{options}->add_options(arguments => 
+                    { "customarg:s@"       => { name => 'customarg' },
+        });
+    }
+    $options{options}->add_help(package => __PACKAGE__, sections => 'CUSTOM OPTIONS', once => 1);
+
+    $self->{output} = $options{output};
+    $self->{mode} = $options{mode};
+    
+    $self->{customarg} = undef;
+    
+    return $self;
+}
+
+# Method to manage multiples
+sub set_options {
+    my ($self, %options) = @_;
+    # options{options_result}
+
+    $self->{option_results} = $options{option_results};
+}
+
+# Method to manage multiples
+sub set_defaults {
+    my ($self, %options) = @_;
+    # options{default}
+    
+    # Manage default value
+    foreach (keys %{$options{default}}) {
+        if ($_ eq $self->{mode}) {
+            for (my $i = 0; $i < scalar(@{$options{default}->{$_}}); $i++) {
+                foreach my $opt (keys %{$options{default}->{$_}[$i]}) {
+                    if (!defined($self->{option_results}->{$opt}[$i])) {
+                        $self->{option_results}->{$opt}[$i] = $options{default}->{$_}[$i]->{$opt};
+                    }
+                }
+            }
+        }
+    }
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    # return 1 = ok still customarg
+    # return 0 = no customarg left
+
+    $self->{customarg} = (defined($self->{option_results}->{customarg})) ? shift(@{$self->{option_results}->{customarg}}) : undef;
+
+    if (!defined($self->{customarg}) ||
+        scalar(@{$self->{option_results}->{customarg}}) == 0) {
+        return 0;
+    }
+    return 1;
+}
+
+##############
+# Specific methods
+##############
+sub test {
+    my ($self, %options) = @_;
+    
+    use Data::Dumper;
+    print Data::Dumper::Dumper($self);
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+My Custom global
+
+=head1 SYNOPSIS
+
+my custom class example
+
+=head1 CUSTOM OPTIONS
+
+=over 8
+
+=item B<--customarg>
+
+Argument test.
+
+=back
+
+=head1 DESCRIPTION
+
+B<custom>.
+
+=cut

example/mode/getvalue.pm

@@ -0,0 +1,126 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package example::mode::getvalue;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                { 
+                                  "oid:s"                   => { name => 'oid' },
+                                  "warning:s"               => { name => 'warning' },
+                                  "critical:s"              => { name => 'critical' },
+                                });
+
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+
+    if (!defined($self->{option_results}->{oid})) {
+       $self->{output}->add_option_msg(short_msg => "Need to specify an OID.");
+       $self->{output}->option_exit(); 
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'warning', value => $self->{option_results}->{warning})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong warning threshold '" . $self->{option_results}->{warning} . "'.");
+       $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'critical', value => $self->{option_results}->{critical})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong critical threshold '" . $self->{option_results}->{critical} . "'.");
+       $self->{output}->option_exit();
+    }
+    
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{snmp} = snmp object
+    $self->{snmp} = $options{snmp};
+    $self->{hostname} = $self->{snmp}->get_hostname();
+
+    my $result = $self->{snmp}->get_leef(oids => [$self->{option_results}->{oid}], nothing_quit => 1);
+    my $value = $result->{$self->{option_results}->{oid}};
+    
+    my $exit = $self->{perfdata}->threshold_check(value => $value, 
+                               threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]);
+    $self->{output}->output_add(severity => $exit,
+                                short_msg => sprintf("SNMP Value is %s.", $value));    
+
+    $self->{output}->perfdata_add(label => 'value', unit => undef,
+                                  value => $value,
+                                  warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning'),
+                                  critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical'),
+                                  min => undef, max => undef);
+
+    $self->{output}->display();
+    $self->{output}->exit();
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+Check an SNMP Integer value.
+
+=over 8
+
+=item B<--oid>
+
+Check OID Integer value.
+
+=item B<--warning>
+
+Threshold warning.
+
+=item B<--critical>
+
+Threshold critical.
+
+=back
+
+=cut

example/mode/launchcmd.pm

@@ -0,0 +1,122 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package example::mode::launchcmd;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+use centreon::plugins::misc;
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                { 
+                                  "cmd:s"     => { name => 'cmd' },
+                                  "timeout:s" => { name => 'timeout', default => 30 }
+                                });
+
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+
+    if (!defined($self->{option_results}->{cmd})) {
+       $self->{output}->add_option_msg(short_msg => "Need to specify a command.");
+       $self->{output}->option_exit(); 
+    }
+}
+
+sub run {
+    my ($self, %options) = @_;
+
+    my ($lerror, $stdout, $exit_code) = centreon::plugins::misc::backtick(
+                                                 command => $self->{option_results}->{cmd},
+                                                 timeout => $self->{option_results}->{timeout},
+                                                 wait_exit => 1
+                                                 );
+    $stdout =~ s/\r//g;
+    if ($exit_code <= -1000) {
+        if ($exit_code == -1000) {
+            $self->{output}->output_add(severity => 'UNKNOWN', 
+                                        short_msg => $stdout);
+        }
+        $self->{output}->display();
+        $self->{output}->exit();
+    }
+    if ($exit_code != 0) {
+        $stdout =~ s/\n/ - /g;
+        $self->{output}->output_add(severity => 'UNKNOWN', 
+                                    short_msg => "Command error: $stdout");
+        $self->{output}->display();
+        $self->{output}->exit();
+    }
+    
+    $self->{output}->output_add(severity => 'OK',
+                                short_msg => 'Command executed with no errors.');
+    $self->{output}->output_add(long_msg => $stdout);
+
+    $self->{output}->display();
+    $self->{output}->exit();
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+Launch a local command. Use --verbose to see the command output.
+
+=over 8
+
+=item B<--cmd>
+
+Command to execute.
+
+=item B<--timeout>
+
+Timeout in seconds for the command (Default: 30).
+
+=back
+
+=cut

example/mode/testcustom.pm

@@ -1,6 +1,5 @@
-#!/bin/sh
 ################################################################################
-# Copyright 2004-2011 MERETHIS
+# Copyright 2005-2013 MERETHIS
 # Centreon is developped by : Julien Mathis and Romain Le Merlus under
 # GPL Licence 2.0.
 # 
@@ -30,42 +29,62 @@
 # do not wish to do so, delete this exception statement from your version.
 # 
 # For more information : contact@centreon.com
-# 
-# SVN : $URL$
-# SVN : $Id$
+# Authors : Quentin Garnier <qgarnier@merethis.com>
 #
 ####################################################################################
-#
-# Script init
-#
 
-# Arguments:
-#  $1 = host_name (Short name of host that the service is
-#       associated with)
-#  $2 = state_string (A string representing the status of
-#       the given service - "UP", "DOWN", "UNREACHABLE"
-#  $3 = plugin_output (A text string that should be used
-#       as the plugin output for the service checks)
-#
+package example::mode::testcustom;
 
-# pipe the service check info into the send_nsca program, which
-# in turn transmits the data to the nsca daemon on the central
-# monitoring server
+use base qw(centreon::plugins::mode);
 
+use strict;
+use warnings;
+use centreon::plugins::misc;
 
-        return_code=-1
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                { 
+                                  "timeout:s" => { name => 'timeout', default => 30 }
+                                });
 
-        case "$2" in
-            UP)
-            return_code=0
-                    ;;
-                DOWN)
-                    return_code=1
-                        ;;
-                UNREACHABLE)
-                    return_code=2
-                        ;;
-        esac
+    return $self;
+}
 
-# Test everything works fine
-/usr/bin/printf "%s\t%s\t%s\n" "$1" "$return_code" "$3" | /usr/sbin/send_nsca IP -p PORT -c /etc/send_nsca.cfg
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+
+}
+
+sub run {
+    my ($self, %options) = @_;
+    my $custom = $options{custom};
+    
+    $custom->test();
+    
+    #$self->{output}->display();
+    $self->{output}->exit();
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+For custom mode example test.
+
+=over 8
+
+=item B<--timeout>
+
+Timeout in seconds.
+
+=back
+
+=cut

example/plugin_command.pm

@@ -1,6 +1,5 @@
-#!/bin/sh
 ################################################################################
-# Copyright 2004-2011 MERETHIS
+# Copyright 2005-2013 MERETHIS
 # Centreon is developped by : Julien Mathis and Romain Le Merlus under
 # GPL Licence 2.0.
 # 
@@ -30,46 +29,36 @@
 # do not wish to do so, delete this exception statement from your version.
 # 
 # For more information : contact@centreon.com
-# 
-# SVN : $URL$
-# SVN : $Id$
+# Authors : Quentin Garnier <qgarnier@merethis.com>
 #
 ####################################################################################
-#
-# Script init
-#
 
-# Arguments:
-#  $1 = host_name (Short name of host that the service is
-#       associated with)
-#  $2 = svc_description (Description of the service)
-#  $3 = state_string (A string representing the status of
-#       the given service - "OK", "WARNING", "CRITICAL"
-#       or "UNKNOWN")
-#  $4 = plugin_output (A text string that should be used
-#       as the plugin output for the service checks)
-#
+package example::plugin_command;
 
-# pipe the service check info into the send_nsca program, which
-# in turn transmits the data to the nsca daemon on the central
-# monitoring server
+use strict;
+use warnings;
+use base qw(centreon::plugins::script_simple);
 
-	return_code=-1
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    # $options->{options} = options object
 
-	case "$3" in
-    	    OK)
-       	        return_code=0
-            	    ;;
-	        WARNING)
-    	            return_code=1
-        	        ;;
-	        CRITICAL)
-    	            return_code=2
-        	        ;;
-	        UNKNOWN)
-    	            return_code=-1
-        	        ;;
-	esac
+    $self->{version} = '0.1';
+    %{$self->{modes}} = (
+                         'launchcmd' => 'example::mode::launchcmd'
+                         );
 
-# Test everything works fine
-/usr/bin/printf "%s\t%s\t%s\t%s|%s\n" "$1" "$2" "$return_code" "$4" "$5" | /usr/sbin/send_nsca IP -p PORT -c /etc/send_nsca.cfg
+    return $self;
+}
+
+1;
+
+__END__
+
+=head1 PLUGIN DESCRIPTION
+
+An example of local command plugin.
+
+=cut

example/plugin_custom.pm

@@ -0,0 +1,76 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package example::plugin_custom;
+
+use strict;
+use warnings;
+use base qw(centreon::plugins::script_custom);
+
+sub new {
+    my ($class, %options) = @_;
+    
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    # $options->{options} = options object
+
+    $self->{version} = '0.1';
+    %{$self->{modes}} = (
+                         'testcustom' => 'example::mode::testcustom',
+                         );
+    $self->{custom_modes}{mycustommodetest} = 'example::custommode::simple';
+
+    return $self;
+}
+
+sub init {
+    my ($self, %options) = @_;
+
+    $self->SUPER::init(%options);    
+}
+
+1;
+
+__END__
+
+=head1 PLUGIN DESCRIPTION
+
+Check Custom mode (an example for creating test with a same line argument).
+
+=over 8
+
+=back
+
+=cut

example/plugin_snmp.pm

@@ -0,0 +1,64 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package example::plugin_snmp;
+
+use strict;
+use warnings;
+use base qw(centreon::plugins::script_snmp);
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    # $options->{options} = options object
+
+    $self->{version} = '0.1';
+    %{$self->{modes}} = (
+                         'getvalue' => 'example::mode::getvalue'
+                         );
+
+    return $self;
+}
+
+1;
+
+__END__
+
+=head1 PLUGIN DESCRIPTION
+
+An example of SNMP plugin type.
+
+=cut

hardware/server/hpbladechassis/mode/hardware.pm

@@ -0,0 +1,634 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package hardware::server::hpbladechassis::mode::hardware;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+
+my %conditions = (1 => ['other', 'CRITICAL'], 
+                  2 => ['ok', 'OK'], 
+                  3 => ['degraded', 'WARNING'], 
+                  4 => ['failed', 'CRITICAL']);
+my %present_map = (1 => 'other',
+                   2 => 'absent',
+                   3 => 'present',
+                   4 => 'Weird!!!', # for blades it can return 4, which is NOT spesified in MIB
+);
+my %device_type = (1 => 'noconnect', 
+                   2 => 'network',
+                   3 => 'fibrechannel',
+                   4 => 'sas',
+                   5 => 'inifiband',
+                   6 => 'pciexpress'
+);
+my %psu_status = (1  => 'noError',
+                  2  => 'generalFailure',
+                  3  => 'bistFailure',
+                  4  => 'fanFailure',
+                  5  => 'tempFailure',
+                  6  => 'interlockOpen',
+                  7  => 'epromFailed',
+                  8  => 'vrefFailed',
+                  9  => 'dacFailed',
+                  10 => 'ramTestFailed',
+                  11 => 'voltageChannelFailed',
+                  12 => 'orringdiodeFailed',
+                  13 => 'brownOut',
+                  14 => 'giveupOnStartup',
+                  15 => 'nvramInvalid',
+                  16 => 'calibrationTableInvalid',
+);
+my %inputline_status = (1 => 'noError',
+                        2 => 'lineOverVoltage',
+                        3 => 'lineUnderVoltage',
+                        4 => 'lineHit',
+                        5 => 'brownOut',
+                        6 => 'linePowerLoss',
+);
+my %map_role = (1 => 'Standby',
+                2 => 'Active',
+);
+my %map_has = (1 => 'false',
+               2 => 'true',
+);
+my %map_temp_type = (1 => 'other',
+                     5 => 'blowout',
+                     9 => 'caution',
+                     15 => 'critical',
+);
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                { 
+                                  "exclude"        => { name => 'exclude' },
+                                });
+
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{snmp} = snmp object
+    $self->{snmp} = $options{snmp};
+
+    $self->{components_fans} = 0;
+    $self->{components_blades} = 0;
+    $self->{components_nc} = 0;
+    $self->{components_psu} = 0;
+    $self->{components_temperatures} = 0;
+    $self->{components_fuse} = 0;
+    
+    $self->check_enclosure_status();
+    $self->check_managers();
+    $self->check_fans();
+    $self->check_blades();
+    $self->check_iom();
+    $self->check_psu();
+    $self->check_temperatures();
+    $self->check_fuse();
+    
+    $self->{output}->output_add(severity => 'OK',
+                                short_msg => sprintf("All %d components [%d fans, %d blades, %d network connectors, %d psu, %d temperatures, %d fuses] are ok.", 
+                                ($self->{components_fans} + $self->{components_blades} + $self->{components_nc} + $self->{components_psu} + $self->{components_temperatures} + $self->{components_fuse}), 
+                                $self->{components_fans}, $self->{components_blades}, $self->{components_nc}, $self->{components_psu}, $self->{components_temperatures}, $self->{components_fuse}));
+    
+    $self->{output}->display();
+    $self->{output}->exit();
+}
+
+sub check_enclosure_status {
+    my ($self) = @_;
+
+    my $oid_cpqRackCommonEnclosurePartNumber = '.1.3.6.1.4.1.232.22.2.3.1.1.1.5.1';
+    my $oid_cpqRackCommonEnclosureSparePartNumber = '.1.3.6.1.4.1.232.22.2.3.1.1.1.6.1';
+    my $oid_cpqRackCommonEnclosureSerialNum = '.1.3.6.1.4.1.232.22.2.3.1.1.1.7.1';
+    my $oid_cpqRackCommonEnclosureFWRev = '.1.3.6.1.4.1.232.22.2.3.1.1.1.8.1';
+    my $oid_cpqRackCommonEnclosureCondition = '.1.3.6.1.4.1.232.22.2.3.1.1.1.16.1';
+    my $oid_cpqRackCommonEnclosureHasServerBlades = '.1.3.6.1.4.1.232.22.2.3.1.1.1.17.1';
+    my $oid_cpqRackCommonEnclosureHasPowerSupplies = '.1.3.6.1.4.1.232.22.2.3.1.1.1.18.1';
+    my $oid_cpqRackCommonEnclosureHasNetConnectors = '.1.3.6.1.4.1.232.22.2.3.1.1.1.19.1';
+    my $oid_cpqRackCommonEnclosureHasTempSensors = '.1.3.6.1.4.1.232.22.2.3.1.1.1.20.1';
+    my $oid_cpqRackCommonEnclosureHasFans = '.1.3.6.1.4.1.232.22.2.3.1.1.1.21.1';
+    my $oid_cpqRackCommonEnclosureHasFuses = '.1.3.6.1.4.1.232.22.2.3.1.1.1.22.1';
+    #my $oid_cpqRackServerBladeHasManagementDevice = '.1.3.6.1.4.1.232.22.2.4.1.1.1.29.1';
+    
+    $self->{global_results} = $self->{snmp}->get_leef(oids => [$oid_cpqRackCommonEnclosurePartNumber, $oid_cpqRackCommonEnclosureSparePartNumber, 
+                                                    $oid_cpqRackCommonEnclosureSerialNum, $oid_cpqRackCommonEnclosureFWRev,
+                                                    $oid_cpqRackCommonEnclosureCondition, $oid_cpqRackCommonEnclosureHasServerBlades,
+                                                    $oid_cpqRackCommonEnclosureHasPowerSupplies, $oid_cpqRackCommonEnclosureHasNetConnectors,
+                                                    $oid_cpqRackCommonEnclosureHasTempSensors, $oid_cpqRackCommonEnclosureHasFans, 
+                                                    $oid_cpqRackCommonEnclosureHasFuses], nothing_quit => 1);
+
+    $self->{output}->output_add(long_msg => sprintf("Enclosure overall health condition is %s [part: %s, spare: %s, sn: %s, fw: %s].", 
+                                ${$conditions{$self->{global_results}->{$oid_cpqRackCommonEnclosureCondition}}}[0],
+                                $self->{global_results}->{$oid_cpqRackCommonEnclosurePartNumber},
+                                $self->{global_results}->{$oid_cpqRackCommonEnclosureSparePartNumber},
+                                $self->{global_results}->{$oid_cpqRackCommonEnclosureSerialNum},
+                                $self->{global_results}->{$oid_cpqRackCommonEnclosureFWRev}));
+    if ($self->{global_results}->{$oid_cpqRackCommonEnclosureCondition} != 2) {
+        $self->{output}->output_add(severity =>  ${$conditions{$self->{global_results}->{$oid_cpqRackCommonEnclosureCondition}}}[1],
+                                    short_msg => sprintf("Enclosure overall health condition is %s", ${$conditions{$self->{global_results}->{$oid_cpqRackCommonEnclosureCondition}}}[0]));
+    }
+}
+
+sub check_managers {
+    my ($self) = @_;
+
+    #my $oid_cpqRackServerBladeHasManagementDevice = '.1.3.6.1.4.1.232.22.2.4.1.1.1.29.1';
+    #if (defined($map_has{$global_results->{$oid_cpqRackServerBladeHasManagementDevice}}) && 
+    #   $map_has{$global_results->{$oid_cpqRackServerBladeHasManagementDevice}} =~ /^false$/i) {
+    #   output_add(long_msg => sprintf("Skipping Managers: enclosure doesnt contain managers."));
+    #   return ;
+    #}
+    
+    return if ($self->check_exclude('managers'));
+
+    # No check if OK
+    if ($self->{output}->is_status(compare => 'ok', litteral => 1)) {
+        return ;
+    }
+    $self->{output}->output_add(long_msg => "Checking managers");
+    
+    my $oid_cpqRackCommonEnclosureManagerIndex = '.1.3.6.1.4.1.232.22.2.3.1.6.1.3';
+    my $oid_cpqRackCommonEnclosureManagerPartNumber = '.1.3.6.1.4.1.232.22.2.3.1.6.1.6';
+    my $oid_cpqRackCommonEnclosureManagerSparePartNumber = '.1.3.6.1.4.1.232.22.2.3.1.6.1.7';
+    my $oid_cpqRackCommonEnclosureManagerSerialNum = '.1.3.6.1.4.1.232.22.2.3.1.6.1.8';
+    my $oid_cpqRackCommonEnclosureManagerRole = '.1.3.6.1.4.1.232.22.2.3.1.6.1.9';
+    my $oid_cpqRackCommonEnclosureManagerCondition = '.1.3.6.1.4.1.232.22.2.3.1.6.1.12';
+    
+    my $result = $self->{snmp}->get_table(oid => $oid_cpqRackCommonEnclosureManagerIndex);
+    return if (scalar(keys %$result) <= 0);
+    
+    $self->{snmp}->load(oids => [$oid_cpqRackCommonEnclosureManagerPartNumber, $oid_cpqRackCommonEnclosureManagerSparePartNumber,
+                                $oid_cpqRackCommonEnclosureManagerSerialNum, $oid_cpqRackCommonEnclosureManagerRole,
+                                $oid_cpqRackCommonEnclosureManagerCondition],
+                        instances => [keys %$result]);
+    my $result2 = $self->{snmp}->get_leef();
+    foreach my $key ($self->{snmp}->oid_lex_sort(keys %$result)) {
+        $key =~ /(\d+)$/;
+        my $instance = $1;
+    
+        my $man_part = $result2->{$oid_cpqRackCommonEnclosureManagerPartNumber . '.' . $instance};
+        my $man_spare = $result2->{$oid_cpqRackCommonEnclosureManagerSparePartNumber . '.' . $instance};
+        my $man_serial = $result2->{$oid_cpqRackCommonEnclosureManagerSerialNum . '.' . $instance};
+        my $man_role = $result2->{$oid_cpqRackCommonEnclosureManagerRole . '.' . $instance};
+        my $man_condition = $result2->{$oid_cpqRackCommonEnclosureManagerCondition . '.' . $instance};
+        
+        $self->{output}->output_add(long_msg => sprintf("Enclosure management module %d is %s, status is %s [serial: %s, part: %s, spare: %s].", 
+                                    $instance, ${$conditions{$man_condition}}[0], $map_role{$man_role},
+                                    $man_serial, $man_part, $man_spare));
+        if ($man_condition != 2) {
+            $self->{output}->output_add(severity =>  ${$conditions{$man_condition}}[1],
+                                        short_msg => sprintf("Enclosure management module %d is %s, status is %s", 
+                                            $instance, ${$conditions{$man_condition}}[0], $map_role{$man_role}));
+        }
+    }
+}
+
+sub check_fans {
+    my ($self) = @_;
+
+    $self->{output}->output_add(long_msg => "Checking fans");
+    return if ($self->check_exclude('fans'));
+
+    my $oid_cpqRackCommonEnclosureHasFans = '.1.3.6.1.4.1.232.22.2.3.1.1.1.21.1';
+    if (defined($map_has{$self->{global_results}->{$oid_cpqRackCommonEnclosureHasFans}}) && 
+        $map_has{$self->{global_results}->{$oid_cpqRackCommonEnclosureHasFans}} =~ /^false$/i) {
+        $self->{output}->output_add(long_msg => "Skipping Fans: enclosure cannot house fans (??!!).");
+        return ;
+    }
+    
+    my $oid_cpqRackCommonEnclosureFanPresent = '.1.3.6.1.4.1.232.22.2.3.1.3.1.8';
+    my $oid_cpqRackCommonEnclosureFanIndex = '.1.3.6.1.4.1.232.22.2.3.1.3.1.3';
+    my $oid_cpqRackCommonEnclosureFanPartNumber = '.1.3.6.1.4.1.232.22.2.3.1.3.1.6';
+    my $oid_cpqRackCommonEnclosureFanSparePartNumber = '.1.3.6.1.4.1.232.22.2.3.1.3.1.7';
+    my $oid_cpqRackCommonEnclosureFanCondition = '.1.3.6.1.4.1.232.22.2.3.1.3.1.11';
+    
+    my $result = $self->{snmp}->get_table(oid => $oid_cpqRackCommonEnclosureFanPresent);
+    return if (scalar(keys %$result) <= 0);
+    my @get_oids = ();
+    my @oids_end = ();
+    foreach my $key ($self->{snmp}->oid_lex_sort(keys %$result)) {
+        next if ($present_map{$result->{$key}} ne 'present');
+        $key =~ /\.([0-9]+)$/;
+        my $oid_end = $1;
+        
+        push @oids_end, $oid_end;
+        push @get_oids, $oid_cpqRackCommonEnclosureFanIndex . "." . $oid_end, $oid_cpqRackCommonEnclosureFanPartNumber . "." . $oid_end,
+                $oid_cpqRackCommonEnclosureFanSparePartNumber . "." . $oid_end, $oid_cpqRackCommonEnclosureFanCondition . "." . $oid_end;
+    }
+    $result = $self->{snmp}->get_leef(oids => \@get_oids);
+    foreach (@oids_end) {
+        my $fan_index = $result->{$oid_cpqRackCommonEnclosureFanIndex . '.' . $_};
+        my $fan_condition = $result->{$oid_cpqRackCommonEnclosureFanCondition . '.' . $_};
+        my $fan_part = $result->{$oid_cpqRackCommonEnclosureFanPartNumber . '.' . $_};
+        my $fan_spare = $result->{$oid_cpqRackCommonEnclosureFanSparePartNumber . '.' . $_};
+        
+        $self->{components_fans}++;
+        $self->{output}->output_add(long_msg => sprintf("Fan %d condition is %s [part: %s, spare: %s].", 
+                                    $fan_index, ${$conditions{$fan_condition}}[0],
+                                    $fan_part, $fan_spare));
+        if ($fan_condition != 2) {
+            $self->{output}->output_add(severity =>  ${$conditions{$fan_condition}}[1],
+                                        short_msg => sprintf("Fan %d condition is %s", $fan_index, ${$conditions{$fan_condition}}[0]));
+        }
+    }
+}
+
+sub check_blades {
+    my ($self) = @_;
+
+    $self->{output}->output_add(long_msg => "Checking blades");
+    return if ($self->check_exclude('blades'));
+
+    my $oid_cpqRackCommonEnclosureHasServerBlades = '.1.3.6.1.4.1.232.22.2.3.1.1.1.17.1';
+    if (defined($map_has{$self->{global_results}->{$oid_cpqRackCommonEnclosureHasServerBlades}}) &&
+        $map_has{$self->{global_results}->{$oid_cpqRackCommonEnclosureHasServerBlades}} =~ /^false$/i) {
+        $self->{output}->output_add(long_msg => "Skipping Blades: enclosure cannot house blades (??!!).");
+        return ;
+    }
+    
+    my $oid_cpqRackServerBladePresent = '.1.3.6.1.4.1.232.22.2.4.1.1.1.12';
+    my $oid_cpqRackServerBladeIndex = '.1.3.6.1.4.1.232.22.2.4.1.1.1.3';
+    my $oid_cpqRackServerBladeName = '.1.3.6.1.4.1.232.22.2.4.1.1.1.4';
+    my $oid_cpqRackServerBladePartNumber = '.1.3.6.1.4.1.232.22.2.4.1.1.1.6';
+    my $oid_cpqRackServerBladeSparePartNumber = '.1.3.6.1.4.1.232.22.2.4.1.1.1.7';
+    my $oid_cpqRackServerBladeProductId = '.1.3.6.1.4.1.232.22.2.4.1.1.1.17';
+    my $oid_cpqRackServerBladeStatus = '.1.3.6.1.4.1.232.22.2.4.1.1.1.21'; # v2
+    my $oid_cpqRackServerBladeFaultDiagnosticString = '.1.3.6.1.4.1.232.22.2.4.1.1.1.24'; # v2
+    
+    my $result = $self->{snmp}->get_table(oid => $oid_cpqRackServerBladePresent);
+    return if (scalar(keys %$result) <= 0);
+    my @get_oids = ();
+    my @oids_end = ();
+    foreach my $key ($self->{snmp}->oid_lex_sort(keys %$result)) {
+        next if ($present_map{$result->{$key}} ne 'present');
+        $key =~ /\.([0-9]+)$/;
+        my $oid_end = $1;
+        
+        push @oids_end, $oid_end;
+        push @get_oids, $oid_cpqRackServerBladeIndex . "." . $oid_end, $oid_cpqRackServerBladeName . "." . $oid_end,
+                $oid_cpqRackServerBladePartNumber . "." . $oid_end, $oid_cpqRackServerBladeSparePartNumber . "." . $oid_end,
+                $oid_cpqRackServerBladeProductId . "." . $oid_end, 
+                $oid_cpqRackServerBladeStatus . "." . $oid_end, $oid_cpqRackServerBladeFaultDiagnosticString . "." . $oid_end;
+    }
+
+    $result = $self->{snmp}->get_leef(oids => \@get_oids);
+    foreach (@oids_end) {
+        my $blade_index = $result->{$oid_cpqRackServerBladeIndex . '.' . $_};
+        my $blade_status = defined($result->{$oid_cpqRackServerBladeStatus . '.' . $_}) ? $result->{$oid_cpqRackServerBladeStatus . '.' . $_} : '';
+        my $blade_name = $result->{$oid_cpqRackServerBladeName . '.' . $_};
+        my $blade_part = $result->{$oid_cpqRackServerBladePartNumber . '.' . $_};
+        my $blade_spare = $result->{$oid_cpqRackServerBladeSparePartNumber . '.' . $_};
+        my $blade_productid = $result->{$oid_cpqRackServerBladeProductId . '.' . $_};
+        my $blade_diago = defined($result->{$oid_cpqRackServerBladeFaultDiagnosticString . '.' . $_}) ? $result->{$oid_cpqRackServerBladeFaultDiagnosticString . '.' . $_} : '';
+        
+        $self->{components_blades}++;
+        if ($blade_status eq '') {
+            $self->{output}->output_add(long_msg => sprintf("Skipping Blade %d (%s, %s). Cant get status.",
+                                        $blade_index, $blade_name, $blade_productid));
+            next;
+        }
+        $self->{output}->output_add(long_msg => sprintf("Blade %d (%s, %s) status is %s [part: %s, spare: %s]%s.",
+                                    $blade_index, $blade_name, $blade_productid,
+                                    ${$conditions{$blade_status}}[0],
+                                    $blade_part, $blade_spare,
+                                    ($blade_diago ne '') ? " (Diagnostic '$blade_diago')" : ''
+                                    ));
+        if ($blade_status != 2) {
+            $self->{output}->output_add(severity =>  ${$conditions{$blade_status}}[1],
+                                        short_msg => sprintf("Blade %d (%s, %s) status is %s",
+                                            $blade_index, $blade_name, $blade_productid,
+                                            ${$conditions{$blade_status}}[0]
+                                       ));
+        }
+    }
+}
+
+
+sub check_iom {
+    my ($self) = @_;
+
+    $self->{output}->output_add(long_msg => "Checking network connectors");
+    return if ($self->check_exclude('network'));
+
+    my $oid_cpqRackCommonEnclosureHasNetConnectors = '.1.3.6.1.4.1.232.22.2.3.1.1.1.19.1';
+    if (defined($map_has{$self->{global_results}->{$oid_cpqRackCommonEnclosureHasNetConnectors}}) &&
+        $map_has{$self->{global_results}->{$oid_cpqRackCommonEnclosureHasNetConnectors}} =~ /^false$/i) {
+        $self->{output}->output_add(long_msg => "Skipping Network Connectors: enclosure cannot house network connectors (??!!).");
+        return ;
+    }
+    
+    my $oid_cpqRackNetConnectorPresent = '.1.3.6.1.4.1.232.22.2.6.1.1.1.13';
+    my $oid_cpqRackNetConnectorIndex = '.1.3.6.1.4.1.232.22.2.6.1.1.1.3';
+    my $oid_cpqRackNetConnectorModel = '.1.3.6.1.4.1.232.22.2.6.1.1.1.6';
+    my $oid_cpqRackNetConnectorSerialNum = '.1.3.6.1.4.1.232.22.2.6.1.1.1.7';
+    my $oid_cpqRackNetConnectorPartNumber = '.1.3.6.1.4.1.232.22.2.6.1.1.1.8';
+    my $oid_cpqRackNetConnectorSparePartNumber = '.1.3.6.1.4.1.232.22.2.6.1.1.1.9';
+    my $oid_cpqRackNetConnectorDeviceType = '.1.3.6.1.4.1.232.22.2.6.1.1.1.17';
+    
+    my $result = $self->{snmp}->get_table(oid => $oid_cpqRackNetConnectorPresent);
+    return if (scalar(keys %$result) <= 0);
+    my @get_oids = ();
+    my @oids_end = ();
+    foreach my $key ($self->{snmp}->oid_lex_sort(keys %$result)) {
+        next if ($present_map{$result->{$key}} ne 'present');
+        $key =~ /\.([0-9]+)$/;
+        my $oid_end = $1;
+        
+        push @oids_end, $oid_end;
+        push @get_oids, $oid_cpqRackNetConnectorIndex . "." . $oid_end, $oid_cpqRackNetConnectorModel . "." . $oid_end,
+                $oid_cpqRackNetConnectorSerialNum . "." . $oid_end, $oid_cpqRackNetConnectorPartNumber . "." . $oid_end,
+                $oid_cpqRackNetConnectorSparePartNumber . "." . $oid_end, $oid_cpqRackNetConnectorDeviceType . "." . $oid_end;
+    }
+    $result = $self->{snmp}->get_leef(oids => \@get_oids);
+    foreach (@oids_end) {
+        my $nc_index = $result->{$oid_cpqRackNetConnectorIndex . '.' . $_};
+        my $nc_model = $result->{$oid_cpqRackNetConnectorModel . '.' . $_};
+        my $nc_serial = $result->{$oid_cpqRackNetConnectorSerialNum . '.' . $_};
+        my $nc_part = $result->{$oid_cpqRackNetConnectorPartNumber . '.' . $_};
+        my $nc_spare = $result->{$oid_cpqRackNetConnectorSparePartNumber . '.' . $_};
+        my $nc_device = $result->{$oid_cpqRackNetConnectorDeviceType . '.' . $_};
+        
+        $self->{components_nc}++;
+        $self->{output}->output_add(long_msg => sprintf("Network Connector %d (%s) type '%s' is present [serial: %s, part: %s, spare: %s].",
+                                    $nc_index, $nc_model,
+                                    $device_type{$nc_device},
+                                    $nc_serial, $nc_part, $nc_spare
+                                    ));
+    }
+}
+
+sub check_psu {
+    my ($self) = @_;
+
+    # We dont check 'cpqRackPowerEnclosureTable' (the overall power system status)
+    # We check 'cpqRackPowerSupplyTable' (unitary)
+
+    $self->{output}->output_add(long_msg => "Checking power supplies");
+    return if ($self->check_exclude('psu'));
+
+    my $oid_cpqRackCommonEnclosureHasPowerSupplies = '.1.3.6.1.4.1.232.22.2.3.1.1.1.18.1';
+    if (defined($map_has{$self->{global_results}->{$oid_cpqRackCommonEnclosureHasPowerSupplies}}) &&
+        $map_has{$self->{global_results}->{$oid_cpqRackCommonEnclosureHasPowerSupplies}} =~ /^false$/i) {
+        $self->{output}->output_add(long_msg => "Skipping PSU: enclosure cannot house power supplies (??!!).");
+        return ;
+    }
+    
+    my $oid_cpqRackPowerSupplyPresent = '.1.3.6.1.4.1.232.22.2.5.1.1.1.16';
+    my $oid_cpqRackPowerSupplyIndex = '.1.3.6.1.4.1.232.22.2.5.1.1.1.3';
+    my $oid_cpqRackPowerSupplySerialNum = '.1.3.6.1.4.1.232.22.2.5.1.1.1.5';
+    my $oid_cpqRackPowerSupplyPartNumber = '.1.3.6.1.4.1.232.22.2.5.1.1.1.6';
+    my $oid_cpqRackPowerSupplySparePartNumber = '.1.3.6.1.4.1.232.22.2.5.1.1.1.7';
+    my $oid_cpqRackPowerSupplyStatus = '.1.3.6.1.4.1.232.22.2.5.1.1.1.14';
+    my $oid_cpqRackPowerSupplyInputLineStatus = '.1.3.6.1.4.1.232.22.2.5.1.1.1.15';
+    my $oid_cpqRackPowerSupplyCondition = '.1.3.6.1.4.1.232.22.2.5.1.1.1.17';
+    my $oid_cpqRackPowerSupplyCurPwrOutput = '.1.3.6.1.4.1.232.22.2.5.1.1.1.10'; # Watts
+    my $oid_cpqRackPowerSupplyIntakeTemp = '.1.3.6.1.4.1.232.22.2.5.1.1.1.12';
+    my $oid_cpqRackPowerSupplyExhaustTemp = '.1.3.6.1.4.1.232.22.2.5.1.1.1.13';
+    
+    my $result = $self->{snmp}->get_table(oid => $oid_cpqRackPowerSupplyPresent);
+    return if (scalar(keys %$result) <= 0);
+    my @get_oids = ();
+    my @oids_end = ();
+    foreach my $key ($self->{snmp}->oid_lex_sort(keys %$result)) {
+        next if ($present_map{$result->{$key}} ne 'present');
+        $key =~ /\.([0-9]+)$/;
+        my $oid_end = $1;
+        
+        push @oids_end, $oid_end;
+        push @get_oids, $oid_cpqRackPowerSupplyIndex . "." . $oid_end, $oid_cpqRackPowerSupplySerialNum . "." . $oid_end,
+                $oid_cpqRackPowerSupplyPartNumber . "." . $oid_end, $oid_cpqRackPowerSupplySparePartNumber . "." . $oid_end,
+                $oid_cpqRackPowerSupplyStatus . "." . $oid_end, $oid_cpqRackPowerSupplyInputLineStatus . "." . $oid_end,
+                $oid_cpqRackPowerSupplyCondition . "." . $oid_end, $oid_cpqRackPowerSupplyCurPwrOutput . "." . $oid_end,
+                $oid_cpqRackPowerSupplyIntakeTemp . "." . $oid_end, $oid_cpqRackPowerSupplyExhaustTemp . "." . $oid_end;
+    }
+    $result = $self->{snmp}->get_leef(oids => \@get_oids);
+    my $total_watts = 0;
+    foreach (@oids_end) {
+        my $psu_index = $result->{$oid_cpqRackPowerSupplyIndex . '.' . $_};
+        my $psu_status = $result->{$oid_cpqRackPowerSupplyStatus . '.' . $_};
+        my $psu_serial = $result->{$oid_cpqRackPowerSupplySerialNum . '.' . $_};
+        my $psu_part = $result->{$oid_cpqRackPowerSupplyPartNumber . '.' . $_};
+        my $psu_spare = $result->{$oid_cpqRackPowerSupplySparePartNumber . '.' . $_};
+        my $psu_inputlinestatus = $result->{$oid_cpqRackPowerSupplyInputLineStatus . '.' . $_};
+        my $psu_condition = $result->{$oid_cpqRackPowerSupplyCondition . '.' . $_};
+        my $psu_pwrout = $result->{$oid_cpqRackPowerSupplyCurPwrOutput . '.' . $_};
+        my $psu_intemp = $result->{$oid_cpqRackPowerSupplyIntakeTemp . '.' . $_};
+        my $psu_exhtemp = $result->{$oid_cpqRackPowerSupplyExhaustTemp . '.' . $_};
+        
+        $total_watts += $psu_pwrout;
+        $self->{components_psu}++;
+        $self->{output}->output_add(long_msg => sprintf("PSU %d status is %s [serial: %s, part: %s, spare: %s] (input line status %s) (status %s).",
+                                    $psu_index, ${$conditions{$psu_condition}}[0],
+                                    $psu_serial, $psu_part, $psu_spare,
+                                    $inputline_status{$psu_inputlinestatus},
+                                    $psu_status{$psu_status}
+                                    ));
+        if ($psu_condition != 2) {
+            $self->{output}->output_add(severity =>  ${$conditions{$psu_condition}}[1],
+                                        short_msg => sprintf("PSU %d status is %s",
+                                           $psu_index, ${$conditions{$psu_condition}}[0]));
+        }
+        
+        $self->{output}->perfdata_add(label => "psu_" . $psu_index . "_power", unit => 'W',
+                                      value => $psu_pwrout);
+        if (defined($psu_intemp) && $psu_intemp != -1) {
+            $self->{output}->perfdata_add(label => "psu_" . $psu_index . "_temp_intake", unit => 'C',
+                                          value => $psu_intemp);
+        }
+        if (defined($psu_exhtemp) && $psu_exhtemp != -1) {
+            $self->{output}->perfdata_add(label => "psu_" . $psu_index . "_temp_exhaust", unit => 'C',
+                                          value => $psu_exhtemp);
+        }
+    }
+    
+    $self->{output}->perfdata_add(label => "total_power", unit => 'W',
+                                  value => $total_watts);
+}
+
+sub check_temperatures {
+    my ($self) = @_;
+
+    $self->{output}->output_add(long_msg => "Checking temperatures");
+    return if ($self->check_exclude('temperatures'));
+
+    my $oid_cpqRackCommonEnclosureHasTempSensors = '.1.3.6.1.4.1.232.22.2.3.1.1.1.20.1';
+    if (defined($map_has{$self->{global_results}->{$oid_cpqRackCommonEnclosureHasTempSensors}}) &&
+        $map_has{$self->{global_results}->{$oid_cpqRackCommonEnclosureHasTempSensors}} =~ /^false$/i) {
+        $self->{output}->output_add(long_msg => "Skipping Temperatures: enclosure doesnt contain temperatures sensors.");
+        return ;
+    }
+    
+    my $oid_cpqRackCommonEnclosureTempSensorIndex = '.1.3.6.1.4.1.232.22.2.3.1.2.1.3';
+    my $oid_cpqRackCommonEnclosureTempSensorEnclosureName = '.1.3.6.1.4.1.232.22.2.3.1.2.1.4';
+    my $oid_cpqRackCommonEnclosureTempLocation = '.1.3.6.1.4.1.232.22.2.3.1.2.1.5';
+    my $oid_cpqRackCommonEnclosureTempCurrent = '.1.3.6.1.4.1.232.22.2.3.1.2.1.6';
+    my $oid_cpqRackCommonEnclosureTempThreshold = '.1.3.6.1.4.1.232.22.2.3.1.2.1.7';
+    my $oid_cpqRackCommonEnclosureTempCondition = '.1.3.6.1.4.1.232.22.2.3.1.2.1.8';
+    my $oid_cpqRackCommonEnclosureTempType = '.1.3.6.1.4.1.232.22.2.3.1.2.1.9';
+    
+    my $result = $self->{snmp}->get_table(oid => $oid_cpqRackCommonEnclosureTempSensorIndex);
+    return if (scalar(keys %$result) <= 0);
+    my @get_oids = ();
+    my @oids_end = ();
+    foreach my $key ($self->{snmp}->oid_lex_sort(keys %$result)) {
+        my $oid_end = $result->{$key};
+        
+        push @oids_end, $oid_end;
+        push @get_oids, $oid_cpqRackCommonEnclosureTempSensorEnclosureName . "." . $oid_end, $oid_cpqRackCommonEnclosureTempLocation . "." . $oid_end,
+                $oid_cpqRackCommonEnclosureTempCurrent . "." . $oid_end, $oid_cpqRackCommonEnclosureTempThreshold . "." . $oid_end,
+                $oid_cpqRackCommonEnclosureTempCondition . "." . $oid_end, $oid_cpqRackCommonEnclosureTempType . "." . $oid_end;
+    }
+    $result = $self->{snmp}->get_leef(oids => \@get_oids);
+    foreach (@oids_end) {
+        my $temp_index = $_;
+        my $temp_name = $result->{$oid_cpqRackCommonEnclosureTempSensorEnclosureName . '.' . $_};
+        my $temp_location = $result->{$oid_cpqRackCommonEnclosureTempLocation . '.' . $_};
+        my $temp_current = $result->{$oid_cpqRackCommonEnclosureTempCurrent . '.' . $_};
+        my $temp_threshold = $result->{$oid_cpqRackCommonEnclosureTempThreshold . '.' . $_};
+        my $temp_condition = $result->{$oid_cpqRackCommonEnclosureTempCondition . '.' . $_};
+        my $temp_type = $result->{$oid_cpqRackCommonEnclosureTempType . '.' . $_};
+        
+        $self->{components_temperatures}++;
+        $self->{output}->output_add(long_msg => sprintf("Temperature %d status is %s [name: %s, location: %s] (value = %s, threshold = %s%s).",
+                                    $temp_index, ${$conditions{$temp_condition}}[0],
+                                    $temp_name, $temp_location,
+                                    $temp_current, $temp_threshold,
+                                    defined($map_temp_type{$temp_type}) ? ", status type = " . $map_temp_type{$temp_type} : ''));
+        if ($temp_condition != 2) {
+            $self->{output}->output_add(severity =>  ${$conditions{$temp_condition}}[1],
+                                        short_msg => sprintf("Temperature %d status is %s",
+                                          $temp_index, ${$conditions{$temp_condition}}[0]));
+        }
+        
+        $self->{output}->perfdata_add(label => "temp_" . $temp_index, unit => 'C',
+                                      value => $temp_current,
+                                      warning => $temp_threshold);
+    }
+}
+
+sub check_fuse {
+    my ($self) = @_;
+
+    $self->{output}->output_add(long_msg => "Checking fuse");
+    return if ($self->check_exclude('fuse'));
+    
+    my $oid_cpqRackCommonEnclosureHasFuses = '.1.3.6.1.4.1.232.22.2.3.1.1.1.22.1';
+    if (defined($map_has{$self->{global_results}->{$oid_cpqRackCommonEnclosureHasFuses}}) &&
+        $map_has{$self->{global_results}->{$oid_cpqRackCommonEnclosureHasFuses}} =~ /^false$/i) {
+        $self->{output}->output_add(long_msg => "Skipping Fuse: enclosure doesnt contain fuse.");
+        return ;
+    }
+    
+    my $oid_cpqRackCommonEnclosureFusePresent = '.1.3.6.1.4.1.232.22.2.3.1.4.1.6';
+    my $oid_cpqRackCommonEnclosureFuseIndex = '.1.3.6.1.4.1.232.22.2.3.1.4.1.3';
+    my $oid_cpqRackCommonEnclosureFuseEnclosureName = '.1.3.6.1.4.1.232.22.2.3.1.4.1.4';
+    my $oid_cpqRackCommonEnclosureFuseLocation = '.1.3.6.1.4.1.232.22.2.3.1.4.1.5';
+    my $oid_cpqRackCommonEnclosureFuseCondition = '.1.3.6.1.4.1.232.22.2.3.1.4.1.7';
+    
+    my $result = $self->{snmp}->get_table(oid => $oid_cpqRackCommonEnclosureFusePresent);
+    return if (scalar(keys %$result) <= 0);
+    my @get_oids = ();
+    my @oids_end = ();
+    foreach my $key ($self->{snmp}->oid_lex_sort(keys %$result)) {
+        next if ($present_map{$result->{$key}} ne 'present');
+        $key =~ /\.([0-9]+)$/;
+        my $oid_end = $1;
+        
+        push @oids_end, $oid_end;
+        push @get_oids, $oid_cpqRackCommonEnclosureFuseIndex . "." . $oid_end, $oid_cpqRackCommonEnclosureFuseEnclosureName . "." . $oid_end,
+                $oid_cpqRackCommonEnclosureFuseLocation . "." . $oid_end, $oid_cpqRackCommonEnclosureFuseCondition . "." . $oid_end;
+    }
+    $result = $self->{snmp}->get_leef(oids => \@get_oids);
+    foreach (@oids_end) {
+        my $fuse_index = $result->{$oid_cpqRackCommonEnclosureFuseIndex . '.' . $_};
+        my $fuse_name = $result->{$oid_cpqRackCommonEnclosureFuseEnclosureName . '.' . $_};
+        my $fuse_location = $result->{$oid_cpqRackCommonEnclosureFuseLocation . '.' . $_};
+        my $fuse_condition = $result->{$oid_cpqRackCommonEnclosureFuseCondition . '.' . $_};
+        
+        $self->{components_fuse}++;
+        $self->{output}->output_add(long_msg => sprintf("Fuse %d status is %s [name: %s, location: %s].",
+                                    $fuse_index, ${$conditions{$fuse_condition}}[0],
+                                    $fuse_name, $fuse_location));
+        if ($fuse_condition != 2) {
+            $self->{output}->output_add(severity =>  ${$conditions{$fuse_condition}}[1],
+                                        short_msg => sprintf("Fuse %d status is %s",
+                                            $fuse_index, ${$conditions{$fuse_condition}}[0]));
+        }
+    }
+}
+
+sub check_exclude {
+    my ($self, $section) = @_;
+
+    if (defined($self->{option_results}->{exclude}) && $self->{option_results}->{exclude} =~ /(^|\s|,)$section(\s|,|$)/) {
+        $self->{output}->output_add(long_msg => sprintf("Skipping $section section."));
+        return 1;
+    }
+    return 0;
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+Check Hardware (Fans, Power Supplies, Blades, Temperatures, Fuses).
+
+=over 8
+
+=item B<--exclude>
+
+Exclude some parts (comma seperated list) (Example: --exclude=temperatures,psu).
+
+=back
+
+=cut
+    

hardware/server/hpbladechassis/plugin.pm

@@ -0,0 +1,64 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package hardware::server::hpbladechassis::plugin;
+
+use strict;
+use warnings;
+use base qw(centreon::plugins::script_snmp);
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    # $options->{options} = options object
+
+    $self->{version} = '1.0';
+    %{$self->{modes}} = (
+                         'hardware' => 'hardware::server::hpbladechassis::mode::hardware',
+                         );
+
+    return $self;
+}
+
+1;
+
+__END__
+
+=head1 PLUGIN DESCRIPTION
+
+Check HP Blades chassis in SNMP.
+
+=cut

hardware/server/hpproliant/mode/hardware.pm

@@ -0,0 +1,586 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package hardware::server::hpproliant::mode::hardware;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+use centreon::plugins::misc;
+
+my %cpustatus = (
+    1 => ['unknown', 'UNKNOWN'], 
+    2 => ['ok', 'OK'], 
+    3 => ['degraded', 'WARNING'], 
+    4 => ['failed', 'CRITICAL'],
+    5 => ['disabled', 'OK']
+);
+my %conditions = (
+    1 => ['other', 'CRITICAL'], 
+    2 => ['ok', 'OK'], 
+    3 => ['degraded', 'WARNING'], 
+    4 => ['failed', 'CRITICAL']
+);
+my %present_map = (
+    1 => 'other',
+    2 => 'absent',
+    3 => 'present',
+);
+my %redundant_map = (
+    1 => 'other',
+    2 => 'not redundant',
+    3 => 'redundant',
+);
+my %psustatus = (
+    1  => 'noError',
+    2  => 'generalFailure',
+    3  => 'bistFailure',
+    4  => 'fanFailure',
+    5  => 'tempFailure',
+    6  => 'interlockOpen',
+    7  => 'epromFailed',
+    8  => 'vrefFailed',
+    9  => 'dacFailed',
+    10 => 'ramTestFailed',
+    11 => 'voltageChannelFailed',
+    12 => 'orringdiodeFailed',
+    13 => 'brownOut',
+    14 => 'giveupOnStartup',
+    15 => 'nvramInvalid',
+    16 => 'calibrationTableInvalid',
+);
+my %location_map = (
+    1 => "other",
+    2 => "unknown",
+    3 => "system",
+    4 => "systemBoard",
+    5 => "ioBoard",
+    6 => "cpu",
+    7 => "memory",
+    8 => "storage",
+    9 => "removableMedia",
+    10 => "powerSupply", 
+    11 => "ambient",
+    12 => "chassis",
+    13 => "bridgeCard",
+);
+my %fanspeed = (
+    1 => "other",
+    2 => "normal",
+    3 => "high",
+);
+my %map_pnic_role = (
+    1 => "unknown",
+    2 => "primary",
+    3 => "secondary",
+    4 => "member",
+    5 => "txRx",
+    6 => "tx",
+    7 => "standby",
+    8 => "none",
+    255 => "notApplicable",
+);
+my %map_nic_state = (
+    1 => "unknown",
+    2 => "ok",
+    3 => "standby",
+    4 => "failed",
+);
+my %map_pnic_status = (
+    1 => "unknown",
+    2 => "ok",
+    3 => "generalFailure",
+    4 => "linkFailure",
+);
+my %map_lnic_status = (
+    1 => "unknown",
+    2 => "ok",
+    3 => "primaryFailed",
+    4 => "standbyFailed",
+    5 => "groupFailed",
+    6 => "redundancyReduced",
+    7 => "redundancyLost",
+);
+my %map_nic_duplex = (
+    1 => "unknown",
+    2 => "half",
+    3 => "full",
+);
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                { 
+                                  "exclude"        => { name => 'exclude' },
+                                });
+
+    $self->{product_name} = undef;
+    $self->{serial} = undef;
+    $self->{romversion} = undef;
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{snmp} = snmp object
+    $self->{snmp} = $options{snmp};
+
+    $self->{components_cpu} = 0;
+    $self->{components_psu} = 0;
+    $self->{components_pc} = 0;
+    $self->{components_fan} = 0;
+    $self->{components_temperature} = 0;
+    $self->{components_pnic} = 0;
+    $self->{components_lnic} = 0;
+
+    $self->get_system_information();
+    $self->check_cpu();
+    $self->check_psu();
+    $self->check_pc();
+    $self->check_fan();
+    $self->check_temperature();
+    $self->check_pnic();
+    $self->check_lnic();
+    
+#    $self->{output}->output_add(severity => 'OK',
+#                                short_msg => sprintf("All %d components [%d fans, %d blades, %d network connectors, %d psu, %d temperatures, %d fuses] are ok.", 
+#                                ($self->{components_fans} + $self->{components_blades} + $self->{components_nc} + $self->{components_psu} + $self->{components_temperatures} + $self->{components_fuse}), 
+#                                $self->{components_fans}, $self->{components_blades}, $self->{components_nc}, $self->{components_psu}, $self->{components_temperatures}, $self->{components_fuse}));
+    
+    $self->{output}->display();
+    $self->{output}->exit();
+}
+
+sub get_system_information {
+    my ($self) = @_;
+    
+    # In 'CPQSINFO-MIB'
+    my $oid_cpqSiSysSerialNum = "1.3.6.1.4.1.232.2.2.2.1.0";
+    my $oid_cpqSiProductName = "1.3.6.1.4.1.232.2.2.4.2.0";
+    my $oid_cpqSeSysRomVer = "1.3.6.1.4.1.232.1.2.6.1.0";
+    
+    my $result = $self->{snmp}->get_leef(oids => [$oid_cpqSiSysSerialNum, $oid_cpqSiProductName, $oid_cpqSeSysRomVer]);
+    
+    $self->{product_name} = defined($result->{$oid_cpqSiProductName}) ? centreon::plugins::misc::trim($result->{$oid_cpqSiProductName}) : 'unknown';
+    $self->{serial} = defined($result->{$oid_cpqSiSysSerialNum}) ? centreon::plugins::misc::trim($result->{$oid_cpqSiSysSerialNum}) : 'unknown';
+    $self->{romversion} = defined($result->{$oid_cpqSeSysRomVer}) ? centreon::plugins::misc::trim($result->{$oid_cpqSeSysRomVer}) : 'unknown';
+}
+
+sub check_cpu {
+    my ($self) = @_;
+    # In MIB 'CPQSTDEQ-MIB.mib'
+    
+    $self->{output}->output_add(long_msg => "Checking cpu");
+    return if ($self->check_exclude('cpu'));
+    
+    my $oid_cpqSeCpuUnitIndex = '.1.3.6.1.4.1.232.1.2.2.1.1.1';
+    my $oid_cpqSeCpuSlot = '.1.3.6.1.4.1.232.1.2.2.1.1.2';
+    my $oid_cpqSeCpuName = '.1.3.6.1.4.1.232.1.2.2.1.1.3';
+    my $oid_cpqSeCpuStatus = '.1.3.6.1.4.1.232.1.2.2.1.1.6';
+    
+    my $result = $self->{snmp}->get_table(oid => $oid_cpqSeCpuUnitIndex);
+    return if (scalar(keys %$result) <= 0);
+    
+    $self->{snmp}->load(oids => [$oid_cpqSeCpuSlot, $oid_cpqSeCpuName,
+                                $oid_cpqSeCpuStatus],
+                        instances => [keys %$result]);
+    my $result2 = $self->{snmp}->get_leef();
+    foreach my $key ($self->{snmp}->oid_lex_sort(keys %$result)) {
+        $key =~ /(\d+)$/;
+        my $instance = $1;
+    
+        my $cpu_slot = $result2->{$oid_cpqSeCpuSlot . '.' . $instance};
+        my $cpu_name = $result2->{$oid_cpqSeCpuName . '.' . $instance};
+        my $cpu_status = $result2->{$oid_cpqSeCpuStatus . '.' . $instance};
+        
+        $self->{components_cpu}++;
+        $self->{output}->output_add(long_msg => sprintf("cpu [slot: %s, unit: %s, name: %s] status is %s.", 
+                                    $cpu_slot, $result->{$key}, $cpu_name,
+                                    ${$cpustatus{$cpu_status}}[0]));
+        if (${$cpustatus{$cpu_status}}[1] ne 'OK') {
+            $self->{output}->output_add(severity => ${$cpustatus{$cpu_status}}[1],
+                                        short_msg => sprintf("cpu %d is %s", 
+                                            $result->{$key}, ${$cpustatus{$cpu_status}}[0]));
+        }
+    }
+}
+
+sub check_psu {
+    my ($self) = @_;
+
+    # In MIB 'CPQHLTH-MIB.mib'
+    $self->{output}->output_add(long_msg => "Checking power supplies");
+    return if ($self->check_exclude('psu'));
+    
+    my $oid_cpqHeFltTolPowerSupplyPresent = '.1.3.6.1.4.1.232.6.2.9.3.1.3';
+    my $oid_cpqHeFltTolPowerSupplyChassis = '.1.3.6.1.4.1.232.6.2.9.3.1.1';
+    my $oid_cpqHeFltTolPowerSupplyBay = '.1.3.6.1.4.1.232.6.2.9.3.1.2';
+    my $oid_cpqHeFltTolPowerSupplyCondition = '.1.3.6.1.4.1.232.6.2.9.3.1.4';
+    my $oid_cpqHeFltTolPowerSupplyStatus = '.1.3.6.1.4.1.232.6.2.9.3.1.5';
+    my $oid_cpqHeFltTolPowerSupplyRedundant = '.1.3.6.1.4.1.232.6.2.9.3.1.9';
+    my $oid_cpqHeFltTolPowerSupplyCapacityUsed = '.1.3.6.1.4.1.232.6.2.9.3.1.7'; # Watts
+    my $oid_cpqHeFltTolPowerSupplyCapacityMaximum = '.1.3.6.1.4.1.232.6.2.9.3.1.8';
+    my $oid_cpqHeFltTolPowerSupplyMainVoltage = '.1.3.6.1.4.1.232.6.2.9.3.1.6'; # Volts
+    my $oid_cpqHeFltTolPowerSupplyRedundantPartner = '.1.3.6.1.4.1.232.6.2.9.3.1.17';
+    
+    my $result = $self->{snmp}->get_table(oid => $oid_cpqHeFltTolPowerSupplyPresent);
+    return if (scalar(keys %$result) <= 0);
+    my @get_oids = ();
+    my @oids_end = ();
+    foreach my $key ($self->{snmp}->oid_lex_sort(keys %$result)) {
+        next if ($present_map{$result->{$key}} ne 'present');
+        # Chassis + Bay
+        $key =~ /(\d+\.\d+)$/;
+        my $oid_end = $1;
+        
+        push @oids_end, $oid_end;
+        push @get_oids,
+                $oid_cpqHeFltTolPowerSupplyCondition . "." . $oid_end, $oid_cpqHeFltTolPowerSupplyStatus . "." . $oid_end,
+                $oid_cpqHeFltTolPowerSupplyRedundant . "." . $oid_end, $oid_cpqHeFltTolPowerSupplyCapacityUsed . "." . $oid_end,
+                $oid_cpqHeFltTolPowerSupplyCapacityMaximum . "." . $oid_end, $oid_cpqHeFltTolPowerSupplyMainVoltage . "." . $oid_end,
+                $oid_cpqHeFltTolPowerSupplyRedundantPartner . "." . $oid_end;
+    }
+    $result = $self->{snmp}->get_leef(oids => \@get_oids);
+    foreach (@oids_end) {
+        my ($psu_chassis, $psu_bay) = split /\./;
+        my $psu_condition = $result->{$oid_cpqHeFltTolPowerSupplyCondition . '.' . $_};
+        my $psu_status = $result->{$oid_cpqHeFltTolPowerSupplyStatus . '.' . $_};
+        my $psu_redundant = $result->{$oid_cpqHeFltTolPowerSupplyRedundant . '.' . $_};
+        my $psu_redundantpartner = $result->{$oid_cpqHeFltTolPowerSupplyRedundantPartner . '.' . $_};
+        my $psu_capacityused = $result->{$oid_cpqHeFltTolPowerSupplyCapacityUsed . '.' . $_};
+        my $psu_capacitymaximum = $result->{$oid_cpqHeFltTolPowerSupplyCapacityMaximum . '.' . $_};
+        my $psu_voltage = $result->{$oid_cpqHeFltTolPowerSupplyMainVoltage . '.' . $_};
+
+        $self->{components_psu}++;
+        $self->{output}->output_add(long_msg => sprintf("powersupply %d status is %s [chassis: %s, redundance: %s, redundant partner: %s] (status %s).",
+                                    $psu_bay, ${$conditions{$psu_condition}}[0],
+                                    $psu_chassis, $redundant_map{$psu_redundant}, $psu_redundantpartner,
+                                    $psustatus{$psu_status}
+                                    ));
+        if ($psu_condition != 2) {
+            $self->{output}->output_add(severity =>  ${$conditions{$psu_condition}}[1],
+                                        short_msg => sprintf("powersupply %d status is %s",
+                                           $psu_bay, ${$conditions{$psu_condition}}[0]));
+        }
+        
+        $self->{output}->perfdata_add(label => "psu_" . $psu_bay . "_power", unit => 'W',
+                                      value => $psu_capacityused,
+                                      critical => $psu_capacitymaximum);
+        $self->{output}->perfdata_add(label => "psu_" . $psu_bay . "_voltage", unit => 'V',
+                                      value => $psu_voltage);
+    }
+}
+
+sub check_pc {
+    my ($self) = @_;
+
+    # In MIB 'CPQHLTH-MIB.mib'
+    $self->{output}->output_add(long_msg => "Checking power converters");
+    return if ($self->check_exclude('pc'));
+    
+    my $oid_cpqHePwrConvPresent = '.1.3.6.1.4.1.232.6.2.13.3.1.3';
+    my $oid_cpqHePwrConvIndex = '.1.3.6.1.4.1.232.6.2.13.3.1.2';
+    my $oid_cpqHePwrConvChassis = '.1.3.6.1.4.1.232.6.2.13.3.1.1';
+    my $oid_cpqHePwrConvCondition = '.1.3.6.1.4.1.232.6.2.13.3.1.8';
+    my $oid_cpqHePwrConvRedundant = '.1.3.6.1.4.1.232.6.2.13.3.1.6';
+    my $oid_cpqHePwrConvRedundantGroupId = '.1.3.6.1.4.1.232.6.2.13.3.1.7';
+    
+    my $result = $self->{snmp}->get_table(oid => $oid_cpqHePwrConvPresent);
+    return if (scalar(keys %$result) <= 0);
+    my @get_oids = ();
+    my @oids_end = ();
+    foreach my $key ($self->{snmp}->oid_lex_sort(keys %$result)) {
+        next if ($present_map{$result->{$key}} ne 'present');
+        # Chassis + index
+        $key =~ /(\d+\.\d+)$/;
+        my $oid_end = $1;
+        
+        push @oids_end, $oid_end;
+        push @get_oids, $oid_cpqHePwrConvCondition . "." . $oid_end, $oid_cpqHePwrConvRedundant . "." . $oid_end,
+                $oid_cpqHePwrConvRedundantGroupId . "." . $oid_end;
+    }
+    $result = $self->{snmp}->get_leef(oids => \@get_oids);
+    foreach (@oids_end) {
+        my ($pc_chassis, $pc_index) = split /\./;
+        my $pc_condition = $result->{$oid_cpqHePwrConvIndex . '.' . $_};
+        my $pc_redundant = $result->{$oid_cpqHePwrConvRedundant . '.' . $_};
+        my $pc_redundantgroup = $result->{$oid_cpqHePwrConvRedundantGroupId . '.' . $_};
+
+        $self->{components_pc}++;
+        $self->{output}->output_add(long_msg => sprintf("powerconverter %d status is %s [chassis: %s, redundance: %s, redundant group: %s].",
+                                    $pc_index, ${$conditions{$pc_condition}}[0],
+                                    $pc_chassis, $redundant_map{$pc_redundant}, $pc_redundantgroup
+                                    ));
+        if ($pc_condition != 2) {
+            $self->{output}->output_add(severity =>  ${$conditions{$pc_condition}}[1],
+                                        short_msg => sprintf("powerconverter %d status is %s",
+                                           $pc_index, ${$conditions{$pc_condition}}[0]));
+        }
+    }
+}
+
+sub check_fan {
+    my ($self) = @_;
+
+    # In MIB 'CPQHLTH-MIB.mib'
+    $self->{output}->output_add(long_msg => "Checking fans");
+    return if ($self->check_exclude('fan'));
+    
+    my $oid_cpqHeFltTolFanPresent = '.1.3.6.1.4.1.232.6.2.6.7.1.4';
+    my $oid_cpqHeFltTolFanChassis = '.1.3.6.1.4.1.232.6.2.6.7.1.1';
+    my $oid_cpqHeFltTolFanIndex = '.1.3.6.1.4.1.232.6.2.6.7.1.2';
+    my $oid_cpqHeFltTolFanLocale = '.1.3.6.1.4.1.232.6.2.6.7.1.3';
+    my $oid_cpqHeFltTolFanCondition = '.1.3.6.1.4.1.232.6.2.6.7.1.9';
+    my $oid_cpqHeFltTolFanSpeed = '.1.3.6.1.4.1.232.6.2.6.7.1.6';
+    my $oid_cpqHeFltTolFanCurrentSpeed = '.1.3.6.1.4.1.232.6.2.6.7.1.12';
+    my $oid_cpqHeFltTolFanRedundant = '.1.3.6.1.4.1.232.6.2.6.7.1.7';
+    my $oid_cpqHeFltTolFanRedundantPartner = '.1.3.6.1.4.1.232.6.2.6.7.1.8';
+
+    my $result = $self->{snmp}->get_table(oid => $oid_cpqHeFltTolFanPresent);
+    return if (scalar(keys %$result) <= 0);
+    my @get_oids = ();
+    my @oids_end = ();
+    foreach my $key ($self->{snmp}->oid_lex_sort(keys %$result)) {
+        next if ($present_map{$result->{$key}} ne 'present');
+        # Chassis + index
+        $key =~ /(\d+\.\d+)$/;
+        my $oid_end = $1;
+        
+        push @oids_end, $oid_end;
+        push @get_oids, $oid_cpqHeFltTolFanLocale . "." . $oid_end, $oid_cpqHeFltTolFanCondition . "." . $oid_end,
+                $oid_cpqHeFltTolFanCurrentSpeed . "." . $oid_end, $oid_cpqHeFltTolFanSpeed . "." . $oid_end, 
+                $oid_cpqHeFltTolFanRedundant . "." . $oid_end, $oid_cpqHeFltTolFanRedundantPartner . "." . $oid_end;
+    }
+    $result = $self->{snmp}->get_leef(oids => \@get_oids);
+    foreach (@oids_end) {
+        my ($fan_chassis, $fan_index) = split /\./;
+        my $fan_locale = $result->{$oid_cpqHeFltTolFanLocale . '.' . $_};
+        my $fan_condition = $result->{$oid_cpqHeFltTolFanCondition . '.' . $_};
+        my $fan_speed = $result->{$oid_cpqHeFltTolFanSpeed . '.' . $_};
+        my $fan_currentspeed = $result->{$oid_cpqHeFltTolFanCurrentSpeed . '.' . $_};
+        my $fan_redundant = $result->{$oid_cpqHeFltTolFanRedundant . '.' . $_};
+        my $fan_redundantpartner = $result->{$oid_cpqHeFltTolFanRedundantPartner . '.' . $_};
+
+        $self->{components_fan}++;
+        $self->{output}->output_add(long_msg => sprintf("fan %d status is %s, speed is %s [chassis: %s, location: %s, redundance: %s, redundant partner: %s].",
+                                    $fan_index, ${$conditions{$fan_condition}}[0], $fanspeed{$fan_speed},
+                                    $fan_chassis, $location_map{$fan_locale},
+                                    $redundant_map{$fan_redundant}, $fan_redundantpartner
+                                    ));
+        if ($fan_condition != 2) {
+            $self->{output}->output_add(severity =>  ${$conditions{$fan_condition}}[1],
+                                        short_msg => sprintf("fan %d status is %s",
+                                           $fan_index, ${$conditions{$fan_condition}}[0]));
+        }
+
+        $self->{output}->perfdata_add(label => "fan_" . $fan_index . "_speed", unit => 'rpm',
+                                      value => $fan_currentspeed);
+    }
+}
+
+sub check_temperature {
+    my ($self) = @_;
+    # In MIB 'CPQSTDEQ-MIB.mib'
+    
+    $self->{output}->output_add(long_msg => "Checking temperatures");
+    return if ($self->check_exclude('temperature'));
+    
+    my $oid_cpqHeTemperatureEntry = '.1.3.6.1.4.1.232.6.2.6.8.1';
+    my $oid_cpqHeTemperatureCondition = '.1.3.6.1.4.1.232.6.2.6.8.1.6';
+    my $oid_cpqHeTemperatureLocale = '.1.3.6.1.4.1.232.6.2.6.8.1.3';
+    my $oid_cpqHeTemperatureCelsius = '.1.3.6.1.4.1.232.6.2.6.8.1.4';
+    my $oid_cpqHeTemperatureThreshold = '.1.3.6.1.4.1.232.6.2.6.8.1.5';
+    
+    my $result = $self->{snmp}->get_table(oid => $oid_cpqHeTemperatureEntry);
+    return if (scalar(keys %$result) <= 0);
+
+    foreach my $key ($self->{snmp}->oid_lex_sort(keys %$result)) {
+        # work when we have condition
+        next if ($key !~ /^$oid_cpqHeTemperatureCondition/);
+        # Chassis + index
+        $key =~ /(\d+)\.(\d+)$/;
+        my $temp_chassis = $1;
+        my $temp_index = $2;
+        my $instance = $temp_chassis . "." . $temp_index;
+    
+        my $temp_condition = $result->{$key};
+        my $temp_current = $result->{$oid_cpqHeTemperatureCelsius . '.' . $instance};
+        my $temp_threshold = $result->{$oid_cpqHeTemperatureThreshold . '.' . $instance};
+        my $temp_locale = $result->{$oid_cpqHeTemperatureLocale . '.' . $instance};
+        
+        $self->{components_temperature}++;
+        $self->{output}->output_add(long_msg => sprintf("%s %s temperature is %dC (%d max) (status is %s).", 
+                                    $temp_index, $location_map{$temp_locale}, $temp_current,
+                                    $temp_threshold,
+                                    ${$conditions{$temp_condition}}[0]));
+        if (${$conditions{$temp_condition}}[1] ne 'OK') {
+            $self->{output}->output_add(severity => ${$conditions{$temp_condition}}[1],
+                                        short_msg => sprintf("temperature %d %s status is %s", 
+                                            $temp_index, $location_map{$temp_locale}, ${$conditions{$temp_condition}}[0]));
+        }
+        
+        $self->{output}->perfdata_add(label => "temp_" . $temp_index . "_" . $location_map{$temp_locale}, unit => 'C',
+                                      value => $temp_current,
+                                      critical => (($temp_threshold != -1) ? $temp_threshold : -1));
+    }
+}
+
+sub check_pnic {
+    my ($self) = @_;
+    # In MIB 'CPQNIC-MIB.mib'
+    
+    $self->{output}->output_add(long_msg => "Checking physical nics");
+    return if ($self->check_exclude('pnic'));
+    
+    my $oid_cpqNicIfPhysAdapterIndex = '.1.3.6.1.4.1.232.18.2.3.1.1.1';
+    my $oid_cpqNicIfPhysAdapterRole = '.1.3.6.1.4.1.232.18.2.3.1.1.3';
+    my $oid_cpqNicIfPhysAdapterCondition = '.1.3.6.1.4.1.232.18.2.3.1.1.12';
+    my $oid_cpqNicIfPhysAdapterState = '.1.3.6.1.4.1.232.18.2.3.1.1.13';
+    my $oid_cpqNicIfPhysAdapterStatus = '.1.3.6.1.4.1.232.18.2.3.1.1.14';
+    my $oid_cpqNicIfPhysAdapterDuplexState = '.1.3.6.1.4.1.232.18.2.3.1.1.11';
+    
+    my $result = $self->{snmp}->get_table(oid => $oid_cpqNicIfPhysAdapterIndex);
+    return if (scalar(keys %$result) <= 0);
+    
+    $self->{snmp}->load(oids => [$oid_cpqNicIfPhysAdapterRole, $oid_cpqNicIfPhysAdapterCondition,
+                                 $oid_cpqNicIfPhysAdapterState, $oid_cpqNicIfPhysAdapterStatus,
+                                 $oid_cpqNicIfPhysAdapterDuplexState],
+                        instances => [keys %$result]);
+    my $result2 = $self->{snmp}->get_leef();
+    foreach my $key ($self->{snmp}->oid_lex_sort(keys %$result)) {
+        $key =~ /(\d+)$/;
+        my $instance = $1;
+    
+        my $nic_index = $result->{$key};
+        my $nic_role = $result2->{$oid_cpqNicIfPhysAdapterRole . '.' . $instance};
+        my $nic_condition = $result2->{$oid_cpqNicIfPhysAdapterCondition . '.' . $instance};
+        my $nic_state = $result2->{$oid_cpqNicIfPhysAdapterState . '.' . $instance};
+        my $nic_status = $result2->{$oid_cpqNicIfPhysAdapterStatus . '.' . $instance};
+        my $nic_duplex = $result2->{$oid_cpqNicIfPhysAdapterDuplexState . '.' . $instance};
+        
+        $self->{components_pnic}++;
+        $self->{output}->output_add(long_msg => sprintf("physical nic %s [duplex: %s, role: %s, state: %s, status: %s] condition is %s.", 
+                                    $nic_index, $map_nic_duplex{$nic_duplex}, $map_pnic_role{$nic_role},
+                                    $map_nic_state{$nic_state}, $map_pnic_status{$nic_status},
+                                    ${$conditions{$nic_condition}}[0]));
+        if (${$conditions{$nic_condition}}[1] ne 'OK') {
+            $self->{output}->output_add(severity => ${$conditions{$nic_condition}}[1],
+                                        short_msg => sprintf("physical nic %d is %s", 
+                                            $nic_index, ${$conditions{$nic_condition}}[0]));
+        }
+    }
+}
+
+sub check_lnic {
+    my ($self) = @_;
+    # In MIB 'CPQNIC-MIB.mib'
+    
+    $self->{output}->output_add(long_msg => "Checking logical nics");
+    return if ($self->check_exclude('pnic'));
+    
+    my $oid_cpqNicIfLogMapIndex = '.1.3.6.1.4.1.232.18.2.2.1.1.1';
+    my $oid_cpqNicIfLogMapDescription = '.1.3.6.1.4.1.232.18.2.2.1.1.3';
+    my $oid_cpqNicIfLogMapAdapterCount = '.1.3.6.1.4.1.232.18.2.2.1.1.5';
+    my $oid_cpqNicIfLogMapCondition = '.1.3.6.1.4.1.232.18.2.2.1.1.10';
+    my $oid_cpqNicIfLogMapStatus = '.1.3.6.1.4.1.232.18.2.2.1.1.11';
+    
+    my $result = $self->{snmp}->get_table(oid => $oid_cpqNicIfLogMapIndex);
+    return if (scalar(keys %$result) <= 0);
+    
+    $self->{snmp}->load(oids => [$oid_cpqNicIfLogMapDescription, $oid_cpqNicIfLogMapAdapterCount,
+                                 $oid_cpqNicIfLogMapCondition, $oid_cpqNicIfLogMapStatus],
+                        instances => [keys %$result]);
+    my $result2 = $self->{snmp}->get_leef();
+    foreach my $key ($self->{snmp}->oid_lex_sort(keys %$result)) {
+        $key =~ /(\d+)$/;
+        my $instance = $1;
+    
+        my $nic_index = $result->{$key};
+        my $nic_description = centreon::plugins::misc::trim($result2->{$oid_cpqNicIfLogMapDescription . '.' . $instance});
+        my $nic_count = $result2->{$oid_cpqNicIfLogMapAdapterCount . '.' . $instance};
+        my $nic_condition = $result2->{$oid_cpqNicIfLogMapCondition . '.' . $instance};
+        my $nic_status = $result2->{$oid_cpqNicIfLogMapStatus . '.' . $instance};
+        
+        $self->{components_lnic}++;
+        $self->{output}->output_add(long_msg => sprintf("logical nic %s [adapter count: %s, description: %s, status: %s] condition is %s.", 
+                                    $nic_index, $nic_count, $nic_description,
+                                    $map_lnic_status{$nic_status},
+                                    ${$conditions{$nic_condition}}[0]));
+        if (${$conditions{$nic_condition}}[0] !~ /^other|ok$/i) {
+            $self->{output}->output_add(severity => ${$conditions{$nic_condition}}[1],
+                                        short_msg => sprintf("logical nic %d is %s (%s)", 
+                                            $nic_index, ${$conditions{$nic_condition}}[0], $map_lnic_status{$nic_status}));
+        }
+    }
+}
+
+sub check_exclude {
+    my ($self, $section) = @_;
+
+    if (defined($self->{option_results}->{exclude}) && $self->{option_results}->{exclude} =~ /(^|\s|,)$section(\s|,|$)/) {
+        $self->{output}->output_add(long_msg => sprintf("Skipping $section section."));
+        return 1;
+    }
+    return 0;
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+Check Hardware (CPUs, Power Supplies, Power converters, Fans).
+
+=over 8
+
+=item B<--exclude>
+
+Exclude some parts (comma seperated list) (Example: --exclude=psu,pc).
+
+=back
+
+=cut
+    

hardware/server/hpproliant/plugin.pm

@@ -0,0 +1,64 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package hardware::server::hpproliant::plugin;
+
+use strict;
+use warnings;
+use base qw(centreon::plugins::script_snmp);
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    # $options->{options} = options object
+
+    $self->{version} = '1.0';
+    %{$self->{modes}} = (
+                         'hardware' => 'hardware::server::hpproliant::mode::hardware',
+                         );
+
+    return $self;
+}
+
+1;
+
+__END__
+
+=head1 PLUGIN DESCRIPTION
+
+Check HP Proliant servers in SNMP.
+
+=cut

install.sh

@@ -1,234 +0,0 @@
-#!/bin/sh
-###################################################################
-# Oreon is developped with GPL Licence 2.0 
-#
-# GPL License: http://www.gnu.org/licenses/old-licenses/gpl-2.0.txt
-#
-# Developped by : Julien Mathis - Romain Le Merlus 
-#                 Christophe Coraboeuf - Sugumaran Mathavarajan
-#
-###################################################################
-# This program is free software; you can redistribute it and/or
-# modify it under the terms of the GNU General Public License
-# as published by the Free Software Foundation; either version 2
-# of the License, or (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-# 
-#    For information : contact@merethis.com
-####################################################################
-
-#Load install script functions
-. ../functions
-
-##
-## VARIABLES
-##
-## Make sure you know what you do if you modify it !!
-
-PWD=`pwd`
-
-PLUGINS_DIR=""
-
-LOG_FILE="../log/install_oreon.log"
-
-date > $LOG_FILE
-
-echo
-echo "##########################################################################"
-echo "#                     OREON Project (www.oreon-project.org)              #"
-echo "#                         Thanks for using OREON                         #"
-echo "#                                                                        #"
-echo "#                                                                        #"
-echo "#                            infos@oreon-project.org                     #"
-echo "#                                                                        #"
-echo "#                  Make sure you have installed and configured           #"
-echo "#                             perl - sed                                 #"
-echo "#                                                                        #"
-echo "#                                                                        #"
-echo "##########################################################################"
-echo "#                              The Team OREON                            #"
-echo "##########################################################################"
-echo ""
-echo ""
-$SETCOLOR_WARNING
-echo "                     Make sure you have root permissions !"
-$SETCOLOR_NORMAL
-echo ""
-
-echo "Are you sure to continue?"
-echo -n "[y/n], default to [n]:"
-read temp
-if [ -z $temp ];then
-    temp=n
-fi
-
-if [ $temp = "n" ];then
-    echo "Bye bye !"
-    exit
-fi
-
-test_answer()
-{
-    #$1 variable to fill
-    #$2 text typed by user
-    if [ ! -z $2 ];then
-        if [ $2 != "" ];then
-      eval $1=$2
-        fi
-    fi
-}
-
-##
-## CONFIGURATION
-##
-if test -a $OREON_CONF ; then
-	echo ""
-	echo_success "Finding Oreon configuration file '$OREON_CONF' :" "OK"
-	echo "You already seem to have to install Oreon."
-    echo "Do you want use last Oreon install parameters ?"
-	echo -n "[y/n], default to [y]:"
-	read temp
-	if [ -z $temp ];then
-	    temp=y
-	fi
-
-	if [ $temp = "y" ];then
-	    echo ""
-		echo_passed "Using '$OREON_CONF' :" "PASSED"
-	    . $OREON_CONF
-	    echo ""
-	else
-		echo ""
-		echo "First, let's talk about you !"
-		echo "-----------------------------"
-		echo ""
-	fi
-fi
-	if [ -z $INSTALL_DIR_NAGIOS ];then
-		INSTALL_DIR_NAGIOS="/usr/local/nagios"
-		echo "Where is installed Nagios ?"
-		echo -n "default to [$INSTALL_DIR_NAGIOS]:"
-		read temp
-		test_answer INSTALL_DIR_NAGIOS $temp
-		echo ""
-	fi
-
-	if [ -z $NAGIOS_ETC ];then
-		#nagios etc directory for oreon
-		NAGIOS_ETC="$INSTALL_DIR_NAGIOS/etc"
-		echo "Where are your nagios etc directory ?"
-		echo -n "default to [$NAGIOS_ETC]:"
-		read temp
-		test_answer NAGIOS_ETC $temp
-		echo ""
-	fi
-
-	if [ -z $NAGIOS_PLUGINS ];then
-		#nagios plugins directory for oreon
-		NAGIOS_PLUGINS="$INSTALL_DIR_NAGIOS/libexec"
-		echo "Where are your nagios plugin / libexec  directory ?"
-		echo -n "default to [$NAGIOS_PLUGINS]:"
-		read temp
-		test_answer NAGIOS_PLUGINS $temp
-		echo ""
-	fi
-
-	if [ -z $INSTALL_DIR_OREON ];then
-		#setup directory for oreon
-		INSTALL_DIR_OREON="/usr/local/oreon"
-		echo "Where do I install Oreon ?"
-		echo -n "default to [$INSTALL_DIR_OREON]:"
-		read temp
-		test_answer INSTALL_DIR_OREON $temp
-		echo ""
-	fi
-
-	if [ -z $SUDO_FILE ];then
-		#Configuration file for sudo
-		SUDO_FILE="/etc/sudoers"
-		echo "Where is sudo ?"
-		echo -n "default to [$SUDO_FILE]:"
-		read temp
-		test_answer SUDO_FILE $temp
-		echo ""
-	fi
-
-	if [ -z $RRD_PERL ];then
-		#RRDTOOL perl module directory
-		RRD_PERL="/usr/local/rrdtool/lib/perl"
-		echo "Where is RRD perl modules RRDs.pm ?"
-		echo -n "default to [$RRD_PERL]:"
-		read temp
-		test_answer RRD_PERL $temp
-		echo ""
-	fi
-
-##
-## FUNCTION
-##
-
-# When exit on error
-
-function error()
-{
-    echo "ERROR"
-    exit 2
-}
-
-# install OREON PLUGIN
-
-function confirm_oreon()
-{
-    	install_oreon_plugins
-}
-
-# installation script
-
-#check_group_nagios
-#check_user_nagios
-#check_group_nagiocmd
-#confirm_oreon
-
-##
-## INSTALL
-##
-echo "Users Management"
-echo "----------------"
-# check for httpd directory
-check_httpd_directory
-## group apache
-check_group_apache
-## user apache
-check_user_apache
-check_group_nagios
-check_user_nagios
-echo ""
-
-echo "Other Stuff"
-echo "------------"
-if test -d $NAGIOS_PLUGINS ; then
-    echo_success "Nagios libexec directory" "OK"
-else
-    mkdir -p $NAGIOS_PLUGINS > /dev/null
-    echo_success "Nagios libexec directory created" "OK"
-fi
-
-# installation script
-
-confirm_oreon
-#oreon_post_install
-
-echo ""
-echo "###############################################################################"
-echo "#                                                                             #"
-echo "#                    Report bugs at bugs@oreon-project.org                    #"
-echo "#                                                                             #"
-echo "#                             Thanks for using OREON.                         #"
-echo "#                             -----------------------                         #"
-echo "#                        Contact : infos@oreon-project.org                    #"
-echo "#                           http://www.oreon-project.org                      #"
-echo "###############################################################################"

network/alteon/5224/plugin.pm

@@ -0,0 +1,66 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package network::alteon::5224::plugin;
+
+use strict;
+use warnings;
+use base qw(centreon::plugins::script_snmp);
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    # $options->{options} = options object
+
+    $self->{version} = '1.0';
+    %{$self->{modes}} = (
+                         'cpu' => 'network::alteon::common::mode::cpu',
+                         'hardware' => 'network::alteon::common::mode::hardware',
+                         'memory' => 'network::alteon::common::mode::memory',
+                         );
+
+    return $self;
+}
+
+1;
+
+__END__
+
+=head1 PLUGIN DESCRIPTION
+
+Check Alteon 5224 in SNMP.
+
+=cut

network/alteon/common/mode/cpu.pm

@@ -0,0 +1,159 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package network::alteon::common::mode::cpu;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                {
+                                  "warning:s"               => { name => 'warning', default => '' },
+                                  "critical:s"              => { name => 'critical', default => '' },
+                                });
+
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+    
+    ($self->{warn1s}, $self->{warn4s}, $self->{warn64s}) = split /,/, $self->{option_results}->{warning};
+    ($self->{crit1s}, $self->{crit4s}, $self->{crit64s}) = split /,/, $self->{option_results}->{critical};
+    
+    if (($self->{perfdata}->threshold_validate(label => 'warn1s', value => $self->{warn1s})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong warning (1sec) threshold '" . $self->{warn1s} . "'.");
+       $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'warn4s', value => $self->{warn4s})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong warning (4sec) threshold '" . $self->{warn4s} . "'.");
+       $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'warn64s', value => $self->{warn64s})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong warning (64sec) threshold '" . $self->{warn64s} . "'.");
+       $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'crit1s', value => $self->{crit1s})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong critical (1sec) threshold '" . $self->{crit1s} . "'.");
+       $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'crit4s', value => $self->{crit4s})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong critical (4sec) threshold '" . $self->{crit4s} . "'.");
+       $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'crit64s', value => $self->{crit64s})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong critical (64sec) threshold '" . $self->{crit64s} . "'.");
+       $self->{output}->option_exit();
+    }
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{snmp} = snmp object
+    $self->{snmp} = $options{snmp};
+
+    my $oid_mpCpuStatsUtil1Second = '.1.3.6.1.4.1.1872.2.5.1.2.2.1.0';
+    my $oid_mpCpuStatsUtil4Seconds = '.1.3.6.1.4.1.1872.2.5.1.2.2.2.0';
+    my $oid_mpCpuStatsUtil64Seconds = '.1.3.6.1.4.1.1872.2.5.1.2.2.3.0';
+    my $result = $self->{snmp}->get_leef(oids => [$oid_mpCpuStatsUtil1Second, $oid_mpCpuStatsUtil4Seconds,
+                                                  $oid_mpCpuStatsUtil64Seconds], nothing_quit => 1);
+    
+    my $cpu1sec = $result->{$oid_mpCpuStatsUtil1Second};
+    my $cpu4sec = $result->{$oid_mpCpuStatsUtil4Seconds};
+    my $cpu64sec = $result->{$oid_mpCpuStatsUtil64Seconds};
+    
+    my $exit1 = $self->{perfdata}->threshold_check(value => $cpu1sec, 
+                           threshold => [ { label => 'crit1s', 'exit_litteral' => 'critical' }, { label => 'warn1s', exit_litteral => 'warning' } ]);
+    my $exit2 = $self->{perfdata}->threshold_check(value => $cpu4sec, 
+                           threshold => [ { label => 'crit4s', 'exit_litteral' => 'critical' }, { label => 'warn4s', exit_litteral => 'warning' } ]);
+    my $exit3 = $self->{perfdata}->threshold_check(value => $cpu64sec, 
+                           threshold => [ { label => 'crit64s', 'exit_litteral' => 'critical' }, { label => 'warn64s', exit_litteral => 'warning' } ]);
+    my $exit = $self->{output}->get_most_critical(status => [ $exit1, $exit2, $exit3 ]);
+    
+    $self->{output}->output_add(severity => $exit,
+                                short_msg => sprintf("MP CPU Usage: %.2f%% (1sec), %.2f%% (4sec), %.2f%% (64sec)",
+                                      $cpu1sec, $cpu4sec, $cpu64sec));
+    
+    $self->{output}->perfdata_add(label => "cpu_1s",
+                                  value => $cpu1sec,
+                                  warning => $self->{perfdata}->get_perfdata_for_output(label => 'warn1s'),
+                                  critical => $self->{perfdata}->get_perfdata_for_output(label => 'crit1s'),
+                                  min => 0, max => 100);
+    $self->{output}->perfdata_add(label => "cpu_4s",
+                                  value => $cpu4sec,
+                                  warning => $self->{perfdata}->get_perfdata_for_output(label => 'warn4s'),
+                                  critical => $self->{perfdata}->get_perfdata_for_output(label => 'crit4s'),
+                                  min => 0, max => 100);
+    $self->{output}->perfdata_add(label => "cpu_64s",
+                                  value => $cpu64sec,
+                                  warning => $self->{perfdata}->get_perfdata_for_output(label => 'warn64s'),
+                                  critical => $self->{perfdata}->get_perfdata_for_output(label => 'crit64s'),
+                                  min => 0, max => 100);
+    
+    $self->{output}->display();
+    $self->{output}->exit();
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+Check MP cpu usage (ALTEON-CHEETAH-SWITCH-MIB).
+
+=over 8
+
+=item B<--warning>
+
+Threshold warning in percent (1s,4s,64s).
+
+=item B<--critical>
+
+Threshold critical in percent (1s,4s,64s).
+
+=back
+
+=cut
+    

network/alteon/common/mode/hardware.pm

@@ -0,0 +1,195 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package network::alteon::common::mode::hardware;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+
+my %states_temp_cpu = (
+    1 => ['normal', 'OK'], 
+    2 => ['warning', 'WARNING'],
+    3 => ['critical', 'CRITICAL'],     
+);
+my %states_temp = (
+    1 => ['ok', 'OK'], 
+    2 => ['exceed', 'WARNING'], 
+);
+my %states_psu = (
+    1 => ['single power supply ok', 'WARNING'], 
+    2 => ['first powerSupply failed', 'CRITICAL'],
+    3 => ['second power supply failed', 'CRITICAL'],
+    4 => ['double power supply ok', 'OK'],
+    5 => ['unknown power supply failed', 'UNKNOWN'],
+);
+my %states_fan = (
+    1 => ['ok', 'OK'], 
+    2 => ['fail', 'CRITICAL'],
+);
+my $oid_hwTemperatureStatus = '.1.3.6.1.4.1.1872.2.5.1.3.1.3.0';
+my $oid_hwFanStatus = '.1.3.6.1.4.1.1872.2.5.1.3.1.4.0';
+my $oid_hwTemperatureThresholdStatusCPU1Get = '.1.3.6.1.4.1.1872.2.5.1.3.1.28.3.0';
+my $oid_hwTemperatureThresholdStatusCPU2Get = '.1.3.6.1.4.1.1872.2.5.1.3.1.28.4.0';
+my $oid_hwPowerSupplyStatus = '.1.3.6.1.4.1.1872.2.5.1.3.1.29.2.0';
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                { 
+                                });
+
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{snmp} = snmp object
+    $self->{snmp} = $options{snmp};
+
+    $self->{components_fans} = 0;
+    $self->{components_psus} = 0;
+    $self->{components_temperatures} = 0;
+    
+    $self->{global_result} = $self->{snmp}->get_leef(oids => [$oid_hwTemperatureStatus, $oid_hwFanStatus, 
+                                                     $oid_hwTemperatureThresholdStatusCPU1Get, $oid_hwTemperatureThresholdStatusCPU2Get,
+                                                     $oid_hwPowerSupplyStatus],
+                                                     nothing_quit => 1);
+    
+    $self->check_fans();
+    $self->check_psus();
+    $self->check_temperatures();
+    
+    $self->{output}->output_add(severity => 'OK',
+                                short_msg => sprintf("All %d components [%d fans, %d power supplies, %d temperatures] are ok", 
+                                ($self->{components_fans} + $self->{components_psus} + $self->{components_temperatures}), 
+                                $self->{components_fans}, $self->{components_psus}, $self->{components_temperatures}));
+    
+    $self->{output}->display();
+    $self->{output}->exit();
+}
+
+sub check_fans {
+    my ($self) = @_;
+
+    $self->{output}->output_add(long_msg => "Checking fans");
+    return if (!defined($self->{global_result}->{$oid_hwFanStatus}));
+    
+    $self->{components_fans}++;
+    my $fan_state = $self->{global_result}->{$oid_hwFanStatus};
+  
+    $self->{output}->output_add(long_msg => sprintf("Fan status is %s.", ${$states_fan{$fan_state}}[0]));
+    if (${$states_fan{$fan_state}}[1] ne 'OK') {
+        $self->{output}->output_add(severity =>  ${$states_fan{$fan_state}}[1],
+                                    short_msg => sprintf("Fan status is %s.", ${$states_fan{$fan_state}}[0]));
+    }
+}
+
+sub check_psus {
+    my ($self) = @_;
+
+    $self->{output}->output_add(long_msg => "Checking power supplies");
+    return if (!defined($self->{global_result}->{$oid_hwPowerSupplyStatus}));
+    
+    $self->{components_psus}++;
+    my $psu_state = $self->{global_result}->{$oid_hwPowerSupplyStatus};
+  
+    $self->{output}->output_add(long_msg => sprintf("Power supplies status is %s.", ${$states_psu{$psu_state}}[0]));
+    if (${$states_psu{$psu_state}}[1] ne 'OK') {
+        $self->{output}->output_add(severity =>  ${$states_psu{$psu_state}}[1],
+                                    short_msg => sprintf("Power supplies status is %s.", ${$states_psu{$psu_state}}[0]));
+    }
+}
+
+sub check_temperatures {
+    my ($self) = @_;
+
+    $self->{output}->output_add(long_msg => "Checking temperatures global");
+    return if (!defined($self->{global_result}->{$oid_hwTemperatureStatus}));
+    
+    $self->{components_temperatures}++;
+    my $temp_state = $self->{global_result}->{$oid_hwTemperatureStatus};
+  
+    $self->{output}->output_add(long_msg => sprintf("Global temperature sensor status is %s.", ${$states_temp{$temp_state}}[0]));
+    if (${$states_temp{$temp_state}}[1] ne 'OK') {
+        $self->{output}->output_add(severity =>  ${$states_temp{$temp_state}}[1],
+                                    short_msg => sprintf("Global temperature sensor  status is %s.", ${$states_temp{$temp_state}}[0]));
+    }
+    
+    $self->{output}->output_add(long_msg => "Checking temperatures cpus");
+    return if (!defined($self->{global_result}->{$oid_hwTemperatureThresholdStatusCPU1Get}) && 
+               !defined($self->{global_result}->{$oid_hwTemperatureThresholdStatusCPU2Get}));
+    
+    $self->{components_temperatures} += 2;
+    my $temp_cpu1_state = $self->{global_result}->{$oid_hwTemperatureThresholdStatusCPU1Get};
+    my $temp_cpu2_state = $self->{global_result}->{$oid_hwTemperatureThresholdStatusCPU2Get};
+  
+    $self->{output}->output_add(long_msg => sprintf("Temperature cpu 1 status is %s.", ${$states_temp_cpu{$temp_cpu1_state}}[0]));
+    if (${$states_temp_cpu{$temp_cpu1_state}}[1] ne 'OK') {
+        $self->{output}->output_add(severity =>  ${$states_temp_cpu{$temp_cpu1_state}}[1],
+                                    short_msg => sprintf("Temperature cpu 1 status is %s.", ${$states_temp_cpu{$temp_cpu1_state}}[0]));
+    }
+    
+    $self->{output}->output_add(long_msg => sprintf("Temperature cpu 2 status is %s.", ${$states_temp_cpu{$temp_cpu2_state}}[0]));
+    if (${$states_temp_cpu{$temp_cpu2_state}}[1] ne 'OK') {
+        $self->{output}->output_add(severity =>  ${$states_temp_cpu{$temp_cpu2_state}}[1],
+                                    short_msg => sprintf("Temperature cpu 2 status is %s.", ${$states_temp_cpu{$temp_cpu2_state}}[0]));
+    }
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+Check Hardware (ALTEON-CHEETAH-SWITCH-MIB) (Fans, Power Supplies, Temperatures).
+
+=over 8
+
+=back
+
+=cut
+    

network/alteon/common/mode/memory.pm

@@ -0,0 +1,130 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package network::alteon::common::mode::memory;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                {
+                                  "warning:s"               => { name => 'warning' },
+                                  "critical:s"              => { name => 'critical' },
+                                });
+
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+    
+    if (($self->{perfdata}->threshold_validate(label => 'warning', value => $self->{option_results}->{warning})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong warning threshold '" . $self->{option_results}->{warning} . "'.");
+       $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'critical', value => $self->{option_results}->{critical})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong critical threshold '" . $self->{option_results}->{critical} . "'.");
+       $self->{output}->option_exit();
+    }
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{snmp} = snmp object
+    $self->{snmp} = $options{snmp};
+
+    my $oid_mpMemStatsTotal = '.1.3.6.1.4.1.1872.2.5.1.2.8.1.0';
+    my $oid_mpMemStatsFree = '.1.3.6.1.4.1.1872.2.5.1.2.8.3.0';
+    my $result = $self->{snmp}->get_leef(oids => [$oid_mpMemStatsTotal, $oid_mpMemStatsFree], nothing_quit => 1);
+
+    my $total_size = $result->{$oid_mpMemStatsTotal};
+    my $memory_free = $result->{$oid_mpMemStatsFree};
+    my $memory_used = $total_size - $memory_free;
+    
+    my $prct_used = $memory_used * 100 / $total_size;
+    my $prct_free = 100 - $prct_used;
+    
+    my $exit = $self->{perfdata}->threshold_check(value => $prct_used, threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]);
+    my ($total_value, $total_unit) = $self->{perfdata}->change_bytes(value => $total_size);
+    my ($used_value, $used_unit) = $self->{perfdata}->change_bytes(value => $memory_used);
+    my ($free_value, $free_unit) = $self->{perfdata}->change_bytes(value => $memory_free);
+    
+    $self->{output}->output_add(severity => $exit,
+                                short_msg => sprintf("MP Memory Usage Total: %s Used: %s (%.2f%%) Free: %s (%.2f%%)",
+                                        $total_value . " " . $total_unit,
+                                        $used_value . " " . $used_unit, $prct_used,
+                                        $free_value . " " . $free_unit, $prct_free));
+    
+    $self->{output}->perfdata_add(label => "used",
+                                  value => $memory_used,
+                                  warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning', total => $total_size),
+                                  critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical', total => $total_size),
+                                  min => 0, max => $total_size);
+
+    $self->{output}->display();
+    $self->{output}->exit();
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+Check MP memory usage (ALTEON-CHEETAH-SWITCH-MIB).
+
+=over 8
+
+=item B<--warning>
+
+Threshold warning in percent.
+
+=item B<--critical>
+
+Threshold critical in percent.
+
+=back
+
+=cut
+    

network/bluecoat/mode/clientconnections.pm

@@ -0,0 +1,123 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package network::bluecoat::mode::clientconnections;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                { 
+                                  "warning:s"      => { name => 'warning' },
+                                  "critical:s"     => { name => 'critical' },
+                                });
+                                
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+    
+    if (($self->{perfdata}->threshold_validate(label => 'warning', value => $self->{option_results}->{warning})) == 0) {
+        $self->{output}->add_option_msg(short_msg => "Wrong warning threshold '" . $self->{option_results}->{warning} . "'.");
+        $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'critical', value => $self->{option_results}->{critical})) == 0) {
+        $self->{output}->add_option_msg(short_msg => "Wrong critical threshold '" . $self->{option_results}->{critical} . "'.");
+        $self->{output}->option_exit();
+    }
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{snmp} = snmp object
+    $self->{snmp} = $options{snmp};
+    
+    my $result = $self->{snmp}->get_leef(oids => ['.1.3.6.1.4.1.3417.2.11.3.1.3.1.0', 
+                                                  '.1.3.6.1.4.1.3417.2.11.3.1.3.2.0',
+                                                  '.1.3.6.1.4.1.3417.2.11.3.1.3.3.0'], nothing_quit => 1);
+    my $client_connections = $result->{'.1.3.6.1.4.1.3417.2.11.3.1.3.1.0'};
+    my $client_connections_active = $result->{'.1.3.6.1.4.1.3417.2.11.3.1.3.2.0'};
+    my $client_connections_idle = $result->{'.1.3.6.1.4.1.3417.2.11.3.1.3.3.0'};
+    
+    my $exit = $self->{perfdata}->threshold_check(value => $client_connections_active, threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]);
+    $self->{output}->output_add(severity => $exit,
+                                short_msg => "Client connections: Active " . $client_connections_active . ", Idle " . $client_connections_idle);
+    $self->{output}->perfdata_add(label => 'con',
+                                  value => $client_connections,
+                                  min => 0);
+    $self->{output}->perfdata_add(label => 'con_active',
+                                  value => $client_connections_active,
+                                  warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning'),
+                                  critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical'),
+                                  min => 0);
+    $self->{output}->perfdata_add(label => 'con_idle',
+                                  value => $client_connections_idle,
+                                  min => 0);
+    
+    $self->{output}->display();
+    $self->{output}->exit();
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+Check current client connections.
+
+=over 8
+
+=item B<--warning>
+
+Threshold warning (on active connections).
+
+=item B<--critical>
+
+Threshold critical (on active connections.
+
+=back
+
+=cut

network/bluecoat/mode/clientrequests.pm

@@ -0,0 +1,197 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package network::bluecoat::mode::clientrequests;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+use centreon::plugins::statefile;
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                { 
+                                  "warning-errors:s"      => { name => 'warning_errors' },
+                                  "critical-errors:s"     => { name => 'critical_errors' },
+                                  "warning-misses:s"      => { name => 'warning_misses' },
+                                  "critical-misses:s"     => { name => 'critical_misses' },
+                                });
+    $self->{statefile_value} = centreon::plugins::statefile->new(%options);
+                                
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+    
+    if (($self->{perfdata}->threshold_validate(label => 'warning_errors', value => $self->{option_results}->{warning_errors})) == 0) {
+        $self->{output}->add_option_msg(short_msg => "Wrong warning 'errors' threshold '" . $self->{option_results}->{warning_errors} . "'.");
+        $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'critical_errors', value => $self->{option_results}->{critical_errors})) == 0) {
+        $self->{output}->add_option_msg(short_msg => "Wrong critical 'errors' threshold '" . $self->{option_results}->{critical_errors} . "'.");
+        $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'warning_misses', value => $self->{option_results}->{warning_misses})) == 0) {
+        $self->{output}->add_option_msg(short_msg => "Wrong warning 'misses' threshold '" . $self->{option_results}->{warning_misses} . "'.");
+        $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'critical_misses', value => $self->{option_results}->{critical_misses})) == 0) {
+        $self->{output}->add_option_msg(short_msg => "Wrong critical 'misses' threshold '" . $self->{option_results}->{critical_misses} . "'.");
+        $self->{output}->option_exit();
+    }
+    
+    $self->{statefile_value}->check_options(%options);
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{snmp} = snmp object
+    $self->{snmp} = $options{snmp};
+    $self->{hostname} = $self->{snmp}->get_hostname();
+    
+    if ($self->{snmp}->is_snmpv1()) {
+        $self->{output}->add_option_msg(short_msg => "Need to use SNMP v2c or v3.");
+        $self->{output}->option_exit();
+    }
+
+    $self->{statefile_value}->read(statefile => 'bluecoat_' . $self->{hostname}  . '_' . $self->{mode});
+    my $result = $self->{snmp}->get_leef(oids => ['.1.3.6.1.4.1.3417.2.11.3.1.1.1.0', 
+                                                  '.1.3.6.1.4.1.3417.2.11.3.1.1.2.0',
+                                                  '.1.3.6.1.4.1.3417.2.11.3.1.1.3.0',
+                                                  '.1.3.6.1.4.1.3417.2.11.3.1.1.4.0',
+                                                  '.1.3.6.1.4.1.3417.2.11.3.1.1.5.0'], nothing_quit => 1);
+
+    my $new_datas = {};
+    my $old_timestamp = $self->{statefile_value}->get(name => 'last_timestamp');
+    my $old_client_http_requests = $self->{statefile_value}->get(name => 'client_http_requests');
+    my $old_client_http_hits = $self->{statefile_value}->get(name => 'client_http_hits');
+    my $old_client_http_partial_hits = $self->{statefile_value}->get(name => 'client_http_partial_hits');
+    my $old_client_http_misses = $self->{statefile_value}->get(name => 'client_http_misses');
+    my $old_client_http_errors = $self->{statefile_value}->get(name => 'client_http_errors');
+
+    $new_datas->{last_timestamp} = time();
+    $new_datas->{client_http_requests} = $result->{'.1.3.6.1.4.1.3417.2.11.3.1.1.1.0'};
+    $new_datas->{client_http_hits} = $result->{'.1.3.6.1.4.1.3417.2.11.3.1.1.2.0'};
+    $new_datas->{client_http_partial_hits} = $result->{'.1.3.6.1.4.1.3417.2.11.3.1.1.3.0'};
+    $new_datas->{client_http_misses} = $result->{'.1.3.6.1.4.1.3417.2.11.3.1.1.4.0'};
+    $new_datas->{client_http_errors} = $result->{'.1.3.6.1.4.1.3417.2.11.3.1.1.5.0'};
+    
+    $self->{statefile_value}->write(data => $new_datas);
+    
+    if (!defined($old_timestamp) || !defined($old_client_http_misses)) {
+        $self->{output}->output_add(severity => 'OK',
+                                    short_msg => "Buffer creation...");
+        $self->{output}->exit();
+    }
+        
+    if ($new_datas->{client_http_requests} < $old_client_http_requests) {
+        # We set 0. Has reboot.
+        $old_client_http_requests = 0;
+        $old_client_http_hits = 0;
+        $old_client_http_partial_hits = 0;
+        $old_client_http_misses = 0;
+        $old_client_http_errors = 0;
+    }
+    
+    my $delta_http_requests = $new_datas->{client_http_requests} - $old_client_http_requests;
+    my $prct_misses = sprintf("%.2f", ($new_datas->{client_http_misses} - $old_client_http_misses) * 100 / $delta_http_requests);
+    my $prct_hits = sprintf("%.2f", ($new_datas->{client_http_hits} - $old_client_http_hits) * 100 / $delta_http_requests);
+    my $prct_partial_hits = sprintf("%.2f", ($new_datas->{client_http_partial_hits} - $old_client_http_partial_hits) * 100 / $delta_http_requests);
+    my $prct_errors = sprintf("%.2f", ($new_datas->{client_http_errors} - $old_client_http_errors) * 100 / $delta_http_requests);
+    
+    my $exit1 = $self->{perfdata}->threshold_check(value => $prct_errors, threshold => [ { label => 'critical_errors', 'exit_litteral' => 'critical' }, { label => 'warning_errors', exit_litteral => 'warning' } ]);
+    my $exit2 = $self->{perfdata}->threshold_check(value => $prct_misses, threshold => [ { label => 'critical_misses', 'exit_litteral' => 'critical' }, { label => 'warning_misses', exit_litteral => 'warning' } ]);
+    my $exit = $self->{output}->get_most_critical(status => [ $exit1, $exit2 ]);
+    
+    $self->{output}->output_add(severity => $exit,
+                                short_msg => "Client Requests: Hits = $prct_hits%, Partial Hits = $prct_partial_hits%, Misses = $prct_misses%, Errors = $prct_errors%");
+    $self->{output}->perfdata_add(label => 'hits', unit => '%',
+                                  value => $prct_hits,
+                                  min => 0);
+    $self->{output}->perfdata_add(label => 'partial_hits', unit => '%',
+                                  value => $prct_partial_hits,
+                                  min => 0);
+    $self->{output}->perfdata_add(label => 'misses', unit => '%',
+                                  value => $prct_misses,
+                                  warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning_misses'),
+                                  critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical_misses'),
+                                  min => 0);
+    $self->{output}->perfdata_add(label => 'errors', unit => '%',
+                                  value => $prct_errors,
+                                  warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning_errors'),
+                                  critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical_errors'),
+                                  min => 0);    
+    
+    $self->{output}->display();
+    $self->{output}->exit();
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+Check http client requests (in percent by type: hit, partial, misses, errors)
+
+=over 8
+
+=item B<--warning-errors>
+
+Threshold warning of client http errors in percent.
+
+=item B<--critical-errors>
+
+Threshold critical of client http errors in percent.
+
+=item B<--warning-misses>
+
+Threshold warning of client http misses in percent.
+
+=item B<--critical-misses>
+
+Threshold critial of client http misses in percent.
+
+=back
+
+=cut

network/bluecoat/mode/clienttraffic.pm

@@ -0,0 +1,181 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package network::bluecoat::mode::clienttraffic;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+use centreon::plugins::statefile;
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                { 
+                                  "warning-received:s"      => { name => 'warning_received' },
+                                  "critical-received:s"     => { name => 'critical_received' },
+                                  "warning-delivered:s"     => { name => 'warning_delivered' },
+                                  "critical-delivered:s"    => { name => 'critical_delivered' },
+                                });
+    $self->{statefile_value} = centreon::plugins::statefile->new(%options);
+                                
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+    
+    if (($self->{perfdata}->threshold_validate(label => 'warning_received', value => $self->{option_results}->{warning_received})) == 0) {
+        $self->{output}->add_option_msg(short_msg => "Wrong warning 'received' threshold '" . $self->{option_results}->{warning_received} . "'.");
+        $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'critical_received', value => $self->{option_results}->{critical_received})) == 0) {
+        $self->{output}->add_option_msg(short_msg => "Wrong critical 'received' threshold '" . $self->{option_results}->{critical_received} . "'.");
+        $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'warning_delivered', value => $self->{option_results}->{warning_delivered})) == 0) {
+        $self->{output}->add_option_msg(short_msg => "Wrong warning 'delivered' threshold '" . $self->{option_results}->{warning_delivered} . "'.");
+        $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'critical_delivered', value => $self->{option_results}->{critical_delivered})) == 0) {
+        $self->{output}->add_option_msg(short_msg => "Wrong critical 'delivered' threshold '" . $self->{option_results}->{critical_delivered} . "'.");
+        $self->{output}->option_exit();
+    }
+    
+    $self->{statefile_value}->check_options(%options);
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{snmp} = snmp object
+    $self->{snmp} = $options{snmp};
+    $self->{hostname} = $self->{snmp}->get_hostname();
+    
+    if ($self->{snmp}->is_snmpv1()) {
+        $self->{output}->add_option_msg(short_msg => "Need to use SNMP v2c or v3.");
+        $self->{output}->option_exit();
+    }
+
+    $self->{statefile_value}->read(statefile => 'bluecoat_' . $self->{hostname}  . '_' . $self->{mode});
+
+    my $result = $self->{snmp}->get_leef(oids => ['.1.3.6.1.4.1.3417.2.11.3.1.1.9.0', 
+                                                  '.1.3.6.1.4.1.3417.2.11.3.1.1.10.0'], nothing_quit => 1);
+
+    my $old_timestamp = $self->{statefile_value}->get(name => 'last_timestamp');
+    my $old_client_in_bytes = $self->{statefile_value}->get(name => 'client_in_bytes');
+    my $old_client_out_bytes = $self->{statefile_value}->get(name => 'client_out_bytes');
+
+    my $new_datas = {};
+    $new_datas->{last_timestamp} = time();
+    $new_datas->{client_in_bytes} = $result->{'.1.3.6.1.4.1.3417.2.11.3.1.1.9.0'};
+    $new_datas->{client_out_bytes} = $result->{'.1.3.6.1.4.1.3417.2.11.3.1.1.10.0'};
+    
+    $self->{statefile_value}->write(data => $new_datas);
+        
+    if (!defined($old_timestamp) || !defined($old_client_in_bytes)) {
+        $self->{output}->output_add(severity => 'OK',
+                                    short_msg => "Buffer creation...");
+        $self->{output}->exit();
+    }
+        
+    if ($new_datas->{client_in_bytes} < $old_client_in_bytes) {
+        # We set 0. Has reboot.
+        $old_client_in_bytes = 0;
+        $old_client_out_bytes = 0;
+    }
+    
+    my $delta_time = $new_datas->{last_timestamp} - $old_timestamp;
+    my $in_bytes_sec = sprintf("%.2f", ($new_datas->{client_in_bytes} - $old_client_in_bytes) / $delta_time);
+    my $out_bytes_sec = sprintf("%.2f", ($new_datas->{client_out_bytes} - $old_client_out_bytes) / $delta_time);
+    
+    my $exit1 = $self->{perfdata}->threshold_check(value => $in_bytes_sec, threshold => [ { label => 'critical_received', 'exit_litteral' => 'critical' }, { label => 'warning_received', exit_litteral => 'warning' } ]);
+    my $exit2 = $self->{perfdata}->threshold_check(value => $out_bytes_sec, threshold => [ { label => 'critical_delivered', 'exit_litteral' => 'critical' }, { label => 'warning_delivered', exit_litteral => 'warning' } ]);
+    my $exit = $self->{output}->get_most_critical(status => [ $exit1, $exit2 ]);
+    
+    my ($value_in, $unit_in) = $self->{perfdata}->change_bytes(value => $in_bytes_sec);
+    my ($value_out, $unit_out) = $self->{perfdata}->change_bytes(value => $out_bytes_sec);
+
+    $self->{output}->output_add(severity => $exit,
+                                short_msg => "Traffic: In $value_in $unit_in/s, Out $value_out $unit_out/s");    
+    $self->{output}->perfdata_add(label => 'traffic_in', unit => 'B/s',
+                                  value => $in_bytes_sec,
+                                  warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning_received'),
+                                  critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical_received'),
+                                  min => 0);
+    $self->{output}->perfdata_add(label => 'traffic_out', unit => 'B/s',
+                                  value => $out_bytes_sec,
+                                  warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning_delivered'),
+                                  critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical_delivered'),
+                                  min => 0);
+
+    $self->{output}->display();
+    $self->{output}->exit();
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+Check bytes/s received/delivered to clients
+
+=over 8
+
+=item B<--warning-received>
+
+Threshold warning for received (in bytes/s).
+
+=item B<--critical-received>
+
+Threshold critical for received (in bytes/s).
+
+=item B<--warning-delivered>
+
+Threshold warning2 for delivered (in bytes/s).
+
+=item B<--critical-delivered>
+
+Threshold critical for delivered (in bytes/s).
+
+=back
+
+=cut

network/bluecoat/mode/cpu.pm

@@ -0,0 +1,157 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package network::bluecoat::mode::cpu;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+use centreon::plugins::statefile;
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                { 
+                                  "warning:s"      => { name => 'warning' },
+                                  "critical:s"     => { name => 'critical' },
+                                });
+    $self->{statefile_value} = centreon::plugins::statefile->new(%options);
+                                
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+    
+    if (($self->{perfdata}->threshold_validate(label => 'warning', value => $self->{option_results}->{warning})) == 0) {
+        $self->{output}->add_option_msg(short_msg => "Wrong warning threshold '" . $self->{option_results}->{warning} . "'.");
+        $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'critical', value => $self->{option_results}->{critical})) == 0) {
+        $self->{output}->add_option_msg(short_msg => "Wrong critical threshold '" . $self->{option_results}->{critical} . "'.");
+        $self->{output}->option_exit();
+    }
+    
+    $self->{statefile_value}->check_options(%options);
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{snmp} = snmp object
+    $self->{snmp} = $options{snmp};
+    $self->{hostname} = $self->{snmp}->get_hostname();
+    
+    if ($self->{snmp}->is_snmpv1()) {
+        $self->{output}->add_option_msg(short_msg => "Need to use SNMP v2c or v3.");
+        $self->{output}->option_exit();
+    }
+
+    my $new_datas = {};
+    my $old_timestamp = undef;
+    
+    $self->{statefile_value}->read(statefile => 'bluecoat_' . $self->{hostname}  . '_' . $self->{mode});
+    
+    my $result = $self->{snmp}->get_table(oid => '.1.3.6.1.4.1.3417.2.11.2.4.1', nothing_quit => 1);
+    $old_timestamp = $self->{statefile_value}->get(name => 'last_timestamp');
+    $new_datas->{last_timestamp} = time();
+    for (my $i = 1; defined($result->{'.1.3.6.1.4.1.3417.2.11.2.4.1.3.' . $i}); $i++) {
+        $new_datas->{'cpu_' . $i . '_busy'} = $result->{'.1.3.6.1.4.1.3417.2.11.2.4.1.3.' . $i};
+        $new_datas->{'cpu_' . $i . '_idle'} = $result->{'.1.3.6.1.4.1.3417.2.11.2.4.1.4.' . $i};
+        
+        if (!defined($old_timestamp)) {
+            next;
+        }
+        
+        my $old_cpu_busy = $self->{statefile_value}->get(name => 'cpu_' . $i . '_busy');
+        my $old_cpu_idle = $self->{statefile_value}->get(name => 'cpu_' . $i . '_idle');
+        if (!defined($old_cpu_busy) || !defined($old_cpu_idle)) {
+            next;
+        }
+        
+        if ($new_datas->{'cpu_' . $i . '_busy'} < $old_cpu_busy) {
+            # We set 0. Has reboot.
+            $old_cpu_busy = 0;
+            $old_cpu_idle = 0;
+        }
+        
+        my $total_elapsed = (($new_datas->{'cpu_' . $i . '_busy'} - $old_cpu_busy) + ($new_datas->{'cpu_' . $i . '_idle'} - $old_cpu_idle));
+        my $prct_usage =  (($new_datas->{'cpu_' . $i . '_busy'} - $old_cpu_busy) * 100 / ($total_elapsed));
+        my $exit = $self->{perfdata}->threshold_check(value => $prct_usage, threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]);
+        $self->{output}->output_add(severity => $exit,
+                                    short_msg => sprintf("CPU $i Usage is %.2f%%", $prct_usage));
+        $self->{output}->perfdata_add(label => 'cpu_' . $i, unit => '%',
+                                      value => sprintf("%.2f", $prct_usage),
+                                      warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning'),
+                                      critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical'),
+                                      min => 0, max => 100);
+    }
+    
+    $self->{statefile_value}->write(data => $new_datas);
+    if (!defined($old_timestamp)) {
+        $self->{output}->output_add(severity => 'OK',
+                                    short_msg => "Buffer creation...");
+    }
+    
+    $self->{output}->display();
+    $self->{output}->exit();
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+Check CPU Usage
+
+=over 8
+
+=item B<--warning>
+
+Threshold warning in percent.
+
+=item B<--critical>
+
+Threshold critical in percent.
+
+=back
+
+=cut

network/bluecoat/mode/disk.pm

@@ -0,0 +1,125 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package network::bluecoat::mode::disk;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                { 
+                                  "warning:s"      => { name => 'warning' },
+                                  "critical:s"     => { name => 'critical' },
+                                });
+                                
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+    
+    if (($self->{perfdata}->threshold_validate(label => 'warning', value => $self->{option_results}->{warning})) == 0) {
+        $self->{output}->add_option_msg(short_msg => "Wrong warning threshold '" . $self->{option_results}->{warning} . "'.");
+        $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'critical', value => $self->{option_results}->{critical})) == 0) {
+        $self->{output}->add_option_msg(short_msg => "Wrong critical threshold '" . $self->{option_results}->{critical} . "'.");
+        $self->{output}->option_exit();
+    }
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{snmp} = snmp object
+    $self->{snmp} = $options{snmp};
+    
+    my $disk_num = 1;
+    my $result = $self->{snmp}->get_table(oid => '.1.3.6.1.4.1.3417.2.4.1.1.1');
+    for (my $i = 1; defined($result->{'.1.3.6.1.4.1.3417.2.4.1.1.1.3.' . $i}); $i++) {
+        if ($result->{'.1.3.6.1.4.1.3417.2.4.1.1.1.3.' . $i} !~ /^DISK$/i) {
+            next;
+        }
+        
+        my $disk_usage = $result->{'.1.3.6.1.4.1.3417.2.4.1.1.1.4.' . $i};
+        my $exit = $self->{perfdata}->threshold_check(value => $disk_usage, threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]);
+        $self->{output}->output_add(severity => $exit,
+                                    short_msg => sprintf("Disk $disk_num usage is %.2f%%", $disk_usage));
+        $self->{output}->perfdata_add(label => 'disk_' . $disk_num, unit => '%',
+                                      value => sprintf("%.2f", $disk_usage),
+                                      warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning'),
+                                      critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical'),
+                                      min => 0, max => 100);
+        $disk_num++;
+    }
+    
+    if ($disk_num == 1) {
+        $self->{output}->add_option_msg(short_msg => "No disk information found...");
+        $self->{output}->option_exit();
+    }
+    
+    $self->{output}->display();
+    $self->{output}->exit();
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+Check disks usage.
+
+=over 8
+
+=item B<--warning>
+
+Threshold warning in percent.
+
+=item B<--critical>
+
+Threshold critical in percent.
+
+=back
+
+=cut

network/bluecoat/mode/hardware.pm

@@ -0,0 +1,166 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package network::bluecoat::mode::hardware;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+
+my %device_status_msg = (2 => "unaivalable", 3 => "non operationnal");
+my %device_units = (
+                    1 => '', # other
+                    2 => '', # truthvalue
+                    3 => '', # specialEnum
+                    4 => 'volts',
+                    5 => 'celsius',
+                    6 => 'rpm'
+                    );
+ my %device_code = (
+                    1 => ["The device sensor '%s' is ok", 'OK'], 2 => ["The device sensor '%s' is unknown", 'UNKNOWN'], 3 => ["The device sensor '%s' is not installed", 'UNKNOWN'],
+                    4 => ["The device sensor '%s' has a low voltage", 'WARNING'], 5 => ["The device sensor '%s' has a low voltage", 'CRITICAL'],
+                    6 => ["The device sensor '%s' has no power", 'CRITICAL'],
+                    7 => ["The device sensor '%s' has a high voltage", 'WARNING'],
+                    8 => ["The device sensor '%s' has a high voltage", 'CRITICAL'],
+                    9 => ["The device sensor '%s' has a very (!!!) high voltage", 'CRITICAL'],
+                    10 => ["The device sensor '%s' has a high temperature", 'WARNING'],
+                    11 => ["The device sensor '%s' has a high temperature", 'CRITICAL'],
+                    12 => ["The device sensor '%s' has a very high (!!!) temperature", 'CRITICAL'],
+                    13 => ["The fan '%s' is slow", 'WARNING'],
+                    14 => ["The fan '%s' is slow", 'CRITICAL'],
+                    15 => ["The fan '%s' is stopped", 'CRITICAL'],
+                    );
+my %disk_status = (
+                    1 => ["Disk '%s' is present", 'OK'], 2 => ["Disk '%s' is initializing", 'OK'], 3 => ["Disk '%s' is inserted", 'OK'],
+                    4 => ["Disk '%s' is offline", 'WARNING'], 5 => ["Disk '%s' is removed", 'WARNING'],
+                    6 => ["Disk '%s' is not present", 'WARNING'],
+                    7 => ["Disk '%s' is empty", 'WARNING'],
+                    8 => ["Disk '%s' has io errors", 'CRITICAL'],
+                    9 => ["Disk '%s' is unusable", 'CRITICAL'],
+                    10 => ["Disk status '%s' is unknown", 'UNKNOWN'],
+                    );
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                { 
+                                  "skip"        => { name => 'skip' },
+                                });
+
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{snmp} = snmp object
+    $self->{snmp} = $options{snmp};
+    
+    $self->{output}->output_add(severity => 'OK', 
+                                short_msg => "All disks and sensors are ok.");
+    
+    my $oid_DeviceSensorValueEntry = '.1.3.6.1.4.1.3417.2.1.1.1.1.1';
+    my $result = $self->{snmp}->get_table(oid => $oid_DeviceSensorValueEntry, nothing_quit => 1);
+    
+    for (my $i = 0; defined($result->{'.1.3.6.1.4.1.3417.2.1.1.1.1.1.9.' . $i}); $i++) {
+        my $sensor_name = $result->{'.1.3.6.1.4.1.3417.2.1.1.1.1.1.9.' . $i};
+        my $sensor_status = $result->{'.1.3.6.1.4.1.3417.2.1.1.1.1.1.7.' . $i};
+        my $sensor_units = $result->{'.1.3.6.1.4.1.3417.2.1.1.1.1.1.3.' . $i};
+        my $sensor_code = $result->{'.1.3.6.1.4.1.3417.2.1.1.1.1.1.4.' . $i};
+        my $sensor_value = $result->{'.1.3.6.1.4.1.3417.2.1.1.1.1.1.5.' . $i};
+        my $sensor_scale = $result->{'.1.3.6.1.4.1.3417.2.1.1.1.1.1.4.' . $i};
+        
+        $self->{output}->output_add(long_msg => "Device sensor '" .  $sensor_name . "' status = '" . $sensor_status  . "', code = '" . $sensor_code . "'");
+        
+        # Check 'nonoperationnal' and 'unavailable'
+        if ($sensor_status == 2 || $sensor_status == 3) {
+            if (!defined($self->{option_results}->{skip})) {
+                $self->{output}->output_add(severity => 'CRITICAL',
+                                            short_msg => "Device sensor '" . $sensor_name . "' is " . $sensor_status);
+            }
+            next;
+        }
+        
+        if ($sensor_code != 1) {
+            $self->{output}->output_add(severity => ${$device_code{$sensor_code}}[1],
+                                        short_msg => sprintf(${$device_code{$sensor_code}}[0], $sensor_name));
+        }
+        
+        $self->{output}->perfdata_add(label => $sensor_name, unit => $device_units{sensor_units},
+                                      value => ($sensor_value * (10 ** $sensor_scale)));
+    }
+    
+    $result = $self->{snmp}->get_table(oid => '.1.3.6.1.4.1.3417.2.2.1.1.1.1');
+    for (my $i = 0; defined($result->{'.1.3.6.1.4.1.3417.2.2.1.1.1.1.8.' . $i}); $i++) {
+        my $disk_serial = $result->{'.1.3.6.1.4.1.3417.2.2.1.1.1.1.8.' . $i};
+        my $disk_status = $result->{'.1.3.6.1.4.1.3417.2.2.1.1.1.1.3.' . $i};
+        
+        if ($disk_status > 3) {
+            $self->{output}->output_add(severity => ${$disk_status{$disk_status}}[1],
+                                        short_msg => sprintf(${$disk_status{$disk_status}}[0], $disk_serial));
+        }
+        $self->{output}->output_add(long_msg => sprintf(${$disk_status{$disk_status}}[0], $disk_serial));
+    }
+    
+    $self->{output}->display();
+    $self->{output}->exit();
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+Check bluecoat hardware sensors and disks.
+
+=over 8
+
+=item B<--skip>
+
+Skip 'nonoperationnal' and 'unavailable' sensors.
+
+=back
+
+=cut

network/bluecoat/mode/memory.pm

@@ -0,0 +1,139 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package network::bluecoat::mode::memory;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                { 
+                                  "warning:s"      => { name => 'warning' },
+                                  "critical:s"     => { name => 'critical' },
+                                  "nocache"        => { name => 'nocache' },
+                                });
+                                
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+    
+    if (($self->{perfdata}->threshold_validate(label => 'warning', value => $self->{option_results}->{warning})) == 0) {
+        $self->{output}->add_option_msg(short_msg => "Wrong warning threshold '" . $self->{option_results}->{warning} . "'.");
+        $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'critical', value => $self->{option_results}->{critical})) == 0) {
+        $self->{output}->add_option_msg(short_msg => "Wrong critical threshold '" . $self->{option_results}->{critical} . "'.");
+        $self->{output}->option_exit();
+    }
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{snmp} = snmp object
+    $self->{snmp} = $options{snmp};
+    
+    if ($self->{snmp}->is_snmpv1()) {
+        $self->{output}->add_option_msg(short_msg => "Need to use SNMP v2c or v3.");
+        $self->{output}->option_exit();
+    }
+
+    my $result = $self->{snmp}->get_table(oid => '.1.3.6.1.4.1.3417.2.11.2.3', nothing_quit => 1);
+
+    my $mem_total = $result->{'.1.3.6.1.4.1.3417.2.11.2.3.1.0'};
+    my $mem_cache = $result->{'.1.3.6.1.4.1.3417.2.11.2.3.2.0'};
+    my $mem_sys = $result->{'.1.3.6.1.4.1.3417.2.11.2.3.3.0'};
+    my $mem_used;
+    
+    if (defined($self->{option_results}->{nocache})) {
+        $mem_used = $mem_sys;
+    } else {
+        $mem_used = $mem_sys + $mem_cache;
+    }
+    
+    my $prct_used = sprintf("%.2f", $mem_used * 100 / $mem_total);
+    my $exit = $self->{perfdata}->threshold_check(value => $prct_used, threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]);
+    my ($used_value, $used_unit) = $self->{perfdata}->change_bytes(value => $mem_used);
+    my ($total_value, $total_unit) = $self->{perfdata}->change_bytes(value => $mem_total);
+    
+    $self->{output}->output_add(severity => $exit,
+                                short_msg => sprintf("Memory used : %s - size : %s - percent : " . $prct_used . " %", 
+                                                     $used_value . " " . $used_unit, $total_value . " " . $total_unit));
+    
+    $self->{output}->perfdata_add(label => 'used',
+                                  value => sprintf("%.2f", $mem_used),
+                                  warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning', total => $mem_total),
+                                  critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical', total => $mem_total),
+                                  min => 0, max => $mem_total);
+    
+    $self->{output}->display();
+    $self->{output}->exit();
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+Check bluecoat memory.
+
+=over 8
+
+=item B<--warning>
+
+Threshold warning in percent.
+
+=item B<--critical>
+
+Threshold critical in percent.
+
+=item B<--nocache>
+
+Skip cache value.
+
+=back
+
+=cut

network/bluecoat/mode/serverconnections.pm

@@ -0,0 +1,123 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package network::bluecoat::mode::serverconnections;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                { 
+                                  "warning:s"      => { name => 'warning' },
+                                  "critical:s"     => { name => 'critical' },
+                                });
+                                
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+    
+    if (($self->{perfdata}->threshold_validate(label => 'warning', value => $self->{option_results}->{warning})) == 0) {
+        $self->{output}->add_option_msg(short_msg => "Wrong warning threshold '" . $self->{option_results}->{warning} . "'.");
+        $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'critical', value => $self->{option_results}->{critical})) == 0) {
+        $self->{output}->add_option_msg(short_msg => "Wrong critical threshold '" . $self->{option_results}->{critical} . "'.");
+        $self->{output}->option_exit();
+    }
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{snmp} = snmp object
+    $self->{snmp} = $options{snmp};
+    
+    my $result = $self->{snmp}->get_leef(oids => ['.1.3.6.1.4.1.3417.2.11.3.1.3.4.0', 
+                                                  '.1.3.6.1.4.1.3417.2.11.3.1.3.5.0',
+                                                  '.1.3.6.1.4.1.3417.2.11.3.1.3.6.0'], nothing_quit => 1);
+    my $server_connections = $result->{'.1.3.6.1.4.1.3417.2.11.3.1.3.4.0'};
+    my $server_connections_active = $result->{'.1.3.6.1.4.1.3417.2.11.3.1.3.5.0'};
+    my $server_connections_idle = $result->{'.1.3.6.1.4.1.3417.2.11.3.1.3.6.0'};
+    
+    my $exit = $self->{perfdata}->threshold_check(value => $server_connections_active, threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]);
+    $self->{output}->output_add(severity => $exit,
+                                short_msg => "Server connections: Active " . $server_connections_active . ", Idle " . $server_connections_idle);
+    $self->{output}->perfdata_add(label => 'con',
+                                  value => $server_connections,
+                                  min => 0);
+    $self->{output}->perfdata_add(label => 'con_active',
+                                  value => $server_connections_active,
+                                  warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning'),
+                                  critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical'),
+                                  min => 0);
+    $self->{output}->perfdata_add(label => 'con_idle',
+                                  value => $server_connections_idle,
+                                  min => 0);
+    
+    $self->{output}->display();
+    $self->{output}->exit();
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+Check current client connections.
+
+=over 8
+
+=item B<--warning>
+
+Threshold warning (on active connections).
+
+=item B<--critical>
+
+Threshold critical (on active connections.
+
+=back
+
+=cut

network/bluecoat/plugin.pm

@@ -0,0 +1,71 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package network::bluecoat::plugin;
+
+use strict;
+use warnings;
+use base qw(centreon::plugins::script_snmp);
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    # $options->{options} = options object
+
+    $self->{version} = '1.0';
+    %{$self->{modes}} = (
+                         'client-connections' => 'network::bluecoat::mode::clientconnections',
+                         'client-requests' => 'network::bluecoat::mode::clientrequests',
+                         'client-traffic' => 'network::bluecoat::mode::clienttraffic',
+                         'cpu' => 'network::bluecoat::mode::cpu',
+                         'disk' => 'network::bluecoat::mode::disk',
+                         'hardware' => 'network::bluecoat::mode::hardware',
+                         'memory' => 'network::bluecoat::mode::memory',
+                         'server-connections' => 'network::bluecoat::mode::serverconnections',
+                         );
+
+    return $self;
+}
+
+1;
+
+__END__
+
+=head1 PLUGIN DESCRIPTION
+
+Check Bluecoat hardware in SNMP.
+
+=cut

network/cisco/3750/plugin.pm

@@ -0,0 +1,71 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package network::cisco::3750::plugin;
+
+use strict;
+use warnings;
+use base qw(centreon::plugins::script_snmp);
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    # $options->{options} = options object
+
+    $self->{version} = '1.0';
+    %{$self->{modes}} = (
+                         'cpu' => 'network::cisco::common::mode::cpu',
+                         'environment' => 'network::cisco::common::mode::environment',
+                         'list-interfaces' => 'snmp_standard::mode::listinterfaces',
+                         'memory' => 'network::cisco::common::mode::memory',
+                         'packet-errors' => 'snmp_standard::mode::packeterrors',
+                         'spanning-tree' => 'snmp_standard::mode::spanningtree',
+                         'stack' => 'network::cisco::common::mode::stack',
+                         'traffic' => 'snmp_standard::mode::traffic',
+                         );
+
+    return $self;
+}
+
+1;
+
+__END__
+
+=head1 PLUGIN DESCRIPTION
+
+Check Cisco 3750 in SNMP.
+
+=cut

network/cisco/asa/mode/failover.pm

@@ -0,0 +1,133 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package network::cisco::asa::mode::failover;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+
+my %map_failover = (
+    1 => 'other',
+    2 => 'up', # for '.4' index
+    3 => 'down', # can be
+    4 => 'error', # maybe
+    5 => 'overTemp',
+    6 => 'busy',
+    7 => 'noMedia',
+    8 => 'backup',
+    9 => 'active', # can be
+    10 => 'standby' # can be
+);
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                {
+                                  "dont-warn-notstandby"       => { name => 'dont_warn_notstandby' },
+                                });
+
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{snmp} = snmp object
+    $self->{snmp} = $options{snmp};
+
+    my $active_units = 0;
+    my $exit = 'ok';
+    # primary is '.6' index and secondary is '.7' index (it's like that. '.4' is the global interface)
+    my $oid_cfwHardwareStatusValue_primary = '.1.3.6.1.4.1.9.9.147.1.2.1.1.1.3.6';
+    my $oid_cfwHardwareStatusValue_secondary = '.1.3.6.1.4.1.9.9.147.1.2.1.1.1.3.7';
+    my $oid_cfwHardwareStatusDetail_primary = '.1.3.6.1.4.1.9.9.147.1.2.1.1.1.4.6';
+    my $oid_cfwHardwareStatusDetail_secondary = '.1.3.6.1.4.1.9.9.147.1.2.1.1.1.4.7';
+    my $result = $self->{snmp}->get_leef(oids => [$oid_cfwHardwareStatusValue_primary, $oid_cfwHardwareStatusValue_secondary, 
+                                                  $oid_cfwHardwareStatusDetail_primary, $oid_cfwHardwareStatusDetail_secondary], nothing_quit => 1);
+    
+    if ($result->{$oid_cfwHardwareStatusValue_primary} == 9 || $result->{$oid_cfwHardwareStatusValue_primary} == 10 ) {
+        $active_units++;
+    }
+    if ($result->{$oid_cfwHardwareStatusValue_secondary} == 9 || $result->{$oid_cfwHardwareStatusValue_secondary} == 10 ) {
+        $active_units++;
+    }
+    if ($active_units == 0) {
+        $exit = 'critical';
+    } elsif ($active_units == 1 && !defined($self->{option_results}->{dont_warn_notstandby})) {
+        # No redundant interface
+        $exit = 'warning';
+    }
+    
+    $self->{output}->output_add(severity => $exit,
+                                short_msg => sprintf("Primary unit is '%s' [details: '%s'], Secondary unit is '%s' [details : '%s']",
+                                                     $map_failover{$result->{$oid_cfwHardwareStatusValue_primary}}, $result->{$oid_cfwHardwareStatusDetail_primary},
+                                                     $map_failover{$result->{$oid_cfwHardwareStatusValue_secondary}}, $result->{$oid_cfwHardwareStatusDetail_secondary}));                                 
+                                                     
+    $self->{output}->perfdata_add(label => "active_units",
+                                  value => $active_units,
+                                  min => 0, max => 2);
+    
+    $self->{output}->display();
+    $self->{output}->exit();
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+Check current/average connections on Cisco ASA (CISCO-UNIFIED-FIREWALL-MIB).
+
+=over 8
+
+=item B<--dont-warn-notstandby>
+
+Don't return warning if a unit is active and the other unit is not in standby status.
+
+=back
+
+=cut
+    

network/cisco/asa/mode/sessions.pm

@@ -0,0 +1,169 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package network::cisco::asa::mode::sessions;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                {
+                                  "warning-average:s"       => { name => 'warning_average', default => '' },
+                                  "critical-average:s"      => { name => 'critical_average', default => '' },
+                                  "warning-current:s"       => { name => 'warning_current' },
+                                  "critical-current:s"      => { name => 'critical_current' },
+                                });
+
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+    
+    ($self->{warn_avg1m}, $self->{warn_avg5m}) = split /,/, $self->{option_results}->{warning_average};
+    ($self->{crit_avg1m}, $self->{crit_avg5m}) = split /,/, $self->{option_results}->{critical_average};
+    
+    if (($self->{perfdata}->threshold_validate(label => 'warn_avg1m', value => $self->{warn_avg1m})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong warning average (1min) threshold '" . $self->{warn_avg1m} . "'.");
+       $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'warn_avg5m', value => $self->{warn_avg5m})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong warning average (5min) threshold '" . $self->{warn_avg5m} . "'.");
+       $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'crit_avg1m', value => $self->{crit_avg1m})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong critical average (1min) threshold '" . $self->{crit_avg1m} . "'.");
+       $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'crit_avg5m', value => $self->{crit_avg5m})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong critical average (5min) threshold '" . $self->{crit_avg5m} . "'.");
+       $self->{output}->option_exit();
+    }
+
+    if (($self->{perfdata}->threshold_validate(label => 'warning_current', value => $self->{option_results}->{warning_current})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong warning current threshold '" . $self->{option_results}->{warning_current} . "'.");
+       $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'critical_current', value => $self->{option_results}->{critical_current})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong critical current threshold '" . $self->{option_results}->{critical_current} . "'.");
+       $self->{output}->option_exit();
+    }
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{snmp} = snmp object
+    $self->{snmp} = $options{snmp};
+
+    my $oid_cufwConnGlobalNumActive = '.1.3.6.1.4.1.9.9.491.1.1.1.6.0';
+    my $oid_cufwConnGlobalConnSetupRate1 = '.1.3.6.1.4.1.9.9.491.1.1.1.10.0';
+    my $oid_cufwConnGlobalConnSetupRate5 = '.1.3.6.1.4.1.9.9.491.1.1.1.11.0';
+    my $result = $self->{snmp}->get_leef(oids => [$oid_cufwConnGlobalNumActive, $oid_cufwConnGlobalConnSetupRate1, 
+                                                  $oid_cufwConnGlobalConnSetupRate5], nothing_quit => 1);
+    
+    my $exit1 = $self->{perfdata}->threshold_check(value => $result->{$oid_cufwConnGlobalConnSetupRate1}, 
+                                        threshold => [ { label => 'crit_avg1m', 'exit_litteral' => 'critical' }, { label => 'warn_avg1m', exit_litteral => 'warning' } ]);
+    my $exit2 = $self->{perfdata}->threshold_check(value => $result->{$oid_cufwConnGlobalConnSetupRate5}, 
+                                        threshold => [ { label => 'crit_avg5m', 'exit_litteral' => 'critical' }, { label => 'warn_avg5m', exit_litteral => 'warning' } ]);
+    my $exit = $self->{output}->get_most_critical(status => [ $exit1, $exit2 ]);
+    $self->{output}->output_add(severity => $exit,
+                                short_msg => sprintf("Average Connections per seconds: %d (last 1min), %d (last 5min)",
+                                                     $result->{$oid_cufwConnGlobalConnSetupRate1}, $result->{$oid_cufwConnGlobalConnSetupRate5}));
+    
+    $exit = $self->{perfdata}->threshold_check(value => $result->{$oid_cufwConnGlobalNumActive}, 
+                                        threshold => [ { label => 'critical_current', 'exit_litteral' => 'critical' }, { label => 'warning_current', exit_litteral => 'warning' } ]);
+    $self->{output}->output_add(severity => $exit,
+                                short_msg => sprintf("Current active connections: %d",
+                                                     $result->{$oid_cufwConnGlobalNumActive}));                                              
+                                                     
+    $self->{output}->perfdata_add(label => "connections_1m", unit => 'con/s',
+                                  value => $result->{$oid_cufwConnGlobalConnSetupRate1},
+                                  warning => $self->{perfdata}->get_perfdata_for_output(label => 'warn_avg1m'),
+                                  critical => $self->{perfdata}->get_perfdata_for_output(label => 'crit_avg1m'),
+                                  min => 0);
+    $self->{output}->perfdata_add(label => "connections_5m", unit => 'con/s',
+                                  value => $result->{$oid_cufwConnGlobalConnSetupRate1},
+                                  warning => $self->{perfdata}->get_perfdata_for_output(label => 'warn_avg1m'),
+                                  critical => $self->{perfdata}->get_perfdata_for_output(label => 'crit_avg1m'),
+                                  min => 0);
+    $self->{output}->perfdata_add(label => "connections_current",
+                                  value => $result->{$oid_cufwConnGlobalNumActive},
+                                  warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning_current'),
+                                  critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical_current'),
+                                  min => 0);
+    
+    $self->{output}->display();
+    $self->{output}->exit();
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+Check current/average connections on Cisco ASA (CISCO-UNIFIED-FIREWALL-MIB).
+
+=over 8
+
+=item B<--warning-average>
+
+Threshold warning: averaged number of connections which the firewall establishing per second (1min,5min).
+
+=item B<--critical-average>
+
+Threshold critical: averaged number of connections which the firewall establishing per second (1min,5min).
+
+=item B<--warning-current>
+
+Threshold warning: number of connections which are currently active.
+
+=item B<--critical-current>
+
+Threshold critical: number of connections which are currently active.
+
+=back
+
+=cut
+    

network/cisco/asa/plugin.pm

@@ -0,0 +1,71 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package network::cisco::asa::plugin;
+
+use strict;
+use warnings;
+use base qw(centreon::plugins::script_snmp);
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    # $options->{options} = options object
+
+    $self->{version} = '1.0';
+    %{$self->{modes}} = (
+                         'cpu' => 'network::cisco::common::mode::cpu',
+                         'failover' => 'network::cisco::asa::mode::failover',
+                         'list-interfaces' => 'snmp_standard::mode::listinterfaces',
+                         'memory' => 'network::cisco::common::mode::memory',
+                         'packet-errors' => 'snmp_standard::mode::packeterrors',
+                         'sessions' => 'network::cisco::asa::mode::sessions',
+                         'traffic' => 'snmp_standard::mode::traffic',
+                         );
+
+    return $self;
+}
+
+1;
+
+__END__
+
+=head1 PLUGIN DESCRIPTION
+
+Check Cisco ASA in SNMP.
+!!! Be careful: Cisco ASA had an internal SNMP buffer of 512B. Use --subsetleef=20 (or lower) option !!!
+
+=cut

network/cisco/common/mode/cpu.pm

@@ -0,0 +1,171 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package network::cisco::common::mode::cpu;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                {
+                                  "warning:s"               => { name => 'warning', default => '' },
+                                  "critical:s"              => { name => 'critical', default => '' },
+                                });
+
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+    
+    ($self->{warn5s}, $self->{warn1m}, $self->{warn5m}) = split /,/, $self->{option_results}->{warning};
+    ($self->{crit5s}, $self->{crit1m}, $self->{crit5m}) = split /,/, $self->{option_results}->{critical};
+    
+    if (($self->{perfdata}->threshold_validate(label => 'warn5s', value => $self->{warn5s})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong warning (5sec) threshold '" . $self->{warn5s} . "'.");
+       $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'warn1m', value => $self->{warn1m})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong warning (1min) threshold '" . $self->{warn1m} . "'.");
+       $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'warn5m', value => $self->{warn5m})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong warning (5min) threshold '" . $self->{warn5m} . "'.");
+       $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'crit5s', value => $self->{crit5s})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong critical (5sec) threshold '" . $self->{crit5s} . "'.");
+       $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'crit1m', value => $self->{crit1m})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong critical (1min) threshold '" . $self->{crit1m} . "'.");
+       $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'crit5m', value => $self->{crit5})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong critical (5min) threshold '" . $self->{crit5m} . "'.");
+       $self->{output}->option_exit();
+    }
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{snmp} = snmp object
+    $self->{snmp} = $options{snmp};
+
+    my $oid_cpmCPUTotalEntry = '.1.3.6.1.4.1.9.9.109.1.1.1.1';
+    my $oid_cpmCPUTotal5sec = '.1.3.6.1.4.1.9.9.109.1.1.1.1.3';
+    my $oid_cpmCPUTotal1min = '.1.3.6.1.4.1.9.9.109.1.1.1.1.4';
+    my $oid_cpmCPUTotal5min = '.1.3.6.1.4.1.9.9.109.1.1.1.1.5';
+    my $result = $self->{snmp}->get_table(oid => $oid_cpmCPUTotalEntry, nothing_quit => 1);
+    
+    $self->{output}->output_add(severity => 'OK',
+                                short_msg => 'All CPUs are ok.');
+    
+    foreach my $oid (keys %$result) {
+        next if ($oid !~ /^$oid_cpmCPUTotal5sec/);
+        $oid =~ /\.([0-9]+)$/;
+        my $instance = $1;
+        my $cpu5sec = $result->{$oid};
+        my $cpu1min = $result->{$oid_cpmCPUTotal1min . '.' . $instance};
+        my $cpu5min =$result->{$oid_cpmCPUTotal5min . '.' . $instance};
+        
+        my $exit1 = $self->{perfdata}->threshold_check(value => $cpu5sec, 
+                               threshold => [ { label => 'crit5s', 'exit_litteral' => 'critical' }, { label => 'warn5s', exit_litteral => 'warning' } ]);
+        my $exit2 = $self->{perfdata}->threshold_check(value => $cpu1min, 
+                               threshold => [ { label => 'crit1m', 'exit_litteral' => 'critical' }, { label => 'warn1m', exit_litteral => 'warning' } ]);
+        my $exit3 = $self->{perfdata}->threshold_check(value => $cpu5min, 
+                               threshold => [ { label => 'crit5m', 'exit_litteral' => 'critical' }, { label => 'warn5m', exit_litteral => 'warning' } ]);
+        my $exit = $self->{output}->get_most_critical(status => [ $exit1, $exit2, $exit3 ]);
+        
+        $self->{output}->output_add(long_msg => sprintf("CPU '%s': %.2f%% (5sec), %.2f%% (1min), %.2f%% (5min)", $instance,
+                                            $cpu5sec, $cpu1min, $cpu5min));
+        if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) {
+             $self->{output}->output_add(severity => $exit,
+                                        short_msg => sprintf("CPU '%s': %.2f%% (5sec), %.2f%% (1min), %.2f%% (5min)", $instance,
+                                            $cpu5sec, $cpu1min, $cpu5min));
+        }
+        
+        $self->{output}->perfdata_add(label => "cpu_" . $instance . "_5s",
+                                      value => $cpu5sec,
+                                      warning => $self->{perfdata}->get_perfdata_for_output(label => 'warn5s'),
+                                      critical => $self->{perfdata}->get_perfdata_for_output(label => 'crit5s'),
+                                      min => 0, max => 100);
+        $self->{output}->perfdata_add(label => "cpu_" . $instance . "_1m",
+                                      value => $cpu1min,
+                                      warning => $self->{perfdata}->get_perfdata_for_output(label => 'warn1m'),
+                                      critical => $self->{perfdata}->get_perfdata_for_output(label => 'crit1m'),
+                                      min => 0, max => 100);
+        $self->{output}->perfdata_add(label => "cpu_" . $instance . "_5m",
+                                      value => $cpu5min,
+                                      warning => $self->{perfdata}->get_perfdata_for_output(label => 'warn5m'),
+                                      critical => $self->{perfdata}->get_perfdata_for_output(label => 'crit5m'),
+                                      min => 0, max => 100);
+    }
+    
+    $self->{output}->display();
+    $self->{output}->exit();
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+Check cpu usage (CISCO-PROCESS-MIB).
+
+=over 8
+
+=item B<--warning>
+
+Threshold warning in percent (5s,1min,5min).
+
+=item B<--critical>
+
+Threshold critical in percent (5s,1min,5min).
+
+=back
+
+=cut
+    

network/cisco/common/mode/environment.pm

@@ -0,0 +1,299 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package network::cisco::common::mode::environment;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+
+my %map_type_mon = (
+    1 => 'oldAgs',
+    2 => 'ags',
+    3 => 'c7000',
+    4 => 'ci',
+    6 => 'cAccessMon',
+    7 => 'cat6000',
+    8 => 'ubr7200',
+    9 => 'cat4000',
+    10 => 'c10000',
+    11 => 'osr7600',
+    12 => 'c7600',
+    13 => 'c37xx',
+    14 => 'other'
+);
+my %states = (
+    1 => ['normal', 'OK'], 
+    2 => ['warning', 'WARNING'], 
+    3 => ['critical', 'CRITICAL'], 
+    4 => ['shutdown', 'OK'],
+    5 => ['not present', 'OK'],
+    6 => ['not functioning', 'WARNING'],
+);
+my %map_psu_source = (
+    1 => 'unknown',
+    2 => 'ac',
+    3 => 'dc',
+    4 => 'externalPowerSupply',
+    5 => 'internalRedundant'
+);
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                { 
+                                  "exclude"        => { name => 'exclude' },
+                                });
+
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{snmp} = snmp object
+    $self->{snmp} = $options{snmp};
+
+    $self->{components_fans} = 0;
+    $self->{components_psus} = 0;
+    $self->{components_temperatures} = 0;
+    $self->{components_voltages} = 0;
+    
+    $self->get_type();
+    $self->check_fans();
+    $self->check_psus();
+    $self->check_temperatures();
+    $self->check_voltages();
+    
+    $self->{output}->output_add(severity => 'OK',
+                                short_msg => sprintf("All %d components [%d fans, %d power supplies, %d temperatures, %d voltages] are ok, Environment type: %s", 
+                                ($self->{components_fans} + $self->{components_psus} + $self->{components_temperatures} + $self->{components_voltages}), 
+                                $self->{components_fans}, $self->{components_psus}, $self->{components_temperatures}, $self->{components_voltages}, $self->{env_type}));
+    
+    $self->{output}->display();
+    $self->{output}->exit();
+}
+
+sub get_type {
+    my ($self) = @_;
+
+    my $oid_ciscoEnvMonPresent = ".1.3.6.1.4.1.9.9.13.1.1.0";
+    
+    my $result = $self->{snmp}->get_leef(oids => [$oid_ciscoEnvMonPresent]);
+    
+    $self->{env_type} = defined($result->{$oid_ciscoEnvMonPresent}) ? $map_type_mon{$result->{$oid_ciscoEnvMonPresent}} : 'unknown';
+}
+
+sub check_fans {
+    my ($self) = @_;
+
+    $self->{output}->output_add(long_msg => "Checking fans");
+    return if ($self->check_exclude('fans'));
+    
+    my $oid_ciscoEnvMonFanStatusEntry = '.1.3.6.1.4.1.9.9.13.1.4.1';
+    my $oid_ciscoEnvMonFanStatusDescr = '.1.3.6.1.4.1.9.9.13.1.4.1.2';
+    my $oid_ciscoEnvMonFanState = '.1.3.6.1.4.1.9.9.13.1.4.1.3';
+    
+    my $result = $self->{snmp}->get_table(oid => $oid_ciscoEnvMonFanStatusEntry);
+    return if (scalar(keys %$result) <= 0);
+
+    foreach my $oid (keys %$result) {
+        next if ($oid !~ /^$oid_ciscoEnvMonFanStatusDescr/);
+        $oid =~ /\.([0-9]+)$/;
+        my $instance = $1;
+    
+        my $fan_descr = $result->{$oid};
+        my $fan_state = $result->{$oid_ciscoEnvMonFanState . '.' . $instance};
+        
+        $self->{components_fans}++;
+        $self->{output}->output_add(long_msg => sprintf("Fan '%s' state is %s.", 
+                                    $fan_descr, ${$states{$fan_state}}[0]));
+        if (${$states{$fan_state}}[1] ne 'OK') {
+            $self->{output}->output_add(severity =>  ${$states{$fan_state}}[1],
+                                        short_msg => sprintf("Fan '%s' state is %s.", $fan_descr, ${$states{$fan_state}}[0]));
+        }
+    }
+}
+
+sub check_psus {
+    my ($self) = @_;
+
+    $self->{output}->output_add(long_msg => "Checking power supplies");
+    return if ($self->check_exclude('psu'));
+    
+    my $oid_ciscoEnvMonSupplyStatusEntry = '.1.3.6.1.4.1.9.9.13.1.5.1';
+    my $oid_ciscoEnvMonSupplyStatusDescr = '.1.3.6.1.4.1.9.9.13.1.5.1.2';
+    my $oid_ciscoEnvMonSupplyState = '.1.3.6.1.4.1.9.9.13.1.5.1.3';
+    my $oid_ciscoEnvMonSupplySource = '.1.3.6.1.4.1.9.9.13.1.5.1.4';
+    
+    my $result = $self->{snmp}->get_table(oid => $oid_ciscoEnvMonSupplyStatusEntry);
+    return if (scalar(keys %$result) <= 0);
+
+    foreach my $oid (keys %$result) {
+        next if ($oid !~ /^$oid_ciscoEnvMonSupplyStatusDescr/);
+        $oid =~ /\.([0-9]+)$/;
+        my $instance = $1;
+    
+        my $psu_descr = $result->{$oid};
+        my $psu_state = $result->{$oid_ciscoEnvMonSupplyState . '.' . $instance};
+        my $psu_source = $result->{$oid_ciscoEnvMonSupplySource . '.' . $instance};
+        
+        $self->{components_psus}++;
+        $self->{output}->output_add(long_msg => sprintf("Power Supply '%s' [type: %s] state is %s.", 
+                                    $psu_descr, $map_psu_source{$psu_source}, ${$states{$psu_state}}[0]));
+        if (${$states{$psu_state}}[1] ne 'OK') {
+            $self->{output}->output_add(severity =>  ${$states{$psu_state}}[1],
+                                        short_msg => sprintf("Power Supply '%s' state is %s.", $psu_descr, ${$states{$psu_state}}[0]));
+        }
+    }
+}
+
+sub check_voltages {
+    my ($self) = @_;
+
+    $self->{output}->output_add(long_msg => "Checking voltages");
+    return if ($self->check_exclude('voltages'));
+    
+    my $oid_ciscoEnvMonVoltageStatusEntry = '.1.3.6.1.4.1.9.9.13.1.2.1';
+    my $oid_ciscoEnvMonVoltageStatusDescr = '.1.3.6.1.4.1.9.9.13.1.2.1.2';
+    my $oid_ciscoEnvMonVoltageStatusValue = '.1.3.6.1.4.1.9.9.13.1.2.1.3';
+    my $oid_ciscoEnvMonVoltageThresholdLow = '.1.3.6.1.4.1.9.9.13.1.2.1.4';
+    my $oid_ciscoEnvMonVoltageThresholdHigh = '.1.3.6.1.4.1.9.9.13.1.2.1.5';
+    my $oid_ciscoEnvMonVoltageState = '.1.3.6.1.4.1.9.9.13.1.2.1.7';
+    
+    my $result = $self->{snmp}->get_table(oid => $oid_ciscoEnvMonVoltageStatusEntry);
+    return if (scalar(keys %$result) <= 0);
+
+    foreach my $oid (keys %$result) {
+        next if ($oid !~ /^$oid_ciscoEnvMonVoltageStatusDescr/);
+        $oid =~ /\.([0-9]+)$/;
+        my $instance = $1;
+    
+        my $voltage_descr = $result->{$oid};
+        my $voltage_state = $result->{$oid_ciscoEnvMonVoltageState . '.' . $instance};
+        my $voltage_value = $result->{$oid_ciscoEnvMonVoltageStatusValue . '.' . $instance};
+        my $voltage_low = $result->{$oid_ciscoEnvMonVoltageThresholdLow . '.' . $instance};
+        my $voltage_high = $result->{$oid_ciscoEnvMonVoltageThresholdHigh . '.' . $instance};
+        
+        $self->{components_voltages}++;
+        $self->{output}->output_add(long_msg => sprintf("Voltage '%s' state is %s.", 
+                                    $voltage_descr, ${$states{$voltage_state}}[0]));
+        if (${$states{$voltage_state}}[1] ne 'OK') {
+            $self->{output}->output_add(severity =>  ${$states{$voltage_state}}[1],
+                                        short_msg => sprintf("Power Supply '%s' state is %s.", $voltage_descr, ${$states{$voltage_state}}[0]));
+        }
+        
+        $self->{output}->perfdata_add(label => 'voltage_' . $voltage_descr, unit => 'V',
+                                      value => $voltage_value,
+                                      critical => $voltage_low . ":" . $voltage_high);
+    }
+}
+
+sub check_temperatures {
+    my ($self) = @_;
+
+    $self->{output}->output_add(long_msg => "Checking temperatures");
+    return if ($self->check_exclude('temperatures'));
+    
+    my $oid_ciscoEnvMonTemperatureStatusEntry = '.1.3.6.1.4.1.9.9.13.1.3.1';
+    my $oid_ciscoEnvMonTemperatureStatusDescr = '.1.3.6.1.4.1.9.9.13.1.3.1.2';
+    my $oid_ciscoEnvMonTemperatureStatusValue = '.1.3.6.1.4.1.9.9.13.1.3.1.3';
+    my $oid_ciscoEnvMonTemperatureThreshold = '.1.3.6.1.4.1.9.9.13.1.3.1.4';
+    my $oid_ciscoEnvMonTemperatureState = '.1.3.6.1.4.1.9.9.13.1.3.1.6';
+    
+    my $result = $self->{snmp}->get_table(oid => $oid_ciscoEnvMonTemperatureStatusEntry);
+    return if (scalar(keys %$result) <= 0);
+
+    foreach my $oid (keys %$result) {
+        next if ($oid !~ /^$oid_ciscoEnvMonTemperatureStatusDescr/);
+        $oid =~ /\.([0-9]+)$/;
+        my $instance = $1;
+    
+        my $temp_descr = $result->{$oid};
+        my $temp_state = $result->{$oid_ciscoEnvMonTemperatureState . '.' . $instance};
+        my $temp_value = $result->{$oid_ciscoEnvMonTemperatureStatusValue . '.' . $instance};
+        my $temp_threshold = $result->{$oid_ciscoEnvMonTemperatureThreshold . '.' . $instance};
+        
+        $self->{components_temperatures}++;
+        $self->{output}->output_add(long_msg => sprintf("Temperature '%s' state is %s.", 
+                                    $temp_descr, ${$states{$temp_state}}[0]));
+        if (${$states{$temp_state}}[1] ne 'OK') {
+            $self->{output}->output_add(severity =>  ${$states{$temp_state}}[1],
+                                        short_msg => sprintf("Temperature '%s' state is %s.", $temp_descr, ${$states{$temp_state}}[0]));
+        }
+        
+        $self->{output}->perfdata_add(label => 'temp_' . $temp_descr, unit => 'C',
+                                      value => $temp_value,
+                                      critical => "~:" . $temp_threshold);
+    }
+}
+
+sub check_exclude {
+    my ($self, $section) = @_;
+
+    if (defined($self->{option_results}->{exclude}) && $self->{option_results}->{exclude} =~ /(^|\s|,)$section(\s|,|$)/) {
+        $self->{output}->output_add(long_msg => sprintf("Skipping $section section."));
+        return 1;
+    }
+    return 0;
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+Check Environment monitor (CISCO-ENVMON-MIB) (Fans, Power Supplies, Temperatures, Voltages).
+
+=over 8
+
+=item B<--exclude>
+
+Exclude some parts (comma seperated list) (Example: --exclude=temperatures,psu).
+
+=back
+
+=cut
+    

network/cisco/common/mode/memory.pm

@@ -0,0 +1,147 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package network::cisco::common::mode::memory;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                {
+                                  "warning:s"               => { name => 'warning' },
+                                  "critical:s"              => { name => 'critical' },
+                                });
+
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+    
+    if (($self->{perfdata}->threshold_validate(label => 'warning', value => $self->{option_results}->{warning})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong warning threshold '" . $self->{option_results}->{warning} . "'.");
+       $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'critical', value => $self->{option_results}->{critical})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong critical threshold '" . $self->{option_results}->{critical} . "'.");
+       $self->{output}->option_exit();
+    }
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{snmp} = snmp object
+    $self->{snmp} = $options{snmp};
+
+    my $oid_ciscoMemoryPoolEntry = '.1.3.6.1.4.1.9.9.48.1.1.1';
+    my $oid_ciscoMemoryPoolName = '.1.3.6.1.4.1.9.9.48.1.1.1.2';
+    my $oid_ciscoMemoryPoolUsed = '.1.3.6.1.4.1.9.9.48.1.1.1.5'; # in B
+    my $oid_ciscoMemoryPoolFree = '.1.3.6.1.4.1.9.9.48.1.1.1.6'; # in B
+    my $result = $self->{snmp}->get_table(oid => $oid_ciscoMemoryPoolEntry, nothing_quit => 1);
+    
+    $self->{output}->output_add(severity => 'OK',
+                                short_msg => 'All pool memories are ok.');
+    
+    foreach my $oid (keys %$result) {
+        next if ($oid !~ /^$oid_ciscoMemoryPoolName/);
+        $oid =~ /\.([0-9]+)$/;
+        my $instance = $1;
+        my $memory_name = $result->{$oid};
+        my $memory_used = $result->{$oid_ciscoMemoryPoolUsed . '.' . $instance};
+        my $memory_free =$result->{$oid_ciscoMemoryPoolFree . '.' . $instance};
+        
+        my $total_size = $memory_used + $memory_free;
+        my $prct_used = $memory_used * 100 / $total_size;
+        my $prct_free = 100 - $prct_used;
+        
+        my $exit = $self->{perfdata}->threshold_check(value => $prct_used, threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]);
+        my ($total_value, $total_unit) = $self->{perfdata}->change_bytes(value => $total_size);
+        my ($used_value, $used_unit) = $self->{perfdata}->change_bytes(value => $memory_used);
+        my ($free_value, $free_unit) = $self->{perfdata}->change_bytes(value => $memory_free);
+        
+        $self->{output}->output_add(long_msg => sprintf("Memory '%s' Total: %s Used: %s (%.2f%%) Free: %s (%.2f%%)", $memory_name,
+                                            $total_value . " " . $total_unit,
+                                            $used_value . " " . $used_unit, $prct_used,
+                                            $free_value . " " . $free_unit, $prct_free));
+        if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) {
+             $self->{output}->output_add(severity => $exit,
+                                        short_msg => sprintf("Memory '%s' Total: %s Used: %s (%.2f%%) Free: %s (%.2f%%)", $memory_name,
+                                            $total_value . " " . $total_unit,
+                                            $used_value . " " . $used_unit, $prct_used,
+                                            $free_value . " " . $free_unit, $prct_free));
+        }
+        
+        $self->{output}->perfdata_add(label => "used_" . $memory_name,
+                                      value => $memory_used,
+                                      warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning', total => $total_size),
+                                      critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical', total => $total_size),
+                                      min => 0, max => $total_size);
+    }
+    
+    $self->{output}->display();
+    $self->{output}->exit();
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+Check memory usage (CISCO-MEMORY-POOL-MIB).
+
+=over 8
+
+=item B<--warning>
+
+Threshold warning in percent.
+
+=item B<--critical>
+
+Threshold critical in percent.
+
+=back
+
+=cut
+    

network/cisco/common/mode/stack.pm

@@ -0,0 +1,135 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package network::cisco::common::mode::stack;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+
+my %map_role = (
+    1 => 'master',
+    2 => 'member',
+    3 => 'notMember',
+    4 => 'standby'
+);
+my %states = (
+    1 => ['waiting', 'WARNING'], 
+    2 => ['progressing', 'WARNING'], 
+    3 => ['added', 'WARNING'], 
+    4 => ['ready', 'OK'],
+    5 => ['sdmMismatch', 'CRITICAL'],
+    6 => ['verMismatch', 'CRITICAL'],
+    7 => ['featureMismatch', 'CRITICAL'],
+    8 => ['newMasterInit', 'WARNING'],
+    9 => ['provisioned', 'OK'],
+    10 => ['invalid', 'WARNING'],
+    11 => ['removed', 'WARNING'],
+);
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                {
+                                });
+
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{snmp} = snmp object
+    $self->{snmp} = $options{snmp};
+
+    my $oid_cswRingRedundant = '.1.3.6.1.4.1.9.9.500.1.1.3.0';
+    my $oid_cswSwitchRole = '.1.3.6.1.4.1.9.9.500.1.2.1.1.3';
+    my $oid_cswSwitchState = '.1.3.6.1.4.1.9.9.500.1.2.1.1.6';
+    my $result = $self->{snmp}->get_leef(oids => [$oid_cswRingRedundant], nothing_quit => 1);
+    my $result_state = $self->{snmp}->get_table(oid => $oid_cswSwitchState, nothing_quit => 1);
+    my $result_role = $self->{snmp}->get_table(oid => $oid_cswSwitchRole);
+    
+    $self->{output}->output_add(severity => 'OK',
+                                short_msg => 'Stack ring is redundant');
+    if ($result->{$oid_cswRingRedundant} != 1) {
+        $self->{output}->output_add(severity => 'WARNING',
+                                    short_msg => 'Stack ring is not redundant');
+    }
+    
+    foreach my $oid (keys %$result_state) {
+        $oid =~ /\.([0-9]+)$/;
+        my $instance = $1;
+
+        my $state = $result_state->{$oid};
+        my $role = defined($result_role->{$oid_cswSwitchRole . '.' . $instance}) ? $result_role->{$oid_cswSwitchRole . '.' . $instance} : 'unknown';
+        # .1001, .2001 the instance.
+        my $number = int(($instance - 1) / 1000);
+        
+        $self->{output}->output_add(long_msg => sprintf("Member '%s' state is %s [Role is '%s']", $number,
+                                            ${$states{$state}}[0], $map_role{$role}));
+        if (${$states{$state}}[1] ne 'OK') {
+             $self->{output}->output_add(severity => ${$states{$state}}[1],
+                                        short_msg => sprintf("Member '%s' state is %s", $number,
+                                                             ${$states{$state}}[0]));
+        }
+    }
+    
+    $self->{output}->display();
+    $self->{output}->exit();
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+Check Cisco Stack (CISCO-STACKWISE-MIB).
+
+=over 8
+
+=back
+
+=cut
+    

network/juniper/common/mode/cpsessions.pm

@@ -0,0 +1,139 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package network::juniper::common::mode::cpsessions;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                { 
+                                  "warning:s"               => { name => 'warning', },
+                                  "critical:s"              => { name => 'critical', },
+                                });
+
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+
+    if (($self->{perfdata}->threshold_validate(label => 'warning', value => $self->{option_results}->{warning})) == 0) {
+        $self->{output}->add_option_msg(short_msg => "Wrong warning threshold '" . $self->{option_results}->{warning} . "'.");
+        $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'critical', value => $self->{option_results}->{critical})) == 0) {
+        $self->{output}->add_option_msg(short_msg => "Wrong critical threshold '" . $self->{option_results}->{critical} . "'.");
+        $self->{output}->option_exit();
+    }
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{snmp} = snmp object
+    $self->{snmp} = $options{snmp};
+    
+    my $oid_jnxJsSPUMonitoringSPUIndex = '.1.3.6.1.4.1.2636.3.39.1.12.1.1.1.3';
+    my $oid_jnxJsSPUMonitoringCurrentCPSession = '.1.3.6.1.4.1.2636.3.39.1.12.1.1.1.8';
+    my $oid_jnxJsSPUMonitoringMaxCPSession = '.1.3.6.1.4.1.2636.3.39.1.12.1.1.1.9';
+    
+    my $result = $self->{snmp}->get_table(oid => $oid_jnxJsSPUMonitoringSPUIndex, nothing_quit => 1);
+    $self->{snmp}->load(oids => [$oid_jnxJsSPUMonitoringCurrentCPSession, $oid_jnxJsSPUMonitoringMaxCPSession],
+                        instances => [keys %$result],
+                        instance_regexp => '\.(\d+)$');
+    my $result2 = $self->{snmp}->get_leef(nothing_quit => 1);
+    
+    my $spu_done = 0;
+    foreach my $oid (keys %$result) {        
+        $oid =~ /\.(\d+)$/;
+        my $instance = $1;
+        my $cp_total = $result2->{$oid_jnxJsSPUMonitoringMaxCPSession . '.' . $instance};
+        my $cp_used = $result2->{$oid_jnxJsSPUMonitoringCurrentCPSession . '.' . $instance};
+        
+        next if ($cp_total == 0);
+        my $prct_used = $cp_used * 100 / $cp_total;
+    
+        $spu_done = 1;
+        my $exit_code = $self->{perfdata}->threshold_check(value => $prct_used, 
+                                threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]);
+        $self->{output}->output_add(severity => $exit_code,
+                                    short_msg => sprintf("SPU '%d': %.2f%% of the cp sessions limit reached (%d of max. %d)", 
+                                        $instance, $prct_used, $cp_used, $cp_total));
+        $self->{output}->perfdata_add(label => 'sessions_' . $instance,
+                                      value => $cp_used,
+                                      warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning', total => $cp_total),
+                                      critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical', total => $cp_total),
+                                      min => 0, max => $cp_total);
+    }
+
+    if ($spu_done == 0) {
+        $self->{output}->add_option_msg(short_msg => "Cannot check cp sessions usage (no total values).");
+        $self->{output}->option_exit();
+    }
+    
+    $self->{output}->display();
+    $self->{output}->exit();
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+Check CP ('central point') sessions usage.
+
+=over 8
+
+=item B<--warning>
+
+Threshold warning in percent.
+
+=item B<--critical>
+
+Threshold critical in percent.
+
+=back
+
+=cut

network/juniper/common/mode/cpuforwarding.pm

@@ -0,0 +1,126 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package network::juniper::common::mode::cpuforwarding;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                { 
+                                  "warning:s"               => { name => 'warning', },
+                                  "critical:s"              => { name => 'critical', },
+                                });
+
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+
+    if (($self->{perfdata}->threshold_validate(label => 'warning', value => $self->{option_results}->{warning})) == 0) {
+        $self->{output}->add_option_msg(short_msg => "Wrong warning threshold '" . $self->{option_results}->{warning} . "'.");
+        $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'critical', value => $self->{option_results}->{critical})) == 0) {
+        $self->{output}->add_option_msg(short_msg => "Wrong critical threshold '" . $self->{option_results}->{critical} . "'.");
+        $self->{output}->option_exit();
+    }
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{snmp} = snmp object
+    $self->{snmp} = $options{snmp};
+    
+    my $oid_jnxJsSPUMonitoringSPUIndex = '.1.3.6.1.4.1.2636.3.39.1.12.1.1.1.3';
+    my $oid_jnxJsSPUMonitoringCPUUsage = '.1.3.6.1.4.1.2636.3.39.1.12.1.1.1.4';
+    
+    my $result = $self->{snmp}->get_table(oid => $oid_jnxJsSPUMonitoringSPUIndex, nothing_quit => 1);
+    $self->{snmp}->load(oids => [$oid_jnxJsSPUMonitoringCPUUsage],
+                        instances => [keys %$result],
+                        instance_regexp => '\.(\d+)$');
+    my $result2 = $self->{snmp}->get_leef(nothing_quit => 1);
+    
+    foreach my $oid (keys %$result) {        
+        $oid =~ /\.(\d+)$/;
+        my $instance = $1;
+        my $cpu_usage = $result2->{$oid_jnxJsSPUMonitoringCPUUsage . '.' . $instance};
+    
+        my $exit_code = $self->{perfdata}->threshold_check(value => $cpu_usage, 
+                                threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]);
+        $self->{output}->output_add(severity => $exit_code,
+                                    short_msg => sprintf("CPU '%d' average usage is: %s%%", $instance, $cpu_usage));
+        $self->{output}->perfdata_add(label => 'cpu_' . $instance, unit => '%',
+                                      value => $cpu_usage,
+                                      warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning'),
+                                      critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical'),
+                                      min => 0, max => 100);
+    }
+
+    $self->{output}->display();
+    $self->{output}->exit();
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+Check CPU Usage of packet forwarding engine.
+
+=over 8
+
+=item B<--warning>
+
+Threshold warning in percent.
+
+=item B<--critical>
+
+Threshold critical in percent.
+
+=back
+
+=cut

network/juniper/common/mode/cpurouting.pm

@@ -0,0 +1,154 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package network::juniper::common::mode::cpurouting;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                { 
+                                  "warning:s"               => { name => 'warning', },
+                                  "critical:s"              => { name => 'critical', },
+                                });
+
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+
+    if (($self->{perfdata}->threshold_validate(label => 'warning', value => $self->{option_results}->{warning})) == 0) {
+        $self->{output}->add_option_msg(short_msg => "Wrong warning threshold '" . $self->{option_results}->{warning} . "'.");
+        $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'critical', value => $self->{option_results}->{critical})) == 0) {
+        $self->{output}->add_option_msg(short_msg => "Wrong critical threshold '" . $self->{option_results}->{critical} . "'.");
+        $self->{output}->option_exit();
+    }
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{snmp} = snmp object
+    $self->{snmp} = $options{snmp};
+    
+    my $oid_jnxOperatingDescr = '.1.3.6.1.4.1.2636.3.1.13.1.5';
+    my $oid_jnxOperatingCPU = '.1.3.6.1.4.1.2636.3.1.13.1.8';
+    my $oid_jnxOperating1MinLoadAvg = '.1.3.6.1.4.1.2636.3.1.13.1.20';
+    my $oid_jnxOperating5MinLoadAvg = '.1.3.6.1.4.1.2636.3.1.13.1.21';
+    my $oid_jnxOperating15MinLoadAvg = '.1.3.6.1.4.1.2636.3.1.13.1.22';
+    
+    my $result = $self->{snmp}->get_table(oid => $oid_jnxOperatingDescr, nothing_quit => 1);
+    my $routing_engine_find = 0;
+    my $oid_routing_engine;
+    foreach my $oid (keys %$result) {        
+        if ($result->{$oid} =~ /routing/i) {
+            $routing_engine_find = 1;
+            $oid_routing_engine = $oid;
+            last;
+        }
+    }
+    
+    if ($routing_engine_find == 0) {
+        $self->{output}->add_option_msg(short_msg => "Cannot find operating with 'routing' in description.");
+        $self->{output}->option_exit();
+    }
+    
+    $self->{snmp}->load(oids => [$oid_jnxOperatingCPU, $oid_jnxOperating1MinLoadAvg, $oid_jnxOperating5MinLoadAvg, $oid_jnxOperating15MinLoadAvg],
+                        instances => [$oid_routing_engine],
+                        instance_regexp => "^" . $oid_jnxOperatingDescr . '\.(.+)');
+    my $result2 = $self->{snmp}->get_leef();
+    
+    $oid_routing_engine =~ /^$oid_jnxOperatingDescr\.(.+)/;
+    my $instance = $1;
+    my $cpu_usage = $result2->{$oid_jnxOperatingCPU . '.' . $instance};
+    my $cpu_load1 = $result2->{$oid_jnxOperating1MinLoadAvg . '.' . $instance};
+    my $cpu_load5 = $result2->{$oid_jnxOperating5MinLoadAvg . '.' . $instance};
+    my $cpu_load15 = $result2->{$oid_jnxOperating15MinLoadAvg . '.' . $instance};
+    
+    my $exit_code = $self->{perfdata}->threshold_check(value => $cpu_usage, 
+                               threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]);
+    $self->{output}->output_add(severity => $exit_code,
+                                short_msg => sprintf("CPU(s) average usage is: %s%%", $cpu_usage));
+    $self->{output}->perfdata_add(label => 'cpu', unit => '%',
+                                  value => $cpu_usage,
+                                  warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning'),
+                                  critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical'),
+                                  min => 0, max => 100);
+    $self->{output}->perfdata_add(label => 'load1',
+                                  value => $cpu_load1,
+                                  min => 0);
+    $self->{output}->perfdata_add(label => 'load5',
+                                  value => $cpu_load5,
+                                  min => 0);
+    $self->{output}->perfdata_add(label => 'load15',
+                                  value => $cpu_load15,
+                                  min => 0);
+
+    $self->{output}->display();
+    $self->{output}->exit();
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+Check CPU Usage of routing engine.
+
+=over 8
+
+=item B<--warning>
+
+Threshold warning in percent.
+
+=item B<--critical>
+
+Threshold critical in percent.
+
+=back
+
+=cut

network/juniper/common/mode/flowsessions.pm

@@ -0,0 +1,139 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package network::juniper::common::mode::flowsessions;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                { 
+                                  "warning:s"               => { name => 'warning', },
+                                  "critical:s"              => { name => 'critical', },
+                                });
+
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+
+    if (($self->{perfdata}->threshold_validate(label => 'warning', value => $self->{option_results}->{warning})) == 0) {
+        $self->{output}->add_option_msg(short_msg => "Wrong warning threshold '" . $self->{option_results}->{warning} . "'.");
+        $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'critical', value => $self->{option_results}->{critical})) == 0) {
+        $self->{output}->add_option_msg(short_msg => "Wrong critical threshold '" . $self->{option_results}->{critical} . "'.");
+        $self->{output}->option_exit();
+    }
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{snmp} = snmp object
+    $self->{snmp} = $options{snmp};
+    
+    my $oid_jnxJsSPUMonitoringSPUIndex = '.1.3.6.1.4.1.2636.3.39.1.12.1.1.1.3';
+    my $oid_jnxJsSPUMonitoringCurrentFlowSession = '.1.3.6.1.4.1.2636.3.39.1.12.1.1.1.6';
+    my $oid_jnxJsSPUMonitoringMaxFlowSession = '.1.3.6.1.4.1.2636.3.39.1.12.1.1.1.7';
+    
+    my $result = $self->{snmp}->get_table(oid => $oid_jnxJsSPUMonitoringSPUIndex, nothing_quit => 1);
+    $self->{snmp}->load(oids => [$oid_jnxJsSPUMonitoringCurrentFlowSession, $oid_jnxJsSPUMonitoringMaxFlowSession],
+                        instances => [keys %$result],
+                        instance_regexp => '\.(\d+)$');
+    my $result2 = $self->{snmp}->get_leef(nothing_quit => 1);
+    
+    my $spu_done = 0;
+    foreach my $oid (keys %$result) {        
+        $oid =~ /\.(\d+)$/;
+        my $instance = $1;
+        my $flow_total = $result2->{$oid_jnxJsSPUMonitoringMaxFlowSession . '.' . $instance};
+        my $flow_used = $result2->{$oid_jnxJsSPUMonitoringCurrentFlowSession . '.' . $instance};
+        
+        next if ($flow_total == 0);
+        my $prct_used = $flow_used * 100 / $flow_total;
+    
+        $spu_done = 1;
+        my $exit_code = $self->{perfdata}->threshold_check(value => $prct_used, 
+                                threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]);
+        $self->{output}->output_add(severity => $exit_code,
+                                    short_msg => sprintf("SPU '%d': %.2f%% of the flow sessions limit reached (%d of max. %d)", 
+                                        $instance, $prct_used, $flow_used, $flow_total));
+        $self->{output}->perfdata_add(label => 'sessions_' . $instance,
+                                      value => $flow_used,
+                                      warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning', total => $flow_total),
+                                      critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical', total => $flow_total),
+                                      min => 0, max => $flow_total);
+    }
+
+    if ($spu_done == 0) {
+        $self->{output}->add_option_msg(short_msg => "Cannot check flow sessions usage (no total values).");
+        $self->{output}->option_exit();
+    }
+    
+    $self->{output}->display();
+    $self->{output}->exit();
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+Check Packet Forwarding Engine sessions usage.
+
+=over 8
+
+=item B<--warning>
+
+Threshold warning in percent.
+
+=item B<--critical>
+
+Threshold critical in percent.
+
+=back
+
+=cut

network/juniper/common/mode/hardware.pm

@@ -0,0 +1,242 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package network::juniper::common::mode::hardware;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+
+my %map_fru_offline = (
+    1 => 'unknown', 2 => 'none', 3 => 'error', 4 => 'noPower', 5 => 'configPowerOff', 6 => 'configHoldInReset', 
+    7 => 'cliCommand', 8 => 'buttonPress', 9 => 'cliRestart', 10 => 'overtempShutdown', 11 => 'masterClockDown', 
+    12 => 'singleSfmModeChange', 13 => 'packetSchedulingModeChange', 14 => 'physicalRemoval', 15 => 'unresponsiveRestart', 
+    16 => 'sonetClockAbsent', 17 => 'rddPowerOff', 18 => 'majorErrors', 19 => 'minorErrors', 20 => 'lccHardRestart', 
+    21 => 'lccVersionMismatch', 22 => 'powerCycle', 23 => 'reconnect', 24 => 'overvoltage', 25 => 'pfeVersionMismatch', 
+    26 => 'febRddCfgChange', 27 => 'fpcMisconfig', 28 => 'fruReconnectFail', 29 => 'fruFwddReset', 30 => 'fruFebSwitch', 
+    31 => 'fruFebOffline', 32 => 'fruInServSoftUpgradeError', 33 => 'fruChasdPowerRatingExceed', 34 => 'fruConfigOffline', 
+    35 => 'fruServiceRestartRequest', 36 => 'spuResetRequest', 37 => 'spuFlowdDown', 38 => 'spuSpi4Down', 39 => 'spuWatchdogTimeout', 
+    40 => 'spuCoreDump', 41 => 'fpgaSpi4LinkDown', 42 => 'i3Spi4LinkDown', 43 => 'cppDisconnect', 44 => 'cpuNotBoot', 
+    45 => 'spuCoreDumpComplete', 46 => 'rstOnSpcSpuFailure', 47 => 'softRstOnSpcSpuFailure', 48 => 'hwAuthenticationFailure', 
+    49 => 'reconnectFpcFail', 50 => 'fpcAppFailed', 51 => 'fpcKernelCrash', 52 => 'spuFlowdDownNoCore', 53 => 'spuFlowdCoreDumpIncomplete',
+    54 => 'spuFlowdCoreDumpComplete', 55 => 'spuIdpdDownNoCore', 56 => 'spuIdpdCoreDumpIncomplete', 57 => 'spuIdpdCoreDumpComplete', 
+    58 => 'spuCoreDumpIncomplete', 59 => 'spuIdpdDown', 60 => 'fruPfeReset', 61 => 'fruReconnectNotReady', 62 => 'fruSfLinkDown', 
+    63 => 'fruFabricDown', 64 => 'fruAntiCounterfeitRetry', 65 => 'fruFPCChassisClusterDisable', 66 => 'spuFipsError', 
+    67 => 'fruFPCFabricDownOffline', 68 => 'febCfgChange', 69 => 'routeLocalizationRoleChange', 70 => 'fruFpcUnsupported', 
+    71 => 'psdVersionMismatch', 72 => 'fruResetThresholdExceeded', 73 => 'picBounce', 74 => 'badVoltage', 75 => 'fruFPCReducedFabricBW', 
+    76 => 'fruAutoheal', 77 => 'builtinPicBounce', 78 => 'fruFabricDegraded', 79 => 'fruFPCFabricDegradedOffline', 80 => 'fruUnsupportedSlot', 
+    81 => 'fruRouteLocalizationMisCfg', 82 => 'fruTypeConfigMismatch', 83 => 'lccModeChanged', 84 => 'hwFault', 85 => 'fruPICOfflineOnEccErrors',
+    86 => 'fruFpcIncompatible', 87 => 'fruFpcFanTrayPEMIncompatible', 88 => 'fruUnsupportedFirmware', 
+    89 => 'openflowConfigChange', 90 => 'fruFpcScbIncompatible', 91 => 'fruReUnresponsive' 
+);
+my %map_fru_type = (
+    1 => 'other', 2 => 'clockGenerator', 3 => 'flexiblePicConcentrator', 4 => 'switchingAndForwardingModule', 5 => 'controlBoard', 
+    6 => 'routingEngine', 7 => 'powerEntryModule', 8 => 'frontPanelModule', 9 => 'switchInterfaceBoard', 10 => 'processorMezzanineBoardForSIB', 
+    11 => 'portInterfaceCard', 12 => 'craftInterfacePanel', 13 => 'fan', 14 => 'lineCardChassis', 15 => 'forwardingEngineBoard', 
+    16 => 'protectedSystemDomain', 17 => 'powerDistributionUnit', 18 => 'powerSupplyModule', 19 => 'switchFabricBoard', 20 => 'adapterCard' 
+);
+my %fru_states = (
+    1 => ['unknown', 'UNKNOWN'], 
+    2 => ['empty', 'OK'], 
+    3 => ['present', 'OK'], 
+    4 => ['ready', 'OK'],
+    5 => ['announce online', 'OK'],
+    6 => ['online', 'OK'],
+    7 => ['announce offline', 'WARNING'],
+    8 => ['offline', 'CRITICAL'],
+    9 => ['diagnostic', 'WARNING'],
+    10 => ['standby', 'WARNING'],
+);
+my %operating_states = (
+    1 => ['unknown', 'UNKNOWN'], 
+    2 => ['running', 'OK'], 
+    3 => ['ready', 'OK'], 
+    4 => ['reset', 'WARNING'],
+    5 => ['runningAtFullSpeed', 'WARNING'],
+    6 => ['down', 'CRITICAL'],
+    7 => ['standby', 'OK'],
+);
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                { 
+                                });
+
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{snmp} = snmp object
+    $self->{snmp} = $options{snmp};
+
+    $self->{components_frus} = 0;
+    $self->{components_operating} = 0;
+    
+    $self->get_type();
+    $self->check_frus();
+    $self->check_operating();
+    
+    $self->{output}->output_add(severity => 'OK',
+                                short_msg => sprintf("All %d components [%d frus, %d operating] are ok, Environment type: %s", 
+                                ($self->{components_frus} + $self->{components_operating}), 
+                                $self->{components_frus}, $self->{components_operating}, $self->{env_type}));
+    
+    $self->{output}->display();
+    $self->{output}->exit();
+}
+
+sub get_type {
+    my ($self) = @_;
+
+    my $oid_jnxBoxDescr = ".1.3.6.1.4.1.2636.3.1.2.0";
+    
+    my $result = $self->{snmp}->get_leef(oids => [$oid_jnxBoxDescr]);
+    
+    $self->{env_type} = defined($result->{$oid_jnxBoxDescr}) ? $result->{$oid_jnxBoxDescr} : 'unknown';
+}
+
+sub check_frus {
+    my ($self) = @_;
+
+    $self->{output}->output_add(long_msg => "Checking frus");
+    
+    my $oid_jnxFruName = '.1.3.6.1.4.1.2636.3.1.15.1.5';
+    my $oid_jnxFruType = '.1.3.6.1.4.1.2636.3.1.15.1.6';
+    my $oid_jnxFruState = '.1.3.6.1.4.1.2636.3.1.15.1.8';
+    my $oid_jnxFruTemp = '.1.3.6.1.4.1.2636.3.1.15.1.9';
+    my $oid_jnxFruOfflineReason = '.1.3.6.1.4.1.2636.3.1.15.1.10';
+    
+    my $result = $self->{snmp}->get_table(oid => $oid_jnxFruName);
+    return if (scalar(keys %$result) <= 0);
+
+    $self->{snmp}->load(oids => [$oid_jnxFruType, $oid_jnxFruState, $oid_jnxFruTemp, $oid_jnxFruOfflineReason],
+                        instances => [keys %$result],
+                        instance_regexp => "^" . $oid_jnxFruName . '\.(.+)');
+    my $result2 = $self->{snmp}->get_leef();
+    
+    foreach my $oid (keys %$result) {        
+        $oid =~ /^$oid_jnxFruName\.(.+)/;
+        my $instance = $1;
+        
+        my $fru_name = $result->{$oid};
+        my $fru_type = $result2->{$oid_jnxFruType . "." . $instance};
+        my $fru_state = $result2->{$oid_jnxFruState . "." . $instance};
+        my $fru_temp = $result2->{$oid_jnxFruTemp . "." . $instance};
+        my $fru_offlinereason = $result2->{$oid_jnxFruOfflineReason . "." . $instance};
+        
+        # Empty. Skip
+        if ($fru_state == 2) {
+            $self->{output}->output_add(long_msg => sprintf("Skipping fru '%s' [type: %s]: empty.", 
+                                           $fru_name, $map_fru_type{$fru_type}));
+            next;
+        }
+        
+        $self->{components_frus}++;
+        $self->{output}->output_add(long_msg => sprintf("Fru '%s' state is %s [type: %s, offline reason: %s]", 
+                                    $fru_name, ${$fru_states{$fru_state}}[0], 
+                                    $map_fru_type{$fru_type}, $map_fru_offline{$fru_offlinereason}));
+        if (${$fru_states{$fru_state}}[1] ne 'OK') {
+            $self->{output}->output_add(severity =>  ${$fru_states{$fru_state}}[1],
+                                        short_msg => sprintf("Fru '%s' state is %s [offline reason: %s]", $fru_name, ${$fru_states{$fru_state}}[0],
+                                        $map_fru_offline{$fru_offlinereason}));
+        }
+        
+        if ($fru_temp != 0) {
+            $self->{output}->perfdata_add(label => 'temp_' . $fru_name, unit => 'C',
+                                          value => $fru_temp);
+        }
+    }
+}
+
+sub check_operating {
+    my ($self) = @_;
+
+    $self->{output}->output_add(long_msg => "Checking operating");
+    
+    my $oid_jnxOperatingDescr = '.1.3.6.1.4.1.2636.3.1.13.1.5';
+    my $oid_jnxOperatingState = '.1.3.6.1.4.1.2636.3.1.13.1.6';
+    
+    my $result = $self->{snmp}->get_table(oid => $oid_jnxOperatingDescr);
+    return if (scalar(keys %$result) <= 0);
+
+    $self->{snmp}->load(oids => [$oid_jnxOperatingState],
+                        instances => [keys %$result],
+                        instance_regexp => "^" . $oid_jnxOperatingDescr . '\.(.+)');
+    my $result2 = $self->{snmp}->get_leef();
+    
+    foreach my $oid (keys %$result) {        
+        $oid =~ /^$oid_jnxOperatingDescr\.(.+)/;
+        my $instance = $1;
+        
+        my $operating_descr = $result->{$oid};
+        my $operating_state = $result2->{$oid_jnxOperatingState . "." . $instance};
+        
+        $self->{components_operating}++;
+        $self->{output}->output_add(long_msg => sprintf("Operating '%s' state is %s", 
+                                    $operating_descr, ${$operating_states{$operating_state}}[0]));
+        if (${$operating_states{$operating_state}}[1] ne 'OK') {
+            $self->{output}->output_add(severity => ${$operating_states{$operating_state}}[1],
+                                        short_msg => sprintf("Operating '%s' state is %s", 
+                                    $operating_descr, ${$operating_states{$operating_state}}[0]));
+        }
+    }
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+Check Hardware (mib-jnx-chassis) (frus, operating).
+
+=over 8
+
+=back
+
+=cut
+    

network/juniper/common/mode/memoryforwarding.pm

@@ -0,0 +1,126 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package network::juniper::common::mode::memoryforwarding;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                { 
+                                  "warning:s"               => { name => 'warning', },
+                                  "critical:s"              => { name => 'critical', },
+                                });
+
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+
+    if (($self->{perfdata}->threshold_validate(label => 'warning', value => $self->{option_results}->{warning})) == 0) {
+        $self->{output}->add_option_msg(short_msg => "Wrong warning threshold '" . $self->{option_results}->{warning} . "'.");
+        $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'critical', value => $self->{option_results}->{critical})) == 0) {
+        $self->{output}->add_option_msg(short_msg => "Wrong critical threshold '" . $self->{option_results}->{critical} . "'.");
+        $self->{output}->option_exit();
+    }
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{snmp} = snmp object
+    $self->{snmp} = $options{snmp};
+    
+    my $oid_jnxJsSPUMonitoringSPUIndex = '.1.3.6.1.4.1.2636.3.39.1.12.1.1.1.3';
+    my $oid_jnxJsSPUMonitoringMemoryUsage = '.1.3.6.1.4.1.2636.3.39.1.12.1.1.1.5';
+    
+    my $result = $self->{snmp}->get_table(oid => $oid_jnxJsSPUMonitoringSPUIndex, nothing_quit => 1);
+    $self->{snmp}->load(oids => [$oid_jnxJsSPUMonitoringMemoryUsage],
+                        instances => [keys %$result],
+                        instance_regexp => '\.(\d+)$');
+    my $result2 = $self->{snmp}->get_leef(nothing_quit => 1);
+    
+    foreach my $oid (keys %$result) {        
+        $oid =~ /\.(\d+)$/;
+        my $instance = $1;
+        my $mem_usage = $result2->{$oid_jnxJsSPUMonitoringMemoryUsage . '.' . $instance};
+    
+        my $exit_code = $self->{perfdata}->threshold_check(value => $mem_usage, 
+                                threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]);
+        $self->{output}->output_add(severity => $exit_code,
+                                    short_msg => sprintf("Memory '%d' usage is: %s%%", $instance, $mem_usage));
+        $self->{output}->perfdata_add(label => 'mem_' . $instance, unit => '%',
+                                      value => $mem_usage,
+                                      warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning'),
+                                      critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical'),
+                                      min => 0, max => 100);
+    }
+
+    $self->{output}->display();
+    $self->{output}->exit();
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+Check Memory Usage of packet forwarding engine.
+
+=over 8
+
+=item B<--warning>
+
+Threshold warning in percent.
+
+=item B<--critical>
+
+Threshold critical in percent.
+
+=back
+
+=cut

network/juniper/common/mode/memoryrouting.pm

@@ -0,0 +1,151 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package network::juniper::common::mode::memoryrouting;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                { 
+                                  "warning:s"               => { name => 'warning', },
+                                  "critical:s"              => { name => 'critical', },
+                                });
+
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+
+    if (($self->{perfdata}->threshold_validate(label => 'warning', value => $self->{option_results}->{warning})) == 0) {
+        $self->{output}->add_option_msg(short_msg => "Wrong warning threshold '" . $self->{option_results}->{warning} . "'.");
+        $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'critical', value => $self->{option_results}->{critical})) == 0) {
+        $self->{output}->add_option_msg(short_msg => "Wrong critical threshold '" . $self->{option_results}->{critical} . "'.");
+        $self->{output}->option_exit();
+    }
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{snmp} = snmp object
+    $self->{snmp} = $options{snmp};
+    
+    my $oid_jnxOperatingDescr = '.1.3.6.1.4.1.2636.3.1.13.1.5';
+    my $oid_jnxOperatingBuffer = '.1.3.6.1.4.1.2636.3.1.13.1.11';
+    my $oid_jnxOperatingMemory = '.1.3.6.1.4.1.2636.3.1.13.1.15'; # MB
+    
+    my $result = $self->{snmp}->get_table(oid => $oid_jnxOperatingDescr, nothing_quit => 1);
+    my $routing_engine_find = 0;
+    my $oid_routing_engine;
+    foreach my $oid (keys %$result) {        
+        if ($result->{$oid} =~ /routing/i) {
+            $routing_engine_find = 1;
+            $oid_routing_engine = $oid;
+            last;
+        }
+    }
+    
+    if ($routing_engine_find == 0) {
+        $self->{output}->add_option_msg(short_msg => "Cannot find operating with 'routing' in description.");
+        $self->{output}->option_exit();
+    }
+    
+    $self->{snmp}->load(oids => [$oid_jnxOperatingBuffer, $oid_jnxOperatingMemory],
+                        instances => [$oid_routing_engine],
+                        instance_regexp => "^" . $oid_jnxOperatingDescr . '\.(.+)');
+    my $result2 = $self->{snmp}->get_leef();
+    
+    $oid_routing_engine =~ /^$oid_jnxOperatingDescr\.(.+)/;
+    my $instance = $1;
+    my $total_size = $result2->{$oid_jnxOperatingMemory . '.' . $instance} * 1024 * 1024;
+    my $prct_used = $result2->{$oid_jnxOperatingBuffer . '.' . $instance};
+    my $prct_free = 100 - $prct_used;
+    my $memory_used = $total_size * $prct_used / 100;
+    my $memory_free = $total_size - $memory_used;
+        
+    my $exit = $self->{perfdata}->threshold_check(value => $prct_used, threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]);
+    my ($total_value, $total_unit) = $self->{perfdata}->change_bytes(value => $total_size);
+    my ($used_value, $used_unit) = $self->{perfdata}->change_bytes(value => $memory_used);
+    my ($free_value, $free_unit) = $self->{perfdata}->change_bytes(value => $memory_free);
+    
+    $self->{output}->output_add(severity => $exit,
+                                short_msg => sprintf("Memory Total: %s Used: %s (%.2f%%) Free: %s (%.2f%%)",
+                                        $total_value . " " . $total_unit,
+                                        $used_value . " " . $used_unit, $prct_used,
+                                        $free_value . " " . $free_unit, $prct_free));
+    
+    $self->{output}->perfdata_add(label => "used",
+                                  value => $memory_used,
+                                  warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning', total => $total_size),
+                                  critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical', total => $total_size),
+                                  min => 0, max => $total_size);
+
+    $self->{output}->display();
+    $self->{output}->exit();
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+Check Memory Usage of routing engine.
+
+=over 8
+
+=item B<--warning>
+
+Threshold warning in percent.
+
+=item B<--critical>
+
+Threshold critical in percent.
+
+=back
+
+=cut

network/juniper/srx/plugin.pm

@@ -0,0 +1,74 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package network::juniper::srx::plugin;
+
+use strict;
+use warnings;
+use base qw(centreon::plugins::script_snmp);
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    # $options->{options} = options object
+
+    $self->{version} = '1.0';
+    %{$self->{modes}} = (
+                         'hardware' => 'network::juniper::common::mode::hardware',
+                         'cpu-routing' => 'network::juniper::common::mode::cpurouting', # routing engine
+                         'cpu-forwarding' => 'network::juniper::common::mode::cpuforwarding', # packet forwarding engine
+                         'memory-routing' => 'network::juniper::common::mode::memoryrouting', # routing engine
+                         'memory-forwarding' => 'network::juniper::common::mode::memoryforwarding', # packet forwarding engine
+                         'cp-sessions' => 'network::juniper::common::mode::cpsessions', # CP = 'central point'
+                         'flow-sessions' => 'network::juniper::common::mode::flowsessions',
+                         'traffic' => 'snmp_standard::mode::traffic',
+                         'list-interfaces' => 'snmp_standard::mode::listinterfaces',
+                         'list-storages' => 'snmp_standard::mode::liststorages',
+                         'storage' => 'snmp_standard::mode::storage',
+                         );
+
+    return $self;
+}
+
+1;
+
+__END__
+
+=head1 PLUGIN DESCRIPTION
+
+Check Juniper SRX in SNMP.
+
+=cut

os/linux/mode/memory.pm

@@ -0,0 +1,176 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package os::linux::mode::memory;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                { 
+                                  "warning:s"               => { name => 'warning' },
+                                  "critical:s"              => { name => 'critical' },
+                                });
+
+    $self->{cached_memory_id} = undef;
+    $self->{buffer_memory_id} = undef;
+    $self->{physical_memory_id} = undef;
+    
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+
+    if (($self->{perfdata}->threshold_validate(label => 'warning', value => $self->{option_results}->{warning})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong warning threshold '" . $self->{option_results}->{warning} . "'.");
+       $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'critical', value => $self->{option_results}->{critical})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong critical threshold '" . $self->{option_results}->{critical} . "'.");
+       $self->{output}->option_exit();
+    }    
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{snmp} = snmp object
+    $self->{snmp} = $options{snmp};
+
+    my $oid_hrStorageDescr = '.1.3.6.1.2.1.25.2.3.1.3';
+    
+    my $result = $self->{snmp}->get_table(oid => $oid_hrStorageDescr);
+    
+    foreach my $key (keys %$result) {
+        next if ($key !~ /\.([0-9]+)$/);
+        my $oid = $1;
+        if ($result->{$key} =~ /^Physical memory$/i) {
+            $self->{physical_memory_id} = $oid;
+        }
+        if ($result->{$key} =~ /^Cached memory$/i) {
+            $self->{cached_memory_id} = $oid;
+        }
+        if ($result->{$key} =~ /^Memory buffers$/i) {
+            $self->{buffer_memory_id} = $oid;
+        }
+    }
+    
+    if (!defined($self->{physical_memory_id})) {
+        $self->{output}->add_option_msg(short_msg => "Cannot find physical memory informations.");
+        $self->{output}->option_exit();
+    }
+    if (!defined($self->{cached_memory_id})) {
+        $self->{output}->add_option_msg(short_msg => "Cannot find cached memory informations.");
+        $self->{output}->option_exit();
+    }
+    if (!defined($self->{buffer_memory_id})) {
+        $self->{output}->add_option_msg(short_msg => "Cannot find buffer memory informations.");
+        $self->{output}->option_exit();
+    }
+    
+    my $oid_hrStorageAllocationUnits = '.1.3.6.1.2.1.25.2.3.1.4';
+    my $oid_hrStorageSize = '.1.3.6.1.2.1.25.2.3.1.5';
+    my $oid_hrStorageUsed = '.1.3.6.1.2.1.25.2.3.1.6';
+
+    $self->{snmp}->load(oids => [$oid_hrStorageAllocationUnits, $oid_hrStorageSize, $oid_hrStorageUsed], 
+                        instances => [$self->{physical_memory_id}, $self->{cached_memory_id}, $self->{buffer_memory_id}]);
+    $result = $self->{snmp}->get_leef();
+
+    my $cached_used = $result->{$oid_hrStorageUsed . "." . $self->{cached_memory_id}} * $result->{$oid_hrStorageAllocationUnits . "." . $self->{cached_memory_id}};
+    my $buffer_used = $result->{$oid_hrStorageUsed . "." . $self->{buffer_memory_id}} * $result->{$oid_hrStorageAllocationUnits . "." . $self->{buffer_memory_id}};
+    my $physical_used = $result->{$oid_hrStorageUsed . "." . $self->{physical_memory_id}} * $result->{$oid_hrStorageAllocationUnits . "." . $self->{physical_memory_id}};
+    my $nobuf_used = $physical_used - $buffer_used - $cached_used;
+    
+    my $total_size = $result->{$oid_hrStorageSize . "." . $self->{physical_memory_id}} * $result->{$oid_hrStorageAllocationUnits . "." . $self->{physical_memory_id}};
+    
+    my $prct_used = $nobuf_used * 100 / $total_size;
+    my $exit = $self->{perfdata}->threshold_check(value => $prct_used, threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]);
+
+    my ($nobuf_value, $nobuf_unit) = $self->{perfdata}->change_bytes(value => $nobuf_used);
+    my ($buffer_value, $buffer_unit) = $self->{perfdata}->change_bytes(value => $buffer_used);
+    my ($cached_value, $cached_unit) = $self->{perfdata}->change_bytes(value => $cached_used);
+    
+    $self->{output}->output_add(severity => $exit,
+                                short_msg => sprintf("Ram used (-buffers/cache) %s (%.2f%%), Buffer: %s, Cached: %s",
+                                            $nobuf_value . " " . $nobuf_unit, $prct_used,
+                                            $buffer_value . " " . $buffer_unit,
+                                            $cached_value . " " . $cached_unit));
+    
+    $self->{output}->perfdata_add(label => "cached",
+                                  value => $cached_used,
+                                  min => 0);
+    $self->{output}->perfdata_add(label => "buffer",
+                                  value => $buffer_used,
+                                  min => 0);
+    $self->{output}->perfdata_add(label => "used",
+                                  value => $nobuf_used,
+                                  warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning', total => $total_size),
+                                  critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical', total => $total_size),
+                                  min => 0, max => $total_size);
+
+    $self->{output}->display();
+    $self->{output}->exit();
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+Check Linux physical memory.
+
+=over 8
+
+=item B<--warning>
+
+Threshold warning in percent.
+
+=item B<--critical>
+
+Threshold critical in percent.
+
+=back
+
+=cut

os/linux/mode/swap.pm

@@ -0,0 +1,150 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package os::linux::mode::swap;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                { 
+                                  "warning:s"               => { name => 'warning' },
+                                  "critical:s"              => { name => 'critical' },
+                                });
+
+    $self->{swap_memory_id} = undef;
+    
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+
+    if (($self->{perfdata}->threshold_validate(label => 'warning', value => $self->{option_results}->{warning})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong warning threshold '" . $self->{option_results}->{warning} . "'.");
+       $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'critical', value => $self->{option_results}->{critical})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong critical threshold '" . $self->{option_results}->{critical} . "'.");
+       $self->{output}->option_exit();
+    }    
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{snmp} = snmp object
+    $self->{snmp} = $options{snmp};
+
+    my $oid_hrStorageDescr = '.1.3.6.1.2.1.25.2.3.1.3';
+    
+    my $result = $self->{snmp}->get_table(oid => $oid_hrStorageDescr);
+    
+    foreach my $key (keys %$result) {
+        next if ($key !~ /\.([0-9]+)$/);
+        my $oid = $1;
+        if ($result->{$key} =~ /^Swap space$/i) {
+            $self->{swap_memory_id} = $oid;
+        }
+    }
+    
+    if (!defined($self->{swap_memory_id})) {
+        $self->{output}->add_option_msg(short_msg => "Cannot find swap space informations.");
+        $self->{output}->option_exit();
+    }
+    
+    my $oid_hrStorageAllocationUnits = '.1.3.6.1.2.1.25.2.3.1.4';
+    my $oid_hrStorageSize = '.1.3.6.1.2.1.25.2.3.1.5';
+    my $oid_hrStorageUsed = '.1.3.6.1.2.1.25.2.3.1.6';
+
+    $self->{snmp}->load(oids => [$oid_hrStorageAllocationUnits, $oid_hrStorageSize, $oid_hrStorageUsed], 
+                        instances => [$self->{swap_memory_id}]);
+    $result = $self->{snmp}->get_leef();
+
+    my $swap_used = $result->{$oid_hrStorageUsed . "." . $self->{swap_memory_id}} * $result->{$oid_hrStorageAllocationUnits . "." . $self->{swap_memory_id}};
+    my $total_size = $result->{$oid_hrStorageSize . "." . $self->{swap_memory_id}} * $result->{$oid_hrStorageAllocationUnits . "." . $self->{swap_memory_id}};
+    
+    my $prct_used = $swap_used * 100 / $total_size;
+    my $exit = $self->{perfdata}->threshold_check(value => $prct_used, threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]);
+
+    my ($total_value, $total_unit) = $self->{perfdata}->change_bytes(value => $total_size);
+    my ($swap_used_value, $swap_used_unit) = $self->{perfdata}->change_bytes(value => $swap_used);
+    my ($swap_free_value, $swap_free_unit) = $self->{perfdata}->change_bytes(value => ($total_size - $swap_used));
+    
+    $self->{output}->output_add(severity => $exit,
+                                short_msg => sprintf("Swap Total: %s Used: %s (%.2f%%) Free: %s (%.2f%%)",
+                                            $total_value . " " . $total_unit,
+                                            $swap_used_value . " " . $swap_used_unit, $prct_used,
+                                            $swap_free_value . " " . $swap_free_unit, (100 - $prct_used)));
+    
+    $self->{output}->perfdata_add(label => "used",
+                                  value => $swap_used,
+                                  warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning', total => $total_size),
+                                  critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical', total => $total_size),
+                                  min => 0, max => $total_size);
+
+    $self->{output}->display();
+    $self->{output}->exit();
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+Check Linux swap memory.
+
+=over 8
+
+=item B<--warning>
+
+Threshold warning in percent.
+
+=item B<--critical>
+
+Threshold critical in percent.
+
+=back
+
+=cut

os/linux/plugin.pm

@@ -0,0 +1,75 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package os::linux::plugin;
+
+use strict;
+use warnings;
+use base qw(centreon::plugins::script_snmp);
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    # $options->{options} = options object
+
+    $self->{version} = '0.1';
+    %{$self->{modes}} = (
+                         'cpu' => 'snmp_standard::mode::cpu',
+                         'diskio' => 'snmp_standard::mode::diskio',
+                         'load' => 'snmp_standard::mode::loadaverage',
+                         'list-interfaces' => 'snmp_standard::mode::listinterfaces',
+                         'list-storages' => 'snmp_standard::mode::liststorages',
+                         'memory' => 'os::linux::mode::memory',
+                         'packet-errors' => 'snmp_standard::mode::packeterrors',
+                         'processcount' => 'snmp_standard::mode::processcount',
+                         'storage' => 'snmp_standard::mode::storage',
+                         'swap' => 'os::linux::mode::swap',
+                         'traffic' => 'snmp_standard::mode::traffic',
+                         'uptime' => 'snmp_standard::mode::uptime',
+                         );
+
+    return $self;
+}
+
+1;
+
+__END__
+
+=head1 PLUGIN DESCRIPTION
+
+Check Linux operating systems in SNMP.
+
+=cut

os/windows/mode/memory.pm

@@ -0,0 +1,150 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package os::windows::mode::memory;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                { 
+                                  "warning:s"               => { name => 'warning' },
+                                  "critical:s"              => { name => 'critical' },
+                                });
+
+    $self->{physical_memory_id} = undef;
+    
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+
+    if (($self->{perfdata}->threshold_validate(label => 'warning', value => $self->{option_results}->{warning})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong warning threshold '" . $self->{option_results}->{warning} . "'.");
+       $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'critical', value => $self->{option_results}->{critical})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong critical threshold '" . $self->{option_results}->{critical} . "'.");
+       $self->{output}->option_exit();
+    }    
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{snmp} = snmp object
+    $self->{snmp} = $options{snmp};
+
+    my $oid_hrStorageDescr = '.1.3.6.1.2.1.25.2.3.1.3';
+    
+    my $result = $self->{snmp}->get_table(oid => $oid_hrStorageDescr);
+    
+    foreach my $key (keys %$result) {
+        next if ($key !~ /\.([0-9]+)$/);
+        my $oid = $1;
+        if ($result->{$key} =~ /^Physical memory$/i) {
+            $self->{physical_memory_id} = $oid;
+        }
+    }
+    
+    if (!defined($self->{physical_memory_id})) {
+        $self->{output}->add_option_msg(short_msg => "Cannot find physical memory informations.");
+        $self->{output}->option_exit();
+    }
+    
+    my $oid_hrStorageAllocationUnits = '.1.3.6.1.2.1.25.2.3.1.4';
+    my $oid_hrStorageSize = '.1.3.6.1.2.1.25.2.3.1.5';
+    my $oid_hrStorageUsed = '.1.3.6.1.2.1.25.2.3.1.6';
+
+    $self->{snmp}->load(oids => [$oid_hrStorageAllocationUnits, $oid_hrStorageSize, $oid_hrStorageUsed], 
+                        instances => [$self->{physical_memory_id}]);
+    $result = $self->{snmp}->get_leef();
+
+    my $physical_used = $result->{$oid_hrStorageUsed . "." . $self->{physical_memory_id}} * $result->{$oid_hrStorageAllocationUnits . "." . $self->{physical_memory_id}};
+    my $total_size = $result->{$oid_hrStorageSize . "." . $self->{physical_memory_id}} * $result->{$oid_hrStorageAllocationUnits . "." . $self->{physical_memory_id}};
+    
+    my $prct_used = $physical_used * 100 / $total_size;
+    my $exit = $self->{perfdata}->threshold_check(value => $prct_used, threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]);
+
+    my ($physical_used_value, $physical_used_unit) = $self->{perfdata}->change_bytes(value => $physical_used);
+    my ($physical_free_value, $physical_free_unit) = $self->{perfdata}->change_bytes(value => $total_size - $physical_used);
+    my ($total_value, $total_unit) = $self->{perfdata}->change_bytes(value => $total_size);
+    
+    $self->{output}->output_add(severity => $exit,
+                                short_msg => sprintf("RAM Total: %s Used: %s (%.2f%%) Free: %s (%.2f%%)",
+                                            $total_value . " " . $total_unit,
+                                            $physical_used_value . " " . $physical_used_unit, $prct_used,
+                                            $physical_free_value . " " . $physical_free_unit, 100 - $prct_used));
+
+    $self->{output}->perfdata_add(label => "used",
+                                  value => $physical_used,
+                                  warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning', total => $total_size),
+                                  critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical', total => $total_size),
+                                  min => 0, max => $total_size);
+
+    $self->{output}->display();
+    $self->{output}->exit();
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+Check Windows physical memory.
+
+=over 8
+
+=item B<--warning>
+
+Threshold warning in percent.
+
+=item B<--critical>
+
+Threshold critical in percent.
+
+=back
+
+=cut

os/windows/mode/service.pm

@@ -0,0 +1,197 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package os::windows::mode::service;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+
+my %map_installed_state = (
+    1 => 'uninstalled', 
+    2 => 'install-pending', 
+    3 => 'uninstall-pending', 
+    4 => 'installed'
+);
+my %map_operating_state = (
+    1 => 'active',
+    2 => 'continue-pending',
+    3 => 'pause-pending',
+    4 => 'paused'
+);
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                { 
+                                  "warning:s"          => { name => 'warning', },
+                                  "critical:s"         => { name => 'critical', },
+                                  "service:s@"         => { name => 'service', },
+                                  "regexp"             => { name => 'use_regexp', },
+                                  "state:s"            => { name => 'state', },
+                                });
+
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+
+    if (!defined($self->{option_results}->{service})) {
+       $self->{output}->add_option_msg(short_msg => "Need to specify at least one '--service' option.");
+       $self->{output}->option_exit();
+    }
+    
+    if (($self->{perfdata}->threshold_validate(label => 'warning', value => $self->{option_results}->{warning})) == 0) {
+        $self->{output}->add_option_msg(short_msg => "Wrong warning threshold '" . $self->{option_results}->{warning} . "'.");
+        $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'critical', value => $self->{option_results}->{critical})) == 0) {
+        $self->{output}->add_option_msg(short_msg => "Wrong critical threshold '" . $self->{option_results}->{critical} . "'.");
+        $self->{output}->option_exit();
+    }
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{snmp} = snmp object
+    $self->{snmp} = $options{snmp};
+    
+    my $oid_svSvcEntry = '.1.3.6.1.4.1.77.1.2.3.1';
+    my $oid_svSvcName  = '.1.3.6.1.4.1.77.1.2.3.1.1';
+    my $oid_svSvcInstalledState  = '.1.3.6.1.4.1.77.1.2.3.1.2';
+    my $oid_svSvcOperatingState  = '.1.3.6.1.4.1.77.1.2.3.1.3';
+    my $result = $self->{snmp}->get_table(oid => $oid_svSvcEntry);
+    
+    my %services_match = ();
+    $self->{output}->output_add(severity => 'OK',
+                                short_msg => 'All service states is ok');
+    foreach my $oid ($self->{snmp}->oid_lex_sort(keys %$result)) {
+        next if ($oid !~ /^$oid_svSvcName/);
+        $oid =~ /^$oid_svSvcName\.([0-9\.]+)$/;
+        my $instance = $1;
+
+        my $svc_name = $self->{output}->to_utf8($result->{$oid});
+        my $svc_installed_state = $result->{$oid_svSvcInstalledState . '.' . $instance};
+        my $svc_operating_state = $result->{$oid_svSvcOperatingState . '.' . $instance};
+        
+        for (my $i = 0; $i < scalar(@{$self->{option_results}->{service}}); $i++) {
+            my $filter = ${$self->{option_results}->{service}}[$i];
+            if (defined($self->{option_results}->{use_regexp}) && $svc_name =~ /$filter/) {
+                $services_match{$i}{$svc_name}{operating_state} = $svc_operating_state;
+                $services_match{$i}{$svc_name}{installed_state} = $svc_installed_state;
+            } elsif ($svc_name eq $filter) {
+                $services_match{$i}{$svc_name}{operating_state} = $svc_operating_state;
+                $services_match{$i}{$svc_name}{installed_state} = $svc_installed_state;
+            }
+        }
+    }
+    
+    for (my $i = 0; $i < scalar(@{$self->{option_results}->{service}}); $i++) {
+        my $numbers = 0;
+        my %svc_name_state_wrong = ();
+        foreach my $svc_name (keys %{$services_match{$i}}) {
+            my $operating_state = $services_match{$i}{$svc_name}{operating_state};
+            my $installed_state = $services_match{$i}{$svc_name}{installed_state};
+            $self->{output}->output_add(long_msg => sprintf("Service '%s' match (pattern: '%s') [operating state = %s, installed state = %s]", 
+                                                            $svc_name, ${$self->{option_results}->{service}}[$i],
+                                                            $map_operating_state{$operating_state}, $map_installed_state{$installed_state}));
+            if (defined($self->{option_results}->{state}) && $map_operating_state{$operating_state} !~ /$self->{option_results}->{state}/) {
+                delete $services_match{$i}{$svc_name};
+                $svc_name_state_wrong{$svc_name} = $operating_state;
+                next;
+            }
+            $numbers++;
+        }
+        
+        my $exit = $self->{perfdata}->threshold_check(value => $numbers, threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]);
+        $self->{output}->output_add(long_msg => sprintf("Service pattern '%s': service list %s",
+                                       ${$self->{option_results}->{service}}[$i],
+                                       join(', ', keys %{$services_match{$i}})));
+        if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) {
+            if (scalar(keys %svc_name_state_wrong) > 0) {
+                $self->{output}->output_add(severity => $exit,
+                                            short_msg => sprintf("Service pattern '%s' problem: %s [following services match but has the wrong state]",
+                                                                 ${$self->{option_results}->{service}}[$i], join(', ', keys %svc_name_state_wrong)));
+            } else {
+                $self->{output}->output_add(severity => $exit,
+                                            short_msg => sprintf("Service problem '%s'", ${$self->{option_results}->{service}}[$i]));
+            }
+        }
+    }
+    
+    $self->{output}->display();
+    $self->{output}->exit();
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+Check Windows Services in SNMP
+
+=over 8
+
+=item B<--warning>
+
+Threshold warning.
+
+=item B<--critical>
+
+Threshold critical.
+
+=item B<--service>
+
+Services to check. (can set multiple times)
+
+=item B<--regexp>
+
+Allows to use regexp to filter services.
+
+=item B<--state>
+
+Service state. (Regexp allowed)
+
+=back
+
+=cut

os/windows/mode/swap.pm

@@ -0,0 +1,150 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package os::windows::mode::swap;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                { 
+                                  "warning:s"               => { name => 'warning' },
+                                  "critical:s"              => { name => 'critical' },
+                                });
+
+    $self->{swap_memory_id} = undef;
+    
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+
+    if (($self->{perfdata}->threshold_validate(label => 'warning', value => $self->{option_results}->{warning})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong warning threshold '" . $self->{option_results}->{warning} . "'.");
+       $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'critical', value => $self->{option_results}->{critical})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong critical threshold '" . $self->{option_results}->{critical} . "'.");
+       $self->{output}->option_exit();
+    }    
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{snmp} = snmp object
+    $self->{snmp} = $options{snmp};
+
+    my $oid_hrStorageDescr = '.1.3.6.1.2.1.25.2.3.1.3';
+    
+    my $result = $self->{snmp}->get_table(oid => $oid_hrStorageDescr);
+    
+    foreach my $key (keys %$result) {
+        next if ($key !~ /\.([0-9]+)$/);
+        my $oid = $1;
+        if ($result->{$key} =~ /^Virtual memory$/i) {
+            $self->{swap_memory_id} = $oid;
+        }
+    }
+    
+    if (!defined($self->{swap_memory_id})) {
+        $self->{output}->add_option_msg(short_msg => "Cannot find physical memory informations.");
+        $self->{output}->option_exit();
+    }
+    
+    my $oid_hrStorageAllocationUnits = '.1.3.6.1.2.1.25.2.3.1.4';
+    my $oid_hrStorageSize = '.1.3.6.1.2.1.25.2.3.1.5';
+    my $oid_hrStorageUsed = '.1.3.6.1.2.1.25.2.3.1.6';
+
+    $self->{snmp}->load(oids => [$oid_hrStorageAllocationUnits, $oid_hrStorageSize, $oid_hrStorageUsed], 
+                        instances => [$self->{swap_memory_id}]);
+    $result = $self->{snmp}->get_leef();
+
+    my $swap_used = $result->{$oid_hrStorageUsed . "." . $self->{swap_memory_id}} * $result->{$oid_hrStorageAllocationUnits . "." . $self->{swap_memory_id}};
+    my $total_size = $result->{$oid_hrStorageSize . "." . $self->{swap_memory_id}} * $result->{$oid_hrStorageAllocationUnits . "." . $self->{swap_memory_id}};
+    
+    my $prct_used = $swap_used * 100 / $total_size;
+    my $exit = $self->{perfdata}->threshold_check(value => $prct_used, threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]);
+
+    my ($swap_used_value, $swap_used_unit) = $self->{perfdata}->change_bytes(value => $swap_used);
+    my ($swap_free_value, $swap_free_unit) = $self->{perfdata}->change_bytes(value => $total_size - $swap_used);
+    my ($total_value, $total_unit) = $self->{perfdata}->change_bytes(value => $total_size);
+    
+    $self->{output}->output_add(severity => $exit,
+                                short_msg => sprintf("Swap Total: %s Used: %s (%.2f%%) Free: %s (%.2f%%)",
+                                            $total_value . " " . $total_unit,
+                                            $swap_used_value . " " . $swap_used_unit, $prct_used,
+                                            $swap_free_value . " " . $swap_free_unit, 100 - $prct_used));
+
+    $self->{output}->perfdata_add(label => "used",
+                                  value => $swap_used,
+                                  warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning', total => $total_size),
+                                  critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical', total => $total_size),
+                                  min => 0, max => $total_size);
+
+    $self->{output}->display();
+    $self->{output}->exit();
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+Check Windows swap memory.
+
+=over 8
+
+=item B<--warning>
+
+Threshold warning in percent.
+
+=item B<--critical>
+
+Threshold critical in percent.
+
+=back
+
+=cut

os/windows/plugin.pm

@@ -0,0 +1,74 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package os::windows::plugin;
+
+use strict;
+use warnings;
+use base qw(centreon::plugins::script_snmp);
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    # $options->{options} = options object
+
+    $self->{version} = '0.1';
+    %{$self->{modes}} = (
+                         'cpu' => 'snmp_standard::mode::cpu',
+                         'list-interfaces' => 'snmp_standard::mode::listinterfaces',
+                         'list-storages' => 'snmp_standard::mode::liststorages',
+                         'memory' => 'os::windows::mode::memory',
+                         'packet-errors' => 'snmp_standard::mode::packeterrors',
+                         'processcount' => 'snmp_standard::mode::processcount',
+                         'service' => 'os::windows::mode::service',
+                         'storage' => 'snmp_standard::mode::storage',
+                         'swap' => 'os::windows::mode::swap',
+                         'traffic' => 'snmp_standard::mode::traffic',
+                         'uptime' => 'snmp_standard::mode::uptime',
+                         );
+
+    return $self;
+}
+
+1;
+
+__END__
+
+=head1 PLUGIN DESCRIPTION
+
+Check Windows operating systems in SNMP.
+
+=cut

snmp_standard/mode/cpu.pm

@@ -0,0 +1,130 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package snmp_standard::mode::cpu;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                { 
+                                  "warning:s"               => { name => 'warning', },
+                                  "critical:s"              => { name => 'critical', },
+                                });
+
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+
+    if (($self->{perfdata}->threshold_validate(label => 'warning', value => $self->{option_results}->{warning})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong warning threshold '" . $self->{warn1} . "'.");
+       $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'critical', value => $self->{option_results}->{critical})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong critical threshold '" . $self->{critical} . "'.");
+       $self->{output}->option_exit();
+    }
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{snmp} = snmp object
+    $self->{snmp} = $options{snmp};
+    
+    my $oid_cputable = '.1.3.6.1.2.1.25.3.3.1.2';
+    my $result = $self->{snmp}->get_table(oid => $oid_cputable);
+    
+    my $cpu = 0;
+    my $i = 0;
+    foreach my $key ($self->{snmp}->oid_lex_sort(keys %$result)) {
+        $key =~ /\.([0-9]+)$/;
+        my $cpu_num = $1;
+        
+        $cpu += $result->{$key};
+        $i++;
+        
+        $self->{output}->output_add(long_msg => sprintf("CPU $i Usage is %.2f%%", $result->{$key}));
+        $self->{output}->perfdata_add(label => 'cpu' . $cpu_num,
+                                  value => sprintf("%.2f", $result->{$key}),
+                                  min => 0, max => 100);
+    }
+
+    my $avg_cpu = $cpu / $i;
+    my $exit_code = $self->{perfdata}->threshold_check(value => $avg_cpu, 
+                               threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]);
+    $self->{output}->output_add(severity => $exit_code,
+                                short_msg => sprintf("CPU(s) average usage is: %.2f%%", $avg_cpu));
+    $self->{output}->perfdata_add(label => 'total_cpu_avg',
+                                  value => sprintf("%.2f", $avg_cpu),
+                                  warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning'),
+                                  critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical'),
+                                  min => 0, max => 100);
+
+    $self->{output}->display();
+    $self->{output}->exit();
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+Check system CPUs.
+
+=over 8
+
+=item B<--warning>
+
+Threshold warning in percent.
+
+=item B<--critical>
+
+Threshold critical in percent.
+
+=back
+
+=cut

snmp_standard/mode/diskio.pm

@@ -0,0 +1,351 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package snmp_standard::mode::diskio;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+use centreon::plugins::statefile;
+use Digest::MD5 qw(md5_hex);
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                { 
+                                  "warning-read:s"          => { name => 'warning_read' },
+                                  "critical-read:s"         => { name => 'critical_read' },
+                                  "warning-write:s"         => { name => 'warning_write' },
+                                  "critical-write:s"        => { name => 'critical_write' },
+                                  "reload-cache-time:s"     => { name => 'reload_cache_time' },
+                                  "name"                    => { name => 'use_name' },
+                                  "device:s"                => { name => 'device' },
+                                  "regexp"                  => { name => 'use_regexp' },
+                                  "regexp-isensitive"       => { name => 'use_regexpi' },            
+                                  "show-cache"              => { name => 'show_cache' },
+                                });
+
+    $self->{device_id_selected} = [];
+    $self->{statefile_cache} = centreon::plugins::statefile->new(%options);
+    $self->{statefile_value} = centreon::plugins::statefile->new(%options);
+    
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+
+    if (($self->{perfdata}->threshold_validate(label => 'warning-read', value => $self->{option_results}->{warning_read})) == 0) {
+        $self->{output}->add_option_msg(short_msg => "Wrong warning 'read' threshold '" . $self->{option_results}->{warning_read} . "'.");
+        $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'critical-read', value => $self->{option_results}->{critical_read})) == 0) {
+        $self->{output}->add_option_msg(short_msg => "Wrong critical 'read' threshold '" . $self->{option_results}->{critical_read} . "'.");
+        $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'warning-write', value => $self->{option_results}->{warning_write})) == 0) {
+        $self->{output}->add_option_msg(short_msg => "Wrong warning 'write' threshold '" . $self->{option_results}->{warning_write} . "'.");
+        $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'critical-write', value => $self->{option_results}->{critical_write})) == 0) {
+        $self->{output}->add_option_msg(short_msg => "Wrong critical 'write' threshold '" . $self->{option_results}->{critical_write} . "'.");
+        $self->{output}->option_exit();
+    }
+    
+    $self->{statefile_cache}->check_options(%options);
+    $self->{statefile_value}->check_options(%options);
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{snmp} = snmp object
+    $self->{snmp} = $options{snmp};
+    
+    if ($self->{snmp}->is_snmpv1()) {
+        $self->{output}->add_option_msg(short_msg => "Need to use SNMP v2c or v3.");
+        $self->{output}->option_exit();
+    }
+    
+    $self->{hostname} = $self->{snmp}->get_hostname();
+
+    $self->manage_selection();
+    
+    my $oid_diskIODevice = '.1.3.6.1.4.1.2021.13.15.1.1.2';
+    my $oid_diskIONReadX = '.1.3.6.1.4.1.2021.13.15.1.1.12'; # in B
+    my $oid_diskIONWrittenX = '.1.3.6.1.4.1.2021.13.15.1.1.13'; # in B
+
+    my $new_datas = {};
+    $self->{statefile_value}->read(statefile => "snmpstandard_" . $self->{hostname}  . '_' . $self->{mode} . '_' . (defined($self->{option_results}->{device}) ? md5_hex($self->{option_results}->{device}) : md5_hex('all')));
+
+    $self->{snmp}->load(oids => [$oid_diskIONReadX, $oid_diskIONWrittenX], 
+                        instances => $self->{device_id_selected});
+    my $result = $self->{snmp}->get_leef();
+    $new_datas->{last_timestamp} = time();
+    my $old_timestamp = $self->{statefile_value}->get(name => 'last_timestamp');
+    if (!defined($self->{option_results}->{device}) || defined($self->{option_results}->{use_regexp})) {
+        $self->{output}->output_add(severity => 'OK',
+                                    short_msg => 'All devices are ok.');
+    }
+
+    foreach (sort @{$self->{device_id_selected}}) {
+        my $device_name = $self->{statefile_cache}->get(name => "device_" . $_);
+    
+        if ($result->{$oid_diskIONReadX . "." . $_} == 0 && $result->{$oid_diskIONWrittenX . "." . $_} == 0 &&
+            (!defined($self->{option_results}->{device}) || defined($self->{option_results}->{use_regexp}))) {
+            $self->{output}->add_option_msg(long_msg => "Skip device '" . $device_name . "' with no values.");
+            next;
+        }
+ 
+        $new_datas->{'readio_' . $_} = $result->{$oid_diskIONReadX . "." . $_};
+        $new_datas->{'writeio_' . $_} = $result->{$oid_diskIONWrittenX . "." . $_};
+
+        my $old_readio = $self->{statefile_value}->get(name => 'readio_' . $_);
+        my $old_writeio = $self->{statefile_value}->get(name => 'writeio_' . $_);
+        if (!defined($old_timestamp) || !defined($old_readio) || !defined($old_writeio)) {
+            next;
+        }
+        if ($new_datas->{'readio_' . $_} < $old_readio) {
+            # We set 0. Has reboot.
+            $old_readio = 0;
+        }
+        if ($new_datas->{'writeio_' . $_} < $old_writeio) {
+            # We set 0. Has reboot.
+            $old_writeio = 0;
+        }
+
+        my $time_delta = $new_datas->{last_timestamp} - $old_timestamp;
+        if ($time_delta <= 0) {
+            # At least one second. two fast calls ;)
+            $time_delta = 1;
+        }
+        
+        my $readio_absolute_per_sec = ($new_datas->{'readio_' . $_} - $old_readio) / $time_delta;
+        my $writeio_absolute_per_sec = ($new_datas->{'writeio_' . $_} - $old_writeio) / $time_delta;
+       
+        ###########
+        # Manage Output
+        ###########
+        my $exit1 = $self->{perfdata}->threshold_check(value => $readio_absolute_per_sec, threshold => [ { label => 'critical-read', 'exit_litteral' => 'critical' }, { label => 'warning-read', exit_litteral => 'warning' } ]);
+        my $exit2 = $self->{perfdata}->threshold_check(value => $writeio_absolute_per_sec, threshold => [ { label => 'critical-write', 'exit_litteral' => 'critical' }, { label => 'warning-write', exit_litteral => 'warning' } ]);
+
+        my ($readio_value, $readio_unit) = $self->{perfdata}->change_bytes(value => $readio_absolute_per_sec);
+        my ($writeio_value, $writeio_unit) = $self->{perfdata}->change_bytes(value => $writeio_absolute_per_sec);
+        my $exit = $self->{output}->get_most_critical(status => [ $exit1, $exit2 ]);
+        $self->{output}->output_add(long_msg => sprintf("Device '%s' Read I/O : %s/s, Write I/O : %s/s", $device_name,
+                                    $readio_value . $readio_unit,
+                                    $writeio_value . $writeio_unit));
+        if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1) || (defined($self->{option_results}->{device}) && !defined($self->{option_results}->{use_regexp}))) {
+            $self->{output}->output_add(severity => $exit,
+                                        short_msg => sprintf("Device '%s' Read I/O : %s/s, Write I/O : %s/s", $device_name,
+                                            $readio_value . $readio_unit,
+                                            $writeio_value . $writeio_unit));
+        }
+
+        my $extra_label = '';
+        $extra_label = '_' . $device_name if (!defined($self->{option_results}->{device}) || defined($self->{option_results}->{use_regexp}));
+        $self->{output}->perfdata_add(label => 'readio' . $extra_label, unit => 'b/s',
+                                      value => sprintf("%.2f", $readio_absolute_per_sec),
+                                      warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning-read'),
+                                      critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical-read'),
+                                      min => 0);
+        $self->{output}->perfdata_add(label => 'writeio' . $extra_label, unit => 'b/s',
+                                      value => sprintf("%.2f", $writeio_absolute_per_sec),
+                                      warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning-write'),
+                                      critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical-write'),
+                                      min => 0);
+    }
+
+    $self->{statefile_value}->write(data => $new_datas);    
+    if (!defined($old_timestamp)) {
+        $self->{output}->output_add(severity => 'OK',
+                                    short_msg => "Buffer creation...");
+    }
+
+    $self->{output}->display();
+    $self->{output}->exit();
+}
+
+sub reload_cache {
+    my ($self) = @_;
+    my $datas = {};
+
+    my $oid_diskIODevice = '.1.3.6.1.4.1.2021.13.15.1.1.2';
+    my $result = $self->{snmp}->get_table(oid => $oid_diskIODevice);
+    my $last_num = 0;
+    foreach my $key ($self->{snmp}->oid_lex_sort(keys %$result)) {
+        next if ($key !~ /\.([0-9]+)$/);
+        $datas->{"device_" . $1} = $result->{$key};
+        $last_num = $1;
+    }
+    
+    if (scalar(keys %$datas) <= 0) {
+        $self->{output}->add_option_msg(short_msg => "Can't construct cache...");
+        $self->{output}->option_exit();
+    }
+   
+    $datas->{total_device} = $last_num;
+    $self->{statefile_cache}->write(data => $datas);
+}
+
+sub manage_selection {
+    my ($self, %options) = @_;
+
+    # init cache file
+    my $has_cache_file = $self->{statefile_cache}->read(statefile => 'cache_snmpstandard_' . $self->{hostname}  . '_' . $self->{mode});
+    if (defined($self->{option_results}->{show_cache})) {
+        $self->{output}->add_option_msg(long_msg => $self->{statefile_cache}->get_string_content());
+        $self->{output}->option_exit();
+    }
+
+    my $timestamp_cache = $self->{statefile_cache}->get(name => 'last_timestamp');
+    if ($has_cache_file == 0 ||
+        (defined($timestamp_cache) && (time() - $timestamp_cache) > (($self->{option_results}->{reload_cache_time}) * 60))) {
+        $self->reload_cache();
+        $self->{statefile_cache}->read();
+    }
+
+    my $total_device = $self->{statefile_cache}->get(name => 'total_device');
+    if (!defined($self->{option_results}->{use_name}) && defined($self->{option_results}->{device})) {
+        # get by ID
+        push @{$self->{device_id_selected}}, $self->{option_results}->{device}; 
+        my $name = $self->{statefile_cache}->get(name => "device_" . $self->{option_results}->{device});
+        if (!defined($name)) {
+            $self->{output}->add_option_msg(short_msg => "No device for id '" . $self->{option_results}->{device} . "'.");
+            $self->{output}->option_exit();
+        }
+    } else {
+        for (my $i = 0; $i <= $total_device; $i++) {
+            my $filter_name = $self->{statefile_cache}->get(name => "device_" . $i);
+            next if (!defined($filter_name));
+            if (!defined($self->{option_results}->{device})) {
+                push @{$self->{device_id_selected}}, $i; 
+                next;
+            }
+            if (defined($self->{option_results}->{use_regexp}) && defined($self->{option_results}->{use_regexpi}) && $filter_name =~ /$self->{option_results}->{device}/i) {
+                push @{$self->{device_id_selected}}, $i; 
+            }
+            if (defined($self->{option_results}->{use_regexp}) && !defined($self->{option_results}->{use_regexpi}) && $filter_name =~ /$self->{option_results}->{device}/) {
+                push @{$self->{device_id_selected}}, $i; 
+            }
+            if (!defined($self->{option_results}->{use_regexp}) && !defined($self->{option_results}->{use_regexpi}) && $filter_name eq $self->{option_results}->{device}) {
+                push @{$self->{device_id_selected}}, $i; 
+            }
+        }
+        
+        if (scalar(@{$self->{device_id_selected}}) <= 0) {
+            $self->{output}->add_option_msg(short_msg => "No device found for name '" . $self->{option_results}->{device} . "' (maybe you should reload cache file).");
+            $self->{output}->option_exit();
+        }
+    }
+}
+
+sub disco_format {
+    my ($self, %options) = @_;
+    
+    $self->{output}->add_disco_format(elements => ['name', 'deviceid']);
+}
+
+sub disco_show {
+    my ($self, %options) = @_;
+    # $options{snmp} = snmp object
+    $self->{snmp} = $options{snmp};
+    $self->{hostname} = $self->{snmp}->get_hostname();
+
+    $self->manage_selection();
+    foreach (sort @{$self->{device_id_selected}}) {
+        $self->{output}->add_disco_entry(name => $self->{statefile_cache}->get(name => "device_" . $_),
+                                         deviceid => $_);
+    }
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+Check read/write I/O disks. 
+
+=over 8
+
+=item B<--warning-read>
+
+Threshold warning in bytes for 'read' io disks.
+
+=item B<--critical-read>
+
+Threshold critical in bytes for 'read' io disks.
+
+=item B<--warning-write>
+
+Threshold warning in bytes for 'write' io disks.
+
+=item B<--critical-write>
+
+Threshold critical in bytes for 'write' io disks.
+
+=item B<--device>
+
+Set the device (number expected) ex: 1, 2,... (empty means 'check all devices').
+
+=item B<--name>
+
+Allows to use device name with option --device instead of devoce oid index.
+
+=item B<--regexp>
+
+Allows to use regexp to filter devices (with option --name).
+
+=item B<--regexp-isensitive>
+
+Allows to use regexp non case-sensitive (with --regexp).
+
+=item B<--reload-cache-time>
+
+Time in seconds before reloading cache file (default: 180).
+
+=item B<--show-cache>
+
+Display cache interface datas.
+
+=back
+
+=cut

snmp_standard/mode/dynamiccommand.pm

@@ -0,0 +1,205 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package snmp_standard::mode::dynamiccommand;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+
+my $oid_nsExtendArgs = '.1.3.6.1.4.1.8072.1.3.2.2.1.3';
+my $oid_nsExtendStatus = '.1.3.6.1.4.1.8072.1.3.2.2.1.21'; # 4 = CreateAndGo
+my $oid_nsExtendCommand = '.1.3.6.1.4.1.8072.1.3.2.2.1.2';
+my $oid_nsExtendStorage = '.1.3.6.1.4.1.8072.1.3.2.2.1.20'; # 2 = Volatile (what we want)
+my $oid_nsExtendExecType = '.1.3.6.1.4.1.8072.1.3.2.2.1.6'; # 1 = exec, 2 = sub shell
+
+my $oid_nsExtendOutput1Line = '.1.3.6.1.4.1.8072.1.3.2.3.1.1';
+my $oid_nsExtendOutNumLines = '.1.3.6.1.4.1.8072.1.3.2.3.1.3';
+my $oid_nsExtendOutputFull = '.1.3.6.1.4.1.8072.1.3.2.3.1.2';
+my $oid_nsExtendResult = '.1.3.6.1.4.1.8072.1.3.2.3.1.4';
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                { 
+                                  "label:s"             => { name => 'label' },
+                                  "command:s"           => { name => 'command' },
+                                  "args:s"              => { name => 'args' },
+                                  "shell"               => { name => 'shell' },
+                                });
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+
+    if (!defined($self->{option_results}->{label})) {
+       $self->{output}->add_option_msg(short_msg => "Need to specify an label.");
+       $self->{output}->option_exit(); 
+    }
+    if (!defined($self->{option_results}->{command})) {
+       $self->{output}->add_option_msg(short_msg => "Need to specify a command.");
+       $self->{output}->option_exit(); 
+    }
+    if (!defined($self->{option_results}->{args})) {
+       $self->{output}->add_option_msg(short_msg => "Need to specify arguments (can be empty).");
+       $self->{output}->option_exit(); 
+    }
+}
+
+sub get_instance {
+    my ($self, %options) = @_;
+    
+    # nsExtendStatus.LengthStr.CharacterInDecimal
+    my $instance = length($self->{option_results}->{label});
+    foreach (split //, $self->{option_results}->{label}) {
+        $instance .= '.' . ord($_);
+    }
+    
+    return $instance;
+}
+
+sub create_command {
+    my ($self, %options) = @_;
+    my $oids2set = {};
+
+    $oids2set->{$oid_nsExtendStatus . '.' . $options{instance}} = 4;
+    $oids2set->{$oid_nsExtendArgs . '.' . $options{instance}} = $self->{option_results}->{args};
+    $oids2set->{$oid_nsExtendCommand . '.' . $options{instance}} = $self->{option_results}->{command};
+    $oids2set->{$oid_nsExtendExecType . '.' . $options{instance}} = defined($self->{option_results}->{shell}) ? 2 : 1;
+    $self->{snmp}->set(oids => $oids2set);
+}
+
+sub update_command {
+    my ($self, %options) = @_;
+    my $shell = defined($self->{option_results}->{shell}) ? 2 : 1;
+    
+    # Cannot change values
+    if ($options{result}->{$oid_nsExtendStorage . '.' . $options{instance}} != 2) {
+        $self->{output}->add_option_msg(short_msg => "Command label '" . $self->{option_results}->{label} . "' is not volatile. So we can't manage it.");
+        $self->{output}->option_exit();
+    }
+    
+    my $oids2set = {};
+    if (!defined($options{result}->{$oid_nsExtendCommand . '.' . $options{instance}}) || 
+        $options{result}->{$oid_nsExtendCommand . '.' . $options{instance}} ne $self->{option_results}->{command}) {
+        $oids2set->{$oid_nsExtendCommand . '.' . $options{instance}} = $self->{option_results}->{command};
+    }
+    if (!defined($options{result}->{$oid_nsExtendArgs . '.' . $options{instance}}) || 
+        $options{result}->{$oid_nsExtendArgs . '.' . $options{instance}} ne $self->{option_results}->{args}) {
+        $oids2set->{$oid_nsExtendArgs . '.' . $options{instance}} = $self->{option_results}->{args};
+    }
+    if (!defined($options{result}->{$oid_nsExtendExecType . '.' . $options{instance}}) || 
+        $options{result}->{$oid_nsExtendExecType . '.' . $options{instance}} ne $shell) {
+        $oids2set->{$oid_nsExtendExecType . '.' . $options{instance}} = $shell;
+    }
+    
+    if (scalar(keys %$oids2set) > 0) {
+        $self->{snmp}->set(oids => $oids2set);
+    }
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{snmp} = snmp object
+    $self->{snmp} = $options{snmp};
+    $self->{hostname} = $self->{snmp}->get_hostname();
+
+    # snmpset -On -c test -v 2c localhost \
+    #    '.1.3.6.1.4.1.8072.1.3.2.2.1.21.4.104.102.101.102'  = 4 \
+    #    '.1.3.6.1.4.1.8072.1.3.2.2.1.2.4.104.102.101.102' = /bin/echo \
+    #    '.1.3.6.1.4.1.8072.1.3.2.2.1.3.4.104.102.101.102'    = 'myplop' 
+    #
+    
+    my $instance = $self->get_instance();
+    $self->{snmp}->load(oids => [$oid_nsExtendArgs, $oid_nsExtendStatus, 
+                                 $oid_nsExtendCommand, $oid_nsExtendStorage, $oid_nsExtendExecType],
+                        instances => [$instance],
+                        instance_regexp => '^(.+)$');
+    my $result = $self->{snmp}->get_leef();
+    
+    if (!defined($result->{$oid_nsExtendCommand . '.' . $instance})) {
+        $self->create_command(instance => $instance);
+    } else {
+        $self->update_command(result => $result, instance => $instance);
+    }
+
+    $result = $self->{snmp}->get_leef(oids => [$oid_nsExtendOutputFull . '.' . $instance,
+                                               $oid_nsExtendResult . '.' . $instance], nothing_quit => 1);
+    
+    $self->{output}->output_add(severity => $self->{output}->get_litteral_status(status => $result->{$oid_nsExtendResult . '.' . $instance}),
+                                short_msg => $result->{$oid_nsExtendOutputFull . '.' . $instance});
+    $self->{output}->display(force_ignore_perfdata => 1);
+    $self->{output}->exit();
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+Execute command through SNMP.
+Some prerequisites:
+- 'net-snmp' and 'NET-SNMP-EXTEND-MIB' support ;
+- a write account.
+
+=over 8
+
+=item B<--label>
+
+Label which identify the command
+
+=item B<--command>
+
+Command executable.
+
+=item B<--args>
+
+Command arguments.
+
+=item B<--shell>
+
+Use a sub-shell to execute the command.
+
+=back
+
+=cut

snmp_standard/mode/listinterfaces.pm

@@ -0,0 +1,303 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package snmp_standard::mode::listinterfaces;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+
+my @operstatus = ("up", "down", "testing", "unknown", "dormant", "notPresent", "lowerLayerDown");
+my %oids_iftable = (
+    'ifdesc' => '.1.3.6.1.2.1.2.2.1.2',
+    'ifalias' => '.1.3.6.1.2.1.31.1.1.1.18',
+    'ifname' => '.1.3.6.1.2.1.31.1.1.1.1'
+);
+
+my $oid_adminstatus = '.1.3.6.1.2.1.2.2.1.7';
+my $oid_operstatus = '.1.3.6.1.2.1.2.2.1.8';
+my $oid_speed32 = '.1.3.6.1.2.1.2.2.1.5'; # in b/s
+my $oid_speed64 = '.1.3.6.1.2.1.31.1.1.1.15';
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                { 
+                                  "name"                    => { name => 'use_name' },
+                                  "interface:s"             => { name => 'interface' },
+                                  "speed:s"                 => { name => 'speed' },
+                                  "filter-status:s"         => { name => 'filter_status' },
+                                  "use-adminstatus"         => { name => 'use_adminstatus' },
+                                  "regexp"                  => { name => 'use_regexp' },
+                                  "regexp-isensitive"       => { name => 'use_regexpi' },
+                                  "oid-filter:s"            => { name => 'oid_filter', default => 'ifname'},
+                                  "oid-display:s"           => { name => 'oid_display', default => 'ifname'},
+                                  "display-transform-src:s" => { name => 'display_transform_src' },
+                                  "display-transform-dst:s" => { name => 'display_transform_dst' },
+                                });
+
+    $self->{interface_id_selected} = [];
+    
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+
+    $self->{option_results}->{oid_filter} = lc($self->{option_results}->{oid_filter});
+    if ($self->{option_results}->{oid_filter} !~ /^(ifdesc|ifalias|ifname)$/) {
+        $self->{output}->add_option_msg(short_msg => "Unsupported --oid-filter option.");
+        $self->{output}->option_exit();
+    }
+    $self->{option_results}->{oid_display} = lc($self->{option_results}->{oid_display});
+    if ($self->{option_results}->{oid_display} !~ /^(ifdesc|ifalias|ifname)$/) {
+        $self->{output}->add_option_msg(short_msg => "Unsupported --oid-display option.");
+        $self->{output}->option_exit();
+    }
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{snmp} = snmp object
+    $self->{snmp} = $options{snmp};
+
+    $self->manage_selection();
+    my $result = $self->get_additional_information();
+    
+    my $interfaces_display = '';
+    my $interfaces_display_append = '';
+    foreach (sort @{$self->{interface_id_selected}}) {
+        my $display_value = $self->get_display_value(id => $_);
+
+        my $interface_speed = (defined($result->{$oid_speed64 . "." . $_}) && $result->{$oid_speed64 . "." . $_} ne '' ? ($result->{$oid_speed64 . "." . $_}) : (int($result->{$oid_speed32 . "." . $_} / 1000 / 1000)));        
+        if (defined($self->{option_results}->{speed}) && $self->{option_results}->{speed} ne '') {
+            $interface_speed = $self->{option_results}->{speed};
+        }
+        if (defined($self->{option_results}->{filter_status}) && $operstatus[$result->{$oid_operstatus . "." . $_} - 1] !~ /$self->{option_results}->{filter_status}/i) {
+            next;
+        }
+        if (defined($self->{option_results}->{use_adminstatus}) && $operstatus[$result->{$oid_adminstatus . "." . $_} - 1] ne 'up') {
+            next;
+        }
+
+        $interfaces_display .= $interfaces_display_append . "name = $display_value [speed = $interface_speed, status = " . $operstatus[$result->{$oid_operstatus . "." . $_} - 1] . ", id = $_]";
+        $interfaces_display_append = ', ';
+    }
+
+    $self->{output}->output_add(severity => 'OK',
+                                short_msg => 'List interfaces: ' . $interfaces_display);
+    $self->{output}->display(nolabel => 1);
+    $self->{output}->exit();
+}
+
+sub get_additional_information {
+    my ($self, %options) = @_;
+
+    my $oids = [$oid_adminstatus, $oid_operstatus, $oid_speed32];
+    if (!$self->{snmp}->is_snmpv1()) {
+        push @$oids, $oid_speed64;
+    }
+    
+    $self->{snmp}->load(oids => $oids, instances => $self->{interface_id_selected});
+    return $self->{snmp}->get_leef();
+}
+
+sub get_display_value {
+    my ($self, %options) = @_;
+    my $value = $self->{datas}->{$self->{option_results}->{oid_display} . "_" . $options{id}};
+
+    if (defined($self->{option_results}->{display_transform_src})) {
+        $self->{option_results}->{display_transform_dst} = '' if (!defined($self->{option_results}->{display_transform_dst}));
+        eval "\$value =~ s{$self->{option_results}->{display_transform_src}}{$self->{option_results}->{display_transform_dst}}";
+    }
+    return $value;
+}
+
+sub manage_selection {
+    my ($self, %options) = @_;
+
+    $self->{datas} = {};
+    $self->{datas}->{oid_filter} = $self->{option_results}->{oid_filter};
+    $self->{datas}->{oid_display} = $self->{option_results}->{oid_display};
+    my $result = $self->{snmp}->get_table(oid => $oids_iftable{$self->{option_results}->{oid_filter}});
+    my $total_interface = 0;
+    foreach my $key ($self->{snmp}->oid_lex_sort(keys %$result)) {
+        next if ($key !~ /\.([0-9]+)$/);
+        $self->{datas}->{$self->{option_results}->{oid_filter} . "_" . $1} = $self->{output}->to_utf8($result->{$key});
+        $total_interface = $1;
+    }
+    
+    if (scalar(keys %{$self->{datas}}) <= 0) {
+        $self->{output}->add_option_msg(short_msg => "Can't get interfaces...");
+        $self->{output}->option_exit();
+    }
+
+    if ($self->{option_results}->{oid_filter} ne $self->{option_results}->{oid_display}) {
+       $result = $self->{snmp}->get_table(oid => $oids_iftable{$self->{option_results}->{oid_display}});
+       foreach my $key ($self->{snmp}->oid_lex_sort(keys %$result)) {
+            next if ($key !~ /\.([0-9]+)$/);
+            $self->{datas}->{$self->{option_results}->{oid_display} . "_" . $1} = $self->{output}->to_utf8($result->{$key});
+       }
+    }
+    
+    if (!defined($self->{option_results}->{use_name}) && defined($self->{option_results}->{interface})) {
+        # get by ID
+        push @{$self->{interface_id_selected}}, $self->{option_results}->{interface}; 
+        my $name = $self->{datas}->{$self->{option_results}->{oid_display} . "_" . $self->{option_results}->{interface}};
+        if (!defined($name)) {
+            $self->{output}->add_option_msg(short_msg => "No interface found for id '" . $self->{option_results}->{interface} . "'.");
+            $self->{output}->option_exit();
+        }
+    } else {
+        for (my $i = 0; $i <= $total_interface; $i++) {
+            my $filter_name = $self->{datas}->{$self->{option_results}->{oid_filter} . "_" . $i};
+            next if (!defined($filter_name));
+            if (!defined($self->{option_results}->{interface})) {
+                push @{$self->{interface_id_selected}}, $i; 
+                next;
+            }
+            if (defined($self->{option_results}->{use_regexp}) && defined($self->{option_results}->{use_regexpi}) && $filter_name =~ /$self->{option_results}->{interface}/i) {
+                push @{$self->{interface_id_selected}}, $i; 
+            }
+            if (defined($self->{option_results}->{use_regexp}) && !defined($self->{option_results}->{use_regexpi}) && $filter_name =~ /$self->{option_results}->{interface}/) {
+                push @{$self->{interface_id_selected}}, $i; 
+            }
+            if (!defined($self->{option_results}->{use_regexp}) && !defined($self->{option_results}->{use_regexpi}) && $filter_name eq $self->{option_results}->{interface}) {
+                push @{$self->{interface_id_selected}}, $i; 
+            }
+        }
+        
+        if (scalar(@{$self->{interface_id_selected}}) <= 0) {
+            $self->{output}->add_option_msg(short_msg => "No interface found for name '" . $self->{option_results}->{interface} . "'.");
+            $self->{output}->option_exit();
+        }
+    }
+}
+
+sub disco_format {
+    my ($self, %options) = @_;
+    
+    $self->{output}->add_disco_format(elements => ['name', 'total', 'status', 'interfaceid']);
+}
+
+sub disco_show {
+    my ($self, %options) = @_;
+    # $options{snmp} = snmp object
+    $self->{snmp} = $options{snmp};
+
+    $self->manage_selection();
+    my $result = $self->get_additional_information();
+    foreach (sort @{$self->{interface_id_selected}}) {
+        my $display_value = $self->get_display_value(id => $_);
+        
+        my $interface_speed = (defined($result->{$oid_speed64 . "." . $_}) && $result->{$oid_speed64 . "." . $_} ne '' ? ($result->{$oid_speed64 . "." . $_}) : (int($result->{$oid_speed32 . "." . $_} / 1000 / 1000)));        
+        if (defined($self->{option_results}->{speed}) && $self->{option_results}->{speed} ne '') {
+            $interface_speed = $self->{option_results}->{speed};
+        }
+        if (defined($self->{option_results}->{filter_status}) && $operstatus[$result->{$oid_operstatus . "." . $_} - 1] !~ /$self->{option_results}->{filter_status}/i) {
+            next;
+        }
+        if (defined($self->{option_results}->{use_adminstatus}) && $operstatus[$result->{$oid_adminstatus . "." . $_} - 1] ne 'up') {
+            next;
+        }
+        
+        $self->{output}->add_disco_entry(name => $display_value,
+                                         total => $interface_speed,
+                                         status => $result->{$oid_operstatus . "." . $_},
+                                         interfaceid => $_);
+    }
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+=over 8
+
+=item B<--interface>
+
+Set the interface (number expected) ex: 1, 2,... (empty means 'check all interface').
+
+=item B<--name>
+
+Allows to use interface name with option --interface instead of interface oid index.
+
+=item B<--regexp>
+
+Allows to use regexp to filter interfaces (with option --name).
+
+=item B<--regexp-isensitive>
+
+Allows to use regexp non case-sensitive (with --regexp).
+
+=item B<--speed>
+
+Set interface speed (in Mb).
+
+=item B<--filter-status>
+
+Display interfaces matching the filter (example: 'up').
+
+=item B<--use-adminstatus>
+
+Display interfaces with AdminStatus 'up'.
+
+=item B<--oid-filter>
+
+Choose OID used to filter interface (default: ifName) (values: ifDesc, ifAlias, ifName).
+
+=item B<--oid-display>
+
+Choose OID used to display interface (default: ifName) (values: ifDesc, ifAlias, ifName).
+
+=item B<--display-transform-src>
+
+Regexp src to transform display value. (security risk!!!)
+
+=item B<--display-transform-dst>
+
+Regexp dst to transform display value. (security risk!!!)
+
+=back
+
+=cut

snmp_standard/mode/liststorages.pm

@@ -0,0 +1,264 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package snmp_standard::mode::liststorages;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+
+my %oids_hrStorageTable = (
+    'hrstoragedescr' => '.1.3.6.1.2.1.25.2.3.1.3',
+    'hrfsmountpoint' => '.1.3.6.1.2.1.25.3.8.1.2',
+    'hrstoragetype' => '.1.3.6.1.2.1.25.2.3.1.2',
+);
+
+my $oid_hrStorageAllocationUnits = '.1.3.6.1.2.1.25.2.3.1.4';
+my $oid_hrStorageSize = '.1.3.6.1.2.1.25.2.3.1.5';
+my $oid_hrStorageType = '.1.3.6.1.2.1.25.2.3.1.2';
+my $oid_hrStorageFixedDisk = '.1.3.6.1.2.1.25.2.1.4';
+my $oid_hrStorageNetworkDisk = '.1.3.6.1.2.1.25.2.1.10';
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                { 
+                                  "storage:s"               => { name => 'storage' },
+                                  "name"                    => { name => 'use_name' },
+                                  "regexp"                  => { name => 'use_regexp' },
+                                  "regexp-isensitive"       => { name => 'use_regexpi' },
+                                  "oid-filter:s"            => { name => 'oid_filter', default => 'hrStorageDescr'},
+                                  "oid-display:s"           => { name => 'oid_display', default => 'hrStorageDescr'},
+                                  "display-transform-src:s" => { name => 'display_transform_src' },
+                                  "display-transform-dst:s" => { name => 'display_transform_dst' },
+                                });
+
+    $self->{storage_id_selected} = [];
+    
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+
+    $self->{option_results}->{oid_filter} = lc($self->{option_results}->{oid_filter});
+    if ($self->{option_results}->{oid_filter} !~ /^(hrstoragedescr|hrfsmountpoint)$/) {
+       $self->{output}->add_option_msg(short_msg => "Unsupported --oid-filter option.");
+       $self->{output}->option_exit();
+    }
+    $self->{option_results}->{oid_display} = lc($self->{option_results}->{oid_display});
+    if ($self->{option_results}->{oid_display} !~ /^(hrstoragedescr|hrfsmountpoint)$/) {
+       $self->{output}->add_option_msg(short_msg => "Unsupported --oid-display option.");
+       $self->{output}->option_exit();
+    }
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{snmp} = snmp object
+    $self->{snmp} = $options{snmp};
+
+    $self->manage_selection();
+    my $result = $self->get_additional_information();
+    
+    my $storage_display = '';
+    my $storage_display_append = '';
+    foreach (sort @{$self->{storage_id_selected}}) {
+        my $display_value = $self->get_display_value(id => $_);
+        my $storage_type = $result->{$oid_hrStorageType . "." . $_};
+        next if (!defined($storage_type) || ($storage_type ne $oid_hrStorageFixedDisk && $storage_type ne $oid_hrStorageNetworkDisk));
+        
+        $storage_display .= $storage_display_append . "name = $display_value [size = " . $result->{$oid_hrStorageSize . "." . $_} * $result->{$oid_hrStorageAllocationUnits . "." . $_}  . "B, id = $_]";
+        $storage_display_append = ', ';
+    }
+
+    $self->{output}->output_add(severity => 'OK',
+                                short_msg => 'List storage: ' . $storage_display);
+    $self->{output}->display(nolabel => 1);
+    $self->{output}->exit();
+}
+
+sub get_additional_information {
+    my ($self, %options) = @_;
+    
+    $self->{snmp}->load(oids => [$oid_hrStorageType, $oid_hrStorageAllocationUnits, $oid_hrStorageSize], instances => $self->{storage_id_selected});
+    return $self->{snmp}->get_leef();
+}
+
+sub get_display_value {
+    my ($self, %options) = @_;
+    my $value = $self->{datas}->{$self->{option_results}->{oid_display} . "_" . $options{id}};
+
+    if (defined($self->{option_results}->{display_transform_src})) {
+        $self->{option_results}->{display_transform_dst} = '' if (!defined($self->{option_results}->{display_transform_dst}));
+        eval "\$value =~ s{$self->{option_results}->{display_transform_src}}{$self->{option_results}->{display_transform_dst}}";
+    }
+    return $value;
+}
+
+sub manage_selection {
+    my ($self, %options) = @_;
+
+    $self->{datas} = {};
+    $self->{datas}->{oid_filter} = $self->{option_results}->{oid_filter};
+    $self->{datas}->{oid_display} = $self->{option_results}->{oid_display};
+    my $result = $self->{snmp}->get_table(oid => $oids_hrStorageTable{$self->{option_results}->{oid_filter}});
+    my $total_storage = 0;
+    foreach my $key ($self->{snmp}->oid_lex_sort(keys %$result)) {
+        next if ($key !~ /\.([0-9]+)$/);
+        $self->{datas}->{$self->{option_results}->{oid_filter} . "_" . $1} = $self->{output}->to_utf8($result->{$key});
+        $total_storage = $1;
+    }
+    
+    if (scalar(keys %{$self->{datas}}) <= 0) {
+        $self->{output}->add_option_msg(short_msg => "Can't get storages...");
+        $self->{output}->option_exit();
+    }
+
+    if ($self->{option_results}->{oid_filter} ne $self->{option_results}->{oid_display}) {
+       $result = $self->{snmp}->get_table(oid => $oids_hrStorageTable{$self->{option_results}->{oid_display}});
+       foreach my $key ($self->{snmp}->oid_lex_sort(keys %$result)) {
+            next if ($key !~ /\.([0-9]+)$/);
+            $self->{datas}->{$self->{option_results}->{oid_display} . "_" . $1} = $self->{output}->to_utf8($result->{$key});
+       }
+    }
+    
+    if (!defined($self->{option_results}->{use_name}) && defined($self->{option_results}->{storage})) {
+        # get by ID
+        push @{$self->{storage_id_selected}}, $self->{option_results}->{storage}; 
+        my $name = $self->{datas}->{$self->{option_results}->{oid_display} . "_" . $self->{option_results}->{storage}};
+        if (!defined($name)) {
+            $self->{output}->add_option_msg(short_msg => "No storage found for id '" . $self->{option_results}->{storage} . "'.");
+            $self->{output}->option_exit();
+        }
+    } else {
+        for (my $i = 0; $i <= $total_storage; $i++) {
+            my $filter_name = $self->{datas}->{$self->{option_results}->{oid_filter} . "_" . $i};
+            next if (!defined($filter_name));
+            if (!defined($self->{option_results}->{storage})) {
+                push @{$self->{storage_id_selected}}, $i; 
+                next;
+            }
+            if (defined($self->{option_results}->{use_regexp}) && defined($self->{option_results}->{use_regexpi}) && $filter_name =~ /$self->{option_results}->{storage}/i) {
+                push @{$self->{storage_id_selected}}, $i; 
+            }
+            if (defined($self->{option_results}->{use_regexp}) && !defined($self->{option_results}->{use_regexpi}) && $filter_name =~ /$self->{option_results}->{storage}/) {
+                push @{$self->{storage_id_selected}}, $i; 
+            }
+            if (!defined($self->{option_results}->{use_regexp}) && !defined($self->{option_results}->{use_regexpi}) && $filter_name eq $self->{option_results}->{storage}) {
+                push @{$self->{storage_id_selected}}, $i; 
+            }
+        }
+        
+        if (scalar(@{$self->{storage_id_selected}}) <= 0) {
+            $self->{output}->add_option_msg(short_msg => "No storage found for name '" . $self->{option_results}->{storage} . "'.");
+            $self->{output}->option_exit();
+        }
+    }
+}
+
+sub disco_format {
+    my ($self, %options) = @_;
+    
+    $self->{output}->add_disco_format(elements => ['name', 'total', 'storageid']);
+}
+
+sub disco_show {
+    my ($self, %options) = @_;
+    # $options{snmp} = snmp object
+    $self->{snmp} = $options{snmp};
+
+    $self->manage_selection();
+    my $result = $self->get_additional_information();
+    foreach (sort @{$self->{storage_id_selected}}) {
+        my $display_value = $self->get_display_value(id => $_);
+        my $storage_type = $result->{$oid_hrStorageType . "." . $_};
+        next if (!defined($storage_type) || ($storage_type ne $oid_hrStorageFixedDisk && $storage_type ne $oid_hrStorageNetworkDisk));
+
+        $self->{output}->add_disco_entry(name => $display_value,
+                                         total => $result->{$oid_hrStorageSize . "." . $_} * $result->{$oid_hrStorageAllocationUnits . "." . $_},
+                                         storageid => $_);
+    }
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+=over 8
+
+=item B<--storage>
+
+Set the storage (number expected) ex: 1, 2,... (empty means 'check all storage').
+
+=item B<--name>
+
+Allows to use storage name with option --storage instead of storage oid index.
+
+=item B<--regexp>
+
+Allows to use regexp to filter storage (with option --name).
+
+=item B<--regexp-isensitive>
+
+Allows to use regexp non case-sensitive (with --regexp).
+
+=item B<--oid-filter>
+
+Choose OID used to filter storage (default: hrStorageDescr) (values: hrStorageDescr, hrFSRemoteMountPoint).
+
+=item B<--oid-display>
+
+Choose OID used to display storage (default: hrStorageDescr) (values: hrStorageDescr, hrFSRemoteMountPoint).
+
+=item B<--display-transform-src>
+
+Regexp src to transform display value. (security risk!!!)
+
+=item B<--display-transform-dst>
+
+Regexp dst to transform display value. (security risk!!!)
+
+=back
+
+=cut

snmp_standard/mode/loadaverage.pm

@@ -0,0 +1,153 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package snmp_standard::mode::loadaverage;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                { 
+                                  "warning:s"               => { name => 'warning', default => '' },
+                                  "critical:s"              => { name => 'critical', default => '' },
+                                });
+
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+
+    ($self->{warn1}, $self->{warn5}, $self->{warn15}) = split /,/, $self->{option_results}->{warning};
+    ($self->{crit1}, $self->{crit5}, $self->{crit15}) = split /,/, $self->{option_results}->{critical};
+    
+    if (($self->{perfdata}->threshold_validate(label => 'warn1', value => $self->{warn1})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong warning (1min) threshold '" . $self->{warn1} . "'.");
+       $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'warn5', value => $self->{warn5})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong warning (5min) threshold '" . $self->{warn5} . "'.");
+       $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'warn15', value => $self->{warn15})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong warning (15min) threshold '" . $self->{warn15} . "'.");
+       $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'crit1', value => $self->{crit1})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong critical (1min) threshold '" . $self->{crit1} . "'.");
+       $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'crit5', value => $self->{crit5})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong critical (5min) threshold '" . $self->{crit5} . "'.");
+       $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'crit15', value => $self->{crit15})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong critical (15min) threshold '" . $self->{crit15} . "'.");
+       $self->{output}->option_exit();
+    }
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{snmp} = snmp object
+    $self->{snmp} = $options{snmp};
+    
+    my $oid_CpuLoad1m = '.1.3.6.1.4.1.2021.10.1.3.1';
+    my $oid_CpuLoad5m = '.1.3.6.1.4.1.2021.10.1.3.2';
+    my $oid_CpuLoad15m = '.1.3.6.1.4.1.2021.10.1.3.3';
+
+    my $result = $self->{snmp}->get_leef(oids => [$oid_CpuLoad1m, $oid_CpuLoad5m, $oid_CpuLoad15m]);
+    
+    my $exit1 = $self->{perfdata}->threshold_check(value => $result->{$oid_CpuLoad1m}, 
+                               threshold => [ { label => 'crit1', 'exit_litteral' => 'critical' }, { label => 'warn1', exit_litteral => 'warning' } ]);
+    my $exit2 = $self->{perfdata}->threshold_check(value => $result->{$oid_CpuLoad5m}, 
+                               threshold => [ { label => 'crit5', 'exit_litteral' => 'critical' }, { label => 'warn5', exit_litteral => 'warning' } ]);
+    my $exit3 = $self->{perfdata}->threshold_check(value => $result->{$oid_CpuLoad15m}, 
+                               threshold => [ { label => 'crit15', 'exit_litteral' => 'critical' }, { label => 'warn15', exit_litteral => 'warning' } ]);
+    
+    my $exit = $self->{output}->get_most_critical(status => [ $exit1, $exit2, $exit3 ]);
+    $self->{output}->output_add(severity => $exit,
+                                short_msg => sprintf("Load average: %s, %s, %s", $result->{$oid_CpuLoad1m}, $result->{$oid_CpuLoad5m}, $result->{$oid_CpuLoad15m}));
+            
+    $self->{output}->perfdata_add(label => 'load1',
+                                  value => $result->{$oid_CpuLoad1m},
+                                  warning => $self->{perfdata}->get_perfdata_for_output(label => 'warn1'),
+                                  critical => $self->{perfdata}->get_perfdata_for_output(label => 'crit1'),
+                                  min => 0);
+    $self->{output}->perfdata_add(label => 'load5',
+                                  value => $result->{$oid_CpuLoad5m},
+                                  warning => $self->{perfdata}->get_perfdata_for_output(label => 'warn5'),
+                                  critical => $self->{perfdata}->get_perfdata_for_output(label => 'crit5'),
+                                  min => 0);
+    $self->{output}->perfdata_add(label => 'load15',
+                                  value => $result->{$oid_CpuLoad15m},
+                                  warning => $self->{perfdata}->get_perfdata_for_output(label => 'warn15'),
+                                  critical => $self->{perfdata}->get_perfdata_for_output(label => 'crit15'),
+                                  min => 0);
+
+    $self->{output}->display();
+    $self->{output}->exit();
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+Check system load-average.
+
+=over 8
+
+=item B<--warning>
+
+Threshold warning (1min,5min,15min).
+
+=item B<--critical>
+
+Threshold critical (1min,5min,15min).
+
+=back
+
+=cut

snmp_standard/mode/numericvalue.pm

@@ -0,0 +1,226 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package snmp_standard::mode::numericvalue;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+use centreon::plugins::statefile;
+use Digest::MD5 qw(md5_hex);
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                { 
+                                  "oid:s"                   => { name => 'oid' },
+                                  "oid-type:s"              => { name => 'oid_type', default => 'gauge' },
+                                  "counter-per-seconds"     => { name => 'counter_per_seconds' },
+                                  "warning:s"               => { name => 'warning' },
+                                  "critical:s"              => { name => 'critical' },
+                                  "format:s"                => { name => 'format', default => 'current value is %s' },
+                                  "format-scale"            => { name => 'format_scale' },
+                                  "format-scale-unit:s"     => { name => 'format_scale_unit', default => 'other'},
+                                  "perfdata-unit:s"         => { name => 'perfdata_unit', default => ''},
+                                  "perfdata-name:s"         => { name => 'perfdata_name', default => 'value'},
+                                  "perfdata-max:s"          => { name => 'perfdata_min', default => ''},
+                                  "perfdata-max:s"          => { name => 'perfdata_max', default => ''},
+                                });
+    $self->{statefile_cache} = centreon::plugins::statefile->new(%options);
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+
+    if (!defined($self->{option_results}->{oid})) {
+       $self->{output}->add_option_msg(short_msg => "Need to specify an OID.");
+       $self->{output}->option_exit(); 
+    }
+    if ($self->{option_results}->{oid_type} !~ /^gauge|counter$/i) {
+       $self->{output}->add_option_msg(short_msg => "Wrong --oid-type argument '" . $self->{option_results}->{oid_type} . "' ('gauge' or 'counter').");
+       $self->{output}->option_exit();
+    }
+    if ($self->{option_results}->{format_scale_unit} !~ /^other|network$/i) {
+       $self->{output}->add_option_msg(short_msg => "Wrong --format-scale-unit argument '" . $self->{option_results}->{format_scale_unit} . "' ('other' or 'network').");
+       $self->{output}->option_exit();
+    }
+    
+    if (($self->{perfdata}->threshold_validate(label => 'warning', value => $self->{option_results}->{warning})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong warning threshold '" . $self->{option_results}->{warning} . "'.");
+       $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'critical', value => $self->{option_results}->{critical})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong critical threshold '" . $self->{option_results}->{critical} . "'.");
+       $self->{output}->option_exit();
+    }
+    
+    if ($self->{option_results}->{oid_type} =~ /^counter$/i)  {
+        $self->{statefile_cache}->check_options(%options);
+    }
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{snmp} = snmp object
+    $self->{snmp} = $options{snmp};
+    $self->{hostname} = $self->{snmp}->get_hostname();
+
+    my $result = $self->{snmp}->get_leef(oids => [$self->{option_results}->{oid}], nothing_quit => 1);
+    my $value = $result->{$self->{option_results}->{oid}};
+    
+    if ($self->{option_results}->{oid_type} =~ /^counter$/i)  {
+        my $datas = {};
+
+        $self->{statefile_cache}->read(statefile => "snmpstandard_" . $self->{hostname}  . '_' . $self->{mode} . '_' . md5_hex($self->{option_results}->{oid}));
+        my $old_timestamp = $self->{statefile_cache}->get(name => 'timestamp');
+        my $old_value = $self->{statefile_cache}->get(name => 'value');
+        
+        $datas->{timestamp} = time();
+        $datas->{value} = $value;
+        $self->{statefile_cache}->write(data => $datas);
+        if (!defined($old_timestamp)) {
+            $self->{output}->output_add(severity => 'OK',
+                                        short_msg => "Buffer creation...");
+            $self->{output}->display();
+            $self->{output}->exit();
+        }
+        
+        $value = $value - $old_value;
+        if (defined($self->{option_results}->{counter_per_seconds})) {
+            my $delta_time = $datas->{timestamp} - $old_timestamp;
+            $delta_time = 1 if ($delta_time == 0); # at least 1 sec
+            $value = $value / $delta_time;
+        }
+    }
+    
+    my $exit = $self->{perfdata}->threshold_check(value => $value, 
+                               threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]);
+    if (defined($self->{option_results}->{format_scale})) {
+        my ($value_mod, $value_unit) = $self->{perfdata}->change_bytes(value => $value);
+        if ($self->{option_results}->{format_scale} =~ /^network$/i) {
+            ($value_mod, $value_unit) = $self->{perfdata}->change_bytes(value => $value, network => 1);
+        }
+        $self->{output}->output_add(severity => $exit,
+                                    short_msg => sprintf($self->{option_results}->{format}, $value_mod . $value_unit));
+    } else {
+        $self->{output}->output_add(severity => $exit,
+                                    short_msg => sprintf($self->{option_results}->{format}, $value));
+    }
+
+    $self->{output}->perfdata_add(label => $self->{option_results}->{perfdata_name}, unit => $self->{option_results}->{perfdata_unit},
+                                  value => $value,
+                                  warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning'),
+                                  critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical'),
+                                  min => $self->{option_results}->{perfdata_min}, max => $self->{option_results}->{perfdata_max});
+
+    $self->{output}->display();
+    $self->{output}->exit();
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+Check an SNMP numeric value: can be a Counter, Integer, Gauge, TimeTicks.
+Use 'stringvalue' mode if you want to check: 
+- 'warning' value is 2, 4 and 5.
+- 'critical' value is 1.
+- 'ok' value is 10.
+
+=over 8
+
+=item B<--oid>
+
+OID value to check (numeric format only).
+
+=item B<--warning>
+
+Threshold warning.
+
+=item B<--critical>
+
+Threshold critical.
+
+=item B<--oid-type>
+
+Type of the OID (Default: 'gauge').
+Can be 'counter' also. 'counter' will use a retention file.
+
+=item B<--counter-per-seconds>
+
+Convert counter value on a value per seconds (only with type 'counter'.
+
+=item B<--format>
+
+Output format (Default: 'current value is %s')
+
+=item B<--format-scale>
+
+Scale bytes value. We'll display value in output.
+
+=item B<--format-scale-type>
+
+Could be 'network' (value divide by 1000) or 'other' (divide by 1024) (Default: 'other')
+
+Output format (Default: 'current value is %s')
+
+=item B<--perfdata-unit>
+
+Perfdata unit in perfdata output (Default: '')
+
+=item B<--perfdata-name>
+
+Perfdata name in perfdata output (Default: 'value')
+
+=item B<--perfdata-min>
+
+Minimum value to add in perfdata output (Default: '')
+
+=item B<--perfdata-max>
+
+Maximum value to add in perfdata output (Default: '')
+
+=back
+
+=cut

snmp_standard/mode/packeterrors.pm

@@ -0,0 +1,528 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package snmp_standard::mode::packeterrors;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+use centreon::plugins::statefile;
+use Digest::MD5 qw(md5_hex);
+
+my @operstatus = ("up", "down", "testing", "unknown", "dormant", "notPresent", "lowerLayerDown");
+my %oids_iftable = (
+    'ifdesc' => '.1.3.6.1.2.1.2.2.1.2',
+    'ifalias' => '.1.3.6.1.2.1.31.1.1.1.18',
+    'ifname' => '.1.3.6.1.2.1.31.1.1.1.1'
+);
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                { 
+                                  "warning-in-discard:s"    => { name => 'warning_in_discard' },
+                                  "critical-in-discard:s"   => { name => 'critical_in_discard' },
+                                  "warning-out-discard:s"   => { name => 'warning_out_discard' },
+                                  "critical-out-discard:s"  => { name => 'critical_out_discard' },
+                                  "warning-in-error:s"    => { name => 'warning_in_error' },
+                                  "critical-in-error:s"   => { name => 'critical_in_error' },
+                                  "warning-out-error:s"   => { name => 'warning_out_error' },
+                                  "critical-out-error:s"  => { name => 'critical_out_error' },
+                                  "reload-cache-time:s"     => { name => 'reload_cache_time' },
+                                  "name"                    => { name => 'use_name' },
+                                  "interface:s"             => { name => 'interface' },
+                                  "skip"                    => { name => 'skip' },
+                                  "regexp"                  => { name => 'use_regexp' },
+                                  "regexp-isensitive"       => { name => 'use_regexpi' },
+                                  "oid-filter:s"            => { name => 'oid_filter', default => 'ifname'},
+                                  "oid-display:s"           => { name => 'oid_display', default => 'ifname'},
+                                  "display-transform-src:s" => { name => 'display_transform_src' },
+                                  "display-transform-dst:s" => { name => 'display_transform_dst' },
+                                  "show-cache"              => { name => 'show_cache' },
+                                });
+
+    $self->{interface_id_selected} = [];
+    $self->{statefile_cache} = centreon::plugins::statefile->new(%options);
+    $self->{statefile_value} = centreon::plugins::statefile->new(%options);
+    
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+
+    # 'discard' treshold
+    if (($self->{perfdata}->threshold_validate(label => 'warning-in-discard', value => $self->{option_results}->{warning_in_discard})) == 0) {
+        $self->{output}->add_option_msg(short_msg => "Wrong warning 'in discard' threshold '" . $self->{option_results}->{warning_in_discard} . "'.");
+        $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'critical-in-discard', value => $self->{option_results}->{critical_in_discard})) == 0) {
+        $self->{output}->add_option_msg(short_msg => "Wrong critical 'in discard' threshold '" . $self->{option_results}->{critical_in_discard} . "'.");
+        $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'warning-out-discard', value => $self->{option_results}->{warning_out_discard})) == 0) {
+        $self->{output}->add_option_msg(short_msg => "Wrong warning 'out discard' threshold '" . $self->{option_results}->{warning_out_disard} . "'.");
+        $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'critical-out-discard', value => $self->{option_results}->{critical_out_discard})) == 0) {
+        $self->{output}->add_option_msg(short_msg => "Wrong critical 'out discard' threshold '" . $self->{option_results}->{critical_out_discard} . "'.");
+        $self->{output}->option_exit();
+    }
+    
+    # 'errror' treshold
+    if (($self->{perfdata}->threshold_validate(label => 'warning-in-error', value => $self->{option_results}->{warning_in_error})) == 0) {
+        $self->{output}->add_option_msg(short_msg => "Wrong warning 'in error' threshold '" . $self->{option_results}->{warning_in_error} . "'.");
+        $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'critical-in-error', value => $self->{option_results}->{critical_in_error})) == 0) {
+        $self->{output}->add_option_msg(short_msg => "Wrong critical 'in error' threshold '" . $self->{option_results}->{critical_in_error} . "'.");
+        $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'warning-out-error', value => $self->{option_results}->{warning_out_error})) == 0) {
+        $self->{output}->add_option_msg(short_msg => "Wrong warning 'out error' threshold '" . $self->{option_results}->{warning_out_disard} . "'.");
+        $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'critical-out-error', value => $self->{option_results}->{critical_out_error})) == 0) {
+        $self->{output}->add_option_msg(short_msg => "Wrong critical 'out error' threshold '" . $self->{option_results}->{critical_out_error} . "'.");
+        $self->{output}->option_exit();
+    }
+    
+    $self->{option_results}->{oid_filter} = lc($self->{option_results}->{oid_filter});
+    if ($self->{option_results}->{oid_filter} !~ /^(ifdesc|ifalias|ifname)$/) {
+        $self->{output}->add_option_msg(short_msg => "Unsupported --oid-filter option.");
+        $self->{output}->option_exit();
+    }
+    $self->{option_results}->{oid_display} = lc($self->{option_results}->{oid_display});
+    if ($self->{option_results}->{oid_display} !~ /^(ifdesc|ifalias|ifname)$/) {
+        $self->{output}->add_option_msg(short_msg => "Unsupported --oid-display option.");
+        $self->{output}->option_exit();
+    }
+    
+    $self->{statefile_cache}->check_options(%options);
+    $self->{statefile_value}->check_options(%options);
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{snmp} = snmp object
+    $self->{snmp} = $options{snmp};
+    $self->{hostname} = $self->{snmp}->get_hostname();
+
+    $self->manage_selection();
+    
+    my $oid_adminstatus = '.1.3.6.1.2.1.2.2.1.7';
+    my $oid_operstatus = '.1.3.6.1.2.1.2.2.1.8';
+  
+    # 32bits
+    my $oid_ifInUcastPkts = '.1.3.6.1.2.1.2.2.1.11';
+    my $oid_ifInBroadcastPkts = '.1.3.6.1.2.1.31.1.1.1.3';
+    my $oid_ifInMulticastPkts = '.1.3.6.1.2.1.31.1.1.1.2';
+    my $oid_ifOutUcastPkts = '.1.3.6.1.2.1.2.2.1.17';
+    my $oid_ifOutMulticastPkts = '.1.3.6.1.2.1.31.1.1.1.4';
+    my $oid_ifOutBroadcastPkts = '.1.3.6.1.2.1.31.1.1.1.5';
+    
+    # 64 bits
+    my $oid_ifHCInUcastPkts = '.1.3.6.1.2.1.31.1.1.1.7';
+    my $oid_ifHCInMulticastPkts = '.1.3.6.1.2.1.31.1.1.1.8';
+    my $oid_ifHCInBroadcastPkts = '.1.3.6.1.2.1.31.1.1.1.9';
+    my $oid_ifHCOutUcastPkts = '.1.3.6.1.2.1.31.1.1.1.11';
+    my $oid_ifHCOutMulticastPkts = '.1.3.6.1.2.1.31.1.1.1.12';
+    my $oid_ifHCOutBroadcastPkts = '.1.3.6.1.2.1.31.1.1.1.13';
+
+    # 'discard' 'error' only 32 bits
+    my $oid_ifInDiscards = '.1.3.6.1.2.1.2.2.1.13';
+    my $oid_ifInErrors = '.1.3.6.1.2.1.2.2.1.14';
+    my $oid_ifOutDiscards = '.1.3.6.1.2.1.2.2.1.19';
+    my $oid_ifOutErrors = '.1.3.6.1.2.1.2.2.1.20';
+
+    my $new_datas = {};
+    $self->{statefile_value}->read(statefile => "snmpstandard_" . $self->{hostname}  . '_' . $self->{mode} . '_' . (defined($self->{option_results}->{interface}) ? md5_hex($self->{option_results}->{interface}) : md5_hex('all')));
+    
+    foreach (@{$self->{interface_id_selected}}) {
+        $self->{snmp}->load(oids => [$oid_adminstatus . "." . $_, $oid_operstatus . "." . $_, 
+                                     $oid_ifInUcastPkts . "." . $_, $oid_ifInBroadcastPkts . "." . $_, $oid_ifInMulticastPkts . "." . $_,
+                                     $oid_ifOutUcastPkts . "." . $_, $oid_ifOutMulticastPkts . "." . $_, $oid_ifOutBroadcastPkts . "." . $_,
+                                     $oid_ifInDiscards . "." . $_, $oid_ifInErrors . "." . $_,
+                                     $oid_ifOutDiscards . "." . $_, $oid_ifOutErrors . "." . $_]);
+        if (!$self->{snmp}->is_snmpv1()) {
+            $self->{snmp}->load(oids => [$oid_ifHCInUcastPkts . "." . $_, $oid_ifHCInMulticastPkts . "." . $_, $oid_ifHCInMulticastPkts . "." . $_,
+                                         $oid_ifHCOutUcastPkts . "." . $_, $oid_ifHCOutMulticastPkts . "." . $_, $oid_ifHCOutBroadcastPkts . "." . $_]);
+        }
+    }
+
+    my $result = $self->{snmp}->get_leef();
+    $new_datas->{last_timestamp} = time();
+    my $old_timestamp;
+    if (!defined($self->{option_results}->{interface}) || defined($self->{option_results}->{use_regexp})) {
+        $self->{output}->output_add(severity => 'OK',
+                                    short_msg => 'All interfaces are ok.');
+    }
+
+    foreach (sort @{$self->{interface_id_selected}}) {
+        my $display_value = $self->get_display_value(id => $_);
+        
+        if ($operstatus[$result->{$oid_operstatus . "." . $_} - 1] ne "up") {
+            if (!defined($self->{option_results}->{skip}) && (!defined($result->{$oid_adminstatus . "." . $_}) || $operstatus[$result->{$oid_adminstatus . "." . $_} - 1] eq 'up') ) {
+                $self->{output}->output_add(severity => 'CRITICAL',
+                                            short_msg => "Interface '" . $display_value . "' is not ready: " . $operstatus[$result->{$oid_operstatus . "." . $_} - 1]);
+            } else {
+                $self->{output}->output_add(long_msg => "Skip interface '" . $display_value . "'.");
+            }
+            next;
+        }
+        
+        #################
+        # New values
+        #################
+        my $old_mode = $self->{statefile_value}->get(name => 'mode_' . $_);
+        $new_datas->{'mode_' . $_} = '32';
+        $new_datas->{'in_discard_' . $_} = $result->{$oid_ifInDiscards . "." . $_};
+        $new_datas->{'in_error_' . $_} = $result->{$oid_ifInErrors . "." . $_};
+        $new_datas->{'out_discard_' . $_} = $result->{$oid_ifOutDiscards . "." . $_};
+        $new_datas->{'out_error_' . $_} = $result->{$oid_ifOutErrors . "." . $_};
+    
+        $new_datas->{'in_ucast_' . $_} = $result->{$oid_ifInUcastPkts . "." . $_};
+        $new_datas->{'in_bcast_' . $_} = defined($result->{$oid_ifInBroadcastPkts . "." . $_}) ? $result->{$oid_ifInBroadcastPkts . "." . $_} : 0;
+        $new_datas->{'in_mcast_' . $_} = defined($result->{$oid_ifInMulticastPkts . "." . $_}) ? $result->{$oid_ifInMulticastPkts . "." . $_} : 0;
+        $new_datas->{'out_ucast_' . $_} = $result->{$oid_ifOutUcastPkts . "." . $_};
+        $new_datas->{'out_bcast_' . $_} = defined($result->{$oid_ifOutMulticastPkts . "." . $_}) ? $result->{$oid_ifOutMulticastPkts . "." . $_} : 0;
+        $new_datas->{'out_mcast_' . $_} = defined($result->{$oid_ifOutBroadcastPkts . "." . $_}) ? $result->{$oid_ifOutBroadcastPkts . "." . $_} : 0;
+        
+        if (defined($result->{$oid_ifHCInUcastPkts . "." . $_}) && $result->{$oid_ifHCInUcastPkts . "." . $_} ne '' && $result->{$oid_ifHCInUcastPkts . "." . $_} != 0) {
+            $new_datas->{'in_ucast_' . $_} = $result->{$oid_ifHCInUcastPkts . "." . $_};
+            $new_datas->{'in_mcast_' . $_} = defined($result->{$oid_ifHCInMulticastPkts . "." . $_}) ? $result->{$oid_ifHCInMulticastPkts . "." . $_} : 0;
+            $new_datas->{'in_bcast_' . $_} = defined($result->{$oid_ifHCInBroadcastPkts . "." . $_}) ? $result->{$oid_ifHCInBroadcastPkts . "." . $_} : 0;
+            $new_datas->{'out_ucast_' . $_} = $result->{$oid_ifHCOutUcastPkts . "." . $_};
+            $new_datas->{'out_mcast_' . $_} = defined($result->{$oid_ifHCOutMulticastPkts . "." . $_}) ? $result->{$oid_ifHCOutMulticastPkts . "." . $_} : 0;
+            $new_datas->{'out_bcast_' . $_} = defined($result->{$oid_ifHCOutBroadcastPkts . "." . $_}) ? $result->{$oid_ifHCOutBroadcastPkts . "." . $_} : 0;
+            $new_datas->{'mode_' . $_} = '64';
+        }
+        
+        # We change mode. need to recreate a buffer
+        if (!defined($old_mode) || $new_datas->{'mode_' . $_} ne $old_mode) {
+            next;
+        }
+        
+        #################
+        # Old values
+        #################
+        my @getting = ('in_ucast', 'in_bcast', 'in_mcast', 'out_ucast', 'out_bcast', 'out_mcast',
+                       'in_discard', 'in_error', 'out_discard', 'out_error');
+        my $old_datas = {};
+        $old_timestamp = $self->{statefile_value}->get(name => 'last_timestamp');
+        foreach my $key (@getting) {
+            $old_datas->{$key} = $self->{statefile_value}->get(name => $key . '_' . $_);
+            if (!defined($old_datas->{$key}) || $new_datas->{$key . '_' . $_} < $old_datas->{$key}) {
+                # We set 0. Has reboot.
+                $old_datas->{$key} = 0;
+            }
+        }
+        
+        if (!defined($old_timestamp)) {
+            next;
+        }
+        my $time_delta = $new_datas->{last_timestamp} - $old_timestamp;
+        if ($time_delta <= 0) {
+            # At least one second. two fast calls ;)
+            $time_delta = 1;
+        }
+        
+        ############
+
+        my $total_in_packets = ($new_datas->{'in_ucast_' . $_} - $old_datas->{in_ucast}) + ($new_datas->{'in_bcast_' . $_} - $old_datas->{in_bcast}) + ($new_datas->{'in_mcast_' . $_} - $old_datas->{in_mcast});
+        my $total_out_packets = ($new_datas->{'out_ucast_' . $_} - $old_datas->{out_ucast}) + ($new_datas->{'out_bcast_' . $_} - $old_datas->{out_bcast}) + ($new_datas->{'out_mcast_' . $_} - $old_datas->{out_mcast});
+        
+        my $in_discard_absolute_per_sec = ($new_datas->{'in_discard_' . $_} - $old_datas->{in_discard}) / $time_delta;
+        my $in_error_absolute_per_sec = ($new_datas->{'in_error_' . $_} - $old_datas->{in_error}) / $time_delta;
+        my $out_discard_absolute_per_sec = ($new_datas->{'out_discard_' . $_} - $old_datas->{out_discard}) / $time_delta;
+        my $out_error_absolute_per_sec = ($new_datas->{'out_error_' . $_} - $old_datas->{out_error}) / $time_delta;
+        my $in_discard_prct = ($total_in_packets == 0) ? 0 : ($new_datas->{'in_discard_' . $_} - $old_datas->{in_discard}) * 100 / $total_in_packets;
+        my $in_error_prct = ($total_in_packets == 0) ? 0 : ($new_datas->{'in_error_' . $_} - $old_datas->{in_error}) * 100 / $total_in_packets;
+        my $out_discard_prct = ($total_out_packets == 0) ? 0 : ($new_datas->{'out_discard_' . $_} - $old_datas->{out_discard}) * 100 / $total_out_packets;
+        my $out_error_prct = ($total_out_packets == 0) ? 0 : ($new_datas->{'out_error_' . $_} - $old_datas->{out_error}) * 100 / $total_out_packets;
+       
+        ###########
+        # Manage Output
+        ###########
+        my $exit1 = $self->{perfdata}->threshold_check(value => $in_discard_prct, threshold => [ { label => 'critical-in-discard', 'exit_litteral' => 'critical' }, { label => 'warning-in-discard', exit_litteral => 'warning' } ]);
+        my $exit2 = $self->{perfdata}->threshold_check(value => $in_error_prct, threshold => [ { label => 'critical-in-error', 'exit_litteral' => 'critical' }, { label => 'warning-in-error', exit_litteral => 'warning' } ]);
+        my $exit3 = $self->{perfdata}->threshold_check(value => $out_discard_prct, threshold => [ { label => 'critical-out-discard', 'exit_litteral' => 'critical' }, { label => 'warning-out-discard', exit_litteral => 'warning' } ]);
+        my $exit4 = $self->{perfdata}->threshold_check(value => $out_error_prct, threshold => [ { label => 'critical-out-error', 'exit_litteral' => 'critical' }, { label => 'warning-out-error', exit_litteral => 'warning' } ]);
+
+        my $exit = $self->{output}->get_most_critical(status => [ $exit1, $exit2, $exit3, $exit4 ]);
+        $self->{output}->output_add(long_msg => sprintf("Interface '%s' Packets In Discard : %.2f %% (%d), In Error : %.2f %% (%d), Out Discard: %.2f %% (%d), Out Error: %.2f %% (%d)", $display_value,
+                                       $in_discard_prct, $new_datas->{'in_discard_' . $_} - $old_datas->{in_discard},
+                                       $in_error_prct, $new_datas->{'in_error_' . $_} - $old_datas->{in_error},
+                                       $out_discard_prct, $new_datas->{'out_discard_' . $_} - $old_datas->{out_discard},
+                                       $out_error_prct, $new_datas->{'out_error_' . $_} - $old_datas->{out_error}
+                                       ));
+        if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1) || (defined($self->{option_results}->{interface}) && !defined($self->{option_results}->{use_regexp}))) {
+            $self->{output}->output_add(severity => $exit,
+                                        short_msg => sprintf("Interface '%s' Packets In Discard : %.2f %% (%d), In Error : %.2f %% (%d), Out Discard: %.2f %% (%d), Out Error: %.2f %% (%d)", $display_value,
+                                       $in_discard_prct, $new_datas->{'in_discard_' . $_} - $old_datas->{in_discard},
+                                       $in_error_prct, $new_datas->{'in_error_' . $_} - $old_datas->{in_error},
+                                       $out_discard_prct, $new_datas->{'out_discard_' . $_} - $old_datas->{out_discard},
+                                       $out_error_prct, $new_datas->{'out_error_' . $_} - $old_datas->{out_error}
+                                       ));
+        }
+
+        my $extra_label = '';
+        $extra_label = '_' . $display_value if (!defined($self->{option_results}->{interface}) || defined($self->{option_results}->{use_regexp}));
+        $self->{output}->perfdata_add(label => 'packets_discard_in' . $extra_label, unit => '%',
+                                      value => sprintf("%.2f", $in_discard_prct),
+                                      warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning-in-discard'),
+                                      critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical-in-discard'),
+                                      min => 0, max => 100);
+        $self->{output}->perfdata_add(label => 'packets_error_in' . $extra_label, unit => '%',
+                                      value => sprintf("%.2f", $in_error_prct),
+                                      warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning-in-error'),
+                                      critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical-in-error'),
+                                      min => 0, max => 100);
+        $self->{output}->perfdata_add(label => 'packets_discard_out' . $extra_label, unit => '%',
+                                      value => sprintf("%.2f", $out_discard_prct),
+                                      warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning-out-discard'),
+                                      critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical-out-discard'),
+                                      min => 0, max => 100);
+        $self->{output}->perfdata_add(label => 'packets_error_out' . $extra_label, unit => '%',
+                                      value => sprintf("%.2f", $out_error_prct),
+                                      warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning-out-error'),
+                                      critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical-out-error'),
+                                      min => 0, max => 100);
+    }
+
+    $self->{statefile_value}->write(data => $new_datas);    
+    if (!defined($old_timestamp)) {
+        $self->{output}->output_add(severity => 'OK',
+                                    short_msg => "Buffer creation...");
+    }
+
+    $self->{output}->display();
+    $self->{output}->exit();
+}
+
+sub get_display_value {
+    my ($self, %options) = @_;
+    my $value = $self->{statefile_cache}->get(name => $self->{option_results}->{oid_display} . "_" . $options{id});
+
+    if (defined($self->{option_results}->{display_transform_src})) {
+        $self->{option_results}->{display_transform_dst} = '' if (!defined($self->{option_results}->{display_transform_dst}));
+        eval "\$value =~ s{$self->{option_results}->{display_transform_src}}{$self->{option_results}->{display_transform_dst}}";
+    }
+    return $value;
+}
+
+sub reload_cache {
+    my ($self) = @_;
+    my $datas = {};
+
+    $datas->{oid_filter} = $self->{option_results}->{oid_filter};
+    $datas->{oid_display} = $self->{option_results}->{oid_display};
+    my $result = $self->{snmp}->get_table(oid => $oids_iftable{$self->{option_results}->{oid_filter}});
+    my $last_num = 0;
+    foreach my $key ($self->{snmp}->oid_lex_sort(keys %$result)) {
+        next if ($key !~ /\.([0-9]+)$/);
+        $datas->{$self->{option_results}->{oid_filter} . "_" . $1} = $self->{output}->to_utf8($result->{$key});
+        $last_num = $1;
+    }
+    
+    if (scalar(keys %$datas) <= 0) {
+        $self->{output}->add_option_msg(short_msg => "Can't construct cache...");
+        $self->{output}->option_exit();
+    }
+
+    if ($self->{option_results}->{oid_filter} ne $self->{option_results}->{oid_display}) {
+       $result = $self->{snmp}->get_table(oid => $oids_iftable{$self->{option_results}->{oid_display}});
+       foreach my $key ($self->{snmp}->oid_lex_sort(keys %$result)) {
+            next if ($key !~ /\.([0-9]+)$/);
+            $datas->{$self->{option_results}->{oid_display} . "_" . $1} = $self->{output}->to_utf8($result->{$key});
+       }
+    }
+    
+    $datas->{total_interface} = $last_num;
+    $self->{statefile_cache}->write(data => $datas);
+}
+
+sub manage_selection {
+    my ($self, %options) = @_;
+
+    # init cache file
+    my $has_cache_file = $self->{statefile_cache}->read(statefile => 'cache_snmpstandard_' . $self->{hostname}  . '_' . $self->{mode});
+    if (defined($self->{option_results}->{show_cache})) {
+        $self->{output}->add_option_msg(long_msg => $self->{statefile_cache}->get_string_content());
+        $self->{output}->option_exit();
+    }
+
+    my $timestamp_cache = $self->{statefile_cache}->get(name => 'last_timestamp');
+    my $oid_display = $self->{statefile_cache}->get(name => 'oid_display');
+    my $oid_filter = $self->{statefile_cache}->get(name => 'oid_filter');
+    if ($has_cache_file == 0 ||
+        ($self->{option_results}->{oid_display} !~ /^($oid_display|$oid_filter)$/i || $self->{option_results}->{oid_filter} !~ /^($oid_display|$oid_filter)$/i) ||
+        (defined($timestamp_cache) && (time() - $timestamp_cache) > (($self->{option_results}->{reload_cache_time}) * 60))) {
+        $self->reload_cache();
+        $self->{statefile_cache}->read();
+    }
+
+    my $total_interface = $self->{statefile_cache}->get(name => 'total_interface');
+    if (!defined($self->{option_results}->{use_name}) && defined($self->{option_results}->{interface})) {
+        # get by ID
+        push @{$self->{interface_id_selected}}, $self->{option_results}->{interface}; 
+        my $name = $self->{statefile_cache}->get(name => $self->{option_results}->{oid_display} . "_" . $self->{option_results}->{interface});
+        if (!defined($name)) {
+            $self->{output}->add_option_msg(short_msg => "No interface found for id '" . $self->{option_results}->{interface} . "'.");
+            $self->{output}->option_exit();
+        }
+    } else {
+        for (my $i = 0; $i <= $total_interface; $i++) {
+            my $filter_name = $self->{statefile_cache}->get(name => $self->{option_results}->{oid_filter} . "_" . $i);
+            next if (!defined($filter_name));
+            if (!defined($self->{option_results}->{interface})) {
+                push @{$self->{interface_id_selected}}, $i; 
+                next;
+            }
+            if (defined($self->{option_results}->{use_regexp}) && defined($self->{option_results}->{use_regexpi}) && $filter_name =~ /$self->{option_results}->{interface}/i) {
+                push @{$self->{interface_id_selected}}, $i; 
+            }
+            if (defined($self->{option_results}->{use_regexp}) && !defined($self->{option_results}->{use_regexpi}) && $filter_name =~ /$self->{option_results}->{interface}/) {
+                push @{$self->{interface_id_selected}}, $i; 
+            }
+            if (!defined($self->{option_results}->{use_regexp}) && !defined($self->{option_results}->{use_regexpi}) && $filter_name eq $self->{option_results}->{interface}) {
+                push @{$self->{interface_id_selected}}, $i; 
+            }
+        }
+        
+        if (scalar(@{$self->{interface_id_selected}}) <= 0) {
+            $self->{output}->add_option_msg(short_msg => "No interface found for name '" . $self->{option_results}->{interface} . "' (maybe you should reload cache file).");
+            $self->{output}->option_exit();
+        }
+    }
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+=over 8
+
+=item B<--warning-in-discard>
+
+Threshold warning in percent for 'in' discard packets.
+
+=item B<--critical-in-discard>
+
+Threshold critical in percent for 'in' discard packets.
+
+=item B<--warning-out-discard>
+
+Threshold warning in percent for 'out' discard packets.
+
+=item B<--critical-out-discard>
+
+Threshold critical in percent for 'out' discard packets.
+
+=item B<--warning-in-error>
+
+Threshold warning in percent for 'in' error packets.
+
+=item B<--critical-in-error>
+
+Threshold critical in percent for 'in' error packets.
+
+=item B<--warning-out-error>
+
+Threshold warning in percent for 'out' error packets.
+
+=item B<--critical-out-error>
+
+Threshold critical in percent for 'out' error packets.
+
+=item B<--interface>
+
+Set the interface (number expected) ex: 1, 2,... (empty means 'check all interface').
+
+=item B<--name>
+
+Allows to use interface name with option --interface instead of interface oid index.
+
+=item B<--regexp>
+
+Allows to use regexp to filter interfaces (with option --name).
+
+=item B<--regexp-isensitive>
+
+Allows to use regexp non case-sensitive (with --regexp).
+
+=item B<--speed>
+
+Set interface speed (in Mb).
+
+=item B<--skip>
+
+Skip errors on interface status.
+
+=item B<--reload-cache-time>
+
+Time in seconds before reloading cache file (default: 180).
+
+=item B<--oid-filter>
+
+Choose OID used to filter interface (default: ifName) (values: ifDesc, ifAlias, ifName).
+
+=item B<--oid-display>
+
+Choose OID used to display interface (default: ifName) (values: ifDesc, ifAlias, ifName).
+
+=item B<--display-transform-src>
+
+Regexp src to transform display value. (security risk!!!)
+
+=item B<--display-transform-dst>
+
+Regexp dst to transform display value. (security risk!!!)
+
+=item B<--show-cache>
+
+Display cache interface datas.
+
+=back
+
+=cut

snmp_standard/mode/processcount.pm

@@ -0,0 +1,217 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package snmp_standard::mode::processcount;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                { 
+                                  "warning:s"               => { name => 'warning', },
+                                  "critical:s"              => { name => 'critical', },
+                                  "process-name:s"          => { name => 'process_name', },
+                                  "regexp-name"             => { name => 'regexp_name', },
+                                  "process-path:s"          => { name => 'process_path', },
+                                  "regexp-path"             => { name => 'regexp_path', },
+                                  "process-args:s"          => { name => 'process_args', },
+                                  "regexp-args"             => { name => 'regexp_args', },
+                                });
+
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+
+    if (($self->{perfdata}->threshold_validate(label => 'warning', value => $self->{option_results}->{warning})) == 0) {
+        $self->{output}->add_option_msg(short_msg => "Wrong warning threshold '" . $self->{warn1} . "'.");
+        $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'critical', value => $self->{option_results}->{critical})) == 0) {
+        $self->{output}->add_option_msg(short_msg => "Wrong critical threshold '" . $self->{critical} . "'.");
+        $self->{output}->option_exit();
+    }
+    if (!defined($self->{option_results}->{process_name}) && 
+        !defined($self->{option_results}->{process_path}) && 
+        !defined($self->{option_results}->{process_args})
+        ) {
+        $self->{output}->add_option_msg(short_msg => "Need to specify at least one argument '--process-*'.");
+        $self->{output}->option_exit();
+    }
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{snmp} = snmp object
+    $self->{snmp} = $options{snmp};
+    
+    my $oids = {
+                name => '.1.3.6.1.2.1.25.4.2.1.2', # hrSWRunName
+                path => '.1.3.6.1.2.1.25.4.2.1.4', # hrSWRunPath
+                args => '.1.3.6.1.2.1.25.4.2.1.5', # hrSWRunParameters (Warning: it's truncated. (128 characters))
+               };
+    
+    my $oid_hrSWRunStatus = '.1.3.6.1.2.1.25.4.2.1.7';
+
+    my $oid2check_filter;
+    foreach (keys %$oids) {
+        if (defined($self->{option_results}->{'process_' . $_})) {
+            $oid2check_filter = $_;
+            last;
+        }
+    }
+    # Build other
+    my $mores_filters = {};
+    my $more_oids = [$oid_hrSWRunStatus];
+    foreach (keys %$oids) {
+        if ($_ ne $oid2check_filter && defined($self->{option_results}->{'process_' . $_})) {
+            push @{$more_oids}, $oids->{$_};
+            $mores_filters->{$_} = 1;
+        }
+    }
+
+    my $result = $self->{snmp}->get_table(oid => $oids->{$oid2check_filter});
+    my $instances_keep = {};
+    foreach my $key ($self->{snmp}->oid_lex_sort(keys %$result)) {
+        my $val = $self->{option_results}->{'process_' . $oid2check_filter};
+        
+        if ((defined($self->{option_results}->{'regexp_' . $oid2check_filter}) && $result->{$key} =~ /$val/)
+            || (!defined($self->{option_results}->{'regexp_' . $oid2check_filter}) && $result->{$key} eq $val)) {
+            $key =~ /\.([0-9]+)$/;
+            $instances_keep->{$1} = 1;
+        }
+    }
+
+    if (scalar(keys %$instances_keep) > 0) {
+        $self->{snmp}->load(oids => $more_oids, instances => [keys %$instances_keep ]);
+        my $result2 = $self->{snmp}->get_leef();
+    
+        foreach my $key (keys %$instances_keep) {
+            # 1 = running, 2 = runnable, 3 = notRunnable, 4 => invalid
+            if (!defined($result2->{$oid_hrSWRunStatus . "." . $key}) || $result2->{$oid_hrSWRunStatus . "." . $key} > 2) {
+                delete $instances_keep->{$key};
+                next;
+            }
+            
+            my $long_value = '[ ' . $oid2check_filter . ' => ' . $result->{$oids->{$oid2check_filter} . '.' . $key} . ' ]';
+            my $deleted = 0;
+            foreach (keys %$mores_filters) {
+                my $val = $self->{option_results}->{'process_' . $_};
+                
+                if ((defined($self->{option_results}->{'regexp_' . $_}) && $result2->{$oids->{$_} . '.' . $key} !~ /$val/)
+                    || (!defined($self->{option_results}->{'regexp_' . $_}) && $result2->{$oids->{$_} . '.' . $key} ne $val)) {
+                    delete $instances_keep->{$key};
+                    $deleted = 1;
+                    last;
+                }
+                
+                $long_value .= ' [ ' . $_ . ' => ' . $result2->{$oids->{$_} . '.' . $key} . ' ]';
+            }
+            
+            if ($deleted == 0) {
+                $self->{output}->output_add(long_msg => 'Process: ' . $long_value);
+            }
+        }
+    }
+    
+    my $num_processes_match = scalar(keys(%$instances_keep));
+    my $exit = $self->{perfdata}->threshold_check(value => $num_processes_match, threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]);
+    $self->{output}->output_add(severity => $exit,
+                                short_msg => "Number of current processes running: $num_processes_match");
+    $self->{output}->perfdata_add(label => 'nbproc',
+                                  value => $num_processes_match,
+                                  warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning'),
+                                  critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical'),
+                                  min => 0);
+    
+    $self->{output}->display();
+    $self->{output}->exit();
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+Check system number of processes.
+
+=over 8
+
+=item B<--warning>
+
+Threshold warning.
+
+=item B<--critical>
+
+Threshold critical.
+
+=item B<--process-name>
+
+Check process name.
+
+=item B<--regexp-name>
+
+Allows to use regexp to filter process name (with option --process-name).
+
+=item B<--process-path>
+
+Check process path.
+
+=item B<--regexp-path>
+
+Allows to use regexp to filter process path (with option --process-path).
+
+=item B<--process-args>
+
+Check process args.
+
+=item B<--regexp-args>
+
+Allows to use regexp to filter process args (with option --process-args).
+
+=back
+
+=cut

snmp_standard/mode/spanningtree.pm

@@ -0,0 +1,139 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package snmp_standard::mode::spanningtree;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+
+my %states = (
+    1 => ['disabled', 'OK'], 
+    2 => ['blocking', 'CRITICAL'], 
+    3 => ['listening', 'OK'], 
+    4 => ['learning', 'OK'],
+    5 => ['forwarding', 'OK'],
+    6 => ['broken', 'CRITICAL'],
+);
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                {
+                                });
+
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{snmp} = snmp object
+    $self->{snmp} = $options{snmp};
+
+    my $oid_dot1dStpPortEnable = '.1.3.6.1.2.1.17.2.15.1.4';
+    my $oid_dot1dStpPortState = '.1.3.6.1.2.1.17.2.15.1.3';
+    my $oid_dot1dBasePortIfIndex = '.1.3.6.1.2.1.17.1.4.1.2';
+    my $oid_ifDesc = '.1.3.6.1.2.1.2.2.1.2';
+    my $result = $self->{snmp}->get_table(oid => $oid_dot1dStpPortEnable, nothing_quit => 1);
+    
+    foreach my $oid (keys %$result) {
+        $oid =~ /\.([0-9]+)$/;
+        my $instance = $1;
+
+        # '2' => disabled, we skip
+        if ($result->{$oid} == 2) {
+            $self->{output}->output_add(long_msg => sprintf("Skipping interface '%d': Stp port disabled", $instance));
+            next;
+        }
+        
+        $self->{snmp}->load(oids => [$oid_dot1dStpPortState . "." . $instance, $oid_dot1dBasePortIfIndex . "." . $instance]);
+    }
+    
+    $result = $self->{snmp}->get_leef(nothing_quit => 1);
+    $self->{output}->output_add(severity => 'OK',
+                                short_msg => 'Spanning Tree is ok on all interfaces');
+    # Get description
+    foreach my $oid (keys %$result) {
+        next if ($oid !~ /^$oid_dot1dBasePortIfIndex/);
+        $self->{snmp}->load(oids => [$oid_ifDesc . "." . $result->{$oid}]);
+    }
+    my $result_desc = $self->{snmp}->get_leef();
+    
+    # Parsing ports
+    foreach my $oid (keys %$result) {
+        next if ($oid !~ /^$oid_dot1dStpPortState/);
+        $oid =~ /\.([0-9]+)$/;
+        my $instance = $1;
+
+        my $stp_state = $result->{$oid};
+        my $descr = $result_desc->{$oid_ifDesc . '.' . $result->{$oid_dot1dBasePortIfIndex . '.' . $instance}};
+        
+        $self->{output}->output_add(long_msg => sprintf("Spanning Tree interface '%s' state is %s", $descr,
+                                            ${$states{$stp_state}}[0]));
+        if (${$states{$stp_state}}[1] ne 'OK') {
+             $self->{output}->output_add(severity => ${$states{$stp_state}}[1],
+                                        short_msg => sprintf("Spanning Tree interface '%s' state is %s", $descr,
+                                                             ${$states{$stp_state}}[0]));
+        }
+    }
+    
+    $self->{output}->display();
+    $self->{output}->exit();
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+Check Spanning-Tree current state of ports (BRIDGE-MIB).
+
+=over 8
+
+=back
+
+=cut
+    

snmp_standard/mode/storage.pm

@@ -0,0 +1,371 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package snmp_standard::mode::storage;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+use centreon::plugins::statefile;
+use Digest::MD5 qw(md5_hex);
+
+my %oids_hrStorageTable = (
+    'hrstoragedescr' => '.1.3.6.1.2.1.25.2.3.1.3',
+    'hrfsmountpoint' => '.1.3.6.1.2.1.25.3.8.1.2',
+    'hrstoragetype' => '.1.3.6.1.2.1.25.2.3.1.2',
+);
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                { 
+                                  "warning:s"               => { name => 'warning' },
+                                  "critical:s"              => { name => 'critical' },
+                                  "units:s"                 => { name => 'units', default => '%' },
+                                  "free"                    => { name => 'free' },
+                                  "reload-cache-time:s"     => { name => 'reload_cache_time' },
+                                  "name"                    => { name => 'use_name' },
+                                  "storage:s"               => { name => 'storage' },
+                                  "regexp"                  => { name => 'use_regexp' },
+                                  "regexp-isensitive"       => { name => 'use_regexpi' },
+                                  "oid-filter:s"            => { name => 'oid_filter', default => 'hrStorageDescr'},
+                                  "oid-display:s"           => { name => 'oid_display', default => 'hrStorageDescr'},
+                                  "display-transform-src:s" => { name => 'display_transform_src' },
+                                  "display-transform-dst:s" => { name => 'display_transform_dst' },
+                                  "show-cache"              => { name => 'show_cache' },
+                                });
+
+    $self->{storage_id_selected} = [];
+    $self->{statefile_cache} = centreon::plugins::statefile->new(%options);
+    
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+
+    if (($self->{perfdata}->threshold_validate(label => 'warning', value => $self->{option_results}->{warning})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong warning threshold '" . $self->{option_results}->{warning} . "'.");
+       $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'critical', value => $self->{option_results}->{critical})) == 0) {
+       $self->{output}->add_option_msg(short_msg => "Wrong critical threshold '" . $self->{option_results}->{critical} . "'.");
+       $self->{output}->option_exit();
+    }
+    $self->{option_results}->{oid_filter} = lc($self->{option_results}->{oid_filter});
+    if ($self->{option_results}->{oid_filter} !~ /^(hrstoragedescr|hrfsmountpoint)$/) {
+       $self->{output}->add_option_msg(short_msg => "Unsupported --oid-filter option.");
+       $self->{output}->option_exit();
+    }
+    $self->{option_results}->{oid_display} = lc($self->{option_results}->{oid_display});
+    if ($self->{option_results}->{oid_display} !~ /^(hrstoragedescr|hrfsmountpoint)$/) {
+       $self->{output}->add_option_msg(short_msg => "Unsupported --oid-display option.");
+       $self->{output}->option_exit();
+    }
+    
+    $self->{statefile_cache}->check_options(%options);
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{snmp} = snmp object
+    $self->{snmp} = $options{snmp};
+    $self->{hostname} = $self->{snmp}->get_hostname();
+
+    $self->manage_selection();
+    
+    my $oid_hrStorageAllocationUnits = '.1.3.6.1.2.1.25.2.3.1.4';
+    my $oid_hrStorageSize = '.1.3.6.1.2.1.25.2.3.1.5';
+    my $oid_hrStorageUsed = '.1.3.6.1.2.1.25.2.3.1.6';
+    my $oid_hrStorageType = '.1.3.6.1.2.1.25.2.3.1.2';
+    my $oid_hrStorageFixedDisk = '.1.3.6.1.2.1.25.2.1.4';
+    my $oid_hrStorageNetworkDisk = '.1.3.6.1.2.1.25.2.1.10';
+
+    $self->{snmp}->load(oids => [$oid_hrStorageAllocationUnits, $oid_hrStorageSize, $oid_hrStorageUsed], instances => $self->{storage_id_selected});
+    my $result = $self->{snmp}->get_leef();
+
+    if (!defined($self->{option_results}->{storage}) || defined($self->{option_results}->{use_regexp})) {
+        $self->{output}->output_add(severity => 'OK',
+                                    short_msg => 'All storages are ok.');
+    }
+
+    my $num_disk_check = 0;
+    foreach (sort @{$self->{storage_id_selected}}) {
+        # Skipped disks
+        my $storage_type = $self->{statefile_cache}->get(name => "type_" . $_);
+        next if (!defined($storage_type) || ($storage_type ne $oid_hrStorageFixedDisk && $storage_type ne $oid_hrStorageNetworkDisk));
+
+        my $name_storage = $self->get_display_value(id => $_);
+        $num_disk_check++;
+
+        # in bytes hrStorageAllocationUnits
+        my $total_size = $result->{$oid_hrStorageSize . "." . $_} * $result->{$oid_hrStorageAllocationUnits . "." . $_};
+        next if ($total_size == 0);
+        my $total_used = $result->{$oid_hrStorageUsed . "." . $_} * $result->{$oid_hrStorageAllocationUnits . "." . $_};
+        my $total_free = $total_size - $total_used;
+        my $prct_used = $total_used * 100 / $total_size;
+        my $prct_free = 100 - $prct_used;
+
+        my ($exit, $threshold_value);
+
+        $threshold_value = $total_used;
+        $threshold_value = $total_free if (defined($self->{option_results}->{free}));
+        if ($self->{option_results}->{units} eq '%') {
+            $threshold_value = $prct_used;
+            $threshold_value = $prct_free if (defined($self->{option_results}->{free}));
+        } 
+        $exit = $self->{perfdata}->threshold_check(value => $threshold_value, threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]);
+
+        my ($total_size_value, $total_size_unit) = $self->{perfdata}->change_bytes(value => $total_size);
+        my ($total_used_value, $total_used_unit) = $self->{perfdata}->change_bytes(value => $total_used);
+        my ($total_free_value, $total_free_unit) = $self->{perfdata}->change_bytes(value => ($total_size - $total_used));
+
+        $self->{output}->output_add(long_msg => sprintf("Storage '%s' Total: %s Used: %s (%.2f%%) Free: %s (%.2f%%)", $name_storage,
+                                            $total_size_value . " " . $total_size_unit,
+                                            $total_used_value . " " . $total_used_unit, $prct_used,
+                                            $total_free_value . " " . $total_free_unit, $prct_free));
+        if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1) || (defined($self->{option_results}->{storage}) && !defined($self->{option_results}->{use_regexp}))) {
+            $self->{output}->output_add(severity => $exit,
+                                        short_msg => sprintf("Storage '%s' Total: %s Used: %s (%.2f%%) Free: %s (%.2f%%)", $name_storage,
+                                            $total_size_value . " " . $total_size_unit,
+                                            $total_used_value . " " . $total_used_unit, $prct_used,
+                                            $total_free_value . " " . $total_free_unit, $prct_free));
+        }    
+
+        my $label = 'used';
+        my $value_perf = $total_used;
+        if (defined($self->{option_results}->{free})) {
+            $label = 'free';
+            $value_perf = $total_free;
+        }
+        my $extra_label = '';
+        $extra_label = '_' . $name_storage if (!defined($self->{option_results}->{storage}) || defined($self->{option_results}->{use_regexp}));
+        my %total_options = ();
+        if ($self->{option_results}->{units} eq '%') {
+            $total_options{total} = $total_size;
+            $total_options{cast_int} = 1; 
+        }
+        $self->{output}->perfdata_add(label => $label . $extra_label, unit => 'o',
+                                      value => $value_perf,
+                                      warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning', %total_options),
+                                      critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical', %total_options),
+                                      min => 0, max => $total_size);
+    }
+
+    if ($num_disk_check == 0) {
+        $self->{output}->add_option_msg(short_msg => "Not a disk with a good 'type'.");
+        $self->{output}->option_exit();
+    }
+
+    $self->{output}->display();
+    $self->{output}->exit();
+}
+
+sub reload_cache {
+    my ($self) = @_;
+    my $datas = {};
+
+    $datas->{oid_filter} = $self->{option_results}->{oid_filter};
+    $datas->{oid_display} = $self->{option_results}->{oid_display};
+    my $result = $self->{snmp}->get_table(oid => $oids_hrStorageTable{$self->{option_results}->{oid_filter}});
+    my $last_num = 0;
+    foreach my $key ($self->{snmp}->oid_lex_sort(keys %$result)) {
+        next if ($key !~ /\.([0-9]+)$/);
+        $datas->{$self->{option_results}->{oid_filter} . "_" . $1} = $self->{output}->to_utf8($result->{$key});
+        $last_num = $1;
+    }
+    
+    if (scalar(keys %$datas) <= 0) {
+        $self->{output}->add_option_msg(short_msg => "Can't construct cache...");
+        $self->{output}->option_exit();
+    }
+
+    if ($self->{option_results}->{oid_filter} ne $self->{option_results}->{oid_display}) {
+        $result = $self->{snmp}->get_table(oid => $oids_hrStorageTable{$self->{option_results}->{oid_display}});
+        foreach my $key ($self->{snmp}->oid_lex_sort(keys %$result)) {
+            next if ($key !~ /\.([0-9]+)$/);
+            $datas->{$self->{option_results}->{oid_display} . "_" . $1} = $self->{output}->to_utf8($result->{$key});
+        }
+    }
+    
+    $result = $self->{snmp}->get_table(oid => $oids_hrStorageTable{hrstoragetype});
+    foreach my $key ($self->{snmp}->oid_lex_sort(keys %$result)) {
+        next if ($key !~ /\.([0-9]+)$/);
+        $datas->{"type_" . $1} = $result->{$key};
+    }
+
+    $datas->{total_storage} = $last_num;
+    $self->{statefile_cache}->write(data => $datas);
+}
+
+sub manage_selection {
+    my ($self, %options) = @_;
+
+    # init cache file
+    my $has_cache_file = $self->{statefile_cache}->read(statefile => 'cache_snmpstandard_' . $self->{hostname}  . '_' . $self->{mode});
+    if (defined($self->{option_results}->{show_cache})) {
+        $self->{output}->add_option_msg(long_msg => $self->{statefile_cache}->get_string_content());
+        $self->{output}->option_exit();
+    }
+
+    my $timestamp_cache = $self->{statefile_cache}->get(name => 'last_timestamp');
+    my $oid_display = $self->{statefile_cache}->get(name => 'oid_display');
+    my $oid_filter = $self->{statefile_cache}->get(name => 'oid_filter');
+    if ($has_cache_file == 0 ||
+        ($self->{option_results}->{oid_display} !~ /^($oid_display|$oid_filter)$/i || $self->{option_results}->{oid_filter} !~ /^($oid_display|$oid_filter)$/i) ||
+        (defined($timestamp_cache) && (time() - $timestamp_cache) > (($self->{option_results}->{reload_cache_time}) * 60))) {
+            $self->reload_cache();
+            $self->{statefile_cache}->read();
+    }
+
+    my $total_storage = $self->{statefile_cache}->get(name => 'total_storage');
+    if (!defined($self->{option_results}->{use_name}) && defined($self->{option_results}->{storage})) {
+        # get by ID
+        push @{$self->{storage_id_selected}}, $self->{option_results}->{storage}; 
+        my $name = $self->{statefile_cache}->get(name => $self->{option_results}->{oid_display} . "_" . $self->{option_results}->{storage});
+        if (!defined($name)) {
+            $self->{output}->add_option_msg(short_msg => "No storage found for id '" . $self->{option_results}->{storage} . "'.");
+            $self->{output}->option_exit();
+        }
+    } else {
+        for (my $i = 0; $i <= $total_storage; $i++) {
+            my $filter_name = $self->{statefile_cache}->get(name => $self->{option_results}->{oid_filter} . "_" . $i);
+            next if (!defined($filter_name));
+            if (!defined($self->{option_results}->{storage})) {
+                push @{$self->{storage_id_selected}}, $i; 
+                next;
+            }
+            if (defined($self->{option_results}->{use_regexp}) && defined($self->{option_results}->{use_regexpi}) && $filter_name =~ /$self->{option_results}->{storage}/i) {
+                push @{$self->{storage_id_selected}}, $i; 
+            }
+            if (defined($self->{option_results}->{use_regexp}) && !defined($self->{option_results}->{use_regexpi}) && $filter_name =~ /$self->{option_results}->{storage}/) {
+                push @{$self->{storage_id_selected}}, $i; 
+            }
+            if (!defined($self->{option_results}->{use_regexp}) && !defined($self->{option_results}->{use_regexpi}) && $filter_name eq $self->{option_results}->{storage}) {
+                push @{$self->{storage_id_selected}}, $i; 
+            }
+        }
+        
+        if (scalar(@{$self->{storage_id_selected}}) <= 0) {
+            $self->{output}->add_option_msg(short_msg => "No storage found for name '" . $self->{option_results}->{storage} . "' (maybe you should reload cache file).");
+            $self->{output}->option_exit();
+        }
+    }
+}
+
+sub get_display_value {
+    my ($self, %options) = @_;
+    my $value = $self->{statefile_cache}->get(name => $self->{option_results}->{oid_display} . "_" . $options{id});
+
+    if (defined($self->{option_results}->{display_transform_src})) {
+        $self->{option_results}->{display_transform_dst} = '' if (!defined($self->{option_results}->{display_transform_dst}));
+        eval "\$value =~ s{$self->{option_results}->{display_transform_src}}{$self->{option_results}->{display_transform_dst}}";
+    }
+    return $value;
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+=over 8
+
+=item B<--warning>
+
+Threshold warning.
+
+=item B<--critical>
+
+Threshold critical.
+
+=item B<--units>
+
+Units of thresholds (Default: '%') ('%', 'B').
+
+=item B<--free>
+
+Thresholds are on free space left.
+
+=item B<--storage>
+
+Set the storage (number expected) ex: 1, 2,... (empty means 'check all storage').
+
+=item B<--name>
+
+Allows to use storage name with option --storage instead of storage oid index.
+
+=item B<--regexp>
+
+Allows to use regexp to filter storage (with option --name).
+
+=item B<--regexp-isensitive>
+
+Allows to use regexp non case-sensitive (with --regexp).
+
+=item B<--reload-cache-time>
+
+Time in seconds before reloading cache file (default: 180).
+
+=item B<--oid-filter>
+
+Choose OID used to filter storage (default: hrStorageDescr) (values: hrStorageDescr, hrFSRemoteMountPoint).
+
+=item B<--oid-display>
+
+Choose OID used to display storage (default: hrStorageDescr) (values: hrStorageDescr, hrFSRemoteMountPoint).
+
+=item B<--display-transform-src>
+
+Regexp src to transform display value. (security risk!!!)
+
+=item B<--display-transform-dst>
+
+Regexp dst to transform display value. (security risk!!!)
+
+=item B<--show-cache>
+
+Display cache storage datas.
+
+=back
+
+=cut

snmp_standard/mode/stringvalue.pm

@@ -0,0 +1,178 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package snmp_standard::mode::stringvalue;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+use centreon::plugins::misc;
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                { 
+                                  "oid:s"                   => { name => 'oid' },
+                                  "warning-regexp:s"        => { name => 'warning_regexp' },
+                                  "critical-regexp:s"       => { name => 'critical_regexp' },
+                                  "unknown-regexp:s"        => { name => 'unknown_regexp' },
+                                  "format:s"                => { name => 'format', default => 'current value is %s' },
+                                  "map-values:s"            => { name => 'map_values' },
+                                  "map-values-separator:s"  => { name => 'map_values_separator', default => ',' },
+                                  "regexp-map-values"       => { name => 'use_regexp_map_values' },
+                                  "regexp-isensitive"       => { name => 'use_iregexp' },
+                                });
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+
+    if (!defined($self->{option_results}->{oid})) {
+       $self->{output}->add_option_msg(short_msg => "Need to specify an OID.");
+       $self->{output}->option_exit(); 
+    }
+
+    $self->{map_values} = {};
+    if (defined($self->{option_results}->{map_values})) {
+        foreach (split /$self->{option_results}->{map_values_separator}/, $self->{option_results}->{map_values}) {
+            my ($name, $map) = split /=>/;
+            $self->{map_values}->{centreon::plugins::misc::trim($name)} = centreon::plugins::misc::trim($map);
+        }
+    }
+}
+
+sub check_regexp {
+    my ($self, %options) = @_;
+    
+    return 0 if (!defined($self->{option_results}->{$options{severity} . '_regexp'}));
+    my $regexp = $self->{option_results}->{$options{severity} . '_regexp'};
+    
+    if (defined($self->{option_results}->{use_iregexp}) && $options{value} =~ /$regexp/i) {
+        $self->{exit_code} = $options{severity};
+        return 1;
+    } elsif (!defined($self->{option_results}->{use_iregexp}) && $options{value} =~ /$regexp/) {
+        $self->{exit_code} = $options{severity};
+        return 1;
+    }
+    
+    return 0;
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{snmp} = snmp object
+    $self->{snmp} = $options{snmp};    
+
+    my $result = $self->{snmp}->get_leef(oids => [$self->{option_results}->{oid}], nothing_quit => 1);
+    my $value_check = $result->{$self->{option_results}->{oid}};
+    my $value_display = $value_check;
+    
+    if (defined($self->{option_results}->{map_values})) {
+        # If we don't find it. We keep the original value
+        $value_display = defined($self->{map_values}->{$value_check}) ? $self->{map_values}->{$value_check} : $value_check;
+        if (defined($self->{option_results}->{use_regexp_map_values})) {
+            $value_check = $value_display;
+        }
+    }
+    
+    $self->{exit_code} = 'ok';
+    $self->check_regexp(severity => 'critical', value => $value_check) || 
+        $self->check_regexp(severity => 'warning', value => $value_check) || 
+        $self->check_regexp(severity => 'unknown', value => $value_check);
+
+    $self->{output}->output_add(severity => $self->{exit_code},
+                                short_msg => sprintf($self->{option_results}->{format}, $value_display));
+
+    $self->{output}->display();
+    $self->{output}->exit();
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+Check an SNMP string value (can be a String or an Integer).
+
+=over 8
+
+=item B<--oid>
+
+OID value to check (numeric format only).
+
+=item B<--warning-regexp>
+
+Return Warning if the oid value match the regexp.
+
+=item B<--critical-regexp>
+
+Return Critical if the oid value match the regexp.
+
+=item B<--unknown-regexp>
+
+Return Unknown if the oid value match the regexp.
+
+=item B<--format>
+
+Output format (Default: 'current value is %s').
+
+=item B<--map-values>
+
+Use to transform an integer value in most common case.
+Example: --map-values='1=>ok,10=>fan failed,11=>psu recovery'
+
+=item B<--map-values-separator>
+
+Separator uses between values (default: coma).
+
+=item B<--regexp-map-values>
+
+Use the 'map values' to match in regexp (need --map-values option).
+
+=item B<--regexp-isensitive>
+
+Allows to use regexp non case-sensitive.
+
+=back
+
+=cut

snmp_standard/mode/traffic.pm

@@ -0,0 +1,455 @@
+################################################################################
+# Copyright 2005-2013 MERETHIS
+# Centreon is developped by : Julien Mathis and Romain Le Merlus under
+# GPL Licence 2.0.
+# 
+# This program is free software; you can redistribute it and/or modify it under 
+# the terms of the GNU General Public License as published by the Free Software 
+# Foundation ; either version 2 of the License.
+# 
+# This program is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
+# PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with 
+# this program; if not, see <http://www.gnu.org/licenses>.
+# 
+# Linking this program statically or dynamically with other modules is making a 
+# combined work based on this program. Thus, the terms and conditions of the GNU 
+# General Public License cover the whole combination.
+# 
+# As a special exception, the copyright holders of this program give MERETHIS 
+# permission to link this program with independent modules to produce an executable, 
+# regardless of the license terms of these independent modules, and to copy and 
+# distribute the resulting executable under terms of MERETHIS choice, provided that 
+# MERETHIS also meet, for each linked independent module, the terms  and conditions 
+# of the license of that module. An independent module is a module which is not 
+# derived from this program. If you modify this program, you may extend this 
+# exception to your version of the program, but you are not obliged to do so. If you
+# do not wish to do so, delete this exception statement from your version.
+# 
+# For more information : contact@centreon.com
+# Authors : Quentin Garnier <qgarnier@merethis.com>
+#
+####################################################################################
+
+package snmp_standard::mode::traffic;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+use centreon::plugins::statefile;
+use Digest::MD5 qw(md5_hex);
+
+my @operstatus = ("up", "down", "testing", "unknown", "dormant", "notPresent", "lowerLayerDown");
+my %oids_iftable = (
+    'ifdesc' => '.1.3.6.1.2.1.2.2.1.2',
+    'ifalias' => '.1.3.6.1.2.1.31.1.1.1.18',
+    'ifname' => '.1.3.6.1.2.1.31.1.1.1.1'
+);
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+    
+    $self->{version} = '1.0';
+    $options{options}->add_options(arguments =>
+                                { 
+                                  "warning-in:s"            => { name => 'warning_in' },
+                                  "critical-in:s"           => { name => 'critical_in' },
+                                  "warning-out:s"           => { name => 'warning_out' },
+                                  "critical-out:s"          => { name => 'critical_out' },
+                                  "reload-cache-time:s"     => { name => 'reload_cache_time' },
+                                  "name"                    => { name => 'use_name' },
+                                  "interface:s"             => { name => 'interface' },
+                                  "speed:s"                 => { name => 'speed' },
+                                  "skip"                    => { name => 'skip' },
+                                  "regexp"                  => { name => 'use_regexp' },
+                                  "regexp-isensitive"       => { name => 'use_regexpi' },
+                                  "oid-filter:s"            => { name => 'oid_filter', default => 'ifname'},
+                                  "oid-display:s"           => { name => 'oid_display', default => 'ifname'},
+                                  "display-transform-src:s" => { name => 'display_transform_src' },
+                                  "display-transform-dst:s" => { name => 'display_transform_dst' },
+                                  "show-cache"              => { name => 'show_cache' },
+                                });
+
+    $self->{interface_id_selected} = [];
+    $self->{statefile_cache} = centreon::plugins::statefile->new(%options);
+    $self->{statefile_value} = centreon::plugins::statefile->new(%options);
+    
+    return $self;
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+
+    if (($self->{perfdata}->threshold_validate(label => 'warning-in', value => $self->{option_results}->{warning_in})) == 0) {
+        $self->{output}->add_option_msg(short_msg => "Wrong warning 'in' threshold '" . $self->{option_results}->{warning_in} . "'.");
+        $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'critical-in', value => $self->{option_results}->{critical_in})) == 0) {
+        $self->{output}->add_option_msg(short_msg => "Wrong critical 'in' threshold '" . $self->{option_results}->{critical_in} . "'.");
+        $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'warning-out', value => $self->{option_results}->{warning_out})) == 0) {
+        $self->{output}->add_option_msg(short_msg => "Wrong warning 'out' threshold '" . $self->{option_results}->{warning_out} . "'.");
+        $self->{output}->option_exit();
+    }
+    if (($self->{perfdata}->threshold_validate(label => 'critical-out', value => $self->{option_results}->{critical_out})) == 0) {
+        $self->{output}->add_option_msg(short_msg => "Wrong critical 'out' threshold '" . $self->{option_results}->{critical_out} . "'.");
+        $self->{output}->option_exit();
+    }
+    $self->{option_results}->{oid_filter} = lc($self->{option_results}->{oid_filter});
+    if ($self->{option_results}->{oid_filter} !~ /^(ifdesc|ifalias|ifname)$/) {
+        $self->{output}->add_option_msg(short_msg => "Unsupported --oid-filter option.");
+        $self->{output}->option_exit();
+    }
+    $self->{option_results}->{oid_display} = lc($self->{option_results}->{oid_display});
+    if ($self->{option_results}->{oid_display} !~ /^(ifdesc|ifalias|ifname)$/) {
+        $self->{output}->add_option_msg(short_msg => "Unsupported --oid-display option.");
+        $self->{output}->option_exit();
+    }
+    
+    $self->{statefile_cache}->check_options(%options);
+    $self->{statefile_value}->check_options(%options);
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{snmp} = snmp object
+    $self->{snmp} = $options{snmp};
+    $self->{hostname} = $self->{snmp}->get_hostname();
+
+    $self->manage_selection();
+    
+    my $oid_adminstatus = '.1.3.6.1.2.1.2.2.1.7';
+    my $oid_operstatus = '.1.3.6.1.2.1.2.2.1.8';
+    my $oid_speed32 = '.1.3.6.1.2.1.2.2.1.5'; # in b/s
+    my $oid_in32 = '.1.3.6.1.2.1.2.2.1.10'; # in B
+    my $oid_out32 = '.1.3.6.1.2.1.2.2.1.16'; # in B
+    my $oid_speed64 = '.1.3.6.1.2.1.31.1.1.1.15'; # need multiple by '1000000'
+    my $oid_in64 = '.1.3.6.1.2.1.31.1.1.1.6'; # in B
+    my $oid_out64 = '.1.3.6.1.2.1.31.1.1.1.10'; # in B
+
+    my $new_datas = {};
+    $self->{statefile_value}->read(statefile => "snmpstandard_" . $self->{hostname}  . '_' . $self->{mode} . '_' . (defined($self->{option_results}->{interface}) ? md5_hex($self->{option_results}->{interface}) : md5_hex('all')));
+    
+    foreach (@{$self->{interface_id_selected}}) {
+        $self->{snmp}->load(oids => [$oid_adminstatus . "." . $_, $oid_operstatus . "." . $_, $oid_in32 . "." . $_, $oid_out32 . "." . $_]);
+        if (!defined($self->{option_results}->{speed}) || $self->{option_results}->{speed} eq '') {
+            $self->{snmp}->load(oids => [$oid_speed32 . "." . $_]);
+        }
+        if (!$self->{snmp}->is_snmpv1()) {
+            $self->{snmp}->load(oids => [$oid_in64 . "." . $_, $oid_out64 . "." . $_]);
+            if (!defined($self->{option_results}->{speed}) || $self->{option_results}->{speed} eq '') {
+                $self->{snmp}->load(oids => [$oid_speed64 . "." . $_]);
+            }
+        }
+    }
+
+    my $result = $self->{snmp}->get_leef();
+    $new_datas->{last_timestamp} = time();
+    my $old_timestamp;
+    if (!defined($self->{option_results}->{interface}) || defined($self->{option_results}->{use_regexp})) {
+        $self->{output}->output_add(severity => 'OK',
+                                    short_msg => 'All traffic are ok');
+    }
+
+    foreach (sort @{$self->{interface_id_selected}}) {
+        my $display_value = $self->get_display_value(id => $_);
+
+        # Manage interface speed
+        my $interface_speed;
+        if (defined($self->{option_results}->{speed}) && $self->{option_results}->{speed} ne '') {
+            $interface_speed = $self->{option_results}->{speed} * 1000000;
+        } else {
+            if ((!defined($result->{$oid_speed32 . "." . $_}) || $result->{$oid_speed32 . "." . $_} !~ /^[0-9]+$/) && 
+                (!defined($result->{$oid_speed64 . "." . $_}) || $result->{$oid_speed64 . "." . $_} !~ /^[0-9]+$/)) {
+                $self->{output}->output_add(severity => 'UNKNOWN',
+                                            short_msg => "Interface '" . $display_value . "' Speed is null or incorrect. You should force the value with --speed option");
+                next;
+            }
+            $interface_speed = (defined($result->{$oid_speed64 . "." . $_}) && $result->{$oid_speed64 . "." . $_} ne '' ? ($result->{$oid_speed64 . "." . $_} * 1000000) : ($result->{$oid_speed32 . "." . $_}));
+            if ($interface_speed == 0) {
+                next;
+            }
+        }
+        
+        
+        if ($operstatus[$result->{$oid_operstatus . "." . $_} - 1] ne "up") {
+            if (!defined($self->{option_results}->{skip}) && (!defined($result->{$oid_adminstatus . "." . $_}) || $operstatus[$result->{$oid_adminstatus . "." . $_} - 1] eq 'up') ) {
+                $self->{output}->output_add(severity => 'CRITICAL',
+                                            short_msg => "Interface '" . $display_value . "' is not ready: " . $operstatus[$result->{$oid_operstatus . "." . $_} - 1]);
+            } else {
+                # Avoid getting "buffer creation..." alone
+                if (defined($self->{option_results}->{interface}) && !defined($self->{option_results}->{use_regexp})) {
+                    $self->{output}->output_add(severity => 'OK',
+                                                short_msg => "Interface '" . $display_value . "' is not up (normal state)");
+                }
+                $self->{output}->output_add(long_msg => "Skip interface '" . $display_value . "'.");
+            }
+            next;
+        }
+        
+        my $old_mode = $self->{statefile_value}->get(name => 'mode_' . $_);
+        $new_datas->{'mode_' . $_} = '32';
+ 
+        $new_datas->{'in_' . $_} = $result->{$oid_in32 . "." . $_} * 8;
+        if (defined($result->{$oid_in64 . "." . $_}) && $result->{$oid_in64 . "." . $_} ne '' && $result->{$oid_in64 . "." . $_} != 0) {
+            $new_datas->{'in_' . $_} = $result->{$oid_in64 . "." . $_} * 8;
+            $new_datas->{'mode_' . $_} = '64';
+        }
+        $new_datas->{'out_' . $_} = $result->{$oid_out32 . "." . $_} * 8;
+        if (defined($result->{$oid_out64 . "." . $_}) && $result->{$oid_out64 . "." . $_} ne '' && $result->{$oid_out64 . "." . $_} != 0) {
+            $new_datas->{'out_' . $_} = $result->{$oid_out64 . "." . $_} * 8;
+            $new_datas->{'mode_' . $_} = '64';
+        }
+        
+        # We change mode. need to recreate a buffer
+        if (!defined($old_mode) || $new_datas->{'mode_' . $_} ne $old_mode) {
+            next;
+        }
+        
+        $old_timestamp = $self->{statefile_value}->get(name => 'last_timestamp');
+        my $old_in = $self->{statefile_value}->get(name => 'in_' . $_);
+        my $old_out = $self->{statefile_value}->get(name => 'out_' . $_);
+        if (!defined($old_timestamp) || !defined($old_in) || !defined($old_out)) {
+            next;
+        }
+        if ($new_datas->{'in_' . $_} < $old_in) {
+            # We set 0. Has reboot.
+            $old_in = 0;
+        }
+        if ($new_datas->{'out_' . $_} < $old_out) {
+            # We set 0. Has reboot.
+            $old_out = 0;
+        }
+
+        my $time_delta = $new_datas->{last_timestamp} - $old_timestamp;
+        if ($time_delta <= 0) {
+            # At least one second. two fast calls ;)
+            $time_delta = 1;
+        }
+        my $in_absolute_per_sec = ($new_datas->{'in_' . $_} - $old_in) / $time_delta;
+        my $out_absolute_per_sec = ($new_datas->{'out_' . $_} - $old_out) / $time_delta;
+        my $in_prct = $in_absolute_per_sec * 100 / $interface_speed;
+        my $out_prct = $out_absolute_per_sec * 100 / $interface_speed;
+       
+        ###########
+        # Manage Output
+        ###########
+        my $exit1 = $self->{perfdata}->threshold_check(value => $in_prct, threshold => [ { label => 'critical-in', 'exit_litteral' => 'critical' }, { label => 'warning-in', exit_litteral => 'warning' } ]);
+        my $exit2 = $self->{perfdata}->threshold_check(value => $out_prct, threshold => [ { label => 'critical-out', 'exit_litteral' => 'critical' }, { label => 'warning-out', exit_litteral => 'warning' } ]);
+
+        my ($in_value, $in_unit) = $self->{perfdata}->change_bytes(value => $in_absolute_per_sec, network => 1);
+        my ($out_value, $out_unit) = $self->{perfdata}->change_bytes(value => $out_absolute_per_sec, network => 1);
+        my $exit = $self->{output}->get_most_critical(status => [ $exit1, $exit2 ]);
+        $self->{output}->output_add(long_msg => sprintf("Interface '%s' Traffic In : %s/s (%.2f %%), Out : %s/s (%.2f %%) ", $display_value,
+                                       $in_value . $in_unit, $in_prct,
+                                       $out_value . $out_unit, $out_prct));
+        if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1) || (defined($self->{option_results}->{interface}) && !defined($self->{option_results}->{use_regexp}))) {
+            $self->{output}->output_add(severity => $exit,
+                                        short_msg => sprintf("Interface '%s' Traffic In : %s/s (%.2f %%), Out : %s/s (%.2f %%) ", $display_value,
+                                            $in_value . $in_unit, $in_prct,
+                                            $out_value . $out_unit, $out_prct));
+        }
+
+        my $extra_label = '';
+        $extra_label = '_' . $display_value if (!defined($self->{option_results}->{interface}) || defined($self->{option_results}->{use_regexp}));
+        $self->{output}->perfdata_add(label => 'traffic_in' . $extra_label, unit => 'b/s',
+                                      value => sprintf("%.2f", $in_absolute_per_sec),
+                                      warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning-in', total => $interface_speed),
+                                      critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical-in', total => $interface_speed),
+                                      min => 0, max => $interface_speed);
+        $self->{output}->perfdata_add(label => 'traffic_out' . $extra_label, unit => 'b/s',
+                                      value => sprintf("%.2f", $out_absolute_per_sec),
+                                      warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning-out', total => $interface_speed),
+                                      critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical-out', total => $interface_speed),
+                                      min => 0, max => $interface_speed);
+    }
+
+    $self->{statefile_value}->write(data => $new_datas);    
+    if (!defined($old_timestamp)) {
+        $self->{output}->output_add(severity => 'OK',
+                                    short_msg => "Buffer creation...");
+    }
+
+    $self->{output}->display();
+    $self->{output}->exit();
+}
+
+sub get_display_value {
+    my ($self, %options) = @_;
+    my $value = $self->{statefile_cache}->get(name => $self->{option_results}->{oid_display} . "_" . $options{id});
+
+    if (defined($self->{option_results}->{display_transform_src})) {
+        $self->{option_results}->{display_transform_dst} = '' if (!defined($self->{option_results}->{display_transform_dst}));
+        eval "\$value =~ s{$self->{option_results}->{display_transform_src}}{$self->{option_results}->{display_transform_dst}}";
+    }
+    return $value;
+}
+
+sub reload_cache {
+    my ($self) = @_;
+    my $datas = {};
+
+    $datas->{oid_filter} = $self->{option_results}->{oid_filter};
+    $datas->{oid_display} = $self->{option_results}->{oid_display};
+    my $result = $self->{snmp}->get_table(oid => $oids_iftable{$self->{option_results}->{oid_filter}});
+    my $last_num = 0;
+    foreach my $key ($self->{snmp}->oid_lex_sort(keys %$result)) {
+        next if ($key !~ /\.([0-9]+)$/);
+        $datas->{$self->{option_results}->{oid_filter} . "_" . $1} = $self->{output}->to_utf8($result->{$key});
+        $last_num = $1;
+    }
+    
+    if (scalar(keys %$datas) <= 0) {
+        $self->{output}->add_option_msg(short_msg => "Can't construct cache...");
+        $self->{output}->option_exit();
+    }
+
+    if ($self->{option_results}->{oid_filter} ne $self->{option_results}->{oid_display}) {
+       $result = $self->{snmp}->get_table(oid => $oids_iftable{$self->{option_results}->{oid_display}});
+       foreach my $key ($self->{snmp}->oid_lex_sort(keys %$result)) {
+            next if ($key !~ /\.([0-9]+)$/);
+            $datas->{$self->{option_results}->{oid_display} . "_" . $1} = $self->{output}->to_utf8($result->{$key});
+       }
+    }
+    
+    $datas->{total_interface} = $last_num;
+    $self->{statefile_cache}->write(data => $datas);
+}
+
+sub manage_selection {
+    my ($self, %options) = @_;
+
+    # init cache file
+    my $has_cache_file = $self->{statefile_cache}->read(statefile => 'cache_snmpstandard_' . $self->{hostname}  . '_' . $self->{mode});
+    if (defined($self->{option_results}->{show_cache})) {
+        $self->{output}->add_option_msg(long_msg => $self->{statefile_cache}->get_string_content());
+        $self->{output}->option_exit();
+    }
+
+    my $timestamp_cache = $self->{statefile_cache}->get(name => 'last_timestamp');
+    my $oid_display = $self->{statefile_cache}->get(name => 'oid_display');
+    my $oid_filter = $self->{statefile_cache}->get(name => 'oid_filter');
+    if ($has_cache_file == 0 ||
+        ($self->{option_results}->{oid_display} !~ /^($oid_display|$oid_filter)$/i || $self->{option_results}->{oid_filter} !~ /^($oid_display|$oid_filter)$/i) ||
+        (defined($timestamp_cache) && (time() - $timestamp_cache) > (($self->{option_results}->{reload_cache_time}) * 60))) {
+        $self->reload_cache();
+        $self->{statefile_cache}->read();
+    }
+
+    my $total_interface = $self->{statefile_cache}->get(name => 'total_interface');
+    if (!defined($self->{option_results}->{use_name}) && defined($self->{option_results}->{interface})) {
+        # get by ID
+        push @{$self->{interface_id_selected}}, $self->{option_results}->{interface}; 
+        my $name = $self->{statefile_cache}->get(name => $self->{option_results}->{oid_display} . "_" . $self->{option_results}->{interface});
+        if (!defined($name)) {
+            $self->{output}->add_option_msg(short_msg => "No interface found for id '" . $self->{option_results}->{interface} . "'.");
+            $self->{output}->option_exit();
+        }
+    } else {
+        for (my $i = 0; $i <= $total_interface; $i++) {
+            my $filter_name = $self->{statefile_cache}->get(name => $self->{option_results}->{oid_filter} . "_" . $i);
+            next if (!defined($filter_name));
+            if (!defined($self->{option_results}->{interface})) {
+                push @{$self->{interface_id_selected}}, $i; 
+                next;
+            }
+            if (defined($self->{option_results}->{use_regexp}) && defined($self->{option_results}->{use_regexpi}) && $filter_name =~ /$self->{option_results}->{interface}/i) {
+                push @{$self->{interface_id_selected}}, $i; 
+            }
+            if (defined($self->{option_results}->{use_regexp}) && !defined($self->{option_results}->{use_regexpi}) && $filter_name =~ /$self->{option_results}->{interface}/) {
+                push @{$self->{interface_id_selected}}, $i; 
+            }
+            if (!defined($self->{option_results}->{use_regexp}) && !defined($self->{option_results}->{use_regexpi}) && $filter_name eq $self->{option_results}->{interface}) {
+                push @{$self->{interface_id_selected}}, $i; 
+            }
+        }
+        
+        if (scalar(@{$self->{interface_id_selected}}) <= 0) {
+            $self->{output}->add_option_msg(short_msg => "No interface found for name '" . $self->{option_results}->{interface} . "' (maybe you should reload cache file).");
+            $self->{output}->option_exit();
+        }
+    }
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+=over 8
+
+=item B<--warning-in>
+
+Threshold warning in percent for 'in' traffic.
+
+=item B<--critical-in>
+
+Threshold critical in percent for 'in' traffic.
+
+=item B<--warning-out>
+
+Threshold warning in percent for 'out' traffic.
+
+=item B<--critical-out>
+
+Threshold critical in percent for 'out' traffic.
+
+=item B<--interface>
+
+Set the interface (number expected) ex: 1, 2,... (empty means 'check all interface').
+
+=item B<--name>
+
+Allows to use interface name with option --interface instead of interface oid index.
+
+=item B<--regexp>
+
+Allows to use regexp to filter interfaces (with option --name).
+
+=item B<--regexp-isensitive>
+
+Allows to use regexp non case-sensitive (with --regexp).
+
+=item B<--speed>
+
+Set interface speed (in Mb).
+
+=item B<--skip>
+
+Skip errors on interface status.
+
+=item B<--reload-cache-time>
+
+Time in seconds before reloading cache file (default: 180).
+
+=item B<--oid-filter>
+
+Choose OID used to filter interface (default: ifName) (values: ifDesc, ifAlias, ifName).
+
+=item B<--oid-display>
+
+Choose OID used to display interface (default: ifName) (values: ifDesc, ifAlias, ifName).
+
+=item B<--display-transform-src>
+
+Regexp src to transform display value. (security risk!!!)
+
+=item B<--display-transform-dst>
+
+Regexp dst to transform display value. (security risk!!!)
+
+=item B<--show-cache>
+
+Display cache interface datas.
+
+=back
+
+=cut