if (defined $opt{perfdata} && $reading ne '[N/A]') {
$name =~ s{\A Temperature\sProbe\s(\d+) \z}{temp_$1}gxms;
my $label = "${name}";
- my $mini = $label;
- $mini =~ s{temp_}{t}xms;
push @perfdata, {
type => 'E',
id => $encl_id,
unit => 'C',
label => $label,
- mini => $mini,
value => $reading,
warn => $max_warn,
crit => $max_crit,
id => $index,
unit => 'rpm',
label => $pname,
- mini => 'f',
value => $reading,
warn => $max_warn,
crit => $max_crit,
id => $index,
unit => 'C',
label => $pname,
- mini => 't',
value => $reading,
warn => $max_warn,
crit => $max_crit,
id => $index,
unit => 'V',
label => $label,
- mini => 'v',
value => $reading,
warn => 0,
crit => 0,
id => $index,
unit => $unit,
label => $label,
- mini => lc $unit,
value => $reading,
warn => $max_warn,
crit => $max_crit,
}
# Print performance data sorted
- my $type = $opt{perfdata} eq 'minimal' ? 'mini' : 'label';
- print join $lb, map { "$_->{type}$_->{id}_$_->{$type}=$_->{value}$_->{unit};$_->{warn};$_->{crit}" } sort perfsort @perfdata;
+ if ($opt{perfdata} eq 'minimal') {
+ print join $lb, map { "$_->{type}$_->{id}=$_->{value}$_->{unit};$_->{warn};$_->{crit}" } sort perfsort @perfdata;
+ }
+ else {
+ print join $lb, map { "$_->{type}$_->{id}_$_->{label}=$_->{value}$_->{unit};$_->{warn};$_->{crit}" } sort perfsort @perfdata;
+ }
}
# Print a linebreak at the end