Differences
This shows you the differences between two versions of the page.
Both sides previous revision Previous revision Next revision | Previous revision Next revisionBoth sides next revision | ||
monitors:retmt [2017/10/18 10:59] – [Server side] wnelis | monitors:retmt [2020/01/28 10:12] – [Client side] wnelis | ||
---|---|---|---|
Line 31: | Line 31: | ||
# | # | ||
# Written by W.J.M. Nelis, wim.nelis@ziggo.nl, | # Written by W.J.M. Nelis, wim.nelis@ziggo.nl, | ||
+ | # | ||
+ | # Modified by W.J.M. Nelis, wim.nelis@ziggo.nl, | ||
+ | # - Specify the device type in the RRD file name, in this case ' | ||
# | # | ||
use strict ; | use strict ; | ||
Line 46: | Line 49: | ||
chomp $HostName ; | chomp $HostName ; | ||
my $TestName= ' | my $TestName= ' | ||
- | my $ThresholdYellow= | + | my $ThresholdYellow= |
- | my $ThresholdRed | + | my $ThresholdRed |
my @ColourOf= ( ' | my @ColourOf= ( ' | ||
Line 68: | Line 71: | ||
# | # | ||
- | # Issue a message | + | # Issue a message |
# StdOut will be redirected to the logfile. | # StdOut will be redirected to the logfile. | ||
# | # | ||
Line 102: | Line 105: | ||
$Result= " | $Result= " | ||
"< | "< | ||
- | " | + | " |
- | `$XySend $XyDisp $Result` ; | + | `$XySend $XyDisp $Result` ; # Inform Xymon |
- | $Result= '' | + | $Result= '' |
$Colour= | $Colour= | ||
$ErrMsg{$_}= [] foreach ( @ColourOf ) ; | $ErrMsg{$_}= [] foreach ( @ColourOf ) ; | ||
Line 137: | Line 140: | ||
@Lines= `$GpuCmd` ; # Retrieve information | @Lines= `$GpuCmd` ; # Retrieve information | ||
if ( @Lines == 0 ) { | if ( @Lines == 0 ) { | ||
- | push @{$ErrMsg{clear}}, | + | push @{$ErrMsg{clear}}, |
" | " | ||
} else { | } else { | ||
chomp $Lines[0] ; | chomp $Lines[0] ; | ||
unless ( $Lines[0] =~ m/ | unless ( $Lines[0] =~ m/ | ||
- | push @{$ErrMsg{clear}}, | + | push @{$ErrMsg{clear}}, |
" | " | ||
} else { | } else { | ||
Line 209: | Line 212: | ||
$Result.= "< | $Result.= "< | ||
$Result.= " | $Result.= " | ||
- | $Result.= "temp $TempAvg: | + | $Result.= "temp.cpu $TempAvg: |
$Result.= " | $Result.= " | ||
} # of BuildMessage | } # of BuildMessage | ||
Line 292: | Line 295: | ||
</ | </ | ||
- | |||
- | ===== Source ===== | ||
- | |||
- | ===== Known Bugs and Issues ===== | ||
- | |||
- | ===== To Do ===== | ||
- | |||
- | ===== Credits ===== | ||
===== Changelog ===== | ===== Changelog ===== |