Changeset 10 for LATMOS-Accounts

Timestamp:

02/28/09 00:59:34 (15 years ago)

Author:

nanardon

Message:

• Unix: add commit() to save change

Location:

LATMOS-Accounts

Files:

• lib/LATMOS/Accounts/Bases/Unix.pm (modified) (2 diffs)
• t/11_bases_unix.t (modified) (2 diffs)

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

@@ -93 +93 @@
             }
         },
-    ) or return
+    ) or return;
     
     $self->_load_unix_file(
@@ -143 +143 @@
 }
 
+sub _save_unix_file {
+    my ($self, $file, @data) = @_;
+    open(my $handle, '>', $file) or return;
+    foreach my $line (@data) {
+        print $handle join(':', map { defined($_) ? $_ : '' } @$line) . "\n";
+    }
+    close($handle);
+    return 1;
+}
+
+sub commit {
+    my ($self) = @_;
+
+    $self->_save_unix_file(
+        $self->{passwd},
+        map {[
+            $_,
+            $self->{users}{$_}{password} || 'x', # No empty pass !!
+            $self->{users}{$_}{uid},
+            $self->{users}{$_}{gid},
+            $self->{users}{$_}{gecos},
+            $self->{users}{$_}{home},
+            $self->{users}{$_}{shell},
+        ]} keys %{$self->{users}}
+    ) or return;
+
+    $self->_save_unix_file(
+        $self->{group},
+        map {[
+            $_,
+            $self->{groups}{$_}{password} || 'x',
+            $self->{groups}{$_}{gid},
+            join(',', keys %{$self->{groups}{$_}{users} || {}}), 
+        ]} keys %{$self->{groups}}
+    ) or return;
+
+    if ($self->{use_shadow}) {
+
+    $self->_save_unix_file(
+        $self->{shadow},
+        map {[
+            $_,
+            $self->{users}{$_}{spassword} || 'x',
+            $self->{users}{$_}{last_changed},
+            $self->{users}{$_}{before_ch},
+            $self->{users}{$_}{after_ch},
+            $self->{users}{$_}{exp_warn},
+            $self->{users}{$_}{exp_disable},
+            $self->{users}{$_}{disable},
+            $self->{users}{$_}{res},
+        ]} keys %{$self->{users}}
+    ) or return;
+
+
+    $self->_save_unix_file(
+        $self->{gshadow},
+        map {[
+            $_,
+            $self->{groups}{$_}{spassword} || 'x',
+            $self->{groups}{$_}{unknown},
+            join(',', keys %{$self->{groups}{$_}{susers} || {}}), 
+        ]} keys %{$self->{groups}}
+    ) or return;
+
+    } # If use shadow
+
+    1
+}
+
 1;
 

LATMOS-Accounts/t/11_bases_unix.t

@@ -1 +1 @@
 use strict;
 use warnings;
-use Test::More tests =>  7;
+use Test::More tests =>  8;
 use File::Temp;
 
@@ -24 +24 @@
 isa_ok($unixb, 'LATMOS::Accounts::Bases::Unix');
 
-ok($unixb->load, "Can load unix base");
+ok($unixb->load,   "Can load unix base");
+ok($unixb->commit, "Can save unix base");
 
 system('rm', '-fr', $dir);