Opened by Netspider at 2004-02-16 12:01
User since
2003-09-25
49 Artikel
BenutzerIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-09-25
49 Artikel
BenutzerIn
Hi,
ich möchte eine webseite mit einem perlscript ansteuern, über LWP dacht ich mir das.
Mein problem ist, dass cookies nicht an die seite geschickt werden, obwohl ich es eigentlich dem script gesagt habe:
das senden geht ja, aber irgendwie will er die cookies nicht mitschicken.
ich habe in der lwp_cookies.txt die cookies schon drin stehen, hab also auch zum test die setcookie zeile rausgenommen
Woran kann es liegen, dass das so nicht funktioniert?
PS.: ich weiß nicht genau, wo ich den thread hinpacken sollte, da bei allgemein keine webprogrammierung rein darf ist der jetzt hier!\n\n
<!--EDIT|Netspider|1076925920-->
ich möchte eine webseite mit einem perlscript ansteuern, über LWP dacht ich mir das.
Mein problem ist, dass cookies nicht an die seite geschickt werden, obwohl ich es eigentlich dem script gesagt habe:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
use LWP::Simple;
use String::CRC32;
use HTTP::Cookies;
use LWP;
$c=HTTP::Cookies->new(
file => "lwp_cookies.txt",
autosave => 1,
);
$c->set_cookie("1.0","Key","Value","/","www.domain.de","80",0,0,$timestamp,0);
$c->load("lwp_cookies.txt");
#hatte es auch ohne probiert
$browser=LWP::UserAgent->new;
$browser->cookie_jar( {$c} );
$browser->proxy("http","http://127.0.0.1:8080");
#dadurch seh ich ob cookies geschickt werden
$request=HTTP::Request->new('GET','http://www.domain.de/seite.htm');
$inhalt=$browser->request($request)->content;
das senden geht ja, aber irgendwie will er die cookies nicht mitschicken.
ich habe in der lwp_cookies.txt die cookies schon drin stehen, hab also auch zum test die setcookie zeile rausgenommen
Woran kann es liegen, dass das so nicht funktioniert?
PS.: ich weiß nicht genau, wo ich den thread hinpacken sollte, da bei allgemein keine webprogrammierung rein darf ist der jetzt hier!\n\n
<!--EDIT|Netspider|1076925920-->
perl -e "s;;Ronny Lindner;;m;(..).$;;$l=$1;s;n;;g;m;.{4}$;;$_=$l;$I=$&;m;^(.);;$_.='ts';$_.=$1;$_++;$_++;$_.=$I;print ucfirst;"