Changeset 1968

Timestamp:

02/23/17 17:53:45 (7 years ago)

Author:

nanardon

Message:

Don't use $>,$<, don't work everywhere

File:

• trunk/LA-Tools/bin/rla-sshkey (modified) (4 diffs)

trunk/LA-Tools/bin/rla-sshkey

@@ -87 +87 @@
 foreach my $user (keys %{ $var }) {
 
-    # Taking user's identity
-    ($<,$>) = ($var->{$user}->{uidNumber}[0], $var->{$user}->{gidNumber}[0]);
+
+    my ($uid,$gid) = ($var->{$user}->{uidNumber}[0], $var->{$user}->{gidNumber}[0]);
 
     my $home = $var->{$user}->{homeDirectory}[0];
@@ -97 +97 @@
         next;
     };
-    if( $stat[4] != $var->{$user}->{uidNumber}[0]) {
+    if( $stat[4] != $uid) {
         warn "$user\'s home is owned by $stat[4] instead " . $var->{$user}->{uidNumber}[0] . ", skipping\n";
         next;
@@ -134 +134 @@
             next;
         };
+        chown($uid, $gid, "$home/.ssh");        
     }
 
@@ -139 +140 @@
         print $handle "$_\n" foreach(@newkeys);
         close($handle);
+        chown($uid, $gid, "$home/.ssh/authorized_keys");        
     } else {
         warn "Cannot open $home/.ssh/authorized_keys: $!\n";
     }
-
 }