smecontribs/smeserver-sysmon
6
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

initial commit of file from CVS for smeserver-sysmon on Sat Sep 7 21:06:49 AEST 2024

Browse Source
This commit is contained in:
Trevor Batley
2024-09-07 21:06:49 +10:00
parent 248b2e2a1b
commit 22691426e4
12 changed files with 1651 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
root/etc/e-smith/db/configuration/defaults/sysmon/status Normal file
View File

@@ -0,0 +1 @@
enabled

1
root/etc/e-smith/db/configuration/defaults/sysmon/type Normal file
View File

@@ -0,0 +1 @@
service

716
root/etc/e-smith/web/functions/sysmon Normal file
View File

@@ -0,0 +1,716 @@
#!/usr/bin/perl -T
#----------------------------------------------------------------------
# heading : Administration
# description : System Monitor
# navigation : 4000 4050
#
# copyright (C) 2002 Shad L. Lords <slords@mail.com>
# copyright (C) 2001 Eneo Tecnologia SC. <jjptapia@eresmas.com>
# Distributed under the GPL license.
#----------------------------------------------------------------------
package esmith;
#use strict;
use CGI ':all';
use CGI::Carp qw(fatalsToBrowser);
use esmith::cgi;
use esmith::config;
use esmith::util;
use esmith::db;
BEGIN
{
$ENV {'PATH'} = '';
$ENV {'SHELL'} = '/bin/bash';
delete $ENV {'ENV'};
}
esmith::util::setRealToEffective ();
$scriptname = 'sysmon';
$RRDDIR = '/var/lib/rrd';
$RRDFILE = 'sysmon';
$HOSTFILE = 'host_';
$IFACEFILE = 'iface_';
$SENSORSFILE = 'sensors';
$UPSFILE = 'ups';
my %conf;
tie %conf, 'esmith::config';
my $hosts = db_get_prop(\%conf, $RRDFILE, 'hosts') || "gateway";
my $pingscale = db_get_prop(\%conf, $RRDFILE, 'pingscale') || "300";
my $maxping = db_get_prop(\%conf, $RRDFILE, 'maxping') || "400";
$maxping -= 0.01;
$sechour = 24000;
$secday = 120000;
$secweek = 720000;
$secmonth = 2880000;
$secyear = 34560000;
$graphwidth = 401;
$graphheight = 160;
$TITLE = 'System Monitor';
$MINUTE = 'Minute';
$HOUR = 'Hour';
$HOURLY = 'Hourly';
$DAY = 'Day';
$DAILY = 'Daily';
$WEEKLY = 'Weekly';
$MONTHLY = 'Monthly';
$GRAPH = 'Graph';
$YEARLY = 'Yearly';
$MAXIMAL = 'Maximal';
$AVERAGE = 'Average';
$CURRENT = 'Current';
$CPU = "CPU";
$LOADCPU = "Load/CPU";
$MEM = "Memory";
$TEMP = "Temp";
$UPS = "UPS";
$PROCQUE = "Proc/Que";
$HD = "Drives";
$VOLTAGE = "Volt";
$FAN = "Fan";
$UPTIME = "Uptime";
my $RRDCMD = "/usr/bin/rrdtool graph - -a 'PNG' -w '600' -h '250' --color 'SHADEA#ffffff' --color 'SHADEB#ffffff' --color 'BACK#ffffff' --color 'CANVAS#ffffff' -r -E -M ";
$CPU_GRAPH = "-b '1000' -l '0' ";
$CPU_GRAPH .= "-t 'CPU<D> Utilitization' ";
$CPU_GRAPH .= "-v 'CPU (%)' ";
$CPU_GRAPH .= "'DEF:avgsystem=$RRDDIR/$RRDFILE.rrd:system<D>:AVERAGE' ";
$CPU_GRAPH .= "'DEF:maxsystem=$RRDDIR/$RRDFILE.rrd:system<D>:MAX' ";
$CPU_GRAPH .= "'DEF:avguser=$RRDDIR/$RRDFILE.rrd:user<D>:AVERAGE' ";
$CPU_GRAPH .= "'DEF:maxuser=$RRDDIR/$RRDFILE.rrd:user<D>:MAX' ";
$CPU_GRAPH .= "'DEF:avgiowait=$RRDDIR/$RRDFILE.rrd:iowait<D>:AVERAGE' ";
$CPU_GRAPH .= "'DEF:maxiowait=$RRDDIR/$RRDFILE.rrd:iowait<D>:MAX' ";
$CPU_GRAPH .= "'DEF:avgnice=$RRDDIR/$RRDFILE.rrd:nice<D>:AVERAGE' ";
$CPU_GRAPH .= "'DEF:maxnice=$RRDDIR/$RRDFILE.rrd:nice<D>:MAX' ";
$CPU_GRAPH .= "'CDEF:avgadjsystem=avgsystem,100,*' ";
$CPU_GRAPH .= "'CDEF:maxadjsystem=maxsystem,100,*' ";
$CPU_GRAPH .= "'CDEF:avgadjuser=avguser,100,*' ";
$CPU_GRAPH .= "'CDEF:maxadjuser=maxuser,100,*' ";
$CPU_GRAPH .= "'CDEF:avgadjiowait=avgiowait,100,*' ";
$CPU_GRAPH .= "'CDEF:maxadjiowait=maxiowait,100,*' ";
$CPU_GRAPH .= "'CDEF:avgadjnice=avgnice,100,*' ";
$CPU_GRAPH .= "'CDEF:maxadjnice=maxnice,100,*' ";
$CPU_GRAPH .= "'COMMENT:Current\\tAverage\\tMaximum\\tAvg\\n' ";
$CPU_GRAPH .= "'GPRINT:avgadjuser:LAST:%6.2lf\\g' ";
$CPU_GRAPH .= "'GPRINT:avgadjuser:AVERAGE:\\t%6.2lf\\g' ";
$CPU_GRAPH .= "'GPRINT:maxadjuser:MAX:\\t%6.2lf\\g' ";
$CPU_GRAPH .= "'COMMENT:\\t\\g' ";
$CPU_GRAPH .= "'AREA:avgadjuser#009900:\\tUser (%)\\n' ";
$CPU_GRAPH .= "'GPRINT:avgadjnice:LAST:%6.2lf\\g' ";
$CPU_GRAPH .= "'GPRINT:avgadjnice:AVERAGE:\\t%6.2lf\\g' ";
$CPU_GRAPH .= "'GPRINT:maxadjnice:MAX:\\t%6.2lf\\g' ";
$CPU_GRAPH .= "'COMMENT:\\t\\g' ";
$CPU_GRAPH .= "'AREA:avgadjnice#FFFF00:\\tNice (%)\\n:STACK' ";
$CPU_GRAPH .= "'GPRINT:avgadjsystem:LAST:%6.2lf\\g' ";
$CPU_GRAPH .= "'GPRINT:avgadjsystem:AVERAGE:\\t%6.2lf\\g' ";
$CPU_GRAPH .= "'GPRINT:maxadjsystem:MAX:\\t%6.2lf\\g' ";
$CPU_GRAPH .= "'COMMENT:\\t\\g' ";
$CPU_GRAPH .= "'AREA:avgadjsystem#000080:\\tSystem (%)\\n:STACK' ";
$CPU_GRAPH .= "'GPRINT:avgadjiowait:LAST:%6.2lf\\g' ";
$CPU_GRAPH .= "'GPRINT:avgadjiowait:AVERAGE:\\t%6.2lf\\g' ";
$CPU_GRAPH .= "'GPRINT:maxadjiowait:MAX:\\t%6.2lf\\g' ";
$CPU_GRAPH .= "'COMMENT:\\t\\g' ";
$CPU_GRAPH .= "'AREA:avgadjiowait#FF0000:\\tIO Wait (%)\\n:STACK' ";
$LOADCPU_GRAPH = "-b '1000' -l '0' ";
$LOADCPU_GRAPH .= "-t 'System Load / %CPU' ";
$LOADCPU_GRAPH .= "-v 'Load*30 / %CPU' ";
$LOADCPU_GRAPH .= "'DEF:avgload=$RRDDIR/$RRDFILE.rrd:ldavg-1:AVERAGE' ";
$LOADCPU_GRAPH .= "'DEF:maxload=$RRDDIR/$RRDFILE.rrd:ldavg-1:MAX' ";
$LOADCPU_GRAPH .= "'DEF:avgtotalcpu=$RRDDIR/$RRDFILE.rrd:total:AVERAGE' ";
$LOADCPU_GRAPH .= "'DEF:maxtotalcpu=$RRDDIR/$RRDFILE.rrd:total:MAX' ";
$LOADCPU_GRAPH .= "'CDEF:avgadjload=avgload,30,*' ";
$LOADCPU_GRAPH .= "'CDEF:maxadjload=maxload,30,*' ";
$LOADCPU_GRAPH .= "'CDEF:diffadjload=maxadjload,avgadjload,-' ";
$LOADCPU_GRAPH .= "'CDEF:avgadjtotalcpu=avgtotalcpu,100,*' ";
$LOADCPU_GRAPH .= "'CDEF:maxadjtotalcpu=maxtotalcpu,100,*' ";
$LOADCPU_GRAPH .= "'COMMENT:Current\\tAverage\\tMaximum\\tAvg<\\tPeak>\\n' ";
$LOADCPU_GRAPH .= "'GPRINT:avgload:LAST:%6.3lf\\g' ";
$LOADCPU_GRAPH .= "'GPRINT:avgload:AVERAGE:\\t%6.3lf\\g' ";
$LOADCPU_GRAPH .= "'GPRINT:maxload:MAX:\\t%6.3lf\\g' ";
$LOADCPU_GRAPH .= "'COMMENT:\\t\\g' ";
$LOADCPU_GRAPH .= "'AREA:avgadjload#00FF00:\\t{Load\\n}<\\g>' ";
$LOADCPU_GRAPH .= "<'AREA:diffadjload#006400:\\tLoad\\n:STACK'> ";
$LOADCPU_GRAPH .= "'GPRINT:avgadjtotalcpu:LAST:%6.2lf\\g' ";
$LOADCPU_GRAPH .= "'GPRINT:avgadjtotalcpu:AVERAGE:\\t%6.2lf\\g' ";
$LOADCPU_GRAPH .= "'GPRINT:maxadjtotalcpu:MAX:\\t%6.2lf\\g' ";
$LOADCPU_GRAPH .= "'COMMENT:\\t\\g' ";
$LOADCPU_GRAPH .= "'LINE1:avgadjtotalcpu#1000FF:\\t{CPU (%)\\n}<\\g>' ";
$LOADCPU_GRAPH .= "<'LINE1:maxadjtotalcpu#000080:\\tCPU (%)\\n'> ";
$LOADCPU_MAX = 'week month year';
$PROCQUE_GRAPH = "-b '1000' -l '0' ";
$PROCQUE_GRAPH .= "-t 'System Processes / Run Queue' ";
$PROCQUE_GRAPH .= "-v 'Processes / Queue*10' ";
$PROCQUE_GRAPH .= "'DEF:avgplist=$RRDDIR/$RRDFILE.rrd:plist-sz:AVERAGE' ";
$PROCQUE_GRAPH .= "'DEF:maxplist=$RRDDIR/$RRDFILE.rrd:plist-sz:MAX' ";
$PROCQUE_GRAPH .= "'DEF:avgrunq=$RRDDIR/$RRDFILE.rrd:runq-sz:AVERAGE' ";
$PROCQUE_GRAPH .= "'DEF:maxrunq=$RRDDIR/$RRDFILE.rrd:runq-sz:MAX' ";
$PROCQUE_GRAPH .= "'CDEF:avgadjrunq=avgrunq,10,*' ";
$PROCQUE_GRAPH .= "'CDEF:maxadjrunq=maxrunq,10,*' ";
$PROCQUE_GRAPH .= "'CDEF:diffplist=maxplist,avgplist,-' ";
$PROCQUE_GRAPH .= "'COMMENT:Current\\tAverage\\tMaximum\\tAvg<\\tPeak>\\n' ";
$PROCQUE_GRAPH .= "'GPRINT:avgplist:LAST:%6.1lf\\g' ";
$PROCQUE_GRAPH .= "'GPRINT:avgplist:AVERAGE:\\t%6.1lf\\g' ";
$PROCQUE_GRAPH .= "'GPRINT:maxplist:MAX:\\t%6.1lf\\g' ";
$PROCQUE_GRAPH .= "'COMMENT:\\t\\g' ";
$PROCQUE_GRAPH .= "'AREA:avgplist#00FF00:\\t{Processes\\n}<\\g>' ";
$PROCQUE_GRAPH .= "<'AREA:diffplist#006400:\\tProcesses\\n:STACK'> ";
$PROCQUE_GRAPH .= "'GPRINT:avgrunq:LAST:%6.2lf\\g' ";
$PROCQUE_GRAPH .= "'GPRINT:avgrunq:AVERAGE:\\t%6.2lf\\g' ";
$PROCQUE_GRAPH .= "'GPRINT:maxrunq:MAX:\\t%6.2lf\\g' ";
$PROCQUE_GRAPH .= "'COMMENT:\\t\\g' ";
$PROCQUE_GRAPH .= "'LINE1:avgadjrunq#1000FF:\\t{Run Queue\\n}<\\g>' ";
$PROCQUE_GRAPH .= "<'LINE1:maxadjrunq#000080:\\tRun Queue\\n'> ";
$PROCQUE_MAX = 'week month year';
$MEM_GRAPH = "-b '1024' -l '0' ";
$MEM_GRAPH .= "-t 'Memory Utilization' ";
$MEM_GRAPH .= "-v 'Bytes' ";
$MEM_GRAPH .= "'DEF:minmemused=$RRDDIR/$RRDFILE.rrd:memused:MIN' ";
$MEM_GRAPH .= "'DEF:avgmemused=$RRDDIR/$RRDFILE.rrd:memused:AVERAGE' ";
$MEM_GRAPH .= "'DEF:maxmemused=$RRDDIR/$RRDFILE.rrd:memused:MAX' ";
$MEM_GRAPH .= "'DEF:minmembuffers=$RRDDIR/$RRDFILE.rrd:buffers:MIN' ";
$MEM_GRAPH .= "'DEF:avgmembuffers=$RRDDIR/$RRDFILE.rrd:buffers:AVERAGE' ";
$MEM_GRAPH .= "'DEF:maxmembuffers=$RRDDIR/$RRDFILE.rrd:buffers:MAX' ";
$MEM_GRAPH .= "'DEF:minmemcached=$RRDDIR/$RRDFILE.rrd:cached:MIN' ";
$MEM_GRAPH .= "'DEF:avgmemcached=$RRDDIR/$RRDFILE.rrd:cached:AVERAGE' ";
$MEM_GRAPH .= "'DEF:maxmemcached=$RRDDIR/$RRDFILE.rrd:cached:MAX' ";
$MEM_GRAPH .= "'DEF:minmemfree=$RRDDIR/$RRDFILE.rrd:memfree:MIN' ";
$MEM_GRAPH .= "'DEF:avgmemfree=$RRDDIR/$RRDFILE.rrd:memfree:AVERAGE' ";
$MEM_GRAPH .= "'DEF:maxmemfree=$RRDDIR/$RRDFILE.rrd:memfree:MAX' ";
$MEM_GRAPH .= "'DEF:minswapused=$RRDDIR/$RRDFILE.rrd:swpused:MIN' ";
$MEM_GRAPH .= "'DEF:avgswapused=$RRDDIR/$RRDFILE.rrd:swpused:AVERAGE' ";
$MEM_GRAPH .= "'DEF:maxswapused=$RRDDIR/$RRDFILE.rrd:swpused:MAX' ";
$MEM_GRAPH .= "'CDEF:minmemactualfree=minmemfree,minmembuffers,-,minmemcached,-' ";
$MEM_GRAPH .= "'CDEF:avgmemactualfree=avgmemfree,avgmembuffers,-,avgmemcached,-' ";
$MEM_GRAPH .= "'CDEF:maxmemactualfree=maxmemfree,maxmembuffers,-,maxmemcached,-' ";
$MEM_GRAPH .= "'COMMENT:Current\\tMinimum\\tAverage\\tMaximum\\tAvg\\n' ";
$MEM_GRAPH .= "'GPRINT:avgmemused:LAST:%5.0lf%S\\g' ";
$MEM_GRAPH .= "'GPRINT:minmemused:MIN:\\t%5.0lf%S\\g' ";
$MEM_GRAPH .= "'GPRINT:avgmemused:AVERAGE:\\t%5.0lf%S\\g' ";
$MEM_GRAPH .= "'GPRINT:maxmemused:MAX:\\t%5.0lf%S\\g' ";
$MEM_GRAPH .= "'COMMENT:\\t\\g' ";
$MEM_GRAPH .= "'AREA:avgmemused#000080:\\tUsed (bytes)\\n' ";
$MEM_GRAPH .= "'GPRINT:avgmembuffers:LAST:%5.0lf%S\\g' ";
$MEM_GRAPH .= "'GPRINT:minmembuffers:MIN:\\t%5.0lf%S\\g' ";
$MEM_GRAPH .= "'GPRINT:avgmembuffers:AVERAGE:\\t%5.0lf%S\\g' ";
$MEM_GRAPH .= "'GPRINT:maxmembuffers:MAX:\\t%5.0lf%S\\g' ";
$MEM_GRAPH .= "'COMMENT:\\t\\g' ";
$MEM_GRAPH .= "'AREA:avgmembuffers#1000FF:\\tBuffers (bytes)\\n:STACK' ";
$MEM_GRAPH .= "'GPRINT:avgmemcached:LAST:%5.0lf%S\\g' ";
$MEM_GRAPH .= "'GPRINT:minmemcached:MIN:\\t%5.0lf%S\\g' ";
$MEM_GRAPH .= "'GPRINT:avgmemcached:AVERAGE:\\t%5.0lf%S\\g' ";
$MEM_GRAPH .= "'GPRINT:maxmemcached:MAX:\\t%5.0lf%S\\g' ";
$MEM_GRAPH .= "'COMMENT:\\t\\g' ";
$MEM_GRAPH .= "'AREA:avgmemcached#006600:\\tCache (bytes)\\n:STACK' ";
$MEM_GRAPH .= "'GPRINT:avgmemactualfree:LAST:%5.0lf%S\\g' ";
$MEM_GRAPH .= "'GPRINT:minmemactualfree:MIN:\\t%5.0lf%S\\g' ";
$MEM_GRAPH .= "'GPRINT:avgmemactualfree:AVERAGE:\\t%5.0lf%S\\g' ";
$MEM_GRAPH .= "'GPRINT:maxmemactualfree:MAX:\\t%5.0lf%S\\g' ";
$MEM_GRAPH .= "'COMMENT:\\t\\g' ";
$MEM_GRAPH .= "'AREA:avgmemactualfree#00FF00:\\tFree (bytes)\\n:STACK' ";
$MEM_GRAPH .= "'GPRINT:avgswapused:LAST:%5.0lf%S\\g' ";
$MEM_GRAPH .= "'GPRINT:minswapused:MIN:\\t%5.0lf%S\\g' ";
$MEM_GRAPH .= "'GPRINT:avgswapused:AVERAGE:\\t%5.0lf%S\\g' ";
$MEM_GRAPH .= "'GPRINT:maxswapused:MAX:\\t%5.0lf%S\\g' ";
$MEM_GRAPH .= "'COMMENT:\\t\\g' ";
$MEM_GRAPH .= "'LINE2:avgswapused#FF0000:\\tSwap (bytes)\\n' ";
$HD_GRAPH = "-b '1024' -l '0' ";
$HD_GRAPH .= "-t 'Hard Drive Usage' ";
$HD_GRAPH .= "-v 'Bytes' ";
$HD_GRAPH .= "'DEF:minhdused=$RRDDIR/$RRDFILE.rrd:hdused:MIN' ";
$HD_GRAPH .= "'DEF:avghdused=$RRDDIR/$RRDFILE.rrd:hdused:AVERAGE' ";
$HD_GRAPH .= "'DEF:maxhdused=$RRDDIR/$RRDFILE.rrd:hdused:MAX' ";
$HD_GRAPH .= "'DEF:minhdfree=$RRDDIR/$RRDFILE.rrd:hdfree:MIN' ";
$HD_GRAPH .= "'DEF:avghdfree=$RRDDIR/$RRDFILE.rrd:hdfree:AVERAGE' ";
$HD_GRAPH .= "'DEF:maxhdfree=$RRDDIR/$RRDFILE.rrd:hdfree:MAX' ";
$HD_GRAPH .= "'CDEF:diffhdused=maxhdused,avghdused,-' ";
$HD_GRAPH .= "'COMMENT:Current\\tMinimum\\tAverage\\tMaximum\\tAvg\\n' ";
$HD_GRAPH .= "'GPRINT:avghdused:LAST:%5.0lf%S\\g' ";
$HD_GRAPH .= "'GPRINT:minhdused:MIN:\\t%5.0lf%S\\g' ";
$HD_GRAPH .= "'GPRINT:avghdused:AVERAGE:\\t%5.0lf%S\\g' ";
$HD_GRAPH .= "'GPRINT:maxhdused:MAX:\\t%5.0lf%S\\g' ";
$HD_GRAPH .= "'COMMENT:\\t\\g' ";
$HD_GRAPH .= "'AREA:avghdused#000080:\\tUsed (bytes)\\n' ";
$HD_GRAPH .= "'GPRINT:avghdfree:LAST:%5.0lf%S\\g' ";
$HD_GRAPH .= "'GPRINT:minhdfree:MIN:\\t%5.0lf%S\\g' ";
$HD_GRAPH .= "'GPRINT:avghdfree:AVERAGE:\\t%5.0lf%S\\g' ";
$HD_GRAPH .= "'GPRINT:maxhdfree:MAX:\\t%5.0lf%S\\g' ";
$HD_GRAPH .= "'COMMENT:\\t\\g' ";
$HD_GRAPH .= "'AREA:avghdfree#00FF00:\\tFree (bytes)\\n:STACK' ";
$UPTIME_GRAPH = "-b '1000' -l '0' ";
$UPTIME_GRAPH .= "-t 'Uptime' ";
$UPTIME_GRAPH .= "-v 'Days' ";
$UPTIME_GRAPH .= "'DEF:avguptime=$RRDDIR/$RRDFILE.rrd:uptime:AVERAGE' ";
$UPTIME_GRAPH .= "'DEF:maxuptime=$RRDDIR/$RRDFILE.rrd:uptime:MAX' ";
$UPTIME_GRAPH .= "'CDEF:avgdays=avguptime,86400,/' ";
$UPTIME_GRAPH .= "'CDEF:maxdays=maxuptime,86400,/' ";
$UPTIME_GRAPH .= "'COMMENT:Current\\tAverage\\tMaximum\\tAvg\\n' ";
$UPTIME_GRAPH .= "'GPRINT:avgdays:LAST:%6.1lf\\g' ";
$UPTIME_GRAPH .= "'GPRINT:avgdays:AVERAGE:\\t%6.1lf\\g' ";
$UPTIME_GRAPH .= "'GPRINT:maxdays:MAX:\\t%6.1lf\\g' ";
$UPTIME_GRAPH .= "'COMMENT:\\t\\g' ";
$UPTIME_GRAPH .= "'AREA:avgdays#00FF00:\\tUptime (days)\\n' ";
$UPTIME_GRAPH .= "'LINE1:avgdays#1000FF' ";
$LATENCY_GRAPH = "-b '1000' -l '0' ";
$LATENCY_GRAPH = "-t 'Latency / Packet Loss (<D>)' ";
$LATENCY_GRAPH .= "-v 'ms / % (${pingscale}ms = 100%)' ";
$LATENCY_GRAPH .= "'DEF:minlatency=$RRDDIR/$HOSTFILE<D>.rrd:median:MIN' ";
$LATENCY_GRAPH .= "'DEF:avglatency=$RRDDIR/$HOSTFILE<D>.rrd:median:AVERAGE' ";
$LATENCY_GRAPH .= "'DEF:maxlatency=$RRDDIR/$HOSTFILE<D>.rrd:median:MAX' ";
$LATENCY_GRAPH .= "'DEF:minloss=$RRDDIR/$HOSTFILE<D>.rrd:loss:MIN' ";
$LATENCY_GRAPH .= "'DEF:avgloss=$RRDDIR/$HOSTFILE<D>.rrd:loss:AVERAGE' ";
$LATENCY_GRAPH .= "'DEF:maxloss=$RRDDIR/$HOSTFILE<D>.rrd:loss:MAX' ";
$LATENCY_GRAPH .= "'CDEF:minmslatency=minlatency,1000,*' ";
$LATENCY_GRAPH .= "'CDEF:avgmslatency=avglatency,1000,*' ";
$LATENCY_GRAPH .= "'CDEF:maxmslatency=maxlatency,1000,*' ";
$LATENCY_GRAPH .= "'CDEF:avgadjlatency=avglatency,${maxping},1000,/,MIN' ";
$LATENCY_GRAPH .= "'CDEF:maxadjlatency=maxlatency,${maxping},1000,/,MIN' ";
$LATENCY_GRAPH .= "'CDEF:diffadjlatency=maxadjlatency,avgadjlatency,-' ";
$LATENCY_GRAPH .= "'CDEF:avgadjloss=avgloss,25000,/,${pingscale},*' ";
$LATENCY_GRAPH .= "'CDEF:maxadjloss=maxloss,25000,/,${pingscale},*' ";
$LATENCY_GRAPH .= "'CDEF:minrealloss=minloss,.25000,/,' ";
$LATENCY_GRAPH .= "'CDEF:avgrealloss=avgloss,.25000,/,' ";
$LATENCY_GRAPH .= "'CDEF:maxrealloss=maxloss,.25000,/,' ";
$LATENCY_GRAPH .= "'COMMENT:Current\\tMinimum\\tAverage\\tMaximum\\tAvg<\\tPeak>\\n' ";
$LATENCY_GRAPH .= "'GPRINT:avgmslatency:LAST:%6.1lf\\g' ";
$LATENCY_GRAPH .= "'GPRINT:minmslatency:MIN:\\t%6.1lf\\g' ";
$LATENCY_GRAPH .= "'GPRINT:avgmslatency:AVERAGE:\\t%6.1lf\\g' ";
$LATENCY_GRAPH .= "'GPRINT:maxmslatency:MAX:\\t%6.1lf\\g' ";
$LATENCY_GRAPH .= "'COMMENT:\\t\\g' ";
$LATENCY_GRAPH .= "'AREA:avgadjlatency#00FF00:\\t{Latency (ms)\\n}<\\g>' ";
$LATENCY_GRAPH .= "<'AREA:diffadjlatency#006400:\\tLatency (ms)\\n:STACK'> ";
$LATENCY_GRAPH .= "'GPRINT:avgrealloss:LAST:%6.2lf\\g' ";
$LATENCY_GRAPH .= "'GPRINT:minrealloss:MIN:\\t%6.2lf\\g' ";
$LATENCY_GRAPH .= "'GPRINT:avgrealloss:AVERAGE:\\t%6.2lf\\g' ";
$LATENCY_GRAPH .= "'GPRINT:maxrealloss:MAX:\\t%6.2lf\\g' ";
$LATENCY_GRAPH .= "'COMMENT:\\t\\g' ";
$LATENCY_GRAPH .= "'LINE1:avgadjloss#1000FF:\\t{Loss (%)\\n}<\\g>' ";
$LATENCY_GRAPH .= "<'LINE1:maxadjloss#000080:\\tLoss (%)\\n'> ";
$LATENCY_MAX = 'week month year';
$IFACE_GRAPH = "-b '1024' -l '0' ";
$IFACE_GRAPH = "-t 'Ethernet Traffic (<D>)' ";
$IFACE_GRAPH .= "-v 'kB/s' ";
$IFACE_GRAPH .= "'DEF:minbin=$RRDDIR/$IFACEFILE<D>.rrd:rxkB:MIN' ";
$IFACE_GRAPH .= "'DEF:avgbin=$RRDDIR/$IFACEFILE<D>.rrd:rxkB:AVERAGE' ";
$IFACE_GRAPH .= "'DEF:maxbin=$RRDDIR/$IFACEFILE<D>.rrd:rxkB:MAX' ";
$IFACE_GRAPH .= "'DEF:minbout=$RRDDIR/$IFACEFILE<D>.rrd:txkB:MIN' ";
$IFACE_GRAPH .= "'DEF:avgbout=$RRDDIR/$IFACEFILE<D>.rrd:txkB:AVERAGE' ";
$IFACE_GRAPH .= "'DEF:maxbout=$RRDDIR/$IFACEFILE<D>.rrd:txkB:MAX' ";
$IFACE_GRAPH .= "'CDEF:diffbin=maxbin,avgbin,-' ";
$IFACE_GRAPH .= "'COMMENT: ' ";
$IFACE_GRAPH .= "'AREA:avgbin#00FF00:Inbound' ";
$IFACE_GRAPH .= "<'STACK:diffbin#006400: '> ";
$IFACE_GRAPH .= "{'COMMENT: '} ";
$IFACE_GRAPH .= "'LINE1:avgbout#1000FF:Outbound' ";
$IFACE_GRAPH .= "<'LINE1:maxbout#000080: '> ";
$IFACE_GRAPH .= "'COMMENT:\\n' ";
$IFACE_GRAPH .= "'COMMENT: Max\\: ' ";
$IFACE_GRAPH .= "'GPRINT:maxbin:MAX:%6.2lf %skB/s' ";
$IFACE_GRAPH .= "'GPRINT:maxbout:MAX:< > %6.2lf %skB/s' ";
$IFACE_GRAPH .= "'COMMENT:\\n' ";
$IFACE_GRAPH .= "'COMMENT: Avg\\: ' ";
$IFACE_GRAPH .= "'GPRINT:avgbin:AVERAGE:%6.2lf %skB/s' ";
$IFACE_GRAPH .= "'GPRINT:avgbout:AVERAGE:< > %6.2lf %skB/s' ";
$IFACE_GRAPH .= "'COMMENT:\\n' ";
$IFACE_GRAPH .= "'COMMENT:Last\\: ' ";
$IFACE_GRAPH .= "'GPRINT:avgbin:LAST:%6.2lf %skB/s' ";
$IFACE_GRAPH .= "'GPRINT:avgbout:LAST:< > %6.2lf %skB/s' ";
$IFACE_MAX = 'week month year';
$VOLTAGE_GRAPH = "-b '1000' ";
$VOLTAGE_GRAPH .= "-t 'System Sensors (Voltage)' ";
$VOLTAGE_GRAPH .= "-v 'Volts' ";
my @color = ('CC0099', 'FF99CC', '0000FF', '8B4513', 'DAA520', 'FF0000', 'FFFF00','0000FF', '999999', '000000');
my $sensortest = `/usr/bin/rrdtool fetch $RRDDIR/$SENSORSFILE.rrd AVERAGE -s -0 |/usr/bin/head -n1| /usr/bin/tr -s ' '| /usr/bin/tr -d '\n'`;
my @sensorarr = split / /, $sensortest;
my %params = map { $_ => 1 } @sensorarr;
my $isvolt = "";
for (my $i=0; $i <= 8; $i++) {
if(exists($params{"in$i"})) {
$VOLTAGE_GRAPH .= "'DEF:minin$i=$RRDDIR/$SENSORSFILE.rrd:in$i:MIN' ";
$VOLTAGE_GRAPH .= "'DEF:avgin$i=$RRDDIR/$SENSORSFILE.rrd:in$i:AVERAGE' ";
$VOLTAGE_GRAPH .= "'DEF:maxin$i=$RRDDIR/$SENSORSFILE.rrd:in$i:MAX' ";
$VOLTAGE_GRAPH .= "'COMMENT:Current\\tMinimum\\tAverage\\tMaximum\\tAvg\\n' " if $i == 0;
$VOLTAGE_GRAPH .= "'GPRINT:avgin$i:LAST:%6.2lf\\g' ";
$VOLTAGE_GRAPH .= "'GPRINT:minin$i:MIN:\\t%6.2lf\\g' ";
$VOLTAGE_GRAPH .= "'GPRINT:avgin$i:AVERAGE:\\t%6.2lf\\g' ";
$VOLTAGE_GRAPH .= "'GPRINT:maxin$i:MAX:\\t%6.2lf\\g' ";
$VOLTAGE_GRAPH .= "'COMMENT:\\t\\g' ";
$VOLTAGE_GRAPH .= "'LINE2:avgin0#".$color[$i].":\\tVoltage $i (V)\\n' ";
$isvolt=1;
}
}
$FAN_GRAPH = "-b '1000' ";
$FAN_GRAPH .= "-t 'System Sensors (Fans)' ";
$FAN_GRAPH .= "-v 'RPM' ";
my $isfan = "";
for (my $i=1; $i <= 3; $i++) {
if(exists($params{"fan$i"})) {
$FAN_GRAPH .= "'DEF:minfan$i=$RRDDIR/$SENSORSFILE.rrd:fan$i:MIN' ";
$FAN_GRAPH .= "'DEF:avgfan$i=$RRDDIR/$SENSORSFILE.rrd:fan$i:AVERAGE' ";
$FAN_GRAPH .= "'DEF:maxfan$i=$RRDDIR/$SENSORSFILE.rrd:fan$i:MAX' ";
$FAN_GRAPH .= "'COMMENT:Current\\tMinimum\\tAverage\\tMaximum\\tAvg\\n' " if $i == 1;
$FAN_GRAPH .= "'GPRINT:avgfan$i:LAST:%6.2lf\\g' ";
$FAN_GRAPH .= "'GPRINT:minfan$i:MIN:\\t%6.2lf\\g' ";
$FAN_GRAPH .= "'GPRINT:avgfan$i:AVERAGE:\\t%6.2lf\\g' ";
$FAN_GRAPH .= "'GPRINT:maxfan$i:MAX:\\t%6.2lf\\g' ";
$FAN_GRAPH .= "'COMMENT:\\t\\g' ";
$FAN_GRAPH .= "'LINE2:avgfan$i#".$color[$i].":\\tFan $i (rpm)\\n' ";
$isfan=1;
}
}
$TEMP_GRAPH = "-b '1000' ";
$TEMP_GRAPH .= "-t 'System Sensors (Temperature)' ";
$TEMP_GRAPH .= "-v '°C' ";
my $istemp = "";
for (my $i=0; $i <= 8; $i++) {
if(exists($params{"temp$i"})) {
$TEMP_GRAPH .= "'DEF:mintemp$i=$RRDDIR/$SENSORSFILE.rrd:temp$i:MIN' ";
$TEMP_GRAPH .= "'DEF:avgtemp$i=$RRDDIR/$SENSORSFILE.rrd:temp$i:AVERAGE' ";
$TEMP_GRAPH .= "'DEF:maxtemp$i=$RRDDIR/$SENSORSFILE.rrd:temp$i:MAX' ";
$TEMP_GRAPH .= "'COMMENT:Current\\tMinimum\\tAverage\\tMaximum\\tAvg\\n' " if $i == 0;
$TEMP_GRAPH .= "'GPRINT:avgtemp$i:LAST:%6.2lf\\g' ";
$TEMP_GRAPH .= "'GPRINT:mintemp$i:MIN:\\t%6.2lf\\g' ";
$TEMP_GRAPH .= "'GPRINT:avgtemp$i:AVERAGE:\\t%6.2lf\\g' ";
$TEMP_GRAPH .= "'GPRINT:maxtemp$i:MAX:\\t%6.2lf\\g' ";
$TEMP_GRAPH .= "'COMMENT:\\t\\g' ";
$TEMP_GRAPH .= "'LINE2:avgtemp$i#".$color[$i].":\\tTemp $i (°C)\\n' ";
$istemp=1;
}
}
if ( -e "$RRDDIR/${UPSFILE}1.rrd" )
{
$TEMP_GRAPH .= "'DEF:minups1temp=$RRDDIR/${UPSFILE}1.rrd:u_temperature:MIN' ";
$TEMP_GRAPH .= "'DEF:avgups1temp=$RRDDIR/${UPSFILE}1.rrd:u_temperature:AVERAGE' ";
$TEMP_GRAPH .= "'DEF:maxups1temp=$RRDDIR/${UPSFILE}1.rrd:u_temperature:MAX' ";
}
if ( -e "$RRDDIR/${UPSFILE}2.rrd" )
{
$TEMP_GRAPH .= "'DEF:minups2temp=$RRDDIR/${UPSFILE}2.rrd:u_temperature:MIN' ";
$TEMP_GRAPH .= "'DEF:avgups2temp=$RRDDIR/${UPSFILE}2.rrd:u_temperature:AVERAGE' ";
$TEMP_GRAPH .= "'DEF:maxups2temp=$RRDDIR/${UPSFILE}2.rrd:u_temperature:MAX' ";
}
if ( -e "$RRDDIR/${UPSFILE}1.rrd" ) {
$TEMP_GRAPH .= "'GPRINT:avgups1temp:LAST:%6.2lf\\g' ";
$TEMP_GRAPH .= "'GPRINT:minups1temp:MIN:\\t%6.2lf\\g' ";
$TEMP_GRAPH .= "'GPRINT:avgups1temp:AVERAGE:\\t%6.2lf\\g' ";
$TEMP_GRAPH .= "'GPRINT:maxups1temp:MAX:\\t%6.2lf\\g' ";
$TEMP_GRAPH .= "'COMMENT:\\t\\g' ";
$TEMP_GRAPH .= "'LINE2:avgups1temp#999999:\\tUPS 1 (°C)\\n' ";
}
if ( -e "$RRDDIR/${UPSFILE}2.rrd" ) {
$TEMP_GRAPH .= "'GPRINT:avgups2temp:LAST:%6.2lf\\g' ";
$TEMP_GRAPH .= "'GPRINT:minups2temp:MIN:\\t%6.2lf\\g' ";
$TEMP_GRAPH .= "'GPRINT:avgups2temp:AVERAGE:\\t%6.2lf\\g' ";
$TEMP_GRAPH .= "'GPRINT:maxups2temp:MAX:\\t%6.2lf\\g' ";
$TEMP_GRAPH .= "'COMMENT:\\t\\g' ";
$TEMP_GRAPH .= "'LINE2:avgups2temp#333333:\\tUPS 2 (°C)\\n' ";
}
$UPS_GRAPH = "-b '1000' -l '0' ";
$UPS_GRAPH .= "-t 'UPS<D> Statistics' ";
$UPS_GRAPH .= "-v 'V / % / Minutes / °C' ";
$UPS_GRAPH .= "'DEF:minlinev=$RRDDIR/$UPSFILE<D>.rrd:i_voltage:MIN' ";
$UPS_GRAPH .= "'DEF:avglinev=$RRDDIR/$UPSFILE<D>.rrd:i_voltage:AVERAGE' ";
$UPS_GRAPH .= "'DEF:maxlinev=$RRDDIR/$UPSFILE<D>.rrd:i_voltage:MAX' ";
$UPS_GRAPH .= "'DEF:minloadpct=$RRDDIR/$UPSFILE<D>.rrd:u_load:MIN' ";
$UPS_GRAPH .= "'DEF:avgloadpct=$RRDDIR/$UPSFILE<D>.rrd:u_load:AVERAGE' ";
$UPS_GRAPH .= "'DEF:maxloadpct=$RRDDIR/$UPSFILE<D>.rrd:u_load:MAX' ";
$UPS_GRAPH .= "'DEF:minbcharge=$RRDDIR/$UPSFILE<D>.rrd:b_charge:MIN' ";
$UPS_GRAPH .= "'DEF:avgbcharge=$RRDDIR/$UPSFILE<D>.rrd:b_charge:AVERAGE' ";
$UPS_GRAPH .= "'DEF:maxbcharge=$RRDDIR/$UPSFILE<D>.rrd:b_charge:MAX' ";
$UPS_GRAPH .= "'DEF:mintimeleft=$RRDDIR/$UPSFILE<D>.rrd:b_runtime:MIN' ";
$UPS_GRAPH .= "'DEF:avgtimeleft=$RRDDIR/$UPSFILE<D>.rrd:b_runtime:AVERAGE' ";
$UPS_GRAPH .= "'DEF:maxtimeleft=$RRDDIR/$UPSFILE<D>.rrd:b_runtime:MAX' ";
$UPS_GRAPH .= "'DEF:minbattv=$RRDDIR/$UPSFILE<D>.rrd:b_voltage:MIN' ";
$UPS_GRAPH .= "'DEF:avgbattv=$RRDDIR/$UPSFILE<D>.rrd:b_voltage:AVERAGE' ";
$UPS_GRAPH .= "'DEF:maxbattv=$RRDDIR/$UPSFILE<D>.rrd:b_voltage:MAX' ";
$UPS_GRAPH .= "'DEF:minitemp=$RRDDIR/$UPSFILE<D>.rrd:u_temperature:MIN' ";
$UPS_GRAPH .= "'DEF:avgitemp=$RRDDIR/$UPSFILE<D>.rrd:u_temperature:AVERAGE' ";
$UPS_GRAPH .= "'DEF:maxitemp=$RRDDIR/$UPSFILE<D>.rrd:u_temperature:MAX' ";
$UPS_GRAPH .= "'COMMENT:Current\\tMinimum\\tAverage\\tMaximum\\tAvg\\n' ";
$UPS_GRAPH .= "'GPRINT:avglinev:LAST:%6.1lf\\g' ";
$UPS_GRAPH .= "'GPRINT:minlinev:MIN:\\t%6.1lf\\g' ";
$UPS_GRAPH .= "'GPRINT:avglinev:AVERAGE:\\t%6.1lf\\g' ";
$UPS_GRAPH .= "'GPRINT:maxlinev:MAX:\\t%6.1lf\\g' ";
$UPS_GRAPH .= "'COMMENT:\\t\\g' ";
$UPS_GRAPH .= "'LINE2:avglinev#0000FF:\\tIncoming (V)\\n' ";
$UPS_GRAPH .= "'GPRINT:avgbattv:LAST:%6.2lf\\g' ";
$UPS_GRAPH .= "'GPRINT:minbattv:MIN:\\t%6.2lf\\g' ";
$UPS_GRAPH .= "'GPRINT:avgbattv:AVERAGE:\\t%6.2lf\\g' ";
$UPS_GRAPH .= "'GPRINT:maxbattv:MAX:\\t%6.2lf\\g' ";
$UPS_GRAPH .= "'COMMENT:\\t\\g' ";
$UPS_GRAPH .= "'LINE2:avgbattv#DAA520:\\tBattery (V)\\n' ";
$UPS_GRAPH .= "'GPRINT:avgbcharge:LAST:%6.1lf\\g' ";
$UPS_GRAPH .= "'GPRINT:minbcharge:MIN:\\t%6.1lf\\g' ";
$UPS_GRAPH .= "'GPRINT:avgbcharge:AVERAGE:\\t%6.1lf\\g' ";
$UPS_GRAPH .= "'GPRINT:maxbcharge:MAX:\\t%6.1lf\\g' ";
$UPS_GRAPH .= "'COMMENT:\\t\\g' ";
$UPS_GRAPH .= "'LINE2:avgbcharge#FF0000:\\tCharge (%)\\n' ";
$UPS_GRAPH .= "'GPRINT:avgtimeleft:LAST:%6.2lf\\g' ";
$UPS_GRAPH .= "'GPRINT:mintimeleft:MIN:\\t%6.2lf\\g' ";
$UPS_GRAPH .= "'GPRINT:avgtimeleft:AVERAGE:\\t%6.2lf\\g' ";
$UPS_GRAPH .= "'GPRINT:maxtimeleft:MAX:\\t%6.2lf\\g' ";
$UPS_GRAPH .= "'COMMENT:\\t\\g' ";
$UPS_GRAPH .= "'LINE2:avgtimeleft#999999:\\tRuntime (min)\\n' ";
$UPS_GRAPH .= "'GPRINT:avgloadpct:LAST:%6.2lf\\g' ";
$UPS_GRAPH .= "'GPRINT:minloadpct:MIN:\\t%6.2lf\\g' ";
$UPS_GRAPH .= "'GPRINT:avgloadpct:AVERAGE:\\t%6.2lf\\g' ";
$UPS_GRAPH .= "'GPRINT:maxloadpct:MAX:\\t%6.2lf\\g' ";
$UPS_GRAPH .= "'COMMENT:\\t\\g' ";
$UPS_GRAPH .= "'LINE2:avgloadpct#8B4513:\\tLoad (%)\\n' ";
$UPS_GRAPH .= "'GPRINT:avgitemp:LAST:%6.2lf\\g' ";
$UPS_GRAPH .= "'GPRINT:minitemp:MIN:\\t%6.2lf\\g' ";
$UPS_GRAPH .= "'GPRINT:avgitemp:AVERAGE:\\t%6.2lf\\g' ";
$UPS_GRAPH .= "'GPRINT:maxitemp:MAX:\\t%6.2lf\\g' ";
$UPS_GRAPH .= "'COMMENT:\\t\\g' ";
$UPS_GRAPH .= "'LINE2:avgitemp#333333:\\tTemp (°C)\\n' ";
$CGI::POST_MAX=1024 * 100;
$CGI::DISABLE_UPLOADS = 1;
my $q = new CGI;
my @hosts = ();
my @hostfiles = `/bin/ls $RRDDIR/$HOSTFILE*.rrd`;
foreach(@hostfiles)
{
if (/$HOSTFILE([^\/]+).rrd$/)
{
push(@hosts,$1);
}
}
my @interfaces = ();
my @ifacefiles = `/bin/ls $RRDDIR/$IFACEFILE*.rrd`;
foreach(@ifacefiles)
{
if (/$IFACEFILE([^\/]+).rrd$/)
{
push(@interfaces,$1);
}
}
if (! grep (/^state$/, $q->param))
{
$q->param(-name=>"time",value=>"day");
&showGeneral ($q);
&generateFoot($q);
}
elsif ($q->param('state') eq "detailed")
{
&showDetailed ($q);
&generateFoot($q);
}
elsif ($q->param('state') eq "general")
{
&showGeneral ($q);
&generateFoot($q);
}
elsif ($q->param('state') eq "gif")
{
&showGif ($q);
}
else
{
}
sub showGeneral ($)
{
my ($q) = @_;
my ($typeGraph, $time);
# untaint the parameters
if ( $q->param("typegraph") =~ /^([\w]+)$/ ) { $typeGraph = $1; } else { $typeGraph = 'CPU'; }
if ( $q->param("time") =~ /^([\w]+)$/ ) { $time = $1; } else { $time = 'day'; }
my $key;
if ($time eq "hour") { $header = "'$HOURLY' $GRAPH (1 $MINUTE $AVERAGE)<br>"; }
elsif ($time eq "day") { $header = "'$DAILY' $GRAPH (5 $MINUTE $AVERAGE)<br>"; }
elsif ($time eq "week") { $header = "'$WEEKLY' $GRAPH (30 $MINUTE $AVERAGE)<br>"; }
elsif ($time eq "month") { $header = "'$MONTHLY' $GRAPH (2 $HOUR $AVERAGE)<br>"; }
elsif ($time eq "year") { $header = "'$YEARLY' $GRAPH (1 $DAY $AVERAGE)<br>"; }
esmith::cgi::genHeaderNonCacheable ($q, \%conf, "$TITLE");
print "<meta http-equiv=\"refresh\" content=\"300\">";
print "<table border=0 cellspacing=0 cellpadding=0>";
print "<td><b>" . $q->a ({href => "${scriptname}?state=general&time=hour"}, "$HOURLY") . "</b></td><td width=20></td>";
print "<td><b>" . $q->a ({href => "${scriptname}?state=general&time=day"}, "$DAILY") . "</b></td><td width=20></td>";
print "<td><b>" . $q->a ({href => "${scriptname}?state=general&time=week"}, "$WEEKLY") . "</b></td><td width=20></td>";
print "<td><b>" . $q->a ({href => "${scriptname}?state=general&time=month"}, "$MONTHLY") . "</b></td><td width=20></td>";
print "<td><b>" . $q->a ({href => "${scriptname}?state=general&time=year"}, "$YEARLY") . "</b></td><td width=20></td>";
print "</table>";
print $q->p($q->a ({href => "${scriptname}?state=detailed&typegraph=CPU"},"$header<IMG BORDER=0 SRC=\"${scriptname}?state=gif&typegraph=CPU&time=$time\">"));
print $q->p($q->a ({href => "${scriptname}?state=detailed&typegraph=LOADCPU"},"$header<IMG BORDER=0 SRC=\"${scriptname}?state=gif&typegraph=LOADCPU&time=$time\">"));
print $q->p($q->a ({href => "${scriptname}?state=detailed&typegraph=MEM"},"$header<IMG BORDER=0 SRC=\"${scriptname}?state=gif&typegraph=MEM&time=$time\">"));
if ( -e "$RRDDIR/$SENSORSFILE.rrd")
{
print $q->p($q->a ({href => "${scriptname}?state=detailed&typegraph=TEMP"},"$header<IMG BORDER=0 SRC=\"${scriptname}?state=gif&typegraph=TEMP&time=$time\">")) if $istemp;
}
if ( -e "$RRDDIR/${UPSFILE}1.rrd")
{
print $q->p($q->a ({href => "${scriptname}?state=detailed&typegraph=UPS&data=1"},"$header<IMG BORDER=0 SRC=\"${scriptname}?state=gif&typegraph=UPS&time=$time&data=1\">"));
}
if ( -e "$RRDDIR/${UPSFILE}2.rrd")
{
print $q->p($q->a ({href => "${scriptname}?state=detailed&typegraph=UPS&data=2"},"$header<IMG BORDER=0 SRC=\"${scriptname}?state=gif&typegraph=UPS&time=$time&data=2\">"));
}
print $q->p($q->a ({href => "${scriptname}?state=detailed&typegraph=PROCQUE"},"$header<IMG BORDER=0 SRC=\"${scriptname}?state=gif&typegraph=PROCQUE&time=$time\">"));
print $q->p($q->a ({href => "${scriptname}?state=detailed&typegraph=HD"},"$header<IMG BORDER=0 SRC=\"${scriptname}?state=gif&typegraph=HD&time=$time\">"));
if ( -e "$RRDDIR/$SENSORSFILE.rrd")
{
print $q->p($q->a ({href => "${scriptname}?state=detailed&typegraph=VOLTAGE"},"$header<IMG BORDER=0 SRC=\"${scriptname}?state=gif&typegraph=VOLTAGE&time=$time\">")) if $isvolt;
print $q->p($q->a ({href => "${scriptname}?state=detailed&typegraph=FAN"},"$header<IMG BORDER=0 SRC=\"${scriptname}?state=gif&typegraph=FAN&time=$time\">")) if $isfan;
}
print $q->p($q->a ({href => "${scriptname}?state=detailed&typegraph=UPTIME"},"$header<IMG BORDER=0 SRC=\"${scriptname}?state=gif&typegraph=UPTIME&time=$time\">"));
if ($hosts ne "none")
{
foreach $key (@hosts)
{
print $q->p($q->a ({href => "${scriptname}?state=detailed&typegraph=LATENCY&data=$key"},"$header<IMG BORDER=0 SRC=\"${scriptname}?state=gif&typegraph=LATENCY&data=$key&time=$time\">"));
}
}
foreach $key (@interfaces)
{
print $q->p($q->a ({href => "${scriptname}?state=detailed&typegraph=IFACE&data=$key"},"$header<IMG BORDER=0 SRC=\"${scriptname}?state=gif&typegraph=IFACE&data=$key&time=$time\">"));
}
}
sub showDetailed($)
{
my ($q) = @_;
my ($typeGraph, $data);
# untaint the parameters
if ( $q->param("typegraph") =~ /^([\w]+)$/ ) { $typeGraph = $1; } else { $typeGraph = 'CPU'; }
if ( $q->param("data") =~ /^([.-\w]+)$/ ) { $data = $1; } else { $data = ''; }
my ($key,$title);
esmith::cgi::genHeaderNonCacheable ($q, \%conf, "$TITLE");
print "<meta http-equiv=\"refresh\" content=\"300\">";
print "<table>";
print "<tr><td align=right><b>System:</b></td><td><table border=0 cellspacing=0 cellpadding=0>";
print "<td><b>" . $q->a ({href => "${scriptname}?state=detailed&typegraph=CPU"}, $CPU) . "</b></td><td width=10></td>";
print "<td><b>" . $q->a ({href => "${scriptname}?state=detailed&typegraph=LOADCPU"}, $LOADCPU) . "</b></td><td width=10></td>";
print "<td><b>" . $q->a ({href => "${scriptname}?state=detailed&typegraph=MEM"}, $MEM) . "</b></td><td width=10></td>";
if ( -e "$RRDDIR/$SENSORSFILE.rrd")
{
print "<td><b>" . $q->a ({href => "${scriptname}?state=detailed&typegraph=TEMP"}, $TEMP) . "</b></td><td width=10></td>";
}
if ( -e "$RRDDIR/${UPSFILE}1.rrd")
{
print "<td><b>" . $q->a ({href => "${scriptname}?state=detailed&typegraph=UPS&data=1"}, $UPS.'1') . "</b></td><td width=10></td>";
}
if ( -e "$RRDDIR/${UPSFILE}2.rrd")
{
print "<td><b>" . $q->a ({href => "${scriptname}?state=detailed&typegraph=UPS&data=2"}, $UPS.'2') . "</b></td><td width=10></td>";
}
print "<td><b>" . $q->a ({href => "${scriptname}?state=detailed&typegraph=PROCQUE"}, $PROCQUE) . "</b></td><td width=10></td>";
print "<td><b>" . $q->a ({href => "${scriptname}?state=detailed&typegraph=HD"}, $HD) . "</b></td><td width=10></td>";
if ( -e "$RRDDIR/$SENSORSFILE.rrd")
{
print "<td><b>" . $q->a ({href => "${scriptname}?state=detailed&typegraph=VOLTAGE"}, $VOLTAGE) . "</b></td><td width=10></td>";
print "<td><b>" . $q->a ({href => "${scriptname}?state=detailed&typegraph=FAN"}, $FAN) . "</b></td><td width=10></td>";
}
print "<td><b>" . $q->a ({href => "${scriptname}?state=detailed&typegraph=UPTIME"}, $UPTIME) . "</b></td><td width=10></td>";
print "</table></td></tr>";
if ($hosts ne "none")
{
print "<td align=right><b>Hosts:</b></td><td><table border=0 cellspacing=0 cellpadding=0>";
foreach $key (@hosts)
{
print "<td><b>" . $q->a ({href => "${scriptname}?state=detailed&typegraph=LATENCY&data=$key"}, "$key") . "</b></td><td width=10></td>";
}
print "</table></td></tr>";
}
if ($#interfaces >= 0)
{
print "<td align=right><b>Interfaces:</b></td><td><table border=0 cellspacing=0 cellpadding=0>";
foreach $key (@interfaces)
{
print "<td><b>" . $q->a ({href => "${scriptname}?state=detailed&typegraph=IFACE&data=$key"}, $key) . "</b></td><td width=10></td>";
}
print "</table></td></tr>";
}
print "</table>";
print $q->p ($q->a ({href => "${scriptname}?state=general&time=hour"},"'$HOURLY' $GRAPH (1 $MINUTE $AVERAGE)<br><IMG BORDER=0 SRC=\"${scriptname}?state=gif&typegraph=$typeGraph&data=$data&time=hour\">"));
print $q->p ($q->a ({href => "${scriptname}?state=general&time=day"},"'$DAILY' $GRAPH (5 $MINUTE $AVERAGE)<br><IMG BORDER=0 SRC=\"${scriptname}?state=gif&typegraph=$typeGraph&data=$data&time=day\">"));
print $q->p ($q->a ({href => "${scriptname}?state=general&time=week"},"'$WEEKLY' $GRAPH (30 $MINUTE $AVERAGE)<br><IMG BORDER=0 SRC=\"${scriptname}?state=gif&typegraph=$typeGraph&data=$data&time=week\">"));
print $q->p ($q->a ({href => "${scriptname}?state=general&time=month"},"'$MONTHLY' $GRAPH (2 $HOUR $AVERAGE)<br><IMG BORDER=0 SRC=\"${scriptname}?state=gif&typegraph=$typeGraph&data=$data&time=month\">"));
print $q->p ($q->a ({href => "${scriptname}?state=general&time=year"},"'$YEARLY' $GRAPH (1 $DAY $AVERAGE)<br><IMG BORDER=0 SRC=\"${scriptname}?state=gif&typegraph=$typeGraph&data=$data&time=year\">"));
}
sub showGif($)
{
my ($q) = @_;
my ($typeGraph, $data, $time);
# untaint the parameters
if ( $q->param("typegraph") =~ /^([\w]+)$/ ) { $typeGraph = $1; } else { $typeGraph = 'CPU'; }
if ( $q->param("data") =~ /^([.-\w]+)$/ ) { $data = $1; } else { $data = ''; }
if ( $q->param("time") =~ /^([\w]+)$/ ) { $time = $1; } else { $time = 'day'; }
$rrdtime = ${"sec".$time} || $time;
my $rrd = "$RRDCMD -s '-$rrdtime' ${$typeGraph.'_GRAPH'}";
$rrd =~ s/\<D\>/$data/g;
if (${$typeGraph.'_MAX'} =~ /$time/)
{
$rrd =~ s/\{.*?\}//g;
$rrd =~ s/[\<\>]//g;
}
else
{
$rrd =~ s/\<.*?\>//g;
$rrd =~ s/[\{\}]//g;
}
if ($q->param("debug") eq "show")
{
esmith::cgi::genHeaderNonCacheable ($q, \%conf, "$TITLE");
print "$rrd";
exit;
}
print $q->header(-type=>'image/gif',-expires=>"+60s");
open(IMGIF,"$rrd |");
binmode STDOUT;
while(<IMGIF>)
{print;}
close(IMGIF);
}
sub generateFoot($)
{
my ($q) = @_;
esmith::cgi::genFooter ($q);
print $q->end_html;
}

15
root/usr/lib/systemd/system/sysmon.service Normal file
View File

@@ -0,0 +1,15 @@
[Unit]
Description=System Monitor
After=network-online.target
Wants=network-online.target
[Service]
Type=forking
ExecStartPre=-/sbin/e-smith/service-status sysmon
ExecStart=
ExecStart=-/usr/sbin/sysmon
[Install]
WantedBy=sme-server.target

394
root/usr/sbin/sysmon Executable file
View File

@@ -0,0 +1,394 @@
#!/usr/bin/perl
use warnings;
use strict;
use POSIX;
use RRDs;
use IPC::Open3;
use Symbol;
use Carp;
use esmith::config;
use esmith::db;
use sigtrap;
use File::Slurp qw/ read_file /;
use File::Find::Rule;
$ENV {'PATH'} = '/bin:/sbin:/usr/bin:/usr/sbin:/usr/lib/sa';
$ENV {'LANG'} = 'C';
croak "ERROR: Already running!" if (-e "/var/lock/sysmon");
my $pingfactor;
my $return = `fping -C 1 localhost 2>&1`;
croak "ERROR: FPing must be installed setuid root or it will not work\n" if $return =~ m/only.+root/;
if ($return =~ m/bytes, ([0-9.]+)\sms\s+.*\n.*\n.*:\s+([0-9.]+)/) {
$pingfactor = 1000 * $2/$1;
} else {
$pingfactor = 1000;
}
my %conf;
tie %conf, 'esmith::config';
my $status = db_get_prop(\%conf, 'sysmon', 'status') || "disabled";
croak "ERROR: sysmon is not enabled" if $status ne 'enabled';
my $upsstatus = db_get_prop(\%conf, 'nut', 'status') || "disabled";
my $rrddir = '/var/lib/rrd';
unless (fork) {
open (FILELOCK,">/var/lock/sysmon");
print FILELOCK $$;
close FILELOCK;
&POSIX::setsid;
unlink("/var/log/sysmon.old") if -e "/var/log/sysmon.old";
rename("/var/log/sysmon","/var/log/sysmon.old") if -e "/var/log/sysmon";
open STDOUT,'>>/var/log/sysmon';
open STDERR,'>>/var/log/sysmon';
open STDIN, '</dev/null';
$SIG{QUIT} = sub { unlink("/var/lock/sysmon"); exit 0; };
$SIG{TERM} = sub { unlink("/var/lock/sysmon"); exit 0; };
while(1) {
mkdir($rrddir) unless (-e $rrddir);
my $days = 365;
my @files = File::Find::Rule->file("*.rrd")
->maxdepth(1)
->in($rrddir);
for my $file (@files){
if (-M $file > $days){
print "deleting $file\n";
unlink $file or warn $!;
}
}
my $lastupdate = RRDs::last("/var/lib/rrd/sysmon.rrd") || 0;
my $datahash = ();
my $badifaces = `/sbin/ifconfig -a | /bin/sed -ne '/^\\w\\+[0-9]/{;x;n;/inet addr/bd;x;s/^\\(\\w\\+[0-9]\\+\\).*/\\1/p;:d;}'` || 'none';
chomp($badifaces);
rename("/var/lib/rrd/sysmon.stats","/var/lib/rrd/sysmon.process");
if ( -x '/usr/lib/sa/sadc' ) {
`/usr/lib/sa/sadc 1 1 /var/lib/rrd/sysmon.process > /dev/null 2>&1; /usr/lib/sa/sadc 1 1 /var/lib/rrd/sysmon.stats > /dev/null 2>&1`;}
else
{
`/usr/lib64/sa/sadc 1 1 /var/lib/rrd/sysmon.process > /dev/null 2>&1; /usr/lib64/sa/sadc 1 1 /var/lib/rrd/sysmon.stats > /dev/null 2>&1`;}
my @sardata;
if ( -x '/usr/bin/sadf' ) { @sardata=`/usr/bin/sadf -U -- -qrbuS -n DEV /var/lib/rrd/sysmon.process 2> /dev/null`; }# sadf
else { @sardata = `/usr/bin/sar -hqruS -P ALL -n DEV -f /var/lib/rrd/sysmon.process 2> /dev/null`; }# old systat
unlink("/var/lib/rrd/sysmon.process");
if($#sardata > 0 && $sardata[0] =~ /\s+(\d+)\s+(\d{10})/ && $1 >= 45 && $1 <= 135 && $2 > $lastupdate) {
open(FILE,"</proc/uptime"); my @filedata = <FILE>; close(FILE);
if ($filedata[0] =~ /^([0-9,.]+)/) { $datahash->{uptime} = $1; };
my @gethd = `/bin/df --block-size=1 --portability --local | grep '^/dev'`;
foreach (@gethd) {
if(/^\/dev\/(?:mapper\/)?(\S+)\s+\d+\s+(\d+)\s+(\d+)\s+\d+\%/) {
$datahash->{hdtotal}->{$1} = $2 + $3;
$datahash->{hdfree}->{$1} = $3;
$datahash->{hdused}->{$1} = $2;
$datahash->{hdtotal}->{all} += $2 + $3;
$datahash->{hdfree}->{all} += $3;
$datahash->{hdused}->{all} += $2;
}
}
foreach(@sardata) {
if(/(all|cpu\d+)\s+\%(user|nice|system|iowait|idle)\s+([0-9,.]+)/) { $datahash->{$2}->{$1}=$3/100; }
if(/(runq-sz|plist-sz|ldavg-[15]+)\s+([0-9,.]+)/) { $datahash->{$1}=$2; }
if(/kb(memfree|memused|buffers|cached|swpfree|swpused)\s+([0-9,.]+)/) { $datahash->{$1}=$2*1024; }
if(/(\w+)\s+(rxkB|txkB|rxpck|txpck)\/s\s+([0-9,.]+)/) { $datahash->{$2}->{$1}=$3; }
}
foreach (keys %{$datahash->{idle}}) {
$datahash->{total}->{$_}=1-$datahash->{idle}->{$_};
}
$datahash->{memtotal} = $datahash->{memused} + $datahash->{memfree};
$datahash->{memused} -= $datahash->{cached} + $datahash->{buffers};
$datahash->{memfree} += $datahash->{cached} + $datahash->{buffers};
$datahash->{swptotal} = $datahash->{swpused} + $datahash->{swpfree};
RRDs::create("/var/lib/rrd/sysmon.rrd","-s","60",
"DS:total:GAUGE:120:0:150",
"DS:user:GAUGE:120:0:150",
"DS:nice:GAUGE:120:0:150",
"DS:system:GAUGE:120:0:150",
"DS:iowait:GAUGE:120:0:150",
"DS:idle:GAUGE:120:0:150",
"DS:runq-sz:GAUGE:120:0:100",
"DS:plist-sz:GAUGE:120:0:1000",
"DS:ldavg-1:GAUGE:120:0:100",
"DS:ldavg-5:GAUGE:120:0:100",
"DS:memtotal:GAUGE:120:0:U",
"DS:memfree:GAUGE:120:0:U",
"DS:memused:GAUGE:120:0:U",
"DS:buffers:GAUGE:120:0:U",
"DS:cached:GAUGE:120:0:U",
"DS:swptotal:GAUGE:120:0:U",
"DS:swpfree:GAUGE:120:0:U",
"DS:swpused:GAUGE:120:0:U",
"DS:hdtotal:GAUGE:120:0:U",
"DS:hdfree:GAUGE:120:0:U",
"DS:hdused:GAUGE:120:0:U",
"DS:uptime:GAUGE:120:0:U",
"RRA:MIN:0.5:1:1500",
"RRA:MIN:0.5:5:600",
"RRA:MIN:0.5:30:700",
"RRA:MIN:0.5:120:775",
"RRA:MIN:0.5:1440:797",
"RRA:AVERAGE:0.5:1:1500",
"RRA:AVERAGE:0.5:5:600",
"RRA:AVERAGE:0.5:30:700",
"RRA:AVERAGE:0.5:120:775",
"RRA:AVERAGE:0.5:1440:797",
"RRA:MAX:0.5:1:1500",
"RRA:MAX:0.5:5:600",
"RRA:MAX:0.5:30:700",
"RRA:MAX:0.5:120:775",
"RRA:MAX:0.5:1440:797") unless -e "/var/lib/rrd/sysmon.rrd";
RRDs::update("/var/lib/rrd/sysmon.rrd",
"N:$datahash->{total}->{all}:$datahash->{user}->{all}:$datahash->{nice}->{all}:" .
"$datahash->{system}->{all}:$datahash->{iowait}->{all}:$datahash->{idle}->{all}:" .
"$datahash->{'runq-sz'}:$datahash->{'plist-sz'}:$datahash->{'ldavg-1'}:" .
"$datahash->{'ldavg-5'}:$datahash->{memtotal}:$datahash->{memfree}:" .
"$datahash->{memused}:$datahash->{buffers}:$datahash->{cached}:$datahash->{swptotal}:" .
"$datahash->{swpfree}:$datahash->{swpused}:$datahash->{hdtotal}->{all}:$datahash->{hdfree}->{all}:" .
"$datahash->{hdused}->{all}:$datahash->{uptime}");
rename("/var/lib/rrd/sysmon.rrd","/var/lib/rrd/sysmon.bad") if(RRDs::error);
print RRDs::error . "\n" if (RRDs::error);
foreach my $cpu (keys %{$datahash->{idle}}) {
next if $cpu eq 'all';
RRDs::create("/var/lib/rrd/$cpu.rrd","-s","60",
"DS:total:GAUGE:120:0:150",
"DS:user:GAUGE:120:0:150",
"DS:nice:GAUGE:120:0:150",
"DS:system:GAUGE:120:0:150",
"DS:iowait:GAUGE:120:0:150",
"DS:idle:GAUGE:120:0:150",
"RRA:MIN:0.5:1:1500",
"RRA:MIN:0.5:5:600",
"RRA:MIN:0.5:30:700",
"RRA:MIN:0.5:120:775",
"RRA:MIN:0.5:1440:797",
"RRA:AVERAGE:0.5:1:1500",
"RRA:AVERAGE:0.5:5:600",
"RRA:AVERAGE:0.5:30:700",
"RRA:AVERAGE:0.5:120:775",
"RRA:AVERAGE:0.5:1440:797",
"RRA:MAX:0.5:1:1500",
"RRA:MAX:0.5:5:600",
"RRA:MAX:0.5:30:700",
"RRA:MAX:0.5:120:775",
"RRA:MAX:0.5:1440:797") unless -e "/var/lib/rrd/$cpu.rrd";
RRDs::update("/var/lib/rrd/$cpu.rrd",
"N:$datahash->{total}->{$cpu}:$datahash->{user}->{$cpu}:$datahash->{nice}->{$cpu}:" .
"$datahash->{system}->{$cpu}:$datahash->{iowait}->{$cpu}:$datahash->{idle}->{$cpu}");
rename("/var/lib/rrd/$cpu.rrd","/var/lib/rrd/$cpu.bad") if(RRDs::error);
print RRDs::error . "\n" if (RRDs::error);
}
foreach my $drive (keys %{$datahash->{hdtotal}}) {
next if $drive eq 'all';
RRDs::create("/var/lib/rrd/drive_$drive.rrd","-s","60",
"DS:hdtotal:GAUGE:120:0:U",
"DS:hdfree:GAUGE:120:0:U",
"DS:hdused:GAUGE:120:0:U",
"RRA:MIN:0.5:1:1500",
"RRA:MIN:0.5:5:600",
"RRA:MIN:0.5:30:700",
"RRA:MIN:0.5:120:775",
"RRA:MIN:0.5:1440:797",
"RRA:AVERAGE:0.5:1:1500",
"RRA:AVERAGE:0.5:5:600",
"RRA:AVERAGE:0.5:30:700",
"RRA:AVERAGE:0.5:120:775",
"RRA:AVERAGE:0.5:1440:797",
"RRA:MAX:0.5:1:1500",
"RRA:MAX:0.5:5:600",
"RRA:MAX:0.5:30:700",
"RRA:MAX:0.5:120:775",
"RRA:MAX:0.5:1440:797") unless -e "/var/lib/rrd/drive_$drive.rrd";
RRDs::update("/var/lib/rrd/drive_$drive.rrd",
"N:$datahash->{hdtotal}->{$drive}:$datahash->{hdfree}->{$drive}:$datahash->{hdused}->{$drive}");
rename("/var/lib/rrd/drive_$drive.rrd","/var/lib/rrd/drive_$drive.bad") if(RRDs::error);
print RRDs::error . "\n" if (RRDs::error);
}
foreach my $iface (keys %{$datahash->{rxkB}}) {
next if ($iface =~ /(lo|br\d+|imq\d+)$/);
next if ($datahash->{rxkB}->{$iface} == 0);
next if ($badifaces =~ /$iface/);
RRDs::create("/var/lib/rrd/iface_$iface.rrd","-s","60",
"DS:rxkB:" . ($iface =~ /^sw/ ? "COUNTER" : "GAUGE" ) . ":120:0:U",
"DS:txkB:" . ($iface =~ /^sw/ ? "COUNTER" : "GAUGE" ) . ":120:0:U",
"DS:rxpck:" . ($iface =~ /^sw/ ? "COUNTER" : "GAUGE" ) . ":120:0:U",
"DS:txpck:" . ($iface =~ /^sw/ ? "COUNTER" : "GAUGE" ) . ":120:0:U",
"RRA:MIN:0.5:1:1500",
"RRA:MIN:0.5:5:600",
"RRA:MIN:0.5:30:700",
"RRA:MIN:0.5:120:775",
"RRA:MIN:0.5:1440:797",
"RRA:AVERAGE:0.5:1:1500",
"RRA:AVERAGE:0.5:5:600",
"RRA:AVERAGE:0.5:30:700",
"RRA:AVERAGE:0.5:120:775",
"RRA:AVERAGE:0.5:1440:797",
"RRA:MAX:0.5:1:1500",
"RRA:MAX:0.5:5:600",
"RRA:MAX:0.5:30:700",
"RRA:MAX:0.5:120:775",
"RRA:MAX:0.5:1440:797") unless -e "/var/lib/rrd/iface_$iface.rrd";
RRDs::update("/var/lib/rrd/iface_$iface.rrd",
"N:$datahash->{rxkB}->{$iface}:$datahash->{txkB}->{$iface}:$datahash->{rxpck}->{$iface}:" .
"$datahash->{txpck}->{$iface}");
rename("/var/lib/rrd/iface_$iface.rrd","/var/lib/rrd/iface_$iface.bad") if(RRDs::error);
print RRDs::error . "\n" if (RRDs::error);
}
my $cnt=0;
if ( $upsstatus eq 'enabled') {
my @upsentries = ('i_voltage', 'u_load', 'b_charge', 'b_runtime', 'b_voltage', 'u_temperature') ;
#use File::Slurp qw/ read_file /;
my $upslines = read_file('/etc/ups/ups.conf');
my @upses = $upslines =~ m/\[(.*)\]\n/;
foreach(@upses) {
chomp;
my $upsname="$_\@localhost";
$cnt++;
my @upsdata = `/usr/bin/upsc $upsname 2> /dev/null`;
$upslines="ups $upsname: ";
foreach(@upsdata) {
if(/^([a-z])[^.]+\.(voltage|load|charge|runtime|temperature|humidity)\s*:\s*([0-9,.]+)/) {
my $element = "$1_$2";
$upslines .= "$element=$3, ";
$datahash->{ups}->{$cnt}->{$element}=$3;
if($element=~/time/i) { $datahash->{ups}->{$cnt}->{$element} /= 60; }
}
}
foreach my $element (@upsentries){
next if exists($datahash->{ups}->{$cnt}->{$element});
$datahash->{ups}->{$cnt}->{$element}='';
$upslines .= "$element=, ";
}
}
}
foreach my $ups (keys %{$datahash->{ups}}) {
RRDs::create("/var/lib/rrd/ups$ups.rrd","-s","60",
(map {"DS:$_:GAUGE:120:0:U"} sort keys %{$datahash->{ups}->{$ups}}),
"RRA:MIN:0.5:1:1500",
"RRA:MIN:0.5:5:600",
"RRA:MIN:0.5:30:700",
"RRA:MIN:0.5:120:775",
"RRA:MIN:0.5:1440:797",
"RRA:AVERAGE:0.5:1:1500",
"RRA:AVERAGE:0.5:5:600",
"RRA:AVERAGE:0.5:30:700",
"RRA:AVERAGE:0.5:120:775",
"RRA:AVERAGE:0.5:1440:797",
"RRA:MAX:0.5:1:1500",
"RRA:MAX:0.5:5:600",
"RRA:MAX:0.5:30:700",
"RRA:MAX:0.5:120:775",
"RRA:MAX:0.5:1440:797") unless -e "/var/lib/rrd/ups$ups.rrd";
RRDs::update("/var/lib/rrd/ups$ups.rrd",
"N:".(join ":", map { $datahash->{ups}->{$ups}->{$_} } sort keys %{$datahash->{ups}->{$ups}}));
rename("/var/lib/rrd/ups$ups.rrd","/var/lib/rrd/ups$ups.bad") if(RRDs::error);
print RRDs::error . "\n" if (RRDs::error);
}
if( -e '/usr/bin/sensors') {
my $check = `/sbin/lsmod 2> /dev/null`;
if( $check =~ /i2c_/ ) {
my @sensordata = `/usr/bin/sensors -u 2> /dev/null`;
foreach(@sensordata) {
#pre SME9 if(/(-?[0-9,.]+) \(((?:in|fan|temp|vid|vrm)[0-9]*)\)/) { $datahash->{sensors}->{$2} = $1; print "$2=$1, "}
if(/(in|fan|temp|vid|vrm)([0-9])_input: ?(-?[0-9,.]+)/) { $datahash->{sensors}->{"$1$2"} = $3;} #print "sensors:$1$2=$3\n"}
}
if(defined($datahash->{sensors})) {
RRDs::create("/var/lib/rrd/sensors.rrd","-s","60",
(map {"DS:$_:GAUGE:120:U:U"} sort keys %{$datahash->{sensors}}),
"RRA:MIN:0.5:1:1500",
"RRA:MIN:0.5:5:600",
"RRA:MIN:0.5:30:700",
"RRA:MIN:0.5:120:775",
"RRA:MIN:0.5:1440:797",
"RRA:AVERAGE:0.5:1:1500",
"RRA:AVERAGE:0.5:5:600",
"RRA:AVERAGE:0.5:30:700",
"RRA:AVERAGE:0.5:120:775",
"RRA:AVERAGE:0.5:1440:797",
"RRA:MAX:0.5:1:1500",
"RRA:MAX:0.5:5:600",
"RRA:MAX:0.5:30:700",
"RRA:MAX:0.5:120:775",
"RRA:MAX:0.5:1440:797") unless -e "/var/lib/rrd/sensors.rrd";
RRDs::update("/var/lib/rrd/sensors.rrd",
"N:".(join ":", map { $datahash->{sensors}->{$_} } sort keys %{$datahash->{sensors}}));
rename("/var/lib/rrd/sensors.rrd","/var/lib/rrd/sensors.bad") if(RRDs::error);
print RRDs::error . "\n" if (RRDs::error);
}
}
}
my $inh = gensym;
my $outh = gensym;
my $errh = gensym;
my $gateway = `/sbin/route -n | /bin/egrep '^0\.' | /bin/awk '{ print \$2 }' | /bin/egrep '^[1-9]'` ||
`/sbin/ifconfig | /bin/sed -ne '/P-t-P/p' | /bin/awk '{ print \$3 }' | /bin/cut -d: -f2` ||
'down';
chomp $gateway;
my $hosts = db_get_prop(\%conf, 'sysmon', 'hosts') || "gateway";
$hosts =~ s/\bgateway\b/$gateway/g;
$hosts =~ s/[,:; ]+/ /g;
my @pings = `fping -C 25 -q -B1 -t1000 -r1 -p 500 $hosts 2>&1`;
foreach (@pings) {
chomp;
my @times = split /\s+/;
my $ip = shift @times;
$ip =~ s/\b$gateway\b/gateway/g;
if (':' eq shift @times) {
@times = map {sprintf "%.10e", $_ / $pingfactor} sort {$a <=> $b} grep /^\d/, @times;
my $median = $times[int($#times/2)] || 'U';
my $loss = 25 - ($#times+1);
if ($loss >= 25) {
@times = map {'U'} 1..25;
} else {
splice @times, sprintf("%.0f", int(($#times+1)/2)),0,map {'U'} 1..$loss;
}
RRDs::create("/var/lib/rrd/host_$ip.rrd","-s","60",
"DS:loss:GAUGE:120:0:25",
"DS:median:GAUGE:120:0:180",
(map {"DS:ping${_}:GAUGE:120:0:180"} 1..25),
"RRA:MIN:0.5:1:1500",
"RRA:MIN:0.5:5:600",
"RRA:MIN:0.5:30:700",
"RRA:MIN:0.5:120:775",
"RRA:MIN:0.5:1440:797",
"RRA:AVERAGE:0.5:1:1500",
"RRA:AVERAGE:0.5:5:600",
"RRA:AVERAGE:0.5:30:700",
"RRA:AVERAGE:0.5:120:775",
"RRA:AVERAGE:0.5:1440:797",
"RRA:MAX:0.5:1:1500",
"RRA:MAX:0.5:5:600",
"RRA:MAX:0.5:30:700",
"RRA:MAX:0.5:120:775",
"RRA:MAX:0.5:1440:797") unless -e "/var/lib/rrd/host_$ip.rrd";
RRDs::update("/var/lib/rrd/host_$ip.rrd",
"N:$loss:$median:".(join ':', @times));
rename("/var/lib/rrd/host_$ip.rrd","/var/lib/rrd/host_$ip.bad") if(RRDs::error);
print RRDs::error . "\n" if (RRDs::error);
}
}
}
sleep(60-time%60);
}
}