Changeset 185 for LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Unix.pm

Timestamp:

05/25/09 11:56:21 (15 years ago)

Author:

nanardon

Message:

• manage locked account

File:

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

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

@@ -69 +69 @@
             userPassword    => ($self->{use_shadow} ? 'spassword' : 'password'),
             memberOf        => 'memberOf',
+            locked          => 'locked',
             ($for !~ /w/ ? (
             givenName       => 'givenName',
@@ -147 +148 @@
                 $self->{users}{$user}{$_} = shift(@ch);
             }
+            if ($self->{users}{$user}{password} =~ /^!!/) {
+                $self->{users}{$user}{password} =~ s/^!!//;
+                $self->{users}{$user}{locked} = 1;
+            }
+            $self->{users}{$user}{shell} =~ s/^-//;
         },
     ) or return;
@@ -177 +183 @@
                 $self->{users}{$user}{$_} = shift(@ch);
             }
+            if ($self->{users}{$user}{spassword} =~ /^!!/) {
+                $self->{users}{$user}{spassword} =~ s/^!!//;
+                $self->{users}{$user}{locked} = 1;
+            }
         }
     ) or return;
@@ -218 +228 @@
         map {[
             $_,
-            $self->{users}{$_}{password} || 'x', # No empty pass !!
+            ($self->{users}{$_}{locked}
+                ? '!!' . ($self->{users}{$_}{password} || '')
+                : ($self->{users}{$_}{password} || 'x')), # No empty pass !!
             $self->{users}{$_}{uid},
             $self->{users}{$_}{gid},
             $self->{users}{$_}{gecos},
             $self->{users}{$_}{home},
-            $self->{users}{$_}{shell},
+            ($self->{users}{$_}{locked} ? '-' : '') . $self->{users}{$_}{shell},
         ]} sort { $self->{users}{$a}{uid} <=> $self->{users}{$b}{uid} } keys %{$self->{users}}
     ) or return;
@@ -243 +255 @@
         map {[
             $_,
-            $self->{users}{$_}{spassword} || 'x',
+            ($self->{users}{$_}{locked}
+                ? '!!' . ($self->{users}{$_}{spassword} || '')
+                : $self->{users}{$_}{spassword} || 'x'),
             $self->{users}{$_}{last_changed},
             $self->{users}{$_}{before_ch},