Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Общие вопросы > Mechanize и доступ по нестандартному порту

Автор: FishHunter 2.3.2012, 18:21

Приветствую,

Народ подскажите в чем трабла, неужели сабжевый модуль не может работать из-за такой мелочи? Вообщем требуется мне написать скриптик, который делает некие манипуляции в cpanel. Но я даже не могу получить обычным getом страницу авторизации. Как правило данная страница располагается по адресу типа: http://domain.com:2082/?login_theme=cpanel ,т.е. порт не стандартный. Так вот, простой get дает следующую ошибку: Error GETing http://domain.com:2082/?login_theme=cpanel: Access Denied at temp.pl line 24

Код


my $mech = WWW::Mechanize->new();
    $mech->cookie_jar(HTTP::Cookies->new());
    $mech->get($url); # это строка 24
    $mech->success or die "Can't get the search page";

Что делать? smile

Уж больно неохота юзать lwp, мехом все очень просто и быстро было бы

Автор: Pfailed 2.3.2012, 20:57

Там HTTP авторизация наверное. Вот он и ругается, что Access Denied

Автор: FishHunter 2.3.2012, 21:05

нет, там просто форма для ввода логина и пароля, типа этого http://x3demob.cpx3demo.com:2082/logout/?locale=en

Автор: Pfailed 2.3.2012, 21:19

У меня как раз http авторизацию запрашивает
И вообще вы не пробовали API cPanel использовать? На CPAN есть какие-то реализации.

Автор: FishHunter 5.3.2012, 17:29

посмотрел, куча вопрос. Пожалуй лучше другой топик сделать