Changeset 867

Timestamp:

12/21/11 16:01:54 (13 years ago)

Author:

nanardon

Message:

• add tools to check information coherency

Location:

LATMOS-Accounts

Files:

• MANIFEST (modified) (1 diff)
• Makefile.PL (modified) (1 diff)
• bin/la-sql-sanity (added)
• lib/LATMOS/Accounts/Bases/Sql.pm (modified) (1 diff)

LATMOS-Accounts/MANIFEST

@@ -31 +31 @@
 bin/la-sql-loadatt
 bin/la-sql-regatt
+bin/la-sql-sanity
 bin/la-sync
 bin/la-sync-list
 bin/la-sync-manager
 bin/la-warn-expire
-bin/la-web-directory
 etc/cron.d/latmos-accounts
 etc/init.d/la-sync-manager

LATMOS-Accounts/Makefile.PL

@@ -22 +22 @@
         'Crypt::Cracklib' => undef,
         'Net::IP' => undef,
+        'Net::IPv4Addr' => undef,
+        'Net::IPv6Addr' => undef,
     }, # e.g., Module::Name => 1.1
     ($] >= 5.005 ?     ## Add these new keywords supported since 5.005

LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql.pm

@@ -317 +317 @@
 }
 
+sub check_user_manager {
+    $_[0]->_handle_by_unexported('user', 'manager', 'active');
+}
+
+sub check_group_manager {
+    $_[0]->_handle_by_unexported('group', 'managedBy');
+}
+
+sub check_nethost_owner {
+    $_[0]->_handle_by_unexported('nethost', 'owner', 'active');
+}
+
+sub _handle_by_unexported {
+    my ($self, $otype, $refattr, $chkattr) = @_;
+
+    my $ptrotype = $self->attribute($otype, $refattr)->reference();
+
+    my %unhandle;
+    foreach my $objname ($self->search_objects($otype, 'active=1', 'exported=1', "$refattr=*")) {
+        my $obj = $self->get_object($otype, $objname) or next;
+        my $val = $obj->get_attributes($refattr) or next;
+        if (my $refobj = $self->get_object($ptrotype, $val)) {
+            if (!$refobj->get_attributes($chkattr || 'exported')) {
+                $unhandle{$objname} = $val;
+            }
+        } else {
+            $unhandle{$objname} = $val;
+        }
+    }
+    %unhandle;
+}
+
 1;