Changeset 807

Timestamp:

02/15/10 17:27:49 (14 years ago)

Author:

nanardon

Message:

• add check to ensure gid is set to something valuable

File:

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

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

@@ -6 +6 @@
 
 use base qw(LATMOS::Accounts::Bases::Objects);
+use LATMOS::Accounts::Log;
 
 our $VERSION = (q$Rev: 205 $ =~ /^Rev: (\d+) /)[0];
@@ -71 +72 @@
     my ($self, %data) = @_;
     foreach my $field (keys %data) {
+        $field eq '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 !
         if ($field eq 'user_list') {