Thread Strato und Perl (12 answers)
Opened by dondebile at 2020-02-22 11:36

dondebile
 2020-02-22 11:36
#191407 #191407
User since
2020-02-22
4 articles
BenutzerIn
[default_avatar]
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:
Code: (dl )
1
2
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.pl


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:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
#!/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";
}

Last edited: 2020-02-22 11:37:39 +0100 (CET)

View full thread Strato und Perl