From 58a5b1e417c317d8fa9c232546c0a4faab0e4d48 Mon Sep 17 00:00:00 2001
From: Igor Pashev <pashev.igor@gmail.com>
Date: Sun, 14 Jul 2013 21:39:26 +0400
Subject: Read instances

---
 dh_smf | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

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
 
-- 
cgit v1.2.3