Показать сообщение отдельно

  #673  
Старый 27.07.2008, 23:57
$p01nt
Участник форума
Регистрация: 19.02.2008
Сообщений: 186
С нами: 9591697

Репутация: 96
По умолчанию

текс...опять я вообщем такая ситуация,я с помощью пост запроса логинюсь на сайте,и потом пытаюсь получить страницу которую можно просматривать только авторизированым пользователям(с помощью гет) но мне выдается страница входа.Как поправить?

#! /usr/bin/perl

use strict;
use warnings;
use LWP;
#use LWP::Simple;


################################################Lo gin on site#
my $login='xxx@gmail.com';
my $pass='xxx';

my $url='http://www.xxx.com/?action=login';
my $browser=LWP::UserAgent->new;


my $response=$browser->post($url,
[ 'screenname'=>$login,
'password'=>$pass,
'submit.x'=>'51',
'submit.y'=>'2',
'continue_url='=>'',
]
);

my $sendurl='http://www.xxx.com/?setselected=10423501&setlocation=messages&setarea =new_message&savelast=1';

my @xx=get $sendurl;
open(XX,'>1.htm');
print XX @xx;
 
Ответить с цитированием