diff --git a/apps/apache/serverstatus/mode/cpuload.pm b/apps/apache/serverstatus/mode/cpuload.pm
index 031edd36f..2c02c695e 100644
--- a/apps/apache/serverstatus/mode/cpuload.pm
+++ b/apps/apache/serverstatus/mode/cpuload.pm
@@ -161,8 +161,6 @@ Specify username for basic authentification (Mandatory if --credentials is speci
 
 Specify password for basic authentification (Mandatory if --credentials is specidied)
 
-=item B<--password>
-
 =item B<--timeout>
 
 Threshold for HTTP timeout
diff --git a/apps/apache/serverstatus/mode/requests.pm b/apps/apache/serverstatus/mode/requests.pm
index 0776a4fbb..2b74dab7a 100644
--- a/apps/apache/serverstatus/mode/requests.pm
+++ b/apps/apache/serverstatus/mode/requests.pm
@@ -243,8 +243,6 @@ Specify username for basic authentification (Mandatory if --credentials is speci
 
 Specify password for basic authentification (Mandatory if --credentials is specidied)
 
-=item B<--password>
-
 =item B<--timeout>
 
 Threshold for HTTP timeout
diff --git a/centreon/plugins/output.pm b/centreon/plugins/output.pm
index fb1c4f8db..8e77873f8 100644
--- a/centreon/plugins/output.pm
+++ b/centreon/plugins/output.pm
@@ -384,7 +384,7 @@ sub output_txt {
         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} . " ");
+        print (($options{nolabel} == 0 ? 'OK: ' : '') . (defined($self->{global_short_concat_outputs}->{OK}) ? $self->{global_short_concat_outputs}->{OK} : '') . " ");
     }
 
     if ($force_ignore_perfdata == 1) {
diff --git a/os/linux/snmp/plugin.pm b/os/linux/snmp/plugin.pm
index 186b23122..ec43d5227 100644
--- a/os/linux/snmp/plugin.pm
+++ b/os/linux/snmp/plugin.pm
@@ -61,6 +61,7 @@ sub new {
                          'processcount'     => 'snmp_standard::mode::processcount',
                          'storage'          => 'snmp_standard::mode::storage',
                          'swap'             => 'snmp_standard::mode::swap',
+                         'tcpcon'           => 'snmp_standard::mode::tcpcon',
                          'traffic'          => 'snmp_standard::mode::traffic',
                          'uptime'           => 'snmp_standard::mode::uptime',
                          );
diff --git a/snmp_standard/mode/tcpcon.pm b/snmp_standard/mode/tcpcon.pm
new file mode 100644
index 000000000..153ff7d59
--- /dev/null
+++ b/snmp_standard/mode/tcpcon.pm
@@ -0,0 +1,396 @@
+################################################################################
+# 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::tcpcon;
+
+use base qw(centreon::plugins::mode);
+
+use strict;
+use warnings;
+
+my %map_states = (
+    1 => 'closed',
+    2 => 'listen',
+    3 => 'synSent',
+    4 => 'synReceived',
+    5 => 'established',
+    6 => 'finWait1',
+    7 => 'finWait2',
+    8 => 'closeWait',
+    9 => 'lastAck',
+    10 => 'closing',
+    11 => 'timeWait',
+    12 => 'deleteTCB',
+);
+
+my %map_addr_type = (
+    0 => 'unknown',
+    1 => 'ipv4',
+    2 => 'ipv6',
+    3 => 'ipv4z',
+    4 => 'ipv6z',
+    16 => 'dns',
+);
+
+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', },
+                                  "application:s@"  => { name => 'application', },
+                                });
+    @{$self->{connections}} = ();
+    $self->{services} = { total => { filter => '.*?#.*?#.*?#.*?#.*?#(?!(listen))', builtin => 1, number => 0, msg => 'Total connections: %d' } };
+    $self->{applications} = {};
+    return $self;
+}
+
+sub get_ipv6 {
+    my ($self, %options) = @_;
+    
+    my $ipv6 = '';
+    my $num = 1;
+    foreach my $val (split /\./, $options{value}) {
+        if ($num % 3 == 0) {
+            $ipv6 .= ':';
+            $num++;
+        }
+        $ipv6 .= sprintf("%02x", $val);
+        $num++;
+    }
+    
+    return $ipv6;
+}
+
+sub get_from_rfc4022 {
+    my ($self, %options) = @_;
+    
+    my $oid_tcpConnectionState = '.1.3.6.1.2.1.6.19.1.7';
+    my $result = $self->{snmp}->get_table(oid => $oid_tcpConnectionState);
+    
+    my $oid_tcpListenerProcess = '.1.3.6.1.2.1.6.20.1.4';
+    my $result2 = $self->{snmp}->get_table(oid => $oid_tcpListenerProcess);
+    return 0 if (scalar(keys %$result) + scalar(keys %$result2) == 0);
+    
+    # Listener
+    foreach (keys %$result2) {
+        /^$oid_tcpListenerProcess\.(\d+)/;
+        my $ipv = $map_addr_type{$1};
+        next if ($ipv !~ /^ipv4|ipv6$/); # manage only 'ipv4' (1) and 'ipv6' (2) for now
+        
+        my ($src_addr, $src_port, $dst_addr);
+        if ($ipv eq 'ipv6') {
+            $dst_addr = '0000:0000:0000:0000:0000:0000:0000:0000';
+            /^$oid_tcpListenerProcess\.\d+\.\d+\.((?:\d+\.){16})(\d+)/;
+            ($src_addr, $src_port) = ($self->get_ipv6(value => $1), $2);
+        } else {
+            /^$oid_tcpListenerProcess\.\d+\.\d+\.(\d+\.\d+\.\d+\.\d+)\.(\d+)/;
+            $dst_addr = '0.0.0.0';
+            ($src_addr, $src_port) = ($1, $2);
+        }
+        push @{$self->{connections}}, $ipv . "#$src_addr#$src_port#$dst_addr#0#listen";
+    }
+    
+    foreach (keys %$result) {
+        /^$oid_tcpConnectionState\.(\d+)/;
+        my $ipv = $map_addr_type{$1};
+        next if ($ipv !~ /^ipv4|ipv6$/); # manage only 'ipv4' (1) and 'ipv6' (2) for now
+        
+        my ($src_addr, $src_port, $dst_addr, $dst_port);
+        if ($ipv eq 'ipv6') {
+            /^$oid_tcpConnectionState\.\d+\.\d+\.((?:\d+\.){16})(\d+)\.\d+\.((?:\d+\.){16})(\d+)/;
+            ($src_addr, $src_port, $dst_addr, $dst_port) = ($self->get_ipv6(value => $1), $2, $self->get_ipv6(value => $3), $4);
+        } else {
+            /^$oid_tcpConnectionState\.\d+\.\d+\.(\d+\.\d+\.\d+\.\d+)\.(\d+)\.\d+\.(\d+\.\d+\.\d+\.\d+)\.(\d+)/;
+            ($src_addr, $src_port, $dst_addr, $dst_port) = ($1, $2, $3, $4);
+        }
+        push @{$self->{connections}}, $ipv . "#$src_addr#$src_port#$dst_addr#$dst_port#" . lc($map_states{$result->{$_}});
+    }
+    
+    return 1;
+}
+
+sub get_from_rfc1213 {
+    my ($self, %options) = @_;
+    
+    my $oid_tcpConnState = '.1.3.6.1.2.1.6.13.1.1';
+    my $result = $self->{snmp}->get_table(oid => $oid_tcpConnState, nothing_quit => 1);
+    
+    # Construct
+    foreach (keys %$result) {
+        /(\d+\.\d+\.\d+\.\d+).(\d+)\.(\d+\.\d+\.\d+\.\d+).(\d+)$/;
+        push @{$self->{connections}}, "ipv4#$1#$2#$3#$4#" . lc($map_states{$result->{$_}});
+    }
+}
+
+sub build_connections {
+    my ($self, %options) = @_;
+    
+    if ($self->get_from_rfc4022() == 0) {
+        $self->get_from_rfc1213();
+    }
+}
+
+sub check_services {
+    my ($self, %options) = @_;
+    
+    foreach my $service (@{$self->{option_results}->{service}}) {
+        my ($tag, $ipv, $state, $port_src, $port_dst, $filter_ip_src, $filter_ip_dst, $warn, $crit) = split /,/, $service;
+        
+        if (!defined($tag) || $tag eq '') {
+            $self->{output}->add_option_msg(short_msg => "Tag for service '" . $service . "' must be defined.");
+            $self->{output}->option_exit();
+        }
+        if (defined($self->{services}->{$tag})) {
+            $self->{output}->add_option_msg(short_msg => "Tag '" . $tag . "' (service) already exists.");
+            $self->{output}->option_exit();
+        }
+        
+        $self->{services}->{$tag} = { filter => ((defined($ipv) && $ipv ne '') ? $ipv : '.*?') . '#' . 
+                                                ((defined($filter_ip_src) && $filter_ip_src ne '') ? $filter_ip_src : '.*?') . '#' . 
+                                                ((defined($port_src) && $port_src ne '') ? $port_src : '.*?') . '#' . 
+                                                ((defined($filter_ip_dst) && $filter_ip_dst ne '') ? $filter_ip_dst : '.*?') . '#' . 
+                                                ((defined($port_dst) && $port_dst ne '') ? $port_dst : '.*?') . '#' . 
+                                                ((defined($state) && $state ne '') ? lc($state) : '(?!(listen))')
+                                                , 
+                                      builtin => 0, number => 0 };
+        if (($self->{perfdata}->threshold_validate(label => 'warning-service-' . $tag, value => $warn)) == 0) {
+            $self->{output}->add_option_msg(short_msg => "Wrong warning threshold '" . $warn . "' for service '$tag'.");
+            $self->{output}->option_exit();
+        }
+        if (($self->{perfdata}->threshold_validate(label => 'critical-service-' . $tag, value => $crit)) == 0) {
+            $self->{output}->add_option_msg(short_msg => "Wrong critical threshold '" . $crit . "' for service '$tag'.");
+            $self->{output}->option_exit();
+        }
+    }
+}
+
+sub check_applications {
+    my ($self, %options) = @_;
+    
+    foreach my $app (@{$self->{option_results}->{application}}) {
+        my ($tag, $services, $warn, $crit) = split /,/, $app;
+        
+        if (!defined($tag) || $tag eq '') {
+            $self->{output}->add_option_msg(short_msg => "Tag for application '" . $app . "' must be defined.");
+            $self->{output}->option_exit();
+        }
+        if (defined($self->{applications}->{$tag})) {
+            $self->{output}->add_option_msg(short_msg => "Tag '" . $tag . "' (application) already exists.");
+            $self->{output}->option_exit();
+        }
+        
+        $self->{applications}->{$tag} = {
+                                            services => {},
+                                        };
+        foreach my $service (split /\|/, $services) {
+            if (!defined($self->{services}->{$service})) {
+                $self->{output}->add_option_msg(short_msg => "Service '" . $service . "' is not defined.");
+                $self->{output}->option_exit();
+            }
+            $self->{applications}->{$tag}->{services}->{$service} = 1;
+        }
+        
+        if (($self->{perfdata}->threshold_validate(label => 'warning-app-' . $tag, value => $warn)) == 0) {
+            $self->{output}->add_option_msg(short_msg => "Wrong warning threshold '" . $warn . "' for application '$tag'.");
+            $self->{output}->option_exit();
+        }
+        if (($self->{perfdata}->threshold_validate(label => 'critical-app-' . $tag, value => $crit)) == 0) {
+            $self->{output}->add_option_msg(short_msg => "Wrong critical threshold '" . $crit . "' for application '$tag'.");
+            $self->{output}->option_exit();
+        }
+    }
+}
+
+sub test_services {
+    my ($self, %options) = @_;
+    
+    foreach my $tag (keys %{$self->{services}}) {
+        foreach (@{$self->{connections}}) {
+            if (/$self->{services}->{$tag}->{filter}/) {
+                $self->{services}->{$tag}->{number}++;
+            }
+        }        
+        
+        my $exit_code = $self->{perfdata}->threshold_check(value => $self->{services}->{$tag}->{number}, 
+                               threshold => [ { label => 'critical-service-' . $tag, 'exit_litteral' => 'critical' }, { label => 'warning-service-' . $tag, exit_litteral => 'warning' } ]);
+        my ($perf_label, $msg) = ('service_' . $tag, "Service '$tag' connections: %d");
+        if ($self->{services}->{$tag}->{builtin} == 1) {
+            ($perf_label, $msg) = ($tag, $self->{services}->{$tag}->{msg});
+        }
+        
+        $self->{output}->output_add(severity => $exit_code,
+                                    short_msg => sprintf($msg, $self->{services}->{$tag}->{number}));
+        $self->{output}->perfdata_add(label => $perf_label,
+                                      value => $self->{services}->{$tag}->{number},
+                                      warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning-service-' . $tag),
+                                      critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical-service-' . $tag),
+                                      min => 0);
+    }
+}
+
+sub test_applications {
+    my ($self, %options) = @_;
+
+    foreach my $tag (keys %{$self->{applications}}) {
+        my $number = 0;
+        
+        foreach (keys %{$self->{applications}->{$tag}->{services}}) {
+            $number += $self->{services}->{$_}->{number};
+        }
+        
+        my $exit_code = $self->{perfdata}->threshold_check(value => $number, 
+                               threshold => [ { label => 'critical-app-' . $tag, 'exit_litteral' => 'critical' }, { label => 'warning-app-' . $tag, exit_litteral => 'warning' } ]);
+        $self->{output}->output_add(severity => $exit_code,
+                                    short_msg => sprintf("Applicatin '%s' connections: %d", $tag, $number));
+        $self->{output}->perfdata_add(label => 'app_' . $tag,
+                                      value => $number,
+                                      warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning-app-' . $tag),
+                                      critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical-app-' . $tag),
+                                      min => 0);
+    }
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+    $self->SUPER::init(%options);
+
+    if (($self->{perfdata}->threshold_validate(label => 'warning-service-total', 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-service-total', 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->check_services();
+    $self->check_applications();
+}
+
+sub run {
+    my ($self, %options) = @_;
+    # $options{snmp} = snmp object
+    $self->{snmp} = $options{snmp};
+    
+    $self->build_connections();
+    $self->test_services();
+    $self->test_applications();
+
+    $self->{output}->display();
+    $self->{output}->exit();
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+Check tcp connections.
+
+=over 8
+
+=item B<--warning>
+
+Threshold warning for total connections.
+
+=item B<--critical>
+
+Threshold critical for total connections.
+
+=item B<--service>
+
+Check tcp connections following rules:
+tag,[type],[state],[port-src],[port-dst],[filter-ip-src],[filter-ip-dst],[threshold-warning],[threshold-critical]
+
+Example to test SSH connections on the server: --service="ssh,,,22,,,,10,20" 
+
+=over 16
+
+=item <tag>
+
+Name to identify service (must be unique and couldn't be 'total').
+
+=item <type>
+
+regexp - can use 'ipv4', 'ipv6'. Empty means all.
+
+=item <state>
+
+regexp - can use 'finWait1', 'established',... Empty means all (minus listen).
+
+=item <filter-ip-*>
+
+regexp - can use to exclude or include some IPs.
+
+=item <threshold-*>
+
+nagios-perfdata - number of connections.
+
+=back
+
+=item B<--application>
+
+Check tcp connections of mutiple services:
+tag,[services],[threshold-warning],[threshold-critical]
+
+Example:
+--application="web,http|https,100,200"
+
+=over 16
+
+=item <tag>
+
+Name to identify application (must be unique).
+
+=item <services>
+
+List of services (used the tag name. Separated by '|').
+
+=item <threshold-*>
+
+nagios-perfdata - number of connections.
+
+=back
+
+=back
+
+=cut