|
AutoFolder
| Dieses Script ist dazu gedacht, alle Ordner nach einen
Server Umzug mit den richtigen CHMOD zu versehen, falls CHMOD 777 oder 755
nicht gesetzt wurde.
|
| Script: |
#!/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);
}
}
|
|
Tutorials