mirrors
/
Monitorix
mirror of https://github.com/mikaku/Monitorix.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fixed some bugs

This commit is contained in:
Jordi Sanfeliu 2013-06-18 12:30:43 +02:00
parent ebe6e4873b
commit afa911bc07
1 changed files with 15 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
lib/wowza.pm
View File

@ -264,20 +264,20 @@ sub wowza_update {
# application stats
#
# '$app' may be a HASH or an ARRAY depending if it has only one
# duplicate or if it has more than one, respectively. We need
# to convert it to an array in all cases.
my $app = $data->{VHost}->{Application};
my @array;
if(ref($app) eq "HASH") {
$array[0] = $app;
# '$data->{VHost}->{Application}' may be a HASH or an ARRAY
# depending if it has only one duplicate or if it has more than
# one, respectively. We need to convert it to an array in all
# cases.
my @app;
if(ref($data->{VHost}->{Application}) eq "HASH") {
$app[0] = $data->{VHost}->{Application};
} else {
@array = @$app;
@app = @{$data->{VHost}->{Application}};
}
my $e2 = 0;
foreach my $an (split(',', $wowza->{desc}->{$wls})) {
foreach my $entry (@array) {
foreach my $entry (@app) {
my $conntacc = 0;
my $conntrej = 0;
if($entry->{Name} eq trim($an)) {
@ -298,7 +298,12 @@ sub wowza_update {
$rrdata .= ":" . $conntrej;
$rrdata .= ":" . $entry->{MessagesInBytesRate};
$rrdata .= ":" . $entry->{MessagesOutBytesRate};
my $instance = $entry->{ApplicationInstance}->{Stream};
my $instance;
if(ref($entry->{ApplicationInstance}->{Stream}) eq "ARRAY") {
$instance = $entry->{ApplicationInstance}->{Stream}[0];
} else {
$instance = $entry->{ApplicationInstance}->{Stream};
}
$rrdata .= ":" . ($instance->{SessionsRTSP} || 0);
$rrdata .= ":" . ($instance->{SessionsSmooth} || 0);
$rrdata .= ":" . ($instance->{SessionsCupertino} || 0);