add function in catalog
This commit is contained in:
parent
b75e7c4268
commit
36e2ecb3a5
|
@ -25,7 +25,7 @@ use warnings;
|
||||||
use Exporter;
|
use Exporter;
|
||||||
|
|
||||||
our @ISA = qw(Exporter);
|
our @ISA = qw(Exporter);
|
||||||
our @EXPORT_OK = qw(catalog_status_threshold);
|
our @EXPORT_OK = qw(catalog_status_threshold catalog_status_calc);
|
||||||
|
|
||||||
sub catalog_status_threshold {
|
sub catalog_status_threshold {
|
||||||
my ($self, %options) = @_;
|
my ($self, %options) = @_;
|
||||||
|
@ -59,6 +59,16 @@ sub catalog_status_threshold {
|
||||||
return $status;
|
return $status;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
sub catalog_status_calc {
|
||||||
|
my ($self, %options) = @_;
|
||||||
|
|
||||||
|
foreach (keys %{$options{new_datas}}) {
|
||||||
|
if (/^$self->{instance}_(.*)/) {
|
||||||
|
$self->{result_values}->{$1} = $options{new_datas}->{$_};
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
1;
|
1;
|
||||||
|
|
||||||
__END__
|
__END__
|
||||||
|
|
Loading…
Reference in New Issue