2014-01-03 10:53:41 +00:00
#
# Monitorix - A lightweight system monitoring tool.
#
# Copyright (C) 2005-2014 by Jordi Sanfeliu <jordi@fibranet.cat>
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License along
# with this program; if not, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
#
package apcupsd ;
use strict ;
use warnings ;
use Monitorix ;
use RRDs ;
use Exporter 'import' ;
our @ EXPORT = qw( apcupsd_init apcupsd_update apcupsd_cgi ) ;
sub apcupsd_init {
my $ myself = ( caller ( 0 ) ) [ 3 ] ;
my ( $ package , $ config , $ debug ) = @ _ ;
my $ rrd = $ config - > { base_lib } . $ package . ".rrd" ;
my $ apcupsd = $ config - > { apcupsd } ;
my $ info ;
my @ ds ;
my @ rra ;
my @ tmp ;
my $ n ;
my @ average ;
my @ min ;
my @ max ;
my @ last ;
if ( - e $ rrd ) {
$ info = RRDs:: info ( $ rrd ) ;
for my $ key ( keys %$ info ) {
if ( index ( $ key , 'ds[' ) == 0 ) {
if ( index ( $ key , '.type' ) != - 1 ) {
push ( @ ds , substr ( $ key , 3 , index ( $ key , ']' ) - 3 ) ) ;
}
}
if ( index ( $ key , 'rra[' ) == 0 ) {
if ( index ( $ key , '.rows' ) != - 1 ) {
push ( @ rra , substr ( $ key , 4 , index ( $ key , ']' ) - 4 ) ) ;
}
}
}
if ( scalar ( @ ds ) / 22 != scalar ( my @ il = split ( ',' , $ apcupsd - > { list } ) ) ) {
logger ( "$myself: Detected size mismatch between 'list' (" . scalar ( my @ il = split ( ',' , $ apcupsd - > { list } ) ) . ") and $rrd (" . scalar ( @ ds ) / 22 . "). Resizing it accordingly. All historical data will be lost. Backup file created." ) ;
rename ( $ rrd , "$rrd.bak" ) ;
}
if ( scalar ( @ rra ) < 12 + ( 4 * $ config - > { max_historic_years } ) ) {
logger ( "$myself: Detected size mismatch between 'max_historic_years' (" . $ config - > { max_historic_years } . ") and $rrd (" . ( ( scalar ( @ rra ) - 12 ) / 4 ) . "). Resizing it accordingly. All historical data will be lost. Backup file created." ) ;
rename ( $ rrd , "$rrd.bak" ) ;
}
}
if ( ! ( - e $ rrd ) ) {
logger ( "Creating '$rrd' file." ) ;
for ( $ n = 1 ; $ n <= $ config - > { max_historic_years } ; $ n + + ) {
push ( @ average , "RRA:AVERAGE:0.5:1440:" . ( 365 * $ n ) ) ;
push ( @ min , "RRA:MIN:0.5:1440:" . ( 365 * $ n ) ) ;
push ( @ max , "RRA:MAX:0.5:1440:" . ( 365 * $ n ) ) ;
push ( @ last , "RRA:LAST:0.5:1440:" . ( 365 * $ n ) ) ;
}
for ( $ n = 0 ; $ n < scalar ( my @ il = split ( ',' , $ apcupsd - > { list } ) ) ; $ n + + ) {
push ( @ tmp , "DS:apcupsd" . $ n . "_linev:GAUGE:120:0:U" ) ;
push ( @ tmp , "DS:apcupsd" . $ n . "_loadc:GAUGE:120:0:100" ) ;
push ( @ tmp , "DS:apcupsd" . $ n . "_bchar:GAUGE:120:0:100" ) ;
push ( @ tmp , "DS:apcupsd" . $ n . "_timel:GAUGE:120:0:U" ) ;
push ( @ tmp , "DS:apcupsd" . $ n . "_mbatc:GAUGE:120:0:100" ) ;
push ( @ tmp , "DS:apcupsd" . $ n . "_ovolt:GAUGE:120:0:U" ) ;
push ( @ tmp , "DS:apcupsd" . $ n . "_ltran:GAUGE:120:0:U" ) ;
push ( @ tmp , "DS:apcupsd" . $ n . "_htran:GAUGE:120:0:U" ) ;
push ( @ tmp , "DS:apcupsd" . $ n . "_itemp:GAUGE:120:0:U" ) ;
push ( @ tmp , "DS:apcupsd" . $ n . "_battv:GAUGE:120:0:U" ) ;
push ( @ tmp , "DS:apcupsd" . $ n . "_linef:GAUGE:120:0:U" ) ;
push ( @ tmp , "DS:apcupsd" . $ n . "_nxfer:GAUGE:120:0:U" ) ;
push ( @ tmp , "DS:apcupsd" . $ n . "_nomov:GAUGE:120:0:U" ) ;
2014-01-07 14:12:26 +00:00
push ( @ tmp , "DS:apcupsd" . $ n . "_minti:GAUGE:120:0:U" ) ;
2014-01-03 10:53:41 +00:00
push ( @ tmp , "DS:apcupsd" . $ n . "_nomba:GAUGE:120:0:U" ) ;
push ( @ tmp , "DS:apcupsd" . $ n . "_humid:GAUGE:120:0:100" ) ;
push ( @ tmp , "DS:apcupsd" . $ n . "_atemp:GAUGE:120:0:U" ) ;
push ( @ tmp , "DS:apcupsd" . $ n . "_val01:GAUGE:120:0:U" ) ;
push ( @ tmp , "DS:apcupsd" . $ n . "_val02:GAUGE:120:0:U" ) ;
push ( @ tmp , "DS:apcupsd" . $ n . "_val03:GAUGE:120:0:U" ) ;
push ( @ tmp , "DS:apcupsd" . $ n . "_val04:GAUGE:120:0:U" ) ;
push ( @ tmp , "DS:apcupsd" . $ n . "_val05:GAUGE:120:0:U" ) ;
}
eval {
RRDs:: create ( $ rrd ,
"--step=60" ,
@ tmp ,
"RRA:AVERAGE:0.5:1:1440" ,
"RRA:AVERAGE:0.5:30:336" ,
"RRA:AVERAGE:0.5:60:744" ,
@ average ,
"RRA:MIN:0.5:1:1440" ,
"RRA:MIN:0.5:30:336" ,
"RRA:MIN:0.5:60:744" ,
@ min ,
"RRA:MAX:0.5:1:1440" ,
"RRA:MAX:0.5:30:336" ,
"RRA:MAX:0.5:60:744" ,
@ max ,
"RRA:LAST:0.5:1:1440" ,
"RRA:LAST:0.5:30:336" ,
"RRA:LAST:0.5:60:744" ,
@ last ,
) ;
} ;
my $ err = RRDs:: error ;
if ( $@ || $ err ) {
logger ( "$@" ) unless ! $@ ;
if ( $ err ) {
logger ( "ERROR: while creating $rrd: $err" ) ;
if ( $ err eq "RRDs::error" ) {
logger ( "... is the RRDtool Perl package installed?" ) ;
}
}
return ;
}
}
push ( @ { $ config - > { func_update } } , $ package ) ;
logger ( "$myself: Ok" ) if $ debug ;
}
sub apcupsd_update {
my $ myself = ( caller ( 0 ) ) [ 3 ] ;
my ( $ package , $ config , $ debug ) = @ _ ;
my $ rrd = $ config - > { base_lib } . $ package . ".rrd" ;
my $ apcupsd = $ config - > { apcupsd } ;
my $ n ;
my $ rrdata = "N" ;
my $ e = 0 ;
foreach ( my @ al = split ( ',' , $ apcupsd - > { list } ) ) {
my $ linev = 0 ;
my $ loadc = 0 ;
my $ bchar = 0 ;
my $ timel = 0 ;
my $ mbatc = 0 ;
my $ ovolt = 0 ;
my $ ltran = 0 ;
my $ htran = 0 ;
my $ itemp = 0 ;
my $ battv = 0 ;
my $ linef = 0 ;
my $ nxfer = 0 ;
my $ nomov = 0 ;
2014-01-07 14:12:26 +00:00
my $ minti = 0 ;
2014-01-03 10:53:41 +00:00
my $ nomba = 0 ;
my $ humid = 0 ;
my $ atemp = 0 ;
my $ val01 = 0 ;
my $ val02 = 0 ;
my $ val03 = 0 ;
my $ val04 = 0 ;
my $ val05 = 0 ;
my $ data ;
2014-01-07 14:12:26 +00:00
if ( open ( EXEC , $ apcupsd - > { cmd } . " status " . $ al [ $ e ] . " |" ) ) {
while ( <EXEC> ) { $ data . = $ _ ; }
close ( EXEC ) ;
2014-01-08 14:36:13 +00:00
}
if ( ! $ data ) {
2014-01-07 14:12:26 +00:00
logger ( "$myself: unable to execute '" . $ apcupsd - > { cmd } . "' command." ) ;
$ rrdata . = ":$linev:$loadc:$bchar:$timel:$mbatc:$ovolt:$ltran:$htran:$itemp:$battv:$linef:$nxfer:$nomov:$minti:$nomba:$humid:$atemp:0:0:0:0:0" ;
next ;
2014-01-03 10:53:41 +00:00
}
foreach ( my @ l = split ( '\n' , $ data ) ) {
if ( /^LINEV\s*:\s*(\d+\.\d+)\s+Volts/ ) {
$ linev = $ 1 ;
}
2014-05-14 14:34:17 +01:00
if ( /^LOADPCT\s*:\s*(\d+\.\d+)\s+Percent/ ) {
2014-01-03 10:53:41 +00:00
$ loadc = $ 1 ;
}
if ( /^BCHARGE\s*:\s*(\d+\.\d+)\s+Percent/ ) {
$ bchar = $ 1 ;
}
if ( /^TIMELEFT\s*:\s*(\d+\.\d+)\s+Minutes/ ) {
$ timel = $ 1 ;
}
if ( /^MBATTCHG\s*:\s*(\d+)\s+Percent/ ) {
$ mbatc = $ 1 ;
}
if ( /^OUTPUTV\s*:\s*(\d+\.\d+)\s+Volts/ ) {
$ ovolt = $ 1 ;
}
if ( /^LOTRANS\s*:\s*(\d+\.\d+)\s+Volts/ ) {
$ ltran = $ 1 ;
}
if ( /^HITRANS\s*:\s*(\d+\.\d+)\s+Volts/ ) {
$ htran = $ 1 ;
}
2014-05-14 14:34:17 +01:00
if ( /^ITEMP\s*:\s*(\d+\.\d+)\s+C/ ) {
2014-01-03 10:53:41 +00:00
$ itemp = $ 1 ;
}
if ( /^BATTV\s*:\s*(\d+\.\d+)\s+Volts/ ) {
$ battv = $ 1 ;
}
if ( /^LINEFREQ\s*:\s*(\d+\.\d+)\s+Hz/ ) {
$ linef = $ 1 ;
}
if ( /^NUMXFERS\s*:\s*(\d+\.\d+)/ ) {
$ nxfer = $ 1 ;
}
if ( /^NOMOUTV\s*:\s*(\d+)\s+Volts/ ) {
$ nomov = $ 1 ;
}
2014-01-07 14:12:26 +00:00
if ( /^MINTIMEL\s*:\s*(\d+)\s+Minutes/ ) {
$ minti = $ 1 ;
2014-01-03 10:53:41 +00:00
}
if ( /^NOMBATTV\s*:\s*(\d+\.\d+)\s+Volts/ ) {
$ nomba = $ 1 ;
}
if ( /^HUMIDITY\s*:\s*(\d+\.\d+)\s+Percent/ ) {
$ humid = $ 1 ;
}
if ( /^AMBTEMP\s*:\s*(\d+\.\d+)\s+C/ ) {
$ atemp = $ 1 ;
}
}
2014-01-07 14:12:26 +00:00
$ rrdata . = ":$linev:$loadc:$bchar:$timel:$mbatc:$ovolt:$ltran:$htran:$itemp:$battv:$linef:$nxfer:$nomov:$minti:$nomba:$humid:$atemp:0:0:0:0:0" ;
2014-01-03 10:53:41 +00:00
$ e + + ;
}
RRDs:: update ( $ rrd , $ rrdata ) ;
logger ( "$myself: $rrdata" ) if $ debug ;
my $ err = RRDs:: error ;
logger ( "ERROR: while updating $rrd: $err" ) if $ err ;
}
sub apcupsd_cgi {
my $ myself = ( caller ( 0 ) ) [ 3 ] ;
my ( $ package , $ config , $ cgi ) = @ _ ;
my $ apcupsd = $ config - > { apcupsd } ;
my @ rigid = split ( ',' , $ apcupsd - > { rigid } ) ;
my @ limit = split ( ',' , $ apcupsd - > { limit } ) ;
my $ tf = $ cgi - > { tf } ;
my $ colors = $ cgi - > { colors } ;
my $ graph = $ cgi - > { graph } ;
my $ silent = $ cgi - > { silent } ;
my $ zoom = "--zoom=" . $ config - > { global_zoom } ;
my $ u = "" ;
my $ width ;
my $ height ;
my $ temp_scale = "Celsius" ;
my @ riglim ;
my @ PNG ;
my @ PNGz ;
my @ tmp ;
my @ tmpz ;
my @ CDEF ;
my $ e ;
my $ e2 ;
my $ n ;
my $ n2 ;
my $ str ;
my $ err ;
my $ rrd = $ config - > { base_lib } . $ package . ".rrd" ;
my $ title = $ config - > { graph_title } - > { $ package } ;
my $ PNG_DIR = $ config - > { base_dir } . "/" . $ config - > { imgs_dir } ;
$ title = ! $ silent ? $ title : "" ;
if ( lc ( $ config - > { temperature_scale } ) eq "f" ) {
$ temp_scale = "Fahrenheit" ;
}
# text mode
#
if ( lc ( $ config - > { iface_mode } ) eq "text" ) {
if ( $ title ) {
main:: graph_header ( $ title , 2 ) ;
print ( " <tr>\n" ) ;
print ( " <td bgcolor='$colors->{title_bg_color}'>\n" ) ;
}
my ( undef , undef , undef , $ data ) = RRDs:: fetch ( "$rrd" ,
"--start=-$tf->{nwhen}$tf->{twhen}" ,
"AVERAGE" ,
"-r $tf->{res}" ) ;
$ err = RRDs:: error ;
print ( "ERROR: while fetching $rrd: $err\n" ) if $ err ;
my $ line1 ;
my $ line2 ;
print ( " <pre style='font-size: 12px; color: $colors->{fg_color}';>\n" ) ;
print ( " " ) ;
for ( $ n = 0 ; $ n < scalar ( my @ pl = split ( ',' , $ apcupsd - > { list } ) ) ; $ n + + ) {
2014-01-07 14:12:26 +00:00
$ line1 . = " HTrans LineV OutpuV LTrans BCharg BLoad ShutLv ITemp ATemp Humid Voltag Nomina TimeLf ShutLv Freqcy" ;
2014-01-03 10:53:41 +00:00
$ line2 . = "---------------------------------------------------------------------------------------------------------" ;
if ( $ line2 ) {
my $ i = length ( $ line2 ) ;
printf ( sprintf ( "%${i}s" , sprintf ( "%s" , trim ( $ pl [ $ n ] ) ) ) ) ;
}
}
print ( "\n" ) ;
print ( "Time$line1\n" ) ;
print ( "----$line2 \n" ) ;
my $ line ;
my @ row ;
my $ time ;
my $ n2 ;
my $ from ;
my $ to ;
for ( $ n = 0 , $ time = $ tf - > { tb } ; $ n < ( $ tf - > { tb } * $ tf - > { ts } ) ; $ n + + ) {
$ line = @$ data [ $ n ] ;
$ time = $ time - ( 1 / $ tf - > { ts } ) ;
printf ( " %2d$tf->{tc}" , $ time ) ;
for ( $ n2 = 0 ; $ n2 < scalar ( my @ pl = split ( ',' , $ apcupsd - > { list } ) ) ; $ n2 + + ) {
undef ( @ row ) ;
$ from = $ n2 * 22 ;
$ to = $ from + 22 ;
2014-01-07 14:12:26 +00:00
my ( $ linev , $ loadc , $ bchar , $ timel , $ mbatc , $ ovolt , $ ltran , $ htran , $ itemp , $ battv , $ linef , undef , undef , $ minti , $ nomba , $ humid , $ atemp ) = @$ line [ $ from .. $ to ] ;
2014-01-03 11:11:33 +00:00
$ itemp = celsius_to ( $ config , $ itemp ) ;
$ atemp = celsius_to ( $ config , $ atemp ) ;
2014-01-07 14:12:26 +00:00
printf ( " %6.1f %6.1f %6.1f %6.1f %6.1f %6.1f %6.1f %5.1f %5.1f %5.1f %6.1f %6.1f %6.1f %6.1f %6.1f" , $ htran || 0 , $ linev || 0 , $ ovolt || 0 , $ ltran || 0 , $ bchar || 0 , $ loadc || 0 , $ mbatc || 0 , $ itemp || 0 , $ atemp || 0 , $ humid || 0 , $ battv || 0 , $ nomba || 0 , $ timel || 0 , $ minti || 0 , $ linef || 0 ) ;
2014-01-03 10:53:41 +00:00
}
print ( "\n" ) ;
}
print ( " </pre>\n" ) ;
if ( $ title ) {
print ( " </td>\n" ) ;
print ( " </tr>\n" ) ;
main:: graph_footer ( ) ;
}
print ( " <br>\n" ) ;
return ;
}
# graph mode
#
if ( $ silent eq "yes" || $ silent eq "imagetag" ) {
$ colors - > { fg_color } = "#000000" ; # visible color for text mode
$ u = "_" ;
}
if ( $ silent eq "imagetagbig" ) {
$ colors - > { fg_color } = "#000000" ; # visible color for text mode
$ u = "" ;
}
for ( $ n = 0 ; $ n < scalar ( my @ al = split ( ',' , $ apcupsd - > { list } ) ) ; $ n + + ) {
for ( $ n2 = 1 ; $ n2 <= 6 ; $ n2 + + ) {
$ str = $ u . $ package . $ n . $ n2 . "." . $ tf - > { when } . ".png" ;
push ( @ PNG , $ str ) ;
unlink ( "$PNG_DIR" . $ str ) ;
if ( lc ( $ config - > { enable_zoom } ) eq "y" ) {
$ str = $ u . $ package . $ n . $ n2 . "z." . $ tf - > { when } . ".png" ;
push ( @ PNGz , $ str ) ;
unlink ( "$PNG_DIR" . $ str ) ;
}
}
}
$ e = 0 ;
foreach my $ url ( my @ al = split ( ',' , $ apcupsd - > { list } ) ) {
my $ data ;
2014-01-07 14:12:26 +00:00
if ( open ( EXEC , $ apcupsd - > { cmd } . " status " . $ al [ $ e ] . " |" ) ) {
while ( <EXEC> ) { $ data . = $ _ ; }
close ( EXEC ) ;
2014-01-03 10:53:41 +00:00
}
2014-01-09 15:55:48 +00:00
next if ! $ data ;
2014-01-03 10:53:41 +00:00
my $ driver = "" ;
my $ model = "" ;
my $ status = "" ;
my $ timeleft = "" ;
my $ numxfers = "" ;
foreach ( my @ l = split ( '\n' , $ data ) ) {
if ( /^DRIVER\s*:\s*(.*?)$/ ) {
$ driver = trim ( $ 1 ) ;
next ;
}
if ( /^MODEL\s*:\s*(.*?)$/ ) {
$ model = trim ( $ 1 ) ;
next ;
}
if ( /^STATUS\s*:\s*(.*?)$/ ) {
$ status = trim ( $ 1 ) ;
next ;
}
if ( /^TIMELEFT\s*:\s*(.*?)$/ ) {
$ timeleft = trim ( $ 1 ) ;
next ;
}
if ( /^NUMXFERS\s*:\s*(\d+)$/ ) {
$ numxfers = trim ( $ 1 ) ;
next ;
}
}
if ( $ RRDs:: VERSION > 1.2 ) {
$ driver = "COMMENT: $driver\\: $model ($status)\\c" ,
2014-01-07 14:12:26 +00:00
$ timeleft = "COMMENT: Number of transfers to batteries\\: $numxfers\\c" ,
2014-01-03 10:53:41 +00:00
} else {
$ driver = "COMMENT: $driver: $model ($status)\\c" ,
2014-01-07 14:12:26 +00:00
$ timeleft = "COMMENT: Number of transfers to batteries: $numxfers\\c" ,
2014-01-03 10:53:41 +00:00
}
if ( $ e ) {
print ( " <br>\n" ) ;
}
if ( $ title ) {
main:: graph_header ( $ title , 2 ) ;
}
undef ( @ riglim ) ;
if ( trim ( $ rigid [ 0 ] ) eq 1 ) {
push ( @ riglim , "--upper-limit=" . trim ( $ limit [ 0 ] ) ) ;
} else {
if ( trim ( $ rigid [ 0 ] ) eq 2 ) {
push ( @ riglim , "--upper-limit=" . trim ( $ limit [ 0 ] ) ) ;
push ( @ riglim , "--rigid" ) ;
}
}
if ( $ title ) {
print ( " <tr>\n" ) ;
print ( " <td valign='top' bgcolor='$colors->{title_bg_color}'>\n" ) ;
}
undef ( @ tmp ) ;
undef ( @ tmpz ) ;
undef ( @ CDEF ) ;
push ( @ tmp , "LINE2:htran#EE4444:High transition" ) ;
push ( @ tmp , "GPRINT:htran:LAST: Current\\: %4.1lf" ) ;
push ( @ tmp , "GPRINT:htran:AVERAGE: Average\\: %4.1lf" ) ;
push ( @ tmp , "GPRINT:htran:MIN: Min\\: %4.1lf" ) ;
push ( @ tmp , "GPRINT:htran:MAX: Max\\: %4.1lf\\n" ) ;
push ( @ tmp , "LINE2:linev#44EE44:Line" ) ;
push ( @ tmp , "GPRINT:linev:LAST: Current\\: %4.1lf" ) ;
push ( @ tmp , "GPRINT:linev:AVERAGE: Average\\: %4.1lf" ) ;
push ( @ tmp , "GPRINT:linev:MIN: Min\\: %4.1lf" ) ;
push ( @ tmp , "GPRINT:linev:MAX: Max\\: %4.1lf\\n" ) ;
push ( @ tmp , "LINE2:ovolt#4444EE:Output" ) ;
push ( @ tmp , "GPRINT:ovolt:LAST: Current\\: %4.1lf" ) ;
push ( @ tmp , "GPRINT:ovolt:AVERAGE: Average\\: %4.1lf" ) ;
push ( @ tmp , "GPRINT:ovolt:MIN: Min\\: %4.1lf" ) ;
push ( @ tmp , "GPRINT:ovolt:MAX: Max\\: %4.1lf\\n" ) ;
push ( @ tmp , "LINE2:ltran#EE4444:Low transition" ) ;
push ( @ tmp , "GPRINT:ltran:LAST: Current\\: %4.1lf" ) ;
push ( @ tmp , "GPRINT:ltran:AVERAGE: Average\\: %4.1lf" ) ;
push ( @ tmp , "GPRINT:ltran:MIN: Min\\: %4.1lf" ) ;
push ( @ tmp , "GPRINT:ltran:MAX: Max\\: %4.1lf\\n" ) ;
push ( @ tmpz , "LINE2:htran#EE4444:High transition" ) ;
push ( @ tmpz , "LINE2:linev#44EE44:Line" ) ;
push ( @ tmpz , "LINE2:ovolt#4444EE:Output" ) ;
push ( @ tmpz , "LINE2:ltran#EE4444:Low transition" ) ;
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 } ) ;
if ( $ silent =~ /imagetag/ ) {
( $ width , $ height ) = split ( 'x' , $ config - > { graph_size } - > { remote } ) if $ silent eq "imagetag" ;
( $ width , $ height ) = split ( 'x' , $ config - > { graph_size } - > { main } ) if $ silent eq "imagetagbig" ;
@ tmp = @ tmpz ;
}
RRDs:: graph ( "$PNG_DIR" . "$PNG[$e * 6]" ,
"--title=$config->{graphs}->{_apcupsd1} ($tf->{nwhen}$tf->{twhen})" ,
"--start=-$tf->{nwhen}$tf->{twhen}" ,
"--imgformat=PNG" ,
"--vertical-label=Volts" ,
"--width=$width" ,
"--height=$height" ,
@ riglim ,
"--lower-limit=0" ,
$ zoom ,
@ { $ cgi - > { version12 } } ,
@ { $ colors - > { graph_colors } } ,
"DEF:htran=$rrd:apcupsd" . $ e . "_htran:AVERAGE" ,
"DEF:linev=$rrd:apcupsd" . $ e . "_linev:AVERAGE" ,
"DEF:ovolt=$rrd:apcupsd" . $ e . "_ovolt:AVERAGE" ,
"DEF:ltran=$rrd:apcupsd" . $ e . "_ltran:AVERAGE" ,
"CDEF:allvalues=htran,linev,ovolt,ltran,+,+,+" ,
@ CDEF ,
"COMMENT: \\n" ,
@ tmp ,
"COMMENT: \\n" ,
$ driver ) ;
$ err = RRDs:: error ;
print ( "ERROR: while graphing $PNG_DIR" . "$PNG[$e * 6]: $err\n" ) if $ err ;
if ( lc ( $ config - > { enable_zoom } ) eq "y" ) {
( $ width , $ height ) = split ( 'x' , $ config - > { graph_size } - > { zoom } ) ;
RRDs:: graph ( "$PNG_DIR" . "$PNGz[$e * 6]" ,
"--title=$config->{graphs}->{_apcupsd1} ($tf->{nwhen}$tf->{twhen})" ,
"--start=-$tf->{nwhen}$tf->{twhen}" ,
"--imgformat=PNG" ,
"--vertical-label=Volts" ,
"--width=$width" ,
"--height=$height" ,
@ riglim ,
"--lower-limit=0" ,
@ { $ cgi - > { version12 } } ,
@ { $ colors - > { graph_colors } } ,
"DEF:htran=$rrd:apcupsd" . $ e . "_htran:AVERAGE" ,
"DEF:linev=$rrd:apcupsd" . $ e . "_linev:AVERAGE" ,
"DEF:ovolt=$rrd:apcupsd" . $ e . "_ovolt:AVERAGE" ,
"DEF:ltran=$rrd:apcupsd" . $ e . "_ltran:AVERAGE" ,
"CDEF:allvalues=htran,linev,ovolt,ltran,+,+,+" ,
@ CDEF ,
@ tmpz ) ;
$ err = RRDs:: error ;
print ( "ERROR: while graphing $PNG_DIR" . "$PNGz[$e * 6]: $err\n" ) if $ err ;
}
$ e2 = $ e + 1 ;
if ( $ title || ( $ silent =~ /imagetag/ && $ graph =~ /apcupsd$e2/ ) ) {
if ( lc ( $ config - > { enable_zoom } ) eq "y" ) {
if ( lc ( $ config - > { disable_javascript_void } ) eq "y" ) {
print ( " <a href=\"" . $ config - > { url } . "/" . $ config - > { imgs_dir } . $ PNGz [ $ e * 6 ] . "\"><img src='" . $ config - > { url } . "/" . $ config - > { imgs_dir } . $ PNG [ $ e * 6 ] . "' border='0'></a>\n" ) ;
}
else {
print ( " <a href=\"javascript:void(window.open('" . $ config - > { url } . "/" . $ config - > { imgs_dir } . $ PNGz [ $ e * 6 ] . "','','width=" . ( $ width + 115 ) . ",height=" . ( $ height + 100 ) . ",scrollbars=0,resizable=0'))\"><img src='" . $ config - > { url } . "/" . $ config - > { imgs_dir } . $ PNG [ $ e * 6 ] . "' border='0'></a>\n" ) ;
}
} else {
print ( " <img src='" . $ config - > { url } . "/" . $ config - > { imgs_dir } . $ PNG [ $ e * 6 ] . "'>\n" ) ;
}
}
undef ( @ riglim ) ;
if ( trim ( $ rigid [ 1 ] ) eq 1 ) {
push ( @ riglim , "--upper-limit=" . trim ( $ limit [ 1 ] ) ) ;
} else {
if ( trim ( $ rigid [ 1 ] ) eq 2 ) {
push ( @ riglim , "--upper-limit=" . trim ( $ limit [ 1 ] ) ) ;
push ( @ riglim , "--rigid" ) ;
}
}
undef ( @ tmp ) ;
undef ( @ tmpz ) ;
undef ( @ CDEF ) ;
push ( @ tmp , "AREA:bchar#4444EE:Charge" ) ;
push ( @ tmp , "GPRINT:bchar:LAST: Current\\: %4.1lf%%" ) ;
push ( @ tmp , "GPRINT:bchar:AVERAGE: Average\\: %4.1lf%%" ) ;
push ( @ tmp , "GPRINT:bchar:MIN: Min\\: %4.1lf%%" ) ;
push ( @ tmp , "GPRINT:bchar:MAX: Max\\: %4.1lf%%\\n" ) ;
2014-01-07 14:12:26 +00:00
push ( @ tmp , "AREA:loadc#EE4444:Load capacity" ) ;
push ( @ tmp , "GPRINT:loadc:LAST: Current\\: %4.1lf%%" ) ;
2014-01-03 10:53:41 +00:00
push ( @ tmp , "GPRINT:loadc:AVERAGE: Average\\: %4.1lf%%" ) ;
push ( @ tmp , "GPRINT:loadc:MIN: Min\\: %4.1lf%%" ) ;
push ( @ tmp , "GPRINT:loadc:MAX: Max\\: %4.1lf%%\\n" ) ;
push ( @ tmp , "LINE1:bchar#0000EE" ) ;
push ( @ tmp , "LINE1:loadc#EE0000" ) ;
push ( @ tmp , "LINE2:mbatc#EEEE44:Shutdown level" ) ;
push ( @ tmp , "GPRINT:mbatc:LAST: Current\\: %4.1lf%%" ) ;
push ( @ tmp , "GPRINT:mbatc:AVERAGE: Average\\: %4.1lf%%" ) ;
push ( @ tmp , "GPRINT:mbatc:MIN: Min\\: %4.1lf%%" ) ;
push ( @ tmp , "GPRINT:mbatc:MAX: Max\\: %4.1lf%%\\n" ) ;
push ( @ tmpz , "AREA:bchar#4444EE:Charge" ) ;
push ( @ tmpz , "AREA:loadc#EE4444:Load" ) ;
push ( @ tmpz , "LINE2:mbatc#EEEE44:Shutdown level" ) ;
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 } ) ;
if ( $ silent =~ /imagetag/ ) {
( $ width , $ height ) = split ( 'x' , $ config - > { graph_size } - > { remote } ) if $ silent eq "imagetag" ;
( $ width , $ height ) = split ( 'x' , $ config - > { graph_size } - > { main } ) if $ silent eq "imagetagbig" ;
@ tmp = @ tmpz ;
}
RRDs:: graph ( "$PNG_DIR" . "$PNG[$e * 6 + 1]" ,
"--title=$config->{graphs}->{_apcupsd2} ($tf->{nwhen}$tf->{twhen})" ,
"--start=-$tf->{nwhen}$tf->{twhen}" ,
"--imgformat=PNG" ,
"--vertical-label=Percent (%)" ,
"--width=$width" ,
"--height=$height" ,
@ riglim ,
"--lower-limit=0" ,
$ zoom ,
@ { $ cgi - > { version12 } } ,
@ { $ colors - > { graph_colors } } ,
"DEF:bchar=$rrd:apcupsd" . $ e . "_bchar:AVERAGE" ,
"DEF:mbatc=$rrd:apcupsd" . $ e . "_mbatc:AVERAGE" ,
"DEF:loadc=$rrd:apcupsd" . $ e . "_loadc:AVERAGE" ,
"CDEF:allvalues=bchar,mbatc,loadc,+,+" ,
@ CDEF ,
"COMMENT: \\n" ,
@ tmp ,
"COMMENT: \\n" ,
$ timeleft ,
"COMMENT: \\n" ) ;
$ err = RRDs:: error ;
print ( "ERROR: while graphing $PNG_DIR" . "$PNG[$e * 6 + 1]: $err\n" ) if $ err ;
if ( lc ( $ config - > { enable_zoom } ) eq "y" ) {
( $ width , $ height ) = split ( 'x' , $ config - > { graph_size } - > { zoom } ) ;
RRDs:: graph ( "$PNG_DIR" . "$PNGz[$e * 6 + 1]" ,
"--title=$config->{graphs}->{_apcupsd2} ($tf->{nwhen}$tf->{twhen})" ,
"--start=-$tf->{nwhen}$tf->{twhen}" ,
"--imgformat=PNG" ,
"--vertical-label=Percent (%)" ,
"--width=$width" ,
"--height=$height" ,
@ riglim ,
"--lower-limit=0" ,
@ { $ cgi - > { version12 } } ,
@ { $ colors - > { graph_colors } } ,
"DEF:bchar=$rrd:apcupsd" . $ e . "_bchar:AVERAGE" ,
"DEF:mbatc=$rrd:apcupsd" . $ e . "_mbatc:AVERAGE" ,
"DEF:loadc=$rrd:apcupsd" . $ e . "_loadc:AVERAGE" ,
"CDEF:allvalues=bchar,mbatc,loadc,+,+" ,
@ CDEF ,
@ tmpz ) ;
$ err = RRDs:: error ;
print ( "ERROR: while graphing $PNG_DIR" . "$PNGz[$e * 6 + 1]: $err\n" ) if $ err ;
}
$ e2 = $ e + 2 ;
if ( $ title || ( $ silent =~ /imagetag/ && $ graph =~ /apcupsd$e2/ ) ) {
if ( lc ( $ config - > { enable_zoom } ) eq "y" ) {
if ( lc ( $ config - > { disable_javascript_void } ) eq "y" ) {
print ( " <a href=\"" . $ config - > { url } . "/" . $ config - > { imgs_dir } . $ PNGz [ $ e * 6 + 1 ] . "\"><img src='" . $ config - > { url } . "/" . $ config - > { imgs_dir } . $ PNG [ $ e * 6 + 1 ] . "' border='0'></a>\n" ) ;
}
else {
print ( " <a href=\"javascript:void(window.open('" . $ config - > { url } . "/" . $ config - > { imgs_dir } . $ PNGz [ $ e * 6 + 1 ] . "','','width=" . ( $ width + 115 ) . ",height=" . ( $ height + 100 ) . ",scrollbars=0,resizable=0'))\"><img src='" . $ config - > { url } . "/" . $ config - > { imgs_dir } . $ PNG [ $ e * 6 + 1 ] . "' border='0'></a>\n" ) ;
}
} else {
print ( " <img src='" . $ config - > { url } . "/" . $ config - > { imgs_dir } . $ PNG [ $ e * 6 + 1 ] . "'>\n" ) ;
}
}
if ( $ title ) {
print ( " </td>\n" ) ;
print ( " <td valign='top' bgcolor='" . $ colors - > { title_bg_color } . "'>\n" ) ;
}
undef ( @ riglim ) ;
if ( trim ( $ rigid [ 2 ] ) eq 1 ) {
push ( @ riglim , "--upper-limit=" . trim ( $ limit [ 2 ] ) ) ;
} else {
if ( trim ( $ rigid [ 2 ] ) eq 2 ) {
push ( @ riglim , "--upper-limit=" . trim ( $ limit [ 2 ] ) ) ;
push ( @ riglim , "--rigid" ) ;
}
}
undef ( @ tmp ) ;
undef ( @ tmpz ) ;
undef ( @ CDEF ) ;
push ( @ tmp , "LINE2:_itemp#44EEEE:Internal" ) ;
push ( @ tmp , "GPRINT:_itemp:LAST: Current\\: %4.1lf\\n" ) ;
push ( @ tmp , "LINE2:_atemp#4444EE:Ambient" ) ;
push ( @ tmp , "GPRINT:_atemp:LAST: Current\\: %4.1lf\\n" ) ;
push ( @ tmp , "GPRINT:humid:LAST: Humidity\\: %4.1lf%%\\n" ) ;
push ( @ tmpz , "LINE2:_itemp#44EEEE:Internal" ) ;
push ( @ tmpz , "LINE2:_atemp#4444EE:Ambient" ) ;
if ( lc ( $ config - > { temperature_scale } ) eq "f" ) {
push ( @ CDEF , "CDEF:_itemp=9,5,/,itemp,*,32,+" ) ;
push ( @ CDEF , "CDEF:_atemp=9,5,/,atemp,*,32,+" ) ;
} else {
push ( @ CDEF , "CDEF:_itemp=itemp" ) ;
push ( @ CDEF , "CDEF:_atemp=atemp" ) ;
}
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 } ) ;
if ( $ silent =~ /imagetag/ ) {
( $ width , $ height ) = split ( 'x' , $ config - > { graph_size } - > { remote } ) if $ silent eq "imagetag" ;
( $ width , $ height ) = split ( 'x' , $ config - > { graph_size } - > { main } ) if $ silent eq "imagetagbig" ;
@ tmp = @ tmpz ;
push ( @ tmp , "COMMENT: \\n" ) ;
push ( @ tmp , "COMMENT: \\n" ) ;
push ( @ tmp , "COMMENT: \\n" ) ;
}
RRDs:: graph ( "$PNG_DIR" . "$PNG[$e * 6 + 2]" ,
"--title=$config->{graphs}->{_apcupsd3} ($tf->{nwhen}$tf->{twhen})" ,
"--start=-$tf->{nwhen}$tf->{twhen}" ,
"--imgformat=PNG" ,
"--vertical-label=$temp_scale" ,
"--width=$width" ,
"--height=$height" ,
@ riglim ,
"--lower-limit=0" ,
$ zoom ,
@ { $ cgi - > { version12 } } ,
@ { $ cgi - > { version12_small } } ,
@ { $ colors - > { graph_colors } } ,
"DEF:itemp=$rrd:apcupsd" . $ e . "_itemp:AVERAGE" ,
"DEF:atemp=$rrd:apcupsd" . $ e . "_atemp:AVERAGE" ,
"DEF:humid=$rrd:apcupsd" . $ e . "_humid:AVERAGE" ,
"CDEF:allvalues=itemp,atemp,humid,+,+" ,
@ CDEF ,
@ tmp ) ;
$ err = RRDs:: error ;
print ( "ERROR: while graphing $PNG_DIR" . "$PNG[$e * 6 + 2]: $err\n" ) if $ err ;
if ( lc ( $ config - > { enable_zoom } ) eq "y" ) {
( $ width , $ height ) = split ( 'x' , $ config - > { graph_size } - > { zoom } ) ;
RRDs:: graph ( "$PNG_DIR" . "$PNGz[$e * 6 + 2]" ,
"--title=$config->{graphs}->{_apcupsd3} ($tf->{nwhen}$tf->{twhen})" ,
"--start=-$tf->{nwhen}$tf->{twhen}" ,
"--imgformat=PNG" ,
"--vertical-label=$temp_scale" ,
"--width=$width" ,
"--height=$height" ,
@ riglim ,
"--lower-limit=0" ,
@ { $ cgi - > { version12 } } ,
@ { $ cgi - > { version12_small } } ,
@ { $ colors - > { graph_colors } } ,
"DEF:itemp=$rrd:apcupsd" . $ e . "_itemp:AVERAGE" ,
"DEF:atemp=$rrd:apcupsd" . $ e . "_atemp:AVERAGE" ,
"DEF:humid=$rrd:apcupsd" . $ e . "_humid:AVERAGE" ,
"CDEF:allvalues=itemp,atemp,humid,+,+" ,
@ CDEF ,
@ tmpz ) ;
$ err = RRDs:: error ;
print ( "ERROR: while graphing $PNG_DIR" . "$PNGz[$e * 6 + 2]: $err\n" ) if $ err ;
}
$ e2 = $ e + 3 ;
if ( $ title || ( $ silent =~ /imagetag/ && $ graph =~ /apcupsd$e2/ ) ) {
if ( lc ( $ config - > { enable_zoom } ) eq "y" ) {
if ( lc ( $ config - > { disable_javascript_void } ) eq "y" ) {
print ( " <a href=\"" . $ config - > { url } . "/" . $ config - > { imgs_dir } . $ PNGz [ $ e * 6 + 2 ] . "\"><img src='" . $ config - > { url } . "/" . $ config - > { imgs_dir } . $ PNG [ $ e * 6 + 2 ] . "' border='0'></a>\n" ) ;
}
else {
print ( " <a href=\"javascript:void(window.open('" . $ config - > { url } . "/" . $ config - > { imgs_dir } . $ PNGz [ $ e * 6 + 2 ] . "','','width=" . ( $ width + 115 ) . ",height=" . ( $ height + 100 ) . ",scrollbars=0,resizable=0'))\"><img src='" . $ config - > { url } . "/" . $ config - > { imgs_dir } . $ PNG [ $ e * 6 + 2 ] . "' border='0'></a>\n" ) ;
}
} else {
print ( " <img src='" . $ config - > { url } . "/" . $ config - > { imgs_dir } . $ PNG [ $ e * 6 + 2 ] . "'>\n" ) ;
}
}
undef ( @ riglim ) ;
if ( trim ( $ rigid [ 3 ] ) eq 1 ) {
push ( @ riglim , "--upper-limit=" . trim ( $ limit [ 3 ] ) ) ;
} else {
if ( trim ( $ rigid [ 3 ] ) eq 2 ) {
push ( @ riglim , "--upper-limit=" . trim ( $ limit [ 3 ] ) ) ;
push ( @ riglim , "--rigid" ) ;
}
}
undef ( @ tmp ) ;
undef ( @ tmpz ) ;
undef ( @ CDEF ) ;
push ( @ tmp , "LINE2:battv#44EEEE:Voltage" ) ;
push ( @ tmp , "GPRINT:battv:LAST: Current\\: %4.1lf\\n" ) ;
push ( @ tmp , "LINE2:nomba#4444EE:Nominal" ) ;
push ( @ tmp , "GPRINT:nomba:LAST: Current\\: %4.1lf\\n" ) ;
push ( @ tmpz , "LINE2:battv#44EEEE:Voltage" ) ;
push ( @ tmpz , "LINE2:nomba#4444EE:Nominal" ) ;
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 } ) ;
if ( $ silent =~ /imagetag/ ) {
( $ width , $ height ) = split ( 'x' , $ config - > { graph_size } - > { remote } ) if $ silent eq "imagetag" ;
( $ width , $ height ) = split ( 'x' , $ config - > { graph_size } - > { main } ) if $ silent eq "imagetagbig" ;
@ tmp = @ tmpz ;
push ( @ tmp , "COMMENT: \\n" ) ;
push ( @ tmp , "COMMENT: \\n" ) ;
push ( @ tmp , "COMMENT: \\n" ) ;
}
RRDs:: graph ( "$PNG_DIR" . "$PNG[$e * 6 + 3]" ,
"--title=$config->{graphs}->{_apcupsd4} ($tf->{nwhen}$tf->{twhen})" ,
"--start=-$tf->{nwhen}$tf->{twhen}" ,
"--imgformat=PNG" ,
"--vertical-label=Volts" ,
"--width=$width" ,
"--height=$height" ,
@ riglim ,
"--lower-limit=0" ,
$ zoom ,
@ { $ cgi - > { version12 } } ,
@ { $ cgi - > { version12_small } } ,
@ { $ colors - > { graph_colors } } ,
"DEF:battv=$rrd:apcupsd" . $ e . "_battv:AVERAGE" ,
"DEF:nomba=$rrd:apcupsd" . $ e . "_nomba:AVERAGE" ,
"CDEF:allvalues=battv,nomba,+" ,
@ CDEF ,
@ tmp ) ;
$ err = RRDs:: error ;
print ( "ERROR: while graphing $PNG_DIR" . "$PNG[$e * 6 + 3]: $err\n" ) if $ err ;
if ( lc ( $ config - > { enable_zoom } ) eq "y" ) {
( $ width , $ height ) = split ( 'x' , $ config - > { graph_size } - > { zoom } ) ;
RRDs:: graph ( "$PNG_DIR" . "$PNGz[$e * 6 + 3]" ,
"--title=$config->{graphs}->{_apcupsd4} ($tf->{nwhen}$tf->{twhen})" ,
"--start=-$tf->{nwhen}$tf->{twhen}" ,
"--imgformat=PNG" ,
"--vertical-label=Volts" ,
"--width=$width" ,
"--height=$height" ,
@ riglim ,
"--lower-limit=0" ,
@ { $ cgi - > { version12 } } ,
@ { $ cgi - > { version12_small } } ,
@ { $ colors - > { graph_colors } } ,
"DEF:battv=$rrd:apcupsd" . $ e . "_battv:AVERAGE" ,
"DEF:nomba=$rrd:apcupsd" . $ e . "_nomba:AVERAGE" ,
"CDEF:allvalues=battv,nomba,+" ,
@ CDEF ,
@ tmpz ) ;
$ err = RRDs:: error ;
print ( "ERROR: while graphing $PNG_DIR" . "$PNGz[$e * 6 + 3]: $err\n" ) if $ err ;
}
$ e2 = $ e + 4 ;
if ( $ title || ( $ silent =~ /imagetag/ && $ graph =~ /apcupsd$e2/ ) ) {
if ( lc ( $ config - > { enable_zoom } ) eq "y" ) {
if ( lc ( $ config - > { disable_javascript_void } ) eq "y" ) {
print ( " <a href=\"" . $ config - > { url } . "/" . $ config - > { imgs_dir } . $ PNGz [ $ e * 6 + 3 ] . "\"><img src='" . $ config - > { url } . "/" . $ config - > { imgs_dir } . $ PNG [ $ e * 6 + 3 ] . "' border='0'></a>\n" ) ;
}
else {
print ( " <a href=\"javascript:void(window.open('" . $ config - > { url } . "/" . $ config - > { imgs_dir } . $ PNGz [ $ e * 6 + 3 ] . "','','width=" . ( $ width + 115 ) . ",height=" . ( $ height + 100 ) . ",scrollbars=0,resizable=0'))\"><img src='" . $ config - > { url } . "/" . $ config - > { imgs_dir } . $ PNG [ $ e * 6 + 3 ] . "' border='0'></a>\n" ) ;
}
} else {
print ( " <img src='" . $ config - > { url } . "/" . $ config - > { imgs_dir } . $ PNG [ $ e * 6 + 3 ] . "'>\n" ) ;
}
}
undef ( @ riglim ) ;
if ( trim ( $ rigid [ 4 ] ) eq 1 ) {
push ( @ riglim , "--upper-limit=" . trim ( $ limit [ 4 ] ) ) ;
} else {
if ( trim ( $ rigid [ 4 ] ) eq 2 ) {
push ( @ riglim , "--upper-limit=" . trim ( $ limit [ 4 ] ) ) ;
push ( @ riglim , "--rigid" ) ;
}
}
undef ( @ tmp ) ;
undef ( @ tmpz ) ;
undef ( @ CDEF ) ;
2014-01-07 14:12:26 +00:00
push ( @ tmp , "LINE2:timel#44EEEE:Minutes left" ) ;
push ( @ tmp , "GPRINT:timel:LAST: Current\\: %3.0lf\\n" ) ;
push ( @ tmp , "LINE2:minti#EEEE44:Shutdown level" ) ;
push ( @ tmp , "GPRINT:minti:LAST: Current\\: %3.0lf\\n" ) ;
push ( @ tmpz , "LINE2:timel#44EEEE:Minutes left" ) ;
push ( @ tmpz , "LINE2:minti#EEEE44:Shutdown level" ) ;
2014-01-03 10:53:41 +00:00
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 } ) ;
if ( $ silent =~ /imagetag/ ) {
( $ width , $ height ) = split ( 'x' , $ config - > { graph_size } - > { remote } ) if $ silent eq "imagetag" ;
( $ width , $ height ) = split ( 'x' , $ config - > { graph_size } - > { main } ) if $ silent eq "imagetagbig" ;
@ tmp = @ tmpz ;
push ( @ tmp , "COMMENT: \\n" ) ;
push ( @ tmp , "COMMENT: \\n" ) ;
push ( @ tmp , "COMMENT: \\n" ) ;
}
RRDs:: graph ( "$PNG_DIR" . "$PNG[$e * 6 + 4]" ,
"--title=$config->{graphs}->{_apcupsd5} ($tf->{nwhen}$tf->{twhen})" ,
"--start=-$tf->{nwhen}$tf->{twhen}" ,
"--imgformat=PNG" ,
2014-01-07 14:12:26 +00:00
"--vertical-label=Minutes" ,
2014-01-03 10:53:41 +00:00
"--width=$width" ,
"--height=$height" ,
@ riglim ,
"--lower-limit=0" ,
$ zoom ,
@ { $ cgi - > { version12 } } ,
@ { $ cgi - > { version12_small } } ,
@ { $ colors - > { graph_colors } } ,
2014-01-07 14:12:26 +00:00
"DEF:timel=$rrd:apcupsd" . $ e . "_timel:AVERAGE" ,
"DEF:minti=$rrd:apcupsd" . $ e . "_minti:AVERAGE" ,
"CDEF:allvalues=timel,minti,+" ,
2014-01-03 10:53:41 +00:00
@ CDEF ,
@ tmp ) ;
$ err = RRDs:: error ;
print ( "ERROR: while graphing $PNG_DIR" . "$PNG[$e * 6 + 4]: $err\n" ) if $ err ;
if ( lc ( $ config - > { enable_zoom } ) eq "y" ) {
( $ width , $ height ) = split ( 'x' , $ config - > { graph_size } - > { zoom } ) ;
RRDs:: graph ( "$PNG_DIR" . "$PNGz[$e * 6 + 4]" ,
"--title=$config->{graphs}->{_apcupsd5} ($tf->{nwhen}$tf->{twhen})" ,
"--start=-$tf->{nwhen}$tf->{twhen}" ,
"--imgformat=PNG" ,
"--vertical-label=Volts" ,
"--width=$width" ,
"--height=$height" ,
@ riglim ,
"--lower-limit=0" ,
@ { $ cgi - > { version12 } } ,
@ { $ cgi - > { version12_small } } ,
@ { $ colors - > { graph_colors } } ,
2014-01-07 14:12:26 +00:00
"DEF:timel=$rrd:apcupsd" . $ e . "_timel:AVERAGE" ,
"DEF:minti=$rrd:apcupsd" . $ e . "_minti:AVERAGE" ,
"CDEF:allvalues=timel,minti,+" ,
2014-01-03 10:53:41 +00:00
@ CDEF ,
@ tmpz ) ;
$ err = RRDs:: error ;
print ( "ERROR: while graphing $PNG_DIR" . "$PNGz[$e * 6 + 4]: $err\n" ) if $ err ;
}
$ e2 = $ e + 5 ;
if ( $ title || ( $ silent =~ /imagetag/ && $ graph =~ /apcupsd$e2/ ) ) {
if ( lc ( $ config - > { enable_zoom } ) eq "y" ) {
if ( lc ( $ config - > { disable_javascript_void } ) eq "y" ) {
print ( " <a href=\"" . $ config - > { url } . "/" . $ config - > { imgs_dir } . $ PNGz [ $ e * 6 + 4 ] . "\"><img src='" . $ config - > { url } . "/" . $ config - > { imgs_dir } . $ PNG [ $ e * 6 + 4 ] . "' border='0'></a>\n" ) ;
}
else {
print ( " <a href=\"javascript:void(window.open('" . $ config - > { url } . "/" . $ config - > { imgs_dir } . $ PNGz [ $ e * 6 + 4 ] . "','','width=" . ( $ width + 115 ) . ",height=" . ( $ height + 100 ) . ",scrollbars=0,resizable=0'))\"><img src='" . $ config - > { url } . "/" . $ config - > { imgs_dir } . $ PNG [ $ e * 6 + 4 ] . "' border='0'></a>\n" ) ;
}
} else {
print ( " <img src='" . $ config - > { url } . "/" . $ config - > { imgs_dir } . $ PNG [ $ e * 6 + 4 ] . "'>\n" ) ;
}
}
undef ( @ riglim ) ;
if ( trim ( $ rigid [ 5 ] ) eq 1 ) {
push ( @ riglim , "--upper-limit=" . trim ( $ limit [ 5 ] ) ) ;
} else {
if ( trim ( $ rigid [ 5 ] ) eq 2 ) {
push ( @ riglim , "--upper-limit=" . trim ( $ limit [ 5 ] ) ) ;
push ( @ riglim , "--rigid" ) ;
}
}
undef ( @ tmp ) ;
undef ( @ tmpz ) ;
undef ( @ CDEF ) ;
push ( @ tmp , "LINE2:linef#EE44EE:Frequency" ) ;
push ( @ tmp , "GPRINT:linef:LAST: Current\\: %1.0lf\\n" ) ;
push ( @ tmpz , "LINE2:linef#EE44EE:Frequency" ) ;
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 } ) ;
if ( $ silent =~ /imagetag/ ) {
( $ width , $ height ) = split ( 'x' , $ config - > { graph_size } - > { remote } ) if $ silent eq "imagetag" ;
( $ width , $ height ) = split ( 'x' , $ config - > { graph_size } - > { main } ) if $ silent eq "imagetagbig" ;
@ tmp = @ tmpz ;
push ( @ tmp , "COMMENT: \\n" ) ;
push ( @ tmp , "COMMENT: \\n" ) ;
push ( @ tmp , "COMMENT: \\n" ) ;
}
RRDs:: graph ( "$PNG_DIR" . "$PNG[$e * 6 + 5]" ,
"--title=$config->{graphs}->{_apcupsd6} ($tf->{nwhen}$tf->{twhen})" ,
"--start=-$tf->{nwhen}$tf->{twhen}" ,
"--imgformat=PNG" ,
"--vertical-label=Hz" ,
"--width=$width" ,
"--height=$height" ,
@ riglim ,
"--lower-limit=0" ,
$ zoom ,
@ { $ cgi - > { version12 } } ,
@ { $ cgi - > { version12_small } } ,
@ { $ colors - > { graph_colors } } ,
"DEF:linef=$rrd:apcupsd" . $ e . "_linef:AVERAGE" ,
"CDEF:allvalues=linef" ,
@ CDEF ,
@ tmp ) ;
$ err = RRDs:: error ;
print ( "ERROR: while graphing $PNG_DIR" . "$PNG[$e * 6 + 5]: $err\n" ) if $ err ;
if ( lc ( $ config - > { enable_zoom } ) eq "y" ) {
( $ width , $ height ) = split ( 'x' , $ config - > { graph_size } - > { zoom } ) ;
RRDs:: graph ( "$PNG_DIR" . "$PNGz[$e * 6 + 5]" ,
"--title=$config->{graphs}->{_apcupsd6} ($tf->{nwhen}$tf->{twhen})" ,
"--start=-$tf->{nwhen}$tf->{twhen}" ,
"--imgformat=PNG" ,
"--vertical-label=Hz" ,
"--width=$width" ,
"--height=$height" ,
@ riglim ,
"--lower-limit=0" ,
@ { $ cgi - > { version12 } } ,
@ { $ cgi - > { version12_small } } ,
@ { $ colors - > { graph_colors } } ,
"DEF:linef=$rrd:apcupsd" . $ e . "_linef:AVERAGE" ,
"CDEF:allvalues=linef" ,
@ CDEF ,
@ tmpz ) ;
$ err = RRDs:: error ;
print ( "ERROR: while graphing $PNG_DIR" . "$PNGz[$e * 6 + 5]: $err\n" ) if $ err ;
}
$ e2 = $ e + 6 ;
if ( $ title || ( $ silent =~ /imagetag/ && $ graph =~ /apcupsd$e2/ ) ) {
if ( lc ( $ config - > { enable_zoom } ) eq "y" ) {
if ( lc ( $ config - > { disable_javascript_void } ) eq "y" ) {
print ( " <a href=\"" . $ config - > { url } . "/" . $ config - > { imgs_dir } . $ PNGz [ $ e * 6 + 5 ] . "\"><img src='" . $ config - > { url } . "/" . $ config - > { imgs_dir } . $ PNG [ $ e * 6 + 5 ] . "' border='0'></a>\n" ) ;
}
else {
print ( " <a href=\"javascript:void(window.open('" . $ config - > { url } . "/" . $ config - > { imgs_dir } . $ PNGz [ $ e * 6 + 5 ] . "','','width=" . ( $ width + 115 ) . ",height=" . ( $ height + 100 ) . ",scrollbars=0,resizable=0'))\"><img src='" . $ config - > { url } . "/" . $ config - > { imgs_dir } . $ PNG [ $ e * 6 + 5 ] . "' border='0'></a>\n" ) ;
}
} else {
print ( " <img src='" . $ config - > { url } . "/" . $ config - > { imgs_dir } . $ PNG [ $ e * 6 + 5 ] . "'>\n" ) ;
}
}
if ( $ title ) {
print ( " </td>\n" ) ;
print ( " </tr>\n" ) ;
print ( " <tr>\n" ) ;
print " <td bgcolor='$colors->{title_bg_color}' colspan='2'>\n" ;
print " <font face='Verdana, sans-serif' color='$colors->{title_fg_color}'>\n" ;
print " <font size='-1'>\n" ;
print " <b style='{color: " . $ colors - > { title_fg_color } . "}'> " . trim ( $ url ) . "<b>\n" ;
print " </font></font>\n" ;
print " </td>\n" ;
print ( " </tr>\n" ) ;
main:: graph_footer ( ) ;
}
$ e + + ;
}
print ( " <br>\n" ) ;
return ;
}
1 ;
