46 lines
1.5 KiB
Perl
46 lines
1.5 KiB
Perl
#! /usr/bin/perl
|
|
|
|
# Går gjennom passwd.pvv og oppretter alle hjemmekataloger som mangler.
|
|
|
|
use strict;
|
|
use warnings;
|
|
use File::Basename;
|
|
|
|
sub execute {
|
|
if (system(@_) != 0) {
|
|
die "Failed to execute " . join(" ", @_);
|
|
}
|
|
}
|
|
|
|
my $passwd = "/etc/passwd.pvv";
|
|
|
|
my $homes_created = 0;
|
|
|
|
open (my $passwd_fd, $passwd) or die "Unable to open $passwd: $!";
|
|
while (<$passwd_fd>) {
|
|
chomp;
|
|
my ($user, undef, $uid, $gid, undef, $homedir, $shell) = split(":");
|
|
|
|
# Ignorer brukere som uansett ikke får lvov til å logge inn
|
|
next if $shell eq "/bin/sperret" || $shell eq "/bin/msgsh" || $shell eq "/bin/false";
|
|
|
|
# Prefix med /export, som er lokal path på NFS-serveren
|
|
$homedir = "/export" . $homedir;
|
|
|
|
# Only create homedir if it is missing, and it would have been exported from here
|
|
if (-d dirname($homedir) && !-d $homedir) {
|
|
print "Oppretter hjemmekatalog for $user: $homedir\n";
|
|
$homes_created = 1;
|
|
execute("mkdir", "-p", "-m", "711", $homedir);
|
|
execute("cp -r /local/skel/usr/.??* $homedir");
|
|
execute("chown", "-R", "$uid:$gid", $homedir);
|
|
execute("find", $homedir, "-type", "f", "-exec", "chmod", "600", "{}", "+");
|
|
execute("find", $homedir, "-type", "d", "-exec", "chmod", "700", "{}", "+");
|
|
execute("chmod", "711", $homedir); # Må ha execute, så ~/web-docs virker
|
|
}
|
|
}
|
|
|
|
if ($homes_created) {
|
|
execute("/local/quota/makeexportsandquota.pl");
|
|
}
|