Perl http request



  • Hallo,

    im Intranet gibt es einen Webserver auf dem Apache + PHP + mod_auth_sppi läuft.
    Nun möchte ich mit einem Perl-Skript von meinem Arbeitsplatz aus einen HTTP-Request an den Webserver schicken.

    Wenn ich den Internet-Explorer benutze werden die Seiten angezeigt.
    Bei meinem Perl-Skript jedoch bekomme ich eine 401-Authorization Required.

    use strict;
    use HTTP::Request;
    use LWP::UserAgent;
    
    my $username = 'Domain\username';
    my $password = 'password';
    
    my $url = 'http://intranet/';
    my $browser = new LWP::UserAgent(keep_alive => 1,
    					agent => 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; InfoPath.1;.NET CLR 1.1.4322)',
    					'Accept' => 'image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shock wave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*',
    					'Accept-Encoding' => 'gzip, deflate',
    					'Accept-Language' => 'de',
    					'Host' => 'hostname');
    $browser->credentials('http://intranet/', '', $username, $password);
    my $request = HTTP::Request->new(GET => $url);
    my $response = $browser->request($request);
    print $response->content . "\n";
    


  • Dann solltest du dich mal erkundigen welche Auth. die Seite braucht.
    Ansonst wenn es userid und Passwort sind dann sende einfach noch die Auth. mit.



  • Woher finde ich raus, welches es ist?
    Ist es der Eintrag in der Apache-config mit AuthName?!


Anmelden zum Antworten