Примечание:
Помогите написать скрипт на перле который авторизует меня автоматически.В api сайта написано $user = $login . md5($password); по этому примеру выходит что логин не шифруется мд5? не получается войти таким образом запрос вот такой делаю : "http://www.site.ru/user/authorization?action=authorization_verify HTTP/1.1 ".$user. Должно быть ведь так www.site.ru/user_login=$login&user_password=$pass и так не получается. Как должен логин и пароль разделяться base64 тоже не подходит, запутался. Вот что сделал:
use LWP::UserAgent;
use LWP::Simple;
use HTTP::Response;
use MIME::Base64;
use Digest::MD5;
use Digest::MD5 qw(md5_hex);
$login='user';
$password='pass'
# delete old saving file
$oldfile="c:/saveData.html";
#unlink($oldfile) or die "can't delete $oldfile \n";
print "Its delete file is ok...\n";
my $ua = LWP::UserAgent->new(max_size => 100100,agent => 'Mozila v 1.0', timeout => 60, );
$user=md5_hex($login)+'&';
$pass=md5_hex($password)+'&';
$id=225964;
$action="status".($id);
print $user;
$url="http://www.neotext.ru";
$zapros="http://www.neotext.ru/user/authorization?action=authorization_verify HTTP/1.1 ".$user.$pass.$action;
print $zapros;
my $request=HTTP::Request->new(POST=>$url);
$request->content_type('application/x-www-form-urlencoded');
$request->content($zapros);
my $response=$ua->request($request);
# push @{$ua->requests_redirectable},'POST'; # переход по редиректу
# $ua->redirect_ok($request);
# получаем ответ
print "Content-type: text/html\n\n";
open ($save,">>/saveData.html");
print $save $response->content;
#Полный ответ с заголовком Header
#print $response->as_string
print 'Save is ok...';
Примечание:
Да уже сам решил задачу.
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.