[Vienna-pm] LWP um https zu holen

[horshack@lisa.franken.de]

Danke fuer die Antworten. Es hatte wirklich mit dem CONNECT/GET zu tun.
Beim Holen einer Seite mit https MUSS DIE UMGEBUNGSVARIABLE HTTPS_PROXY
gesetzt sein. Die Umgebungsvariable, die Methode $ua->proxy hilft
offensichtlich nichts. Wenn das getan ist verwendet LWP die Methode
CONNECT (sagt mein Proxylog) und alles funktioniert.

Ich war der festen Ueberzeugung, dass $ua->proxy und $ENV{HTTPS_PROXY} das
selbe bewirken. Das ist ganz offensichtlich nicht der Fall.

Die Ueberlegungen um CONNECT und GET haben mir schon geholfen dann in
Google das Suchergebnis stark einzugrenzen.

Danke sehr!
Richard Lippmann


---
Richard Lippmann, Nuernberg, Germany
ÜPrivate: http://lena.franken.de
Business with Findus Internet-OPAC: http://www.findus-internet-opac.de


On Sat, 6 Aug 2005 horshack at lisa.franken.de wrote:

> Ich moechte per https Seiten aus dem Internet holen. Crypt::SSLeay ist
> installiert und das Holen der Seiten klappt auch solange ich keinen
> Proxyserver verwende. Dem Rechner selbst ist per IP-Adresse erlaubt den
> Proxyserver zu benutzen, mit einem Webbrowser klappt alles.
>
> http ohne Proxy: geht
> http mit Proxy: geht
> https ohne Proxy: geht
> https mit Proxy: 501-Problem wie beschrieben
>
> Die Fehlermeldung ist:
> Inhalt: Error while requesting URL https://www.gmx.net: 501 Not
> Implemented
>
> Seltsamerweise sagt der Proxy im Log das:
> 1123358064.773      3 10.1.1.63 TCP_DENIED/501 1387 GET
> https://www.gmx.net - NONE/- text/html
>
> Aber der selbe Rechner 10.1.1.63 kann problemlos https-Seiten holen.
>
> Kann es sein, dass ich mit https gar keine GET-Methode verwenden darf? Ich
> bin an echten Erfahrungen interessiert, bitte keine Mutmassungen. Ich
> mutmasse jetzt schon den ganzen Abend und weiss echt nicht mehr weiter.
>
> Das Programm:
> ===
> use strict;
> use warnings;
> use LWP::UserAgent;
> use HTTP::Request;
>
> my $url = "https://www.gmx.net";
> my $proxy = "http://proxy.rosi13.de:3128/";
>
> my $ua    = LWP::UserAgent->new;
> $ua->proxy( "https", $proxy );
> my $request = HTTP::Request->new( GET => $url );
> # $content="" when Methode = CONNECT
> # my $request = HTTP::Request->new( CONNECT => $url );
>
> my $response = $ua->request($request);
> my $content;
> if ( $response->is_error() ) {
>     $content = sprintf( "Error while requesting URL $url: %s\n",
>         $response->status_line );
> }
> else {
>     $content = $response->content();
> }
>
> print "Inhalt: " . $content, "\n";
> ===
>
> Danke!
> Richard Lippmann
>
>
> ---
> Richard Lippmann, Nuernberg, Germany
> Private: http://lena.franken.de
> Business with Findus Internet-OPAC: http://www.findus-internet-opac.de
>
>
> _______________________________________________
> Vienna-pm mailing list
> Vienna-pm at pm.org
> http://mail.pm.org/mailman/listinfo/vienna-pm
>
>