Hello,
Total beginner here. I need a cgi script to run as root to recursively change file permissions. I slapped something together from examples, but Apache complains:
This is the script:
Code:
#!/usr/bin/perl -wT
BEGIN {
$ENV{PATH} = "";
}
use strict;
use File::Find;
$|++;
my $baseDir = "/var/www/test/";
my $modeFile = oct(664);
my $modeDir = oct(2775);
sub setperms {
chmod($modeFile, $_) if(-f $_); <------/line 13/
chmod($modeDir, $_) if(-d $_);
chown(-1, 1005, $_);
}
find(\&setperms, "$baseDir");
Please help...
