Hier ein Perl-Script, dass ich so ähnlich selber ab und zu mal benutze:
Code:
#!/usr/bin/perl
open(PASSWD, '/etc/passwd');
@pass = <PASSWD>;
$pfad = '/usr/local/httpd/htdocs/';
for($i = 0; $i < $#pass; $i++)
{
chomp $pass[$i];
($name, $blarg, $uid) = split(/:/, $pass[$i], 4);
#Ändere die Rechte von $pfad Für alle user mit einer UserID höher als 100
if($uid > 100)
{
print "Changing permission for user $name in $pfad...\n";
system("chmod -Rv 0755 $pfad$name");
system("chmod -Rv 0644 $pfad$name");
}
}
close(PASSWD);
Das ist IMO sehr flexibel und richtet sich nach der User-ID. Wenn diese über 100 ist, dann fängt er an die Rechte für alle Dateien in $pfad zu änderen.
c ya,
Tobias
Lesezeichen