diff options
-rwxr-xr-x | dh_smf | 15 |
1 files changed, 15 insertions, 0 deletions
@@ -184,6 +184,21 @@ foreach my $package ( @{ $dh{DOPACKAGES} } ) { ->{'duration'}->{'value'} // 'contract', }; } + if ( exists $xml->{'service'}->{'instance'} ) { + while ( my ( $k, $v ) = each %{ $xml->{'service'}->{'instance'} } ) + { + push @services, + { + 'name' => "$service_base:$k", + 'enabled' => $v->{'enabled'}, + 'exec_method' => $v->{'exec_method'} + // $xml->{'service'}->{'exec_method'}, + 'duration' => + $v->{'property_group'}->{'startd'}->{'propval'} + ->{'duration'}->{'value'} // 'contract', + }; + } + } } print Dumper(@services); # debug |