301er Status-Code abfangen (Webframeworks, Sonstige Fragen zur Webprogrammierung mit Perl)

[thread]15018[/thread]

301er Status-Code abfangen

Leser: 20

Articles: hide open all | hide show old branches

+6 replies
pktm

2010-05-12 12:51
User since
2003-08-07
2921 Artikel
BenutzerIn
Hallo!

Wie kann ich herausfinden, ob eine Seite einen 301er oder 302er Staus-Code sendet?
Wenn ich z.B. http://www.perl-community.de/ im Browser aufrufe, erhalte ich einen 302er, der mich auf

Quote
Location: /bat/content/view/home

verweist.

Wenn ich aber folgendes Skript ausführe, erhalte ich als Status 200 zurück:
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 strict; use warnings; use Data::Dumper qw/Dumper/; use Perl6::Say; use FindBin qw/$Bin/; my $url = 'http://board.perl-community.de/'; use LWP::UserAgent; use HTTP::Request; my $ua = LWP::UserAgent->new(); $ua->agent("MyApp/0.1 "); # Create a request my $req = HTTP::Request->new(GET => $url); my $res = $ua->request($req); print $res->status_line();
Ich will aber den 302er identifizieren, also den ersten Statuscode, der zurück kommt.
Oder läuft das so nicht?

Grüße, pktm
http://www.intergastro-service.de (mein erstes CMS :) )
- +5 replies
- pq
  
  2010-05-12 12:55
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  da ist noch ein meta-refresh auf der index.html =) versuch mal direkt
  http://www.perl-community.de/bat aufzurufen.
  bin noch nicht dazu gekommen, die ganzen alten links und seiten aufzuräumen.
  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
  - +4 replies
  - pktm
    
    2010-05-12 13:09
    User since
    2003-08-07
    2921 Artikel
    BenutzerIn
    
    Ok, ich werde meine lesezeichen aktualisieren :)
    
    Aber auch bei http://www.perl-community.de/bat/ kommt ein 302er, der mich auf die Startseite von battie umlenkt. Hier ist der Header:
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9
    
    HTTP/1.1 302 Found Date: Wed, 12 May 2010 11:06:15 GMT Server: Apache Set-Cookie: battie_sid=id&5c90d353b726f2d6133af73cac67c3853449e0fb8f5078064c907654cd2aaabb; path=/bat; expires=Wed, 12-May-2010 12:06:15 GMT Location: /bat/content/view/home Content-Length: 0 Keep-Alive: timeout=15, max=97 Connection: Keep-Alive Content-Type: text/plain
    
    Ich habe da nun eine Reihe von Links, bei denen ich wissen will, ob sie umlenken oder nicht. Dazu wollte ich den Status-Code auswerten.
    
    Grüße, pktm
    http://www.intergastro-service.de (mein erstes CMS :) )
    - +3 replies
    - pq
      
      2010-05-12 13:15
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      ich weiss, dass der umlenkt.
      aber es ist kein meta-refresh. das war doch das problem, dachte ich, dass du mit LWP die seite mit dem meta-refresh kriegst und schon allein deshalb niemals den 302er kriegst.
      
      *jetzt* bekommst du zwar den redirect, aber vermutlich geht LWP dem direkt nach und zeigt dir das ergebnis des redirects. wenn du das überprüfen willst, kannst du auf $response->previous zugreifen. bzw. vielleicht kann man auch irgendwo automatische redirects abschalten.
      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
      - +2 replies
      - pq
        
        2010-05-12 13:22
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        2010-05-12T11:15:34 pq
        bzw. vielleicht kann man auch irgendwo automatische redirects abschalten.
        
        die doku sagt, wenn ich das richtig verstehe:
        
        Code (perl): (dl )
        
        $ua->requests_redirectable([]);
        
        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
        
        pktm
        
        2010-05-12 13:52
        
        User since
        2003-08-07
        2921 Artikel
        BenutzerIn
        
        Ja, das was. Mit $ua->requests_redirectable(['HEAD']); geht's, da wird der redirect nicht automatisch durchgeführt.
        
        Vielen Dank!
        http://www.intergastro-service.de (mein erstes CMS :) )

View all threads created 2010-05-12 12:51.