nach SHV4 Wurm attacke problem mit perl scripte

[Rolfi]

Nochmal,
kann es sein dass er was auf save mode gestellt hat
Weil mein shop script funktioniert auch nicht mehr korrekt
z.B. kann ich keine temp dateien mehr löschen und neu generieren
Hier das beispiel was nicht MEHR geht:
#prüfe dateien ob älter als... und lösche - umrechnung in stunden
sub checkdir {
my $jetzt = time();
my $bis = $jetzt - 3000||'';

opendir(DIR, "$file_path")||error('cannot open dir');
for (readdir(DIR)){
my $entry = "$file_path/$_";
if ((-f "$entry") and ((stat($entry))[9] < $bis)) {
unlink("$entry")||error();
}
}
closedir(DIR)||error();
}

Er hat den server neu aufgespielt nach der attacke.
Grüsse
Rolfi