Strato und Perl (gelöst) (Perl/CGI)

[thread]20746[/thread]

Strato und Perl [gelöst]

Tags: perl5 CGI Ähnliche Threads

Leser: 13

Articles: hide open all | hide show old branches

Teilbaum:
Willkommen (7 Artikel) 2020-02-23 12:31

+13 replies
dondebile

2020-02-22 11:36
User since
2020-02-22
4 Artikel
BenutzerIn
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)
- +4 replies
- GwenDragon
  
  2020-02-22 11:44
  User since
  2005-01-17
  14748 Artikel
  Admin1
  Warum der CGI-Wrapper bei Strato so eine Meldung wirft, weiß ich wirklich nicht.
  
  Hat das Programm denn auch die korrekten Besitzer:Gruppe?
  Ansonsten hat das auf hoch geladenen Programm auch die für Linux korrekten Zeilenenden (LF)?
  
  probier doch mal das zum Test:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
  
  #!/usr/bin/perl -w use strict; use warnings; use CGI::Carp qw(fatalsToBrowser); # Zum Entwickeln auf dem lokalen Server eventuelle Fehler auf Webseite ausgeben, auf Produktionssystem bitte diese Zeile entfernen/auskommentieren!!!! ## ## printenv -- demo CGI program which just prints its environment ## print "Content-type: text/plain; charset=iso-8859-1\n\n"; foreach my $var (sort(keys(%ENV))) { my $val = $ENV{$var}; $val =~ s|\n|\\n|g; $val =~ s|"|\\"|g; print "${var}=\"${val}\"\n"; }
  
  Editiert von GwenDragon: code korrigiert für my Deklaration
  Last edited: 2020-02-22 12:06:38 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +3 replies
  - dondebile
    
    2020-02-22 12:11
    User since
    2020-02-22
    4 Artikel
    BenutzerIn
    
    Danke für den code. Jetzt kommt folgendes:
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9
    
    Software error: Global symbol "$var" requires explicit package name at /home/strato/http/premium/rid/96/99/510389699/htdocs/cgi-bin/test2.pl line 12. Global symbol "$val" requires explicit package name at /home/strato/http/premium/rid/96/99/510389699/htdocs/cgi-bin/test2.pl line 13. Global symbol "$var" requires explicit package name at /home/strato/http/premium/rid/96/99/510389699/htdocs/cgi-bin/test2.pl line 13. Global symbol "$val" requires explicit package name at /home/strato/http/premium/rid/96/99/510389699/htdocs/cgi-bin/test2.pl line 14. Global symbol "$val" requires explicit package name at /home/strato/http/premium/rid/96/99/510389699/htdocs/cgi-bin/test2.pl line 15. Global symbol "$var" requires explicit package name at /home/strato/http/premium/rid/96/99/510389699/htdocs/cgi-bin/test2.pl line 16. Global symbol "$val" requires explicit package name at /home/strato/http/premium/rid/96/99/510389699/htdocs/cgi-bin/test2.pl line 16. Execution of /home/strato/http/premium/rid/96/99/510389699/htdocs/cgi-bin/test2.pl aborted due to compilation errors.
    
    Ansonsten habe ich Probleme Deine Fragen zu beantworten.
    Ich habe das script auf 755 (chmod) gesetzt. Das wird von Strato so angegeben. Selbst bei 777 erscheinen dieselben Fehler.
    Habe das script jetzt auch mal als test2.cgi hochgeladen - dieselben Probleme
    - GwenDragon
      
      2020-02-22 12:27
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      Wegen der Fehlermeldungen "Global symbols" schau dir noch mal meinen veränderten Code an.
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - GwenDragon
      
      2020-02-22 12:29
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      Was Zeilenende der Codezeilen anbelangt, der Editor sollte Linux-Zeilenenden abspeichern.
      Notepad++ kann das.
      
      Mit welchem Editor schriebst du denn diese Codezeilen?
      Und du solltest dann den Code als ASCII-Datei hochladen, mit welchen Programm lädst du denn hoch auf den Server?
      Last edited: 2020-02-22 12:30:55 +0100 (CET)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- GwenDragon
  
  2020-02-22 13:08
  
  Subtree with 8 replies: Willkommen
  
  User since
  2005-01-17
  14748 Artikel
  Admin1
  
  @dondebile
  Übrigens: Willkommen im Forum.
  Last edited: 2020-02-22 13:11:45 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2020-02-22 11:36.