Hallo zusammen,
jetzt weiß ich einfach nicht mehr weiter und versuche mal hier mein Glück.
Vor ein paar Tagen habe ich beim surfen ein interessantes Perl-script entdeckt. Hab es herunter geladen, auf meinem lokalen Xampp-Server installiert und shebang korrigiert. Hat direkt beim ersten Aufruf funktioniert.
Hab dann wieder die shebang geändert und es bei bei Strato hoch geladen, entsprechende Rechte (chmod755) gesetzt und - Internal Server Error. Also habe ich mir das Error-logfile angesehen:
Diese Fehler sagen mir nicht viel, aber der Hinweis "No such file or directory" irritiert mich schon. Natürlich ist das script vorhanden, das cgi-bin Verzeichnis auch.
Die shebang sollte auch korrekt sein.
Hier nun der komplette code des perlscripts:
jetzt weiß ich einfach nicht mehr weiter und versuche mal hier mein Glück.
Vor ein paar Tagen habe ich beim surfen ein interessantes Perl-script entdeckt. Hab es herunter geladen, auf meinem lokalen Xampp-Server installiert und shebang korrigiert. Hat direkt beim ersten Aufruf funktioniert.
Hab dann wieder die shebang geändert und es bei bei Strato hoch geladen, entsprechende Rechte (chmod755) gesetzt und - Internal Server Error. Also habe ich mir das Error-logfile angesehen:
Code:
21.02.2020 16:15:08 derwebfuchs.de [client meinclient::] AH01215: /home/strato/http/premium/rid/96/99/9ziffern/htdocs/cgi-bin/printenv.pl: (2)No such file or directory: 4651336-exec /home/strato/http/premium/rid/96/99/9ziffern/htdocs/cgi-bin/printenv.pl failed permanently: /home/strato/http/premium/rid/96/99/9ziffern/htdocs/cgi-bin/printenv.pl
21.02.2020 16:15:08 derwebfuchs.de [client meinclient::] End of script output before headers: printenv.plDiese Fehler sagen mir nicht viel, aber der Hinweis "No such file or directory" irritiert mich schon. Natürlich ist das script vorhanden, das cgi-bin Verzeichnis auch.
Die shebang sollte auch korrekt sein.
Hier nun der komplette code des perlscripts:
Code:
#!/usr/bin/perl
##
## printenv -- demo CGI program which just prints its environment
##
print "Content-type: text/plain; charset=iso-8859-1\n\n";
foreach $var (sort(keys(%ENV))) {
$val = $ENV{$var};
$val =~ s|\n|\\n|g;
$val =~ s|"|\\"|g;
print "${var}=\"${val}\"\n";
}
