diff --git a/lib/wowza.pm b/lib/wowza.pm
index 74f120a..ba1f43c 100644
--- a/lib/wowza.pm
+++ b/lib/wowza.pm
@@ -544,6 +544,7 @@ sub wowza_cgi {
undef(@tmp);
undef(@tmpz);
+ undef(@CDEF);
$n = 0;
foreach my $w (split(',', $wowza->{desc}->{$url})) {
$w = trim($w);
@@ -561,6 +562,11 @@ sub wowza_cgi {
print("
\n");
print(" \n");
}
+ if(lc($config->{show_gaps}) eq "y") {
+ push(@tmp, "AREA:wrongdata#$colors->{gap}:");
+ push(@tmpz, "AREA:wrongdata#$colors->{gap}:");
+ push(@CDEF, "CDEF:wrongdata=allvalues,UN,INF,UNKN,IF");
+ }
($width, $height) = split('x', $config->{graph_size}->{main});
RRDs::graph("$PNG_DIR" . "$PNG[$e * 5]",
"--title=$config->{graphs}->{_wowza1} ($tf->{nwhen}$tf->{twhen})",
@@ -581,6 +587,8 @@ sub wowza_cgi {
"DEF:wms" . $e . "_a5=$rrd:wms" . $e . "_a5_conncur:AVERAGE",
"DEF:wms" . $e . "_a6=$rrd:wms" . $e . "_a6_conncur:AVERAGE",
"DEF:wms" . $e . "_a7=$rrd:wms" . $e . "_a7_conncur:AVERAGE",
+ "CDEF:allvalues=wms" . $e . "_a0,wms" . $e . "_a1,wms" . $e . "_a2,wms" . $e . "_a3,wms" . $e . "_a4,wms" . $e . "_a5,wms" . $e . "_a6,wms" . $e . "_a7,+,+,+,+,+,+,+",
+ @CDEF,
@tmp,
"COMMENT: \\n",
$uptimeline);
@@ -607,6 +615,8 @@ sub wowza_cgi {
"DEF:wms" . $e . "_a5=$rrd:wms" . $e . "_a5_conncur:AVERAGE",
"DEF:wms" . $e . "_a6=$rrd:wms" . $e . "_a6_conncur:AVERAGE",
"DEF:wms" . $e . "_a7=$rrd:wms" . $e . "_a7_conncur:AVERAGE",
+ "CDEF:allvalues=wms" . $e . "_a0,wms" . $e . "_a1,wms" . $e . "_a2,wms" . $e . "_a3,wms" . $e . "_a4,wms" . $e . "_a5,wms" . $e . "_a6,wms" . $e . "_a7,+,+,+,+,+,+,+",
+ @CDEF,
@tmpz);
$err = RRDs::error;
print("ERROR: while graphing $PNG_DIR" . "$PNGz[$e * 5]: $err\n") if $err;
@@ -657,6 +667,11 @@ sub wowza_cgi {
push(@CDEF, "CDEF:K_wms" . $e . "_a$n=B_wms" . $e . "_a$n,1024,/");
$n++;
}
+ if(lc($config->{show_gaps}) eq "y") {
+ push(@tmp, "AREA:wrongdata#$colors->{gap}:");
+ push(@tmpz, "AREA:wrongdata#$colors->{gap}:");
+ push(@CDEF, "CDEF:wrongdata=allvalues,UN,INF,UNKN,IF");
+ }
($width, $height) = split('x', $config->{graph_size}->{main});
RRDs::graph("$PNG_DIR" . $PNG[$e * 5 + 1],
"--title=$config->{graphs}->{_wowza2} ($tf->{nwhen}$tf->{twhen})",
@@ -685,6 +700,7 @@ sub wowza_cgi {
"DEF:wms" . $e . "_a6o=$rrd:wms" . $e . "_a6_moutbrt:AVERAGE",
"DEF:wms" . $e . "_a7i=$rrd:wms" . $e . "_a7_minbrt:AVERAGE",
"DEF:wms" . $e . "_a7o=$rrd:wms" . $e . "_a7_moutbrt:AVERAGE",
+ "CDEF:allvalues=wms" . $e . "_a0i,wms" . $e . "_a0o,wms" . $e . "_a1i,wms" . $e . "_a1o,wms" . $e . "_a2i,wms" . $e . "_a2o,wms" . $e . "_a3i,wms" . $e . "_a3o,wms" . $e . "_a4i,wms" . $e . "_a4o,wms" . $e . "_a5i,wms" . $e . "_a5o,wms" . $e . "_a6i,wms" . $e . "_a6o,wms" . $e . "_a7i,wms" . $e . "_a7o,+,+,+,+,+,+,+,+,+,+,+,+,+,+,+",
@CDEF,
@tmp);
$err = RRDs::error;
@@ -718,6 +734,7 @@ sub wowza_cgi {
"DEF:wms" . $e . "_a6o=$rrd:wms" . $e . "_a6_moutbrt:AVERAGE",
"DEF:wms" . $e . "_a7i=$rrd:wms" . $e . "_a7_minbrt:AVERAGE",
"DEF:wms" . $e . "_a7o=$rrd:wms" . $e . "_a7_moutbrt:AVERAGE",
+ "CDEF:allvalues=wms" . $e . "_a0i,wms" . $e . "_a0o,wms" . $e . "_a1i,wms" . $e . "_a1o,wms" . $e . "_a2i,wms" . $e . "_a2o,wms" . $e . "_a3i,wms" . $e . "_a3o,wms" . $e . "_a4i,wms" . $e . "_a4o,wms" . $e . "_a5i,wms" . $e . "_a5o,wms" . $e . "_a6i,wms" . $e . "_a6o,wms" . $e . "_a7i,wms" . $e . "_a7o,+,+,+,+,+,+,+,+,+,+,+,+,+,+,+",
@CDEF,
@tmpz);
$err = RRDs::error;
@@ -753,6 +770,7 @@ sub wowza_cgi {
}
undef(@tmp);
undef(@tmpz);
+ undef(@CDEF);
$n = 0;
foreach my $w (split(',', $wowza->{desc}->{$url})) {
$w = trim($w);
@@ -762,6 +780,11 @@ sub wowza_cgi {
push(@tmpz, "LINE2:wms" . $e . "_a$n" . $LC[$n] . ":$w");
$n++;
}
+ if(lc($config->{show_gaps}) eq "y") {
+ push(@tmp, "AREA:wrongdata#$colors->{gap}:");
+ push(@tmpz, "AREA:wrongdata#$colors->{gap}:");
+ push(@CDEF, "CDEF:wrongdata=allvalues,UN,INF,UNKN,IF");
+ }
($width, $height) = split('x', $config->{graph_size}->{small});
RRDs::graph("$PNG_DIR" . $PNG[$e * 5 + 2],
"--title=$config->{graphs}->{_wowza3} ($tf->{nwhen}$tf->{twhen})",
@@ -783,6 +806,8 @@ sub wowza_cgi {
"DEF:wms" . $e . "_a5=$rrd:wms" . $e . "_a5_conntacc:AVERAGE",
"DEF:wms" . $e . "_a6=$rrd:wms" . $e . "_a6_conntacc:AVERAGE",
"DEF:wms" . $e . "_a7=$rrd:wms" . $e . "_a7_conntacc:AVERAGE",
+ "CDEF:allvalues=wms" . $e . "_a0,wms" . $e . "_a1,wms" . $e . "_a2,wms" . $e . "_a3,wms" . $e . "_a4,wms" . $e . "_a5,wms" . $e . "_a6,wms" . $e . "_a7,+,+,+,+,+,+,+",
+ @CDEF,
@tmp);
$err = RRDs::error;
print("ERROR: while graphing $PNG_DIR" . $PNG[$e * 5 + 2] . ": $err\n") if $err;
@@ -808,6 +833,8 @@ sub wowza_cgi {
"DEF:wms" . $e . "_a5=$rrd:wms" . $e . "_a5_conntacc:AVERAGE",
"DEF:wms" . $e . "_a6=$rrd:wms" . $e . "_a6_conntacc:AVERAGE",
"DEF:wms" . $e . "_a7=$rrd:wms" . $e . "_a7_conntacc:AVERAGE",
+ "CDEF:allvalues=wms" . $e . "_a0,wms" . $e . "_a1,wms" . $e . "_a2,wms" . $e . "_a3,wms" . $e . "_a4,wms" . $e . "_a5,wms" . $e . "_a6,wms" . $e . "_a7,+,+,+,+,+,+,+",
+ @CDEF,
@tmpz);
$err = RRDs::error;
print("ERROR: while graphing $PNG_DIR" . $PNGz[$e * 5 + 2] . ": $err\n") if $err;
@@ -837,6 +864,7 @@ sub wowza_cgi {
}
undef(@tmp);
undef(@tmpz);
+ undef(@CDEF);
$n = 0;
foreach my $w (split(',', $wowza->{desc}->{$url})) {
$w = trim($w);
@@ -846,6 +874,11 @@ sub wowza_cgi {
push(@tmpz, "LINE2:wms" . $e . "_a$n" . $LC[$n] . ":$w");
$n++;
}
+ if(lc($config->{show_gaps}) eq "y") {
+ push(@tmp, "AREA:wrongdata#$colors->{gap}:");
+ push(@tmpz, "AREA:wrongdata#$colors->{gap}:");
+ push(@CDEF, "CDEF:wrongdata=allvalues,UN,INF,UNKN,IF");
+ }
($width, $height) = split('x', $config->{graph_size}->{small});
RRDs::graph("$PNG_DIR" . $PNG[$e * 5 + 3],
"--title=$config->{graphs}->{_wowza4} ($tf->{nwhen}$tf->{twhen})",
@@ -867,6 +900,8 @@ sub wowza_cgi {
"DEF:wms" . $e . "_a5=$rrd:wms" . $e . "_a5_conntrej:AVERAGE",
"DEF:wms" . $e . "_a6=$rrd:wms" . $e . "_a6_conntrej:AVERAGE",
"DEF:wms" . $e . "_a7=$rrd:wms" . $e . "_a7_conntrej:AVERAGE",
+ "CDEF:allvalues=wms" . $e . "_a0,wms" . $e . "_a1,wms" . $e . "_a2,wms" . $e . "_a3,wms" . $e . "_a4,wms" . $e . "_a5,wms" . $e . "_a6,wms" . $e . "_a7,+,+,+,+,+,+,+",
+ @CDEF,
@tmp);
$err = RRDs::error;
print("ERROR: while graphing $PNG_DIR" . $PNG[$e * 5 + 3] . ": $err\n") if $err;
@@ -892,6 +927,8 @@ sub wowza_cgi {
"DEF:wms" . $e . "_a5=$rrd:wms" . $e . "_a5_conntrej:AVERAGE",
"DEF:wms" . $e . "_a6=$rrd:wms" . $e . "_a6_conntrej:AVERAGE",
"DEF:wms" . $e . "_a7=$rrd:wms" . $e . "_a7_conntrej:AVERAGE",
+ "CDEF:allvalues=wms" . $e . "_a0,wms" . $e . "_a1,wms" . $e . "_a2,wms" . $e . "_a3,wms" . $e . "_a4,wms" . $e . "_a5,wms" . $e . "_a6,wms" . $e . "_a7,+,+,+,+,+,+,+",
+ @CDEF,
@tmpz);
$err = RRDs::error;
print("ERROR: while graphing $PNG_DIR" . $PNGz[$e * 5 + 3] . ": $err\n") if $err;
@@ -921,6 +958,7 @@ sub wowza_cgi {
}
undef(@tmp);
undef(@tmpz);
+ undef(@CDEF);
$n = 0;
foreach my $w (split(',', $wowza->{desc}->{$url})) {
$w = trim($w);
@@ -930,6 +968,11 @@ sub wowza_cgi {
push(@tmpz, "LINE2:wms" . $e . "_a$n" . $LC[$n] . ":$w");
$n++;
}
+ if(lc($config->{show_gaps}) eq "y") {
+ push(@tmp, "AREA:wrongdata#$colors->{gap}:");
+ push(@tmpz, "AREA:wrongdata#$colors->{gap}:");
+ push(@CDEF, "CDEF:wrongdata=allvalues,UN,INF,UNKN,IF");
+ }
($width, $height) = split('x', $config->{graph_size}->{small});
RRDs::graph("$PNG_DIR" . $PNG[$e * 5 + 4],
"--title=$config->{graphs}->{_wowza5} ($tf->{nwhen}$tf->{twhen})",
@@ -951,6 +994,8 @@ sub wowza_cgi {
"DEF:wms" . $e . "_a5=$rrd:wms" . $e . "_a5_sestot:AVERAGE",
"DEF:wms" . $e . "_a6=$rrd:wms" . $e . "_a6_sestot:AVERAGE",
"DEF:wms" . $e . "_a7=$rrd:wms" . $e . "_a7_sestot:AVERAGE",
+ "CDEF:allvalues=wms" . $e . "_a0,wms" . $e . "_a1,wms" . $e . "_a2,wms" . $e . "_a3,wms" . $e . "_a4,wms" . $e . "_a5,wms" . $e . "_a6,wms" . $e . "_a7,+,+,+,+,+,+,+",
+ @CDEF,
@tmp);
$err = RRDs::error;
print("ERROR: while graphing $PNG_DIR" . $PNG[$e * 5 + 4] . ": $err\n") if $err;
@@ -976,6 +1021,8 @@ sub wowza_cgi {
"DEF:wms" . $e . "_a5=$rrd:wms" . $e . "_a5_sestot:AVERAGE",
"DEF:wms" . $e . "_a6=$rrd:wms" . $e . "_a6_sestot:AVERAGE",
"DEF:wms" . $e . "_a7=$rrd:wms" . $e . "_a7_sestot:AVERAGE",
+ "CDEF:allvalues=wms" . $e . "_a0,wms" . $e . "_a1,wms" . $e . "_a2,wms" . $e . "_a3,wms" . $e . "_a4,wms" . $e . "_a5,wms" . $e . "_a6,wms" . $e . "_a7,+,+,+,+,+,+,+",
+ @CDEF,
@tmpz);
$err = RRDs::error;
print("ERROR: while graphing $PNG_DIR" . $PNGz[$e * 5 + 4] . ": $err\n") if $err;
|