Changeset 2260 for trunk/LATMOS-Accounts/lib/LATMOS

Timestamp:

06/05/19 20:20:19 (5 years ago)

Author:

nanardon

Message:

Allow to set in config monitored attributes

Location:

trunk/LATMOS-Accounts/lib/LATMOS

Files:

• Accounts.pm (modified) (1 diff)
• Accounts/Bases/Attributes.pm (modified) (2 diffs)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts.pm

@@ -156 +156 @@
         map { $_ => ($self->val('_defattr_', $_)) }
         $self->Parameters('_defattr_');
+
+    $params{monitored} = {};
+    foreach my $item ($self->val($section, 'monitored')) {
+        $params{monitored}{lc($item)} = 1;
+    }
 
     my $base = LATMOS::Accounts::Bases->new(

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Attributes.pm

@@ -37 +37 @@
         $attributes->{_name} = $attributes->{name};
         $attributes->{_otype} = $otype;
+        $attributes->{monitored} ||= $base->config('monitored')->{ lc( $otype . '.' . $attributes->{name} ) };
+
         return bless($attributes, $class);
     } else {
@@ -45 +47 @@
         $attr_info->{_name} = $attributes;
         $attr_info->{_otype} = $otype;
+        $attr_info->{monitored} ||= $base->config('monitored')->{ lc( $otype . '.' . $attributes ) };
 
         return bless($attr_info, $class);