Changeset 806 for LATMOS-Accounts

Timestamp:

02/15/10 17:22:53 (14 years ago)

Author:

nanardon

Message:

• add test to ensure uid/gid on user are to something valuable

File:

• LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Unix/User.pm (modified) (2 diffs)

LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Unix/User.pm

@@ -6 +6 @@
 
 use base qw(LATMOS::Accounts::Bases::Objects);
+use LATMOS::Accounts::Log;
 
 our $VERSION = (q$Rev: 205 $ =~ /^Rev: (\d+) /)[0];
@@ -81 +82 @@
     my ($self, %data) = @_;
     foreach my $field (keys %data) {
+        $field =~ /^(uid|gid)$/ and do {
+            if(!(defined($data{$field}) && $data{$field} =~ /^\d+$/)) {
+                $self->base->log(LA_ERR,
+                    "Invalid data for $field: $data{$field}");
+                return;
+            }
+        }
+    }
+    foreach my $field (keys %data) {
         # TODO check fields exists !
         $field =~ /^(sn|givenName)$/ and next;