LINUX.ORG.RU
Форум — Development  

Perl post


0

0

Всех приветствую. Кому не сложно прошу помощи. Появилась необходимость добавлять 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&subname=ololo&rectype=A&data=10.0.0.1&zone_add=%C4%EE%E1%E0%E2%E8%F2%FC
★

Не кто не может показать работающий пример?

ClanMax ★
() автор топика
Ответ на: комментарий от val-amart

попробовал так 

#!/usr/bin/perl -w 
use HTTP::Request::Common;
POST 'regjet.ru/',
       Content_Type => 'form-data',
       Content      => [ domain_id  => '983',
                         subname => 'ololo',
                         rectype => 'A',
                         data   => '10.0.0.1',
                         zone_add   => 'C4%EE%E1%E0%E2%E8%F2%FC' ,
                       ]

Запись не добавилась, видимо надо как то добавить туда cookies для авторизации. Как это сделать?

ClanMax ★
() автор топика
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.
Development