On Wed, 4 Sep 2002, T&C Winquist wrote:
> I'm trying to use HTTP::Cookies and LWP::UserAgent to fake a real user HTTP
> request. When executing this script from a browser, I want to set the
> cookies that the website normally would and load the page that the website
> normally would also. I can't get the cookie part to work. I'm able to send
> a 'fake' referer, but I'm not able to get the cookie information. Could
> someone take a look at my script and tell me what's wrong? I'm sure it's
> all messed up, but I'm so frustrated with it that I don't know what to do.
> The examples I found in CPAN are terrible.
>
>
> My script:
>
> #!c:\perl -w
>
> use strict;
> use CGI::Carp qw(fatalsToBrowser);
>
> use HTTP::Request::Common qw(GET);
> use HTTP::Cookies;
> use LWP::UserAgent;
>
> my $cookieFile = "lwpcookies.txt";
> my $ua = new LWP::UserAgent;
>
> $ua->agent('Mozilla/4.0 (compatible; MSIE 6.0; Windows 98; DigExt)');
> my $cookie_jar = HTTP::Cookies->new( File => "$cookieFile", AutoSave =>
> 1, );
>
> # the test script we are GETting prints out the referer and query string and
> sets a cookie
> my $req = GET 'http://www.globalnamespace.com/sample/test.pl'; #this is my
> own test script
> $req->push_header(REFERER => 'http://www.somesite.com/');
> my $response = $ua->request($req)->as_string;
> $cookie_jar->extract_cookies($response);
>
> #print "Content-type: text/html\n\n";
>
> print $response , "<br>\n";
>
> exit;
>
>
>
> Here is my error I'm getting when running the script:
>
> Software error:
> Can't locate object method "_header" via package "HTTP/1.0 200 OK
> Date: Wed, 04 Sep 2002 15:58:18 GMT
> Server: Microsoft-IIS/5.0
> Content-Type: text/html
> Client-Date: Wed, 04 Sep 2002 15:58:18 GMT
> Client-Peer: xx.xx.xxx.xxx:80
> Set-Cookie: mycookie=set; domain=.globalnamespace.com; path=/;
>
> referer = http://www.somesite.com/<br>
> query string = <br>
>
> " (perhaps you forgot to load "HTTP/1.0 200 OK
> Date: Wed, 04 Sep 2002 15:58:18 GMT
> Server: Microsoft-IIS/5.0
> Content-Type: text/html
> Client-Date: Wed, 04 Sep 2002 15:58:18 GMT
> Client-Peer: xx.xx.xxx.xxx:80
> Set-Cookie: mycookie=set; domain=.globalnamespace.com; path=/;
>
> referer = http://www.somesite.com/<br>
> query string = <br>
>
> "?) at C:/Perl/site/lib/HTTP/Cookies.pm line 244.
>
Based on my reading of the HTTP/Cookies.pm module,
$cookie_jar->extract_cookies is supposed to be passed
the response object not the response->as_string.
**** [EMAIL PROTECTED] <Carl Jolley>
**** All opinions are my own and not necessarily those of my employer ****
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
