Hallo!
Ich habe mir die Dateien runtergeladen und wie in der Anleitung beschrieben, versucht zu konfirugieren.
Leider funktioniert das ganze irgendwie bei Strato nicht. Wenn ich http://reuba.net/forum/chmod.php eingebe, dann erscheint:
#!/usr/bin/perl
use strict;
use CGI;
my $cgi = new CGI;
# use CGI::Carp qw(fatalsToBrowser);
my $Eingabe = $cgi->param('fn');
my $docroot = $ENV{'DOCUMENT_ROOT'};
my $Betriebssystem = $^O;
print "Content-type: text/html\n\n";
print " Forum installierenRechte setzen f黵 Forum $Eingabe";
if($Betriebssystem eq "MSWin32"){
print "Unter $Betriebssystem muessen keine Dateirechte gesetzt werden, ForenInstallation checken
";
exit;
}
my $Verzeichnis = "$docroot/forum$Eingabe/messages";
my $soll = 0777;
chmod($soll,$Verzeichnis);
print "$Verzeichnis auf 777 gesetzt";
my $Verzeichnis = "$docroot/forum$Eingabe";
my $soll = 0777;
chmod($soll,$Verzeichnis);
chdir($Verzeichnis);
print "$Verzeichnis auf 777 gesetzt";
my @Dateien = glob("*.txt");
my $Datei;
foreach $Datei (@Dateien) {
chmod(0777,$Datei);
print "- $Datei auf 777 gesetzt";
}
my @Dateien = glob("forum*");
my $Datei;
foreach $Datei (@Dateien) {
chmod(0777,$Datei);
print " - $Datei auf 777 gesetzt";
}
my @Dateien = glob("index*");
my $Datei;
foreach $Datei (@Dateien) {
chmod(0777,$Datei);
print " - $Datei auf 777 gesetzt";
}
my @Dateien = glob("recent*");
my $Datei;
foreach $Datei (@Dateien) {
chmod(0777,$Datei);
print " - $Datei auf 777 gesetzt";
}
my @Dateien = glob("themen*");
my $Datei;
foreach $Datei (@Dateien) {
chmod(0777,$Datei);
print " - $Datei auf 777 gesetzt";
}
my $Verzeichnis = "$docroot/cgi-bin/chat";
my $soll = 0755;
if(-e "$Verzeichnis"){
chmod($soll,$Verzeichnis);
chdir($Verzeichnis);
print " $Verzeichnis auf 755 gesetzt";
my @Dateien = glob("*.cgi");
my $Datei;
foreach $Datei (@Dateien) {
chmod(0755,$Datei);
print "- $Datei auf 755 gesetzt";
}
}
my $Verzeichnis = "$docroot/cgi-bin/forum/programm";
my $soll = 0755;
chmod($soll,$Verzeichnis);
chdir($Verzeichnis);
print " $Verzeichnis auf 755 gesetzt";
my @Dateien = glob("*.cgi");
my $Datei;
foreach $Datei (@Dateien) {
chmod(0755,$Datei);
print "- $Datei auf 755 gesetzt";
}
my @Dateien = glob("*.pl");
my $Datei;
foreach $Datei (@Dateien) {
chmod(0644,$Datei);
print " - $Datei auf 644 gesetzt";
}
my @Dateien = glob("*.dat");
my $Datei;
foreach $Datei (@Dateien) {
chmod(0666,$Datei);
print " - $Datei auf 666 gesetzt";
}
my $Verzeichnis = "$docroot/cgi-bin/forum/templates";
my $soll = 0755;
chmod($soll,$Verzeichnis);
print " $Verzeichnis auf 755 gesetzt";
my $Verzeichnis = "$docroot/cgi-bin/forum";
my $soll = 0777;
chmod($soll,$Verzeichnis);
print "$Verzeichnis auf 777 gesetzt";
my $Verzeichnis = "$docroot/cgi-bin/forum/data";
my $soll = 0777;
chmod($soll,$Verzeichnis);
print "$Verzeichnis auf 777 gesetzt";
my $Verzeichnis = "$docroot/cgi-bin/forum/data/check";
my $soll = 0777;
chmod($soll,$Verzeichnis);
print "$Verzeichnis auf 777 gesetzt";
my $Verzeichnis = "$docroot/cgi-bin/forum/data/forumorg";
my $soll = 0777;
chmod($soll,$Verzeichnis);
print "$Verzeichnis auf 777 gesetzt";
my $Verzeichnis = "$docroot/cgi-bin/forum/data/loesch";
my $soll = 0777;
chmod($soll,$Verzeichnis);
print "$Verzeichnis auf 777 gesetzt";
my $Verzeichnis = "$docroot/cgi-bin/forum/data/log";
my $soll = 0777;
chmod($soll,$Verzeichnis);
print "$Verzeichnis auf 777 gesetzt";
my $Verzeichnis = "$docroot/cgi-bin/forum/data/messages";
my $soll = 0777;
chmod($soll,$Verzeichnis);
print "$Verzeichnis auf 777 gesetzt";
my $Verzeichnis = "$docroot/cgi-bin/forum/data/recent";
my $soll = 0777;
chmod($soll,$Verzeichnis);
print "$Verzeichnis auf 777 gesetzt";
my $Verzeichnis = "$docroot/cgi-bin/forum/data/stamm";
my $soll = 0777;
chmod($soll,$Verzeichnis);
print "$Verzeichnis auf 777 gesetzt";
my $Verzeichnis = "$docroot/cgi-bin/forum/data/stamm/backup";
my $soll = 0777;
chmod($soll,$Verzeichnis);
print "$Verzeichnis auf 777 gesetzt";
my $Verzeichnis = "$docroot/cgi-bin/forum/data/schutz";
my $soll = 0777;
chmod($soll,$Verzeichnis);
print "$Verzeichnis auf 777 gesetzt";
chdir($Verzeichnis);
my @Dateien = glob("*.*");
my $Datei;
foreach $Datei (@Dateien) {
chmod(0766,$Datei);
print "- $Datei auf 766 gesetzt";
}
print " ForenInstallation checken |