Login
Как подменить браузер?
1057 просмотров
Перейти к просмотру всей ветки
in Antwort miltorg 07.03.11 14:06, Zuletzt geändert 07.03.11 16:40 (voxel3d)
В ответ на:
1. Мой запрос правильный.
2. На него приходит ответ 302 устанавливаются куки и нужно перенаправить запрос на Location=http://www.b....com/skysales/FRSelect.aspx
1. Мой запрос правильный.
2. На него приходит ответ 302 устанавливаются куки и нужно перенаправить запрос на Location=http://www.b....com/skysales/FRSelect.aspx
Да, именно так.
Вот посмотри, урлы порезал, объяснение постом ниже и это ещё не готовое решение, а только шаг к нему:
#!/usr/bin/perl
use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Cookies;
my $ua = new LWP::UserAgent;
$ua->agent('Mozilla/5.0 (Windows NT 5.1; rv:2.0b12) Gecko/20100101 Firefox/4.0b12');
my $req1 = new HTTP::Request 'GET',' _cut_ Search.aspx';
my $res1 = $ua->request($req1);
$res1->header('Set-Cookie') =~ m/ASP.NET_SessionId=([^;]*)/gi;
my $id = $1;
my $req2 = new HTTP::Request 'POST',' _cut_ Search.aspx';
$req2->header('Content-Type' => 'application/x-www-form-urlencoded',
'Cookie' => 'ASP.NET_SessionId=$id; acceptTerms=; xtvrn=$384235$;');
$req2->content('__EVENTTARGET=&__EVENTARGUMENT=&__VIEWSTATE= ... _cut_ ...');
my $res2 = $ua->request($req2);
print $res2->as_string;
my $req3 = new HTTP::Request 'GET',' _cut_ FRSelect.aspx';
$req3->header('Cookie' => 'ASP.NET_SessionId=$id; acceptTerms=; xtvrn=$384235$;');
my $res3 = $ua->request($req3);
print $res3->as_string;
exit;
Dropbox - средство синхронизации и бэкапа файлов.