perl skript ausführung auf einzelnen vhost limitieren?
Posted: 2004-12-22 13:01
also, ich betreibe eine shared hosting umgebung. der webwurm hat da ganz gut gewütet. also auch andere webs als das web, in dem das phpbb lief, waren betroffen. das ganze auf einem 1&1 rootie mit confixx. hab mir grade den code vom wurm als nicht perl mächtiger angeschaut.
wie kann ich denn ein perlskript so limitieren, dass es "nur" innerhalb des doc roots innerhalb eines vhost wüten kann.
Code: Select all
sub DoDir($) {
my $dir = $_[0];
$dir .= '/' unless $dir =~ m#/$#;
local *DIR;
opendir DIR, $dir or return;
for my $ent (grep { $_ ne '.' and $_ ne '..' } readdir DIR) {
unless(-l $dir . $ent) {
if(-d _) {
DoDir($dir . $ent);
next;
}
}