Christian Schneemann schrieb:
> On Thursday June 12 2008 03:30:12 pm Joerg Linge wrote:
>> Christian Schneemann schrieb:
>>> On Thursday June 12 2008 02:25:49 pm Max wrote:
>>>> On Thu, Jun 12, 2008 at 7:30 AM, Christian Schneemann
>>>>
>>>> <[EMAIL PROTECTED]> wrote:
>>>>> Hi,
>>>>>
>>>>> I want to monitor the data throughput from SAN Switchen in nagios, so
>>>>> that I can use pnp after that to visualise it.
>>>>>
>>>>> I can't believe that I would be the first one who wants to do this ;)
>>>>>
>>>>> Any recommendations? Is there already a plugin for this?
>>>>>
>>>>> I'm playing around with snmp, but I don't want to reinvent the wheel ;)
>>>> For most SAN switches you do not have to reinvent the wheel :), just
>>>> use one of the many plugins available that allow you to query IF-MIB
>>>> metrics.
>>> Hi,
>>> I want to monitor the FC-Ports, not the ethernetports.
>>>
>>> I've played around with the FCMGMT-MIB. And here with
>>> connUnitPortStatCountTxObjects and connUnitPortStatCountRxObjects.
>>> My problem is, that tey are hex values and they are to big for perl's
>>> hex() function. (perl 5.8.8)
>> Hi Christian,
>>
>> try swFCPortTxWord and swFCPortRxWord ( tested on Brocade switches )
> thanks, wich MIB are they in? I can't find them
Just a little code example.
Not enough to put the plugin on nagiosexchange
Joerg
[...]
my $swFCPortPhyState = ".1.3.6.1.4.1.1588.2.1.1.1.6.2.1.3.$opt_P";
my $swFCPortLabel = ".1.3.6.1.4.1.1588.2.1.1.1.6.2.1.36.$opt_P";
my $swFCPortTxWords = ".1.3.6.1.4.1.1588.2.1.1.1.6.2.1.11.$opt_P";
my $swFCPortRxWords = ".1.3.6.1.4.1.1588.2.1.1.1.6.2.1.12.$opt_P";
my $result = $session->get_request(
-varbindlist => [$swFCPortPhyState, $swFCPortTxWords,
$swFCPortRxWords, $swFCPortLabel]
);
$session->close;
if (!defined($result)) {
printf("ERROR: %s.\n", $session->error);
exit 1;
}
$opt_P = $opt_P-1;
my $PerfData = "|TxWord=$result->{$swFCPortTxWords}c;;;;
RxWord=$result->{$swFCPortRxWords}c;;;;";
my $label = $result->{$swFCPortLabel};
for ($result->{$swFCPortPhyState}){
if (/1/){ print "CRITICAL: No Card found in Port $opt_P ($label)
$PerfData\n" and exit 2;};
if (/2/){ print "OK: No Gbic found in Port $opt_P ($label) $PerfData\n"
and exit 0;};
if (/3/){ print "CRITICAL: Laser fault on Port $opt_P ($label)
$PerfData\n" and exit 2;};
if (/4/){ print "CRITICAL: Port $opt_P is not recieving Light ($label)
$PerfData\n" and exit 2;};
if (/5/){ print "CRITICAL: Port $opt_P is not in Sync ($label)
$PerfData\n" and exit 2;};
if (/6/){ print "OK: Port $opt_P is in Sync ($label) $PerfData\n" and
exit 0;};
if (/7/){ print "CRITICAL: Power fault on Port $opt_P ($label)
$PerfData\n" and exit 2;};
if (/8/){ print "CRITICAL: Diag Fault on Port $opt_P ($label)
$PerfData\n" and exit 2;};
if (/9/){ print "CRITICAL::Lock Ref on Port $opt_P ($label) $PerfData\n"
and exit 2;};
}
print "UNKNOWN: State id $result->{$swFCPortPhyState} not known for Port
$opt_P\n";
exit 3;
-------------------------------------------------------------------------
Check out the new SourceForge.net Marketplace.
It's the best place to buy or sell services for
just about anything Open Source.
http://sourceforge.net/services/buy/index.php
_______________________________________________
Nagios-users mailing list
Nagios-users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/nagios-users
::: Please include Nagios version, plugin version (-v) and OS when reporting
any issue.
::: Messages without supporting info will risk being sent to /dev/null
