Location Problem (gelöst) (Perl/CGI)

[thread]16560[/thread]

Location Problem [gelöst]

Tags: perl5 CGI location Server Error Ähnliche Threads

Leser: 22

Articles: hide open all | hide show old branches

+16 replies
Gustl

2011-07-22 23:37
User since
2011-01-27
443 Artikel
BenutzerIn
Hi,

ich verstehe nicht warum dieses script auf meinem Server nicht funktioniert!
chmod-rechtevergabe = 755
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

#!/usr/bin/perl use strict; use lib 'module'; use CGI; use WebDB; use Globals; my $C = new CGI; my $dl = $C->param('dl'); $url = $Glob::path."downloads/colorreader.jar"; print "Location: $url\n\n"; exit;
Wenn ich dieses script direkt im Browser aufrufe kommt "500 Internal Server Error".
Was mache ich denn hier falsch?

Gruß
- pq
  
  2011-07-22 23:47
  
  User since
  2003-08-04
  12209 Artikel
  Admin1
  
  und was sagt das errorlog?
  FaqCGIServerError500
  
  internal server error sagt nur, dass es einen fehler gab, und aus sehr guten gründen nicht, welchen, das könnte eine sicherheitslücke sein. der fehler steht im errorlog des webservers.
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
- +13 replies
- renee
  
  2011-07-23 00:13
  
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  
  Lass mich raten: Dein Package heist "Globals" und dort gibt es eine Variable "path" (ist die denn mit "our" deklariert?).
  
  Dann müsste es $Globals::path statt $Glob::path heißen...
  
  Aber den Rat von pq solltest Du auf alle Fälle befolgen!
  OTRS-Erweiterungen (http://feature-addons.de/)
  Frankfurt Perlmongers (http://frankfurt.pm/)
  --
  
  Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
  Perl-Entwicklung: http://perl-services.de/
  - +12 replies
  - Gustl
    
    2011-07-23 00:40
    
    User since
    2011-01-27
    443 Artikel
    BenutzerIn
    
    Globals.pm heißt die Datei, das Package heißt aber Glob. Das ist wohl eher ungewöhnlich... da gebe ich dir recht.
    
    Wegen den Error Logfiles, darauf habe ich bei all-inkl leider keinen Zugriff.
    
    Ich habe auf schon scripte so geschrieben die emails versenden, die funktioneren auch auf dem Server... ich sehe jetzt leider aber nicht was hier falsch sein soll. hmpf, vielleicht morgen, jetzt geh ich schlafen.
    
    gn8, und danke!
    - renee
      
      2011-07-23 01:08
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      Du benutzt strict deklarierst $url aber nicht...
      
      Wenn Du keinen Zugriff auf das error_log hast, hast Du im Prinzip zwei Möglichkeiten: Du baust Dir eine lokale Testumgebung auf und/oder Du schreibst ein zweites Skript, in dem ein qx{} gemacht wird und das erste Programm darin aufruft. So á la
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10
      
      #!/usr/bin/perl use strict; use warnings; use CGI; print CGI->header( 'text/plain' ); my $result = qx{ perl script1.pl 2>&1 }; print $result,"\nfertig...\n";
      
      OTRS-Erweiterungen (http://feature-addons.de/)
      Frankfurt Perlmongers (http://frankfurt.pm/)
      --
      
      Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
      Perl-Entwicklung: http://perl-services.de/
    - +10 replies
    - pq
      
      2011-07-23 01:35
      
      User since
      2003-08-04
      12209 Artikel
      Admin1
      
      lies doch bitte trotzdem den link!
      dort steht ein rat:
      use CGI::Carp qw(fatalsToBrowser); an den anfang des skriptes.
      alles, was danach passiert, kann somit meistens abgefangen werden und wird im browser ausgegeben.
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
      - +9 replies
      - Gustl
        
        2011-07-23 11:14
        
        User since
        2011-01-27
        443 Artikel
        BenutzerIn
        
        Hallo,
        
        was komisch war:
        Wenn ich
        
        Code (perl): (dl )
        
        #!/usr/bin/perl
        
        durch
        
        Code (perl): (dl )
        
        #!/usr/bin/perl -w
        
        ersetze funktioniert die Weiterleitung auch. Kann mir wer erklären wieso dies so ist? Ich dachte immer das bei der Option -w nicht nur die Fehler sondern auch die Warnungen ausgegeben werden!?
        
        Dennoch habe ich ein Problem, mein Grundgedanke ist es ein downloadscript zu schreiben welches einen zähler hochzählt, die Datei zum download anbietet und dann wieder auf die vorherige Seite führt. Aber 2x Location nacheinander geht nicht, da er ja mit \n\n wohl abschließt.
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
        
        #!/usr/bin/perl -w use CGI::Carp qw(fatalsToBrowser); use strict; use lib 'module'; use CGI; use WebDB; use Globals; my $C = new CGI; my $dl = $C->param('dl'); my $ref_link = $ENV{HTTP_REFERER}; my $url = $Glob::path."downloads/".$dl; print "Location: $url\n\n"; #<- Da hört er dann auf :( print "Location: $ref_link\n\n"; exit;
        
        Danke und Gruß
        
        +2 replies
        
        GwenDragon
        
        2011-07-23 11:18
        
        User since
        2005-01-17
        14850 Artikel
        Admin1
        
        Das Programm hat im Code auch als Zeilenenden wirklich Linefeeds?
        Beim Upload sollten nämlich, falls als Entwicklungsbetriebssystem ein anderes als Linux verwendet wird, die Zeilenendezeichen auf die des Zielsystems angepasst werden.
        
        //EDIT: Habe es gerade ausprobiert, eine test.pl als Binärdatei hochgeladen, dann kommt ein Serverfehler 500.
        Last edited: 2011-07-23 11:27:46 +0200 (CEST)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        FIFO
        
        2011-07-23 12:35
        
        User since
        2005-06-01
        469 Artikel
        BenutzerIn
        
        Manchmal ist es auch ein Problem mit dem FTP-Upload von Skripten: Im ASCII-Mode werden evtl. an sich korrekte Linefeeds automatisch durch CRLF ersetzt (zumindest auf Windows-Systemen hab ich das schon öfters erlebt). Dann bekommt man auf dem Server ebenfalls "Bad interpreter".
        Lösung: FTP im binary-mode. Oder eben irgendwas an die shebang-Zeile anhängen (hier -w). Das -w wird dann als "-w\r\n"-Argument ggf. ignoriert.
        
        Edit: Die Erinnerung trügt, das muss der Rotwein von gestern abend sein: Das Problem war eher, dass im binary-Mode die CRLF der WinDOS-Datei natürlich unverändert auf dem Linux/Unix-Server landeten (und zu dem "bad interpreter" führten), während im ASCII-Mode eine automatische CRLF => LF Übersetzung stattfand.
        Last edited: 2011-07-23 12:49:22 +0200 (CEST)
        Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
        
        +6 replies
        
        pq
        
        2011-07-23 13:17
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        2011-07-23T09:14:27 Gustl
        was komisch war:
        Wenn ich
        
        Code (perl): (dl )
        
        #!/usr/bin/perl
        
        durch
        
        Code (perl): (dl )
        
        #!/usr/bin/perl -w
        
        ersetze funktioniert die Weiterleitung auch.
        
        auch das steht im wiki!
        unter dem punkt "Kein Ascii-Format".
        hättest du die wiki-seite gelesen und alle ratschläge durchgegangen, dann hättest du das problem gelöst.
        das -w am ende der shebang maskiert das problem nur! es bleibt ein winows-\r am ende der zeile, und das system versucht ein perl-binary namens /usr/bin/perl\r aufzurufen, welches nicht existiert.
        hängst du noch ein -w dran, ist der interpreter korrekt.
        stattdessen solltest du das skript aber im ascii-format hochladen, dann bleiben keine windows-\r drin.
        
        das wiki ist nicht dazu da, damit die, die sich auskennen, es jedesmal hier vorlesen, sondern dass ihr es lest und zumindest versucht, die liste abzuarbeiten! es ist kein problem, wenn es nicht klappt, hier weiter zu fragen, aber wenn ich das gefühl habe, dass die liste nicht mal ansatzweise gelesen wurde, fühle ich mich echt verarscht.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +5 replies
        
        Gustl
        
        2011-07-23 15:16
        
        User since
        2011-01-27
        443 Artikel
        BenutzerIn
        
        Hallo, ich gebe zu ich habe es mehr oder weniger überfolgen, aber dennoch die für mich, so dachte ich, erforderlichen Maßnahmen aus dem wiki probiert.
        
        Dateirechte => 755
        Shebang => war richtig, -w hatte ich da nicht probiert.
        Script hat Syntaxfehler => Ich konnte keinen erkennen, das mit my vor dem $url hatte ich nur so im Forum hier stehen, im orginal script war des schon drin, war wohl ein copy/paste fehler, meinerseits.
        Mudul nicht vorhanden => sind alle da, da die anderen .pl`s ja auch gehn.
        Kein Ascii-Format => Da fragte ich mich eben was es damit zu tun haben soll (da für mich binär 1zu1 hochläd, eben den binärcode), aus dem Grund habe ich es nicht ausprobiert.
        
        use CGI::Carp qw(fatalsToBrowser); habe ich eingefügt, aber trotzdem war der Serverfehler 500 noch da, und leider keine Fehleranzeige im Browser.
        
        Fazit: Ich will hier niemanden verarschen, wenn dies so rüber gekommen ist, tut es mir leid.
        Ich bin nunmal nicht drauf gekommen das dieses -w etwas mit dem Format des uploads zu tun hat.
        
        Noch eine kleine Frage: Sollte ich dann beim FTP-Client das hochladen generell im ascii format machen? Dachte immer binär läd das 1zu1 hoch, eben nach dem binär code...
        Sicherlich hätte ich es probieren können, da gebe ich dir recht... aber gut, habe ich wieder etwas gelernt, danke dafür!
        
        Gruß, bin eben kein Freak wie manch einer hier, sry..
        Last edited: 2011-07-23 15:17:40 +0200 (CEST)
        
        pq
        
        2011-07-23 15:20
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        2011-07-23T13:16:25 Gustl
        Noch eine kleine Frage: Sollte ich dann beim FTP-Client das hochladen generell im ascii format machen? Dachte immer binär läd das 1zu1 hoch, eben nach dem binär code...
        
        binär lädt die datei genauso hoch, wie sie ist, und genau das ist das problem. unter windows besteht ein zeilenumbruch aus einem carriage return und einem newline, unter linux aus einem newline.
        ein ascii-upload korrigiert das und entfernt die carriage returns. ein binär-upload ist für binärdaten wie bilder gedacht und korrigiert das nicht. daher bleiben die falschen zeilenenden drin.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +3 replies
        
        GwenDragon
        
        2011-07-23 15:20
        
        User since
        2005-01-17
        14850 Artikel
        Admin1
        
        Beim FTP-Programm lassen sich doch je nach Dateiendung der Modus einstellen, ob im Binär- oder Textmodus hochgeladen wird.
        
        Ich empfehle folgende Perl-Dateiendungen im Textmode hochzuladen:
        .pod
        .pm
        .pl
        .plx
        .cgi
        
        Welches FTP-Programm verwendest du?
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +2 replies
        
        Gustl
        
        2011-07-23 15:43
        
        User since
        2011-01-27
        443 Artikel
        BenutzerIn
        
        Danke euch zwein.
        
        Ich benutze unter Firefox das Addon FireFTP, dort gibt es Binary Mode, ASCII Mode und einen Automatic Mode wo eine Liste ist, in der man die Endungen der Files die man im Ascii mode hochladen will vorhanden ist.
        
        Defaulteinstellung der Liste:
        .ai .bas .bat .c .cc .cgi .conf .cpp .css .diz .eps
        .h .htaccess .htm .html .hqx .java .js .jsp .map .nfo
        .pas .php .pl .ps .py .rdf .rss .sh .shtml .txt .uue .xml
        
        Jetzt füge ich noch .pm und .plx hinzu und dann lasse ich ihn auf automatic mode.
        
        Zudem benutze ich noch Filezilla, wobei hier die Zugangsdaten im Klartext gespeichert werden, und ein Trojaner auf meinem Laptop genau diese auswendig gemacht hat, und dann ein bot über ftp-zugang meine seiten verändert hat... hmpf
        Ob der FireFTP jetzt besser ist, weiß ich nicht, ich hoffe es mal.
        Alles unter Windows 7.
        
        Welche FTP-Clients benutzt ihr denn so?
        Last edited: 2011-07-23 15:45:14 +0200 (CEST)
        
        GwenDragon
        
        2011-07-23 17:21
        
        User since
        2005-01-17
        14850 Artikel
        Admin1
        
        FTP-Clients? Verschieden.
        
        Auf der Kommandozeile: ncftp.
        Als Programmteil: Notepad++, Golive CS.
        
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- pq
  
  2011-07-23 13:42
  
  User since
  2003-08-04
  12209 Artikel
  Admin1
  
  Verschoben von Allgemeines zu Perl nach Perl/CGI
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem

View all threads created 2011-07-22 23:37.