Changeset 861 for LATMOS-Accounts/bin/la-graph.pl

Timestamp:

12/02/11 11:42:17 (13 years ago)

Author:

nanardon

Message:

• reimport missing files from previous svn

File:

• LATMOS-Accounts/bin/la-graph.pl (modified) (3 diffs)

LATMOS-Accounts/bin/la-graph.pl

@@ -30 +30 @@
 =over 4
 
-=item -c|--config configfile
+=item -c|--config configdir
 
-Use this configuration file instead the default one
+Use this configuration directory instead the default one
 
 =item -b|--base basename
@@ -47 +47 @@
 
 my $g = GraphViz->new(
-    layout => 'neato',
-    concentrate => 1,
-    overlap => 'compress',
-    ratio => 'compress',
+    layout => 'dot',
+    overlap => 'false',
+    rankdir => 1,
+    width => 10, height => 8,
 );
 
@@ -60 +60 @@
 
 my %users;
+my %cluster;
 
+sub add_user {
+    my ($user) = @_;
+    $users{$user} and return;
+    my $ou = $labase->get_object('user', $user) or return;
+    my $dpmt = $ou->get_attributes('department');
+    if ($dpmt) {
+        $cluster{$dpmt} ||= {
+            name => $dpmt,
+        };
+    }
+    $g->add_node($user, ($dpmt ? (cluster => $cluster{$dpmt}) : ()));
+    1;
+}
+
+$g->add_node('latmos');
 foreach my $gr ($labase->list_objects('group')) {
     my $o = $labase->get_object('group', $gr);
-    ($o->get_c_field('sutype') || '') =~ /^(dpmt|cell)$/ or next;
-    $g->add_node($gr,fillcolor => 'red', style => 'filled');
+    my $sutype = $o->get_c_field('sutype');
+    ($sutype || '') =~ /^(dpmt|cell)$/ or next;
+    $g->add_node($gr,fillcolor => ($sutype eq 'dpmt' ? 'red' : 'green'), style => 'filled');
+    my $manager = $o->get_attributes('managedBy') || '';
+    warn "MANAGER $manager";
+    if ($manager) {
+        add_user($manager);
+        $g->add_edge('latmos', $gr);
+        $g->add_edge($manager => $gr, weight => 3);
+    }
     foreach ($o->get_attributes('member')) {
-        $users{$_} or do {
-            $users{$_} = 1;
-            $g->add_node($_);
-        };
+        $_ eq $manager and next;
+        add_user($_);
         warn "$_ => $gr";
-        $g->add_edge($_ => $gr);
+        $g->add_edge($gr => $_, weight => 1);
     }
 }