The OpenNET Project / Index page

[ новости /+++ | форум | wiki | теги | ]

форумы  помощь  поиск  регистрация  майллист  вход/выход  слежка  RSS
"perl post"
Вариант для распечатки  
Пред. тема | След. тема 
Форумы Программирование под UNIX (Public)
Изначальное сообщение [ Отслеживать ]

"perl post"  +/
Сообщение от anonymous (??) on 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НАЮБХРЭ' ,
                       ]

Высказать мнение | Ответить | Правка | Cообщить модератору

Оглавление

  • perl post, L0n3R4ng3r, 16:19 , 01-Янв-10, (1)  

Сообщения по теме [Сортировка по времени | RSS]


1. "perl post"  +/
Сообщение от L0n3R4ng3r (ok) on 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));

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

Архив | Удалить

Индекс форумов | Темы | Пред. тема | След. тема




Спонсоры:
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2022 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру