PERL skript starten

[TriphunEM]

Hallo,

ich hab noch ein recht alten Linux-Server mit Confixx 2 und muss ein Hotfix machen. das hotfix ist ein eine Perl-Datei, welche sich aber nicht ausführen lässt.

Laut beschreibung soll ich das skript so aufrufen :
#perl confixx_hotfix.pl

da passiert aber garnix auf der konsole (putty). woran kann es liegen?

Danke

Hier das Hotfix

#!/usr/bin/perl

if ($ARGV[0] ){
	unless (-e $ARGV[0]){
		print "File '$ARGV[0]' does not exist\n";
		exit;
	}
	do $ARGV[0];
}else{
	for $confd ('/root/confixx','/usr/local/confixx','/home/confixx','.'){
		if (-e "$confd/confixx_main.conf"){
			do "$confd/confixx_main.conf";
			last;
		}
	}
}

if ( !$installDir || !$confixx_htmlDir ){
	print "Can not determine \$installDir and \$confixx_htmlDir from confixx_main.conf\n".
				"This is either confixx_main.conf can not be found or it has syntax errors\n".
				"Try ./confixx_hotfix <full path>/confixx_main.conf\n".
				"perl -c <full path>/confixx_main.conf\n";
	exit;
}

print "This is a security hotfix for vulnerability in admin/business_inc/saveserver.php\n".
"Should be applied to Confixx versions since 2.0.12 up to 3.3.1\n".
"It also should be applied every time you make upgrade to one of vulnerable versions\n".
"<press any key to continue or CTRL+C to cancel> "; <STDIN>;


@files = (
	"$installDir/admin/html/admin/business.php",
	"$confixx_htmlDir/admin/business.php",
	"$installDir/admin/html/admin/business_inc",
	"$confixx_htmlDir/admin/business_inc",
	"$installDir/admin/html/admin/business_edit.php",
	"$confixx_htmlDir/admin/business_edit.php"
);

foreach $file (@files){
	system ("rm -rf $file\n") if (-e $file);
}
print "Done.\n";

[onemorenerd]

Du kannst die unter @files aufgelisteten Dateien und Verzeichnisse auch einfach manuell löschen. Mehr macht der Hotfix nicht.