+ } elsif ($parameter =~ /^property:/i) {
+ my %properties = %{ getconf($CNF_PROPERTY)};
+ my $propname = $parameter;
+ $propname =~ s/^property://i;
+ $propname = lc($propname);
+ if (exists $properties{$propname}) {
+ print $properties{$propname}->{'values'}[0], "\n";
+ }
+ } elsif ($parameter =~ /^device-property:/i ||
+ $parameter =~ /^device_property:/i) {
+ my %properties = %{ getconf($CNF_DEVICE_PROPERTY) };
+ my $propname = $parameter;
+ $propname =~ s/^device-property://i;
+ $propname =~ s/^device_property://i;
+ $propname = lc($propname);
+ if (exists $properties{$propname}) {
+ print $properties{$propname}->{'values'}[0], "\n";
+ }