Please help
The script doesn't work for me. When I run the script "hp-msa.pl fqdn stats" I get the following error: Undefined subroutine &main::XMLin called at ./hp-msa.pl line 120.
The same error I see in zabbix_server.log file. The OS I use for zabbix is FreeBSD.
Ad Widget
Collapse
HP P2000 G3 monitoring (Zabbix 2.0)
Collapse
X
-
-
-
-
-
-
You must adapt the $zabbixSender variable that fit your installation, in my case :
$zabbixSender="/usr/local/bin/zabbix_sender";
edit : the same goes with $zabbixConfd, $USERNAME and $PASSWORD ...Last edited by extress; 12-03-2014, 12:26.Leave a comment:
-
./hp-msa.pl fqdn stats
./hp-msa.pl fqdn stats
Can't exec "/usr/bin/zabbix_sender": No such file or directory at ./hp-msa.pl line 168.
Use of uninitialized value in pattern match (m//) at ./hp-msa.pl line 168.Leave a comment:
-
Hi,
Thanks for template & Perl script.
I have a little problem, I try to create Items to check LUNs & Volumes but nothing appear in Lastest Datas Tabs. I can see "Sensor" but that's all.
Does anybody could say if I create item correctly ?

Thank you for answer and have a nice day.
PS : The Sensor Item appears but the value is "0" since 3 days...Last edited by sarou; 20-02-2014, 09:34.Leave a comment:
-
a have the same problem.
Running CentOS 6.5 x86_64 with perl-5.10.1-136.el6.x86_64
can anybody help me?Leave a comment:
-
HASH error
Hello,
we like to monitor our MSA 2000 and while we trying the script we getting the error:
Not a HASH reference at /usr/lib/zabbix/externalscripts/hp-msa.pl line 18.Line 18 is marked. Has someone the same issue or maybe the solution?Code:my $ua = shift; my $sessionKey = shift; my $url = shift; my $objectName = shift; my $idName = shift; my $type = shift; my $zbxArray = shift; my $req = HTTP::Request->new(GET => $url); $req->header('sessionKey' => $sessionKey ); $req->header('dataType' => 'api' ); my $res = $ua->request($req); my $ref = XMLin($res->content, KeyAttr => "oid"); foreach my $oid (values %{$ref->{OBJECT}}) { [SIZE="2"][FONT="Arial Black"] if ($oid->{name} eq $objectName) {[/FONT][/SIZE] my $reference; foreach my $entry (@{$oid->{PROPERTY}}) { if ($entry->{name} =~ /^($idName)$/) { $reference = {'{#HP_P2000_ID}' => $entry->{content}, '{#HP_P2000_TYPE}' => $type}; last; } } push @{$zbxArray}, {%{$reference}}; } } }
ThanksLeave a comment:
-
Leave a comment: