Lines 44-49
if($ARGV[0] and $ARGV[0] eq "config") {
Link Here
|
44 |
print "time_left.label time left (min)\n"; |
44 |
print "time_left.label time left (min)\n"; |
45 |
print "time_left.type GAUGE\n"; |
45 |
print "time_left.type GAUGE\n"; |
46 |
print "time_left.max 200\n"; |
46 |
print "time_left.max 200\n"; |
|
|
47 |
print "temperature.label internal temperature (celsius)\n"; |
48 |
print "temperature.type GAUGE\n"; |
49 |
print "temperature.max 100\n"; |
47 |
exit 0; |
50 |
exit 0; |
48 |
} |
51 |
} |
49 |
|
52 |
|
Lines 81-86
do {
Link Here
|
81 |
} elsif($line =~ /\WTIMELEFT /) { |
84 |
} elsif($line =~ /\WTIMELEFT /) { |
82 |
$line =~ s/.* (\d+.\d+).*/$1/; |
85 |
$line =~ s/.* (\d+.\d+).*/$1/; |
83 |
print "time_left.value $line\n"; |
86 |
print "time_left.value $line\n"; |
|
|
87 |
} elsif($line =~ /\WITEMP /) { |
88 |
$line =~ s/.* (\d+.\d+).*/$1/; |
89 |
print "temperature.value $line\n"; |
84 |
} |
90 |
} |
85 |
} while(!($line =~ /END APC/)); |
91 |
} while(!($line =~ /END APC/)); |
86 |
|
92 |
|
87 |
- |
|
|