URL: https://www.opennet.ru/cgi-bin/openforum/vsluhboard.cgi
Форум: vsluhforumID9
Нить номер: 8577
[ Назад ]

Исходное сообщение
"perl post"

Отправлено anonymous , 01-Янв-10 14:18 
&subnameВсех приветствую. Кому не сложно прошу помощи. Появилась необходимость добавлять dns зоны на серверах reg.ru (через сервис regjet.ru) Может кто поможет как сделать запрос?Вот такой запрос образуется при добавлении записи в firefox

Host: regjet.ru
User-Agent: Mozilla/5.0 (X11; U; Linux x86_64; en-US; rv:1.9.1.6) Gecko/20091223 Gentoo Firefox/3.5.6
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Accept-Language: ru,en-us;q=0.7,en;q=0.3
Accept-Encoding: gzip,deflate
Accept-Charset: windows-1251,utf-8;q=0.7,*;q=0.7
Keep-Alive: 300
Connection: keep-alive
Referer: http://regjet.ru/reg/zone_control/index.php?domain_id=983
Cookie: PHPSESSID=jfhfe62abc595032b6ec03cfc1f28537
Content-Type: application/x-www-form-urlencoded
Content-Length: 84

domain_id=983=ololo&rectype=A&data=10.0.0.1&zone_add=дНАЮБХРЭ

Проблема в том что без cookies он не добавляет запись, как быть?

Сам скрипт получился такой

#!/usr/bin/perl -w  
use HTTP::Request::Common;
POST 'regjet.ru/reg/zone_control/',
       Content_Type => 'form-data',
       Content      => [ domain_id  => '983',
                         subname => 'ololo',
                         rectype => 'A',
                         data   => '10.0.0.1',
                         zone_add   => 'C4НАЮБХРЭ' ,
                       ]


Содержание

Сообщения в этом обсуждении
"perl post"
Отправлено L0n3R4ng3r , 01-Янв-10 16:19 
>[оверквотинг удален]
>POST 'regjet.ru/reg/zone_control/',
>       Content_Type => 'form-data',
>       Content      => [ domain_id  => '983',
>                         subname => 'ololo',
>                         rectype => 'A',
>                         data   => '10.0.0.1',
>                         zone_add   => 'C4НАЮБХРЭ' ,
>            
>          
>]

а почему не использовать куки ?
my $ua = LWP::UserAgent->new;
$ua->cookie_jar(HTTP::Cookies->new(file => "/tmp/cookies.txt", autosave => 1));