AutoFolder

Dieses Script teilt einem Ordner den Chmod 755 oder 777 zu, sollte dies vergessen worden sein.

#!/usr/bin/perl
for(my $i = 1; $i <= 88; $i++) {
$dir = "/home/www/web$i/html/";
@dateien = ();
listFiles ($dir);

foreach $dir (@dateien) {

($rechte, $groesse) = (stat($dir))[2,7];
$orgrechte = sprintf "%lo", ($rechte & 07777);

$kurzdir = substr($dir, $laenge_sp);

$dirs = "$orgrechte $kurzdirn";
if($orgrechte ne "777" && $orgrechte ne "755"){
print $dirs;
chmod(0755, $kurzdir);
}
}

sub listFiles {
local *DH;
my ($item, $pfad);
my $dir = shift;
opendir (DH, $dir) or return;
while ($item = readdir (DH))
{

next if ( $item =~ /^./ );
$pfad = ( ($dir =~ //$/) ? ($dir .
$item) : ($dir . '/'.$item) );

push (@dateien, $pfad) if(-d $pfad);
listFiles ($pfad) if (-d $pfad);
}
closedir (DH);
}
}