perlunity.de - PERL | JAVASCRIPT | PHP | MySQL | APACHE



#!/COMMUNITY

Members: 5451
davon online: 1
weitere User: 22
Click for quality!



18.04.2014 / 22:42

Community-Member werden   |   Paßwort vergessen   |   OnlineMonitor (1) Wer ist online ... OnlineMonitor starten !
     

 

Home


PERLscripts


PHPscripts


JAVAscripts


Hilfreiches


Links2www


Newscenter


Community


Interna




Community  »  Perl: Allgemeines Forum zur Themenübersicht Themensuche Themenansicht in Thread-Modus


Beitragget($url) -> aufgerufene Site erstellt Cookie (UserAgent; Cookie)
Seitenanfang
Hallo Forumsgemeinde,

Ich Will eine bestimmte Seite von einem anderem Server per Request get auslesen.

Jedoch muss ich mich zuerst einloggen in die Site und ein Cookie akzeptieren.

Diese beiden ersten Probleme sind behoben.
Ich log mich ein und lass ein Cookie erstellen.

Dannach will ich aber endlich meine Geünschte Seite aufrufen, jedoch kennt er dann mein Cookie nimmer oder ich bekomms einfach nicht versendet...

Habe die Docs gelesen und ne Menge Beispielscripts durchforstet...
ich komm einfach net Weiter...

Evtl. kann mir jemand helfen wenn ich hier mal des Script Poste.

=================================


#!/usr/bin/perl

use LWP::UserAgent;
use HTTP::Cookies;

my $datadir = $ENV{"DOCUMENT_ROOT"}."/cgi-bin";
##################################
my $url = 'http://www.serverq.com/logon.asp?login=xxxxx&password=xxxx';

my $ua = LWP::UserAgent->new;

my $cookie_jar = HTTP::Cookies->new( file => "$datadir/teqcookie.txt", autosave => 1 );
$ua->cookie_jar($cookie_jar);

$ua->agent( "Explorer" );

my $request = HTTP::Request->new(GET => $url);
my $response = $ua->request($request);
$cookie_jar->extract_cookies($response);
$ua->cookie_jar($cookie_jar);

# bis hierhin klappt alles... ich würde ne korrekte einloggseite bekommen wenn ich sie ausgebe...
# auch der Cookie is erstellt

$url = 'http://www.server.com/status.asp';

$request = HTTP::Request->new(GET => $url);
$cookie_jar->add_cookie_header($request);
my $response = $ua->request($request);

my $content = $response->content();
print "$content";
exit;


=================================

Danke
King Po

Datum: 23.03.2003-10:24

Beitragre: get($url) -> aufgerufene Site erstellt Cookie (UserAgent; Cookie)
Seitenanfang
hi kingpo,

dies:
$cookie_jar->add_cookie_header($request);

so:
$ua->cookie_jar->add_cookie_header($request);

!! ungetestet !!

gruß
klaus

Datum: 23.03.2003-11:15

-






-
-