-sub body {
- my $hostid = shift;
- my $result = [];
-
- push @$result, "DEF:mode=/var/log/rrd/wio/$hostid.rrd:mode:AVERAGE";
- push @$result, "CDEF:online=mode,UN,0,mode,IF,50,GT,100,0,IF";
- push @$result, "CDEF:offline=mode,UN,100,mode,IF,50,LT,100,0,IF";
- push @$result, "AREA:online".$color{"color12"}.":$Lang::tr{'wio up'}\\j";
- push @$result, "AREA:offline".$color{"color13"}.":$Lang::tr{'wio down'}\\j";
- push @$result, "COMMENT:\r<span size='smaller'>$Lang::tr{'wio_last_update'}\\: ". lastupdate(scalar localtime()) ."</span>\\r";
-
- return $result;
-}
-
-sub lastupdate {
- my $text = shift;
-
- return undef if not defined $text;
- $text =~ s/\\/\\\\/g;
- $text =~ s/:/\\:/g;
-
- return $text;
-}
-
-sub header {
- my $period = shift;
- my $title = shift;
- my $result = [];
-
- push @$result, ("--title", "$title");
- push @$result, ("--start", "-1$period", "-aPNG", "-i", "-z");
- push @$result, ("--border", "0");
- push @$result, ("--full-size-mode");
- push @$result, ("--slope-mode");
- push @$result, ("--pango-markup");
- push @$result, ("--alt-y-grid", "-w 910", "-h 300");
- if ( $period eq 'day' ) { push @$result, ("--x-grid", "MINUTE:30:HOUR:1:HOUR:2:0:%H:%M"); }
- push @$result, ("--color", "SHADEA".$color{"color19"});
- push @$result, ("--color", "SHADEB".$color{"color19"});
- push @$result, ("--color", "BACK".$color{"color21"});
-
- return $result;
-}
-