|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Vladimir Kolosov 2:5061/109.100 03 Feb 2002 18:42:31
To : All
Subject : LWP and cookies
--------------------------------------------------------------------------------
Hе могу отловить куки методом extract_cookies с сервера sms.ac (этот же код
показывает куки с mail.yahoo.com без проблем). Причем sms.ac куки отдает - это
видно из полученного ответа сервера (нижняя цитата). В чем может быть проблема?
=== Cut ===
use LWP::UserAgent;
use CGI qw(header -no_debug);
use HTTP::Cookies;
my $cookie_file = 'cookies.txt';
my $URL = 'http://sms.ac/login.asp';
$ua = new LWP::UserAgent;
$req = new HTTP::Request GET => $URL;
$res = $ua->request($req);
my $cookie_jar = new HTTP::Cookies;
$cookie_jar->extract_cookies($res);
print $cookie_jar->as_string(), "\n\n";
$cookie_jar->save( $cookie_file );
=== Cut ===
=== Cut ===
HTTP/1.1 200 OK
Cache-Control: private
Cache-Control: no-cache
Connection: Keep-Alive
Date: Sat, 02 Feb 2002 07:18:34 GMT
Pragma: no-cache
Server: Microsoft-IIS/5.0
Content-Length: 8526
Content-Type: text/html
Content-Type: text/html; charset=iso-8859-1
Expires: Mon, 06 Jan 1990 00:00:01 GMT
Client-Date: Sat, 02 Feb 2002 07:17:07 GMT
Client-Peer: 168.143.117.4:80
Set-Cookie: cookieteste=existscookie; path=/
Set-Cookie: ASPSESSIONIDGGQQGJTU=BIELFIKDNPKENAHDPEKDCNGF; path=/
Title: SMS.ac - Login
<html>
<head>
<title>SMS.ac - Login</title>
<meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>
<META HTTP-EQUIV='Pragma' CONTENT='no-cache'>
<META HTTP-EQUIV='Cache-Control' CONTENT='no-cache'>
<META HTTP-EQUIV='Expires' CONTENT='Mon, 06 Jan 1990 00:00:01 GMT'>
=== Cut ===
Best Regards,
Vladimir
---
* Origin: ... (2:5061/109.100)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
| Тема: |
Автор: |
Дата: |
|
LWP and cookies |
Vladimir Kolosov |
03 Feb 2002 18:42:31 |
 LWP and cookies |
Vladimir Kolosov |
04 Feb 2002 10:30:56 |
|
|
