nicht angemeldet
Cookie mit LWP::UserAgent (HTTP::Cookie) senden an WWW
Hi Leute,
Ich habe ein Problem, ich kenne mich leider mit dem HTTP::Cookie Modul in Verbindung mit dem LWP::UserAgent Modul nicht so gut aus.
Also ich möchte per LWP eine Website eines anderen Servers einladen, wie das geht weiss ich, ABER er fordert einen Cookie und diesen Cookie mchte ich mit übereichen, Cookiename und Wert sind mir, bzw. dem Script bekannt. Es ist KEIN Cookie mit Ablaufdatum, also einer
der gelöscht wird wenn der Browser schliesst.
Ich müßte also wissen ich in folgender Form dieses Cookie übergebe:
$cook = HTTP::Cookie->new()
$cook->....????(name=wert) ##[session-Cookie]
$ua->cookie_jar->**LWP-System**
etc...
Mit anderen Worten: Wie gehe ich mit dem HTTP::Cookie Modul um das ich mit ihm über cookie_jar() beim LWP::UserAgent dieses Cookie senden kann, von dem ich nur den Namen und den Wert weiss, und es istein Cookie welches vom anderen Server als Session-Cookie gesetzt wurde, also ohne Verfallsdatum????
Ich danke schon mal im Vorraus.
grüße Promicha
-
LWP unterstützt keine Cookies.
du solltest CWP::ContentLang für sowas verwenden!!Goran
Hi Leute,
Ich habe ein Problem, ich kenne mich leider mit dem HTTP::Cookie Modul in Verbindung mit dem LWP::UserAgent Modul nicht so gut aus.
Also ich möchte per LWP eine Website eines anderen Servers einladen, wie das geht weiss ich, ABER er fordert einen Cookie und diesen Cookie mchte ich mit übereichen, Cookiename und Wert sind mir, bzw. dem Script bekannt. Es ist KEIN Cookie mit Ablaufdatum, also einer
der gelöscht wird wenn der Browser schliesst.Ich müßte also wissen ich in folgender Form dieses Cookie übergebe:
$cook = HTTP::Cookie->new()
$cook->....????(name=wert) ##[session-Cookie]
$ua->cookie_jar->**LWP-System**etc...
Mit anderen Worten: Wie gehe ich mit dem HTTP::Cookie Modul um das ich mit ihm über cookie_jar() beim LWP::UserAgent dieses Cookie senden kann, von dem ich nur den Namen und den Wert weiss, und es istein Cookie welches vom anderen Server als Session-Cookie gesetzt wurde, also ohne Verfallsdatum????
Ich danke schon mal im Vorraus.
grüße Promicha
-
LWP unterstützt keine Cookies.
du solltest CWP::ContentLang für sowas verwenden!!Leider kenne ich dieses Modul nicht.
Und laut Doc. kann ich den Cookie mit LWP senden
-----------------------------------
$ua=LWP::UserAgent->new();
$jar=HTTP::Cookie->new();
$jar->....??? name=value ????
$ua->cookie_jar($jar);
$ua->agent($ENV{'HTTP_USER_AGENT'});
...etc.
------------------------------------Ansonsten gebe es noch ne andere einfachere möglichkeit,
ABER auch da weiss ich jetzt nicht was man screiben muß:
----------
use Socket;
$url = "www.die-url.com";
($host, $uri) = ($url =~ m!http://(.*?)(/.*)!);
$inhalt;
socket SOCK, PF_INET, SOCK_STREAM, getprotobyname('tcp');
connect SOCK, sockaddr_in(80, inet_aton($host));
send SOCK, "GET $uri HTTP/1.0\r\nHost: $host\r\n
Cookie: ??????-was schreibe ich-??????? \r\n\r\n", 0;
0 while <SOCK> !~ /^\r\n$/;
$inhalt .= $_ while <SOCK>;
close SOCK;
-----------
Ich müßte dann haltmal wissen wie der HTTP-Header aussieht der vom
Browser gesendet wird.grüße Micha
-