From b6c5d50f0c8c3144888716917a2e259feeb307b5 Mon Sep 17 00:00:00 2001
From: Jan Pokorný <jpokorny@redhat.com>
Date: Wed, 4 Sep 2013 16:46:46 +0200
Subject: Partially cover services/resources
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Signed-off-by: Jan Pokorný <jpokorny@redhat.com>
---
 cluster-cman.py | 94 +++++++++++++++++++++++++++++++++++++++++++++++++++++++--
 1 file changed, 91 insertions(+), 3 deletions(-)

diff --git a/cluster-cman.py b/cluster-cman.py
index 7035baf..fac8549 100755
--- a/cluster-cman.py
+++ b/cluster-cman.py
@@ -206,9 +206,63 @@ graph = lambda\
                 # node b - resource agents
                 #
                 ,label='resource agents'
+                ,_subgraphs=\
+                    [SubgraphStandard('cluster.node_b-resources-aux'
+                        ,label='auxiliary'
+                        ,_nodes=\
+                            [Program('ip.sh'
+                            )
+                            ,Program('nfs.sh'
+                            )
+                            ,Program('node_b-resources-aux-others'
+                            ,label='…'
+                            )]
+                        ,_edges=\
+                            [EdgeInvisible\
+                            ('ip.sh'
+                            ,'nfs.sh'
+                            )
+                            ,EdgeInvisible
+                            ('ip.sh'
+                            ,'node_b-resources-aux-others'
+                            )]
+                    )
+                    ,SubgraphStandard('cluster.node_b-resources-native'
+                        ,label='native'
+                        ,_nodes=\
+                            [Program('apache.sh'
+                            )
+                            ,Program('node_b-resources-native-others'
+                            ,label='…'
+                            )]
+                        ,_edges=\
+                            [EdgeInvisible\
+                            ('apache.sh'
+                            ,'node_b-resources-native-others'
+                            )]
+                    )]
+                ,_nodes=\
+                    [Executable('script.sh'
+                    )]
+                )
+                ,SubgraphStandard('cluster.node_b-installed-services'
+                #
+                # node b - installed services
+                #
+                ,label='installed services'
+                ,_nodes=\
+                    [Executable('httpd'
+                    ,label='Apache\nHTTP server'
+                    )]
+                )
+                ,SubgraphStandard('cluster.node_b-initscripts'
+                #
+                # node b - initscripts
+                #
+                ,label='initscripts'
                 ,_nodes=\
-                    [Executable('node_b-resource_agent'
-                    ,label='/usr/share/\ncluster/*.sh'
+                    [Executable('foo'
+                    ,label='foo'
                     )]
                 )
                 ,SubgraphStandard('cluster.node_b-kernel'
@@ -267,6 +321,29 @@ graph = lambda\
                 ,DelegateOddjobExec\
                 ('node_b-ricci'
                 ,'node_b-ricci-modules'
+                )
+                ,Delegate\
+                ('script.sh'
+                ,'foo'
+                ,lhead='cluster.node_b-initscripts'
+                )
+                ,Delegate\
+                ('apache.sh'
+                ,'httpd'
+                ,lhead='cluster.node_b-installed-services'
+                )
+                ,Delegate\
+                ('node_b-rgmanager'
+                ,'ip.sh'
+                ,lhead='cluster.node_b-resource-agents'
+                #,constraint='false'
+                )
+                ,Delegate\
+                ('nfs.sh'
+                ,'node_b-io'
+                ,ltail='cluster.node_b-resources-aux'
+                ,headport='n'
+                ,constraint='false'
                 )]
             )
             ,SubgraphImportant('cluster.node_a'
@@ -297,10 +374,15 @@ graph = lambda\
                 )]
             )]
         )
-        ,SubgraphInvisible('services'
+        ,SubgraphStandard('cluster.services'
         #
         # cluster services layer
         #
+        ,label='clustered services'
+        ,_nodes=\
+            [Program('apache-node_b'
+            ,label='apache@B'
+            )]
         )
         ,SubgraphStandard('cluster.networking'
         #
@@ -530,6 +612,12 @@ graph = lambda\
     ,DelegateCIM\
     ('wbemcli'
     ,'node_b-cimserver'
+    #)
+    ## node b/rgmamanger - cluster services layer
+    #]+\
+    #[Delegate\
+    #('node_b-rgmanager'
+    #,'apache-node_b'
     )]
 )
 
-- 
cgit