#!/usr/bin/perl

print "NETSTAT OK | ";

$A = `netstat -s`;
$A =~ /udpInDatagrams\s*=\s*(\d+)/ and $udpInDatagrams = $1;
$A =~ /udpOutDatagrams\s*=\s*(\d+)/ and $udpOutDatagrams = $1;
$A =~ /udpInErrors\s*=\s*(\d+)/ and $udpInErrors = $1;
$A =~ /tcpActiveOpens\s*=\s*(\d+)/ and $tcpActiveOpens = $1;
$A =~ /tcpPassiveOpens\s*=\s*(\d+)/ and $tcpPassiveOpens = $1;
$A =~ /tcpAttemptFails\s*=\s*(\d+)/ and $tcpAttemptFails = $1;
$A =~ /tcpEstabResets\s*=\s*(\d+)/ and $tcpEstabResets = $1;
$A =~ /tcpCurrEstab\s*=\s*(\d+)/ and $tcpCurrEstab = $1;
$A =~ /tcpOutDataBytes\s*=\s*(\d+)/ and $tcpOutDataBytes = $1;
$A =~ /tcpInInorderBytes\s*=\s*(\d+)/ and $tcpInInorderBytes = $1;
$A =~ /tcpInUnorderBytes\s*=\s*(\d+)/ and $tcpInUnorderBytes = $1;
$A =~ /tcpRetransBytes\s*=\s*(\d+)/ and $tcpRetransBytes = $1;

#$A =~ /abc\s*=\s*(\d+)/ and $abc = $1;

print "udpInDatagrams=$udpInDatagrams, udpOutDatagrams=$udpOutDatagrams, udpInErrors=$udpInErrors, tcpActiveOpens=$tcpActiveOpens, tcpPassiveOpens=$tcpPassiveOpens, tcpAttemptFails=$tcpAttemptFails, tcpEstabResets=$tcpEstabResets, tcpCurrEstab=$tcpCurrEstab, tcpOutDataBytes=$tcpOutDataBytes, tcpInDataBytes=";
print $tcpInInorderBytes + $tcpInUnorderBytes . ", tcpRetransBytes=$tcpRetransBytes\n";

exit 0;