Read instances

1 files changed, 15 insertions, 0 deletions

diff --git a/dh_smf b/dh_smf
index 0972f21..42525eb 100755
--- a/dh_smf
+++ b/dh_smf
@@ -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