Perl Mechanize — как отключить Kerberose?

У меня есть ситуация, когда мне нужно проверить определенные условия внутреннего веб-приложения.

  1. Сначала мне нужно проверить, загружается ли приложение или нет. -- Для этого я использовал модуль Perl Mechanize и метод get для загрузки URL. Проблема, с которой я столкнулся, заключалась в том, что она показывала 401 неавторизованный доступ, и если я отправляю имя пользователя и пароль в качестве параметров для функции «учетные данные», все работает нормально.

Я просто хочу проверить, загружается ли веб-страница или нет без ввода учетных данных? Печать сообщения, если оно загружается, выглядит нормально.


perl www-mechanize
person Fla-Hyd    schedule 01.07.2014    source источник

Ответы (1)


arrow_upward
3
arrow_downward

Вы можете сделать прямой запрос с помощью LWP и проверить код возврата. Если это 401, вы знаете, что сервер отвечал. Если это также означает, что ваше приложение работает, зависит от того, кто отвечает за проверку авторизации.

use LWP::UserAgent;
my $resp = LWP::UserAgent->new->get('http://example.com');
if ($resp->code == 401) ...
person Steffen Ullrich    schedule 01.07.2014
comment
насколько я понимаю, вы просите меня выполнить регулярное выражение для 401? - person Fla-Hyd; 01.07.2014
comment
OP использует WWW::Mechanize, и точно такую ​​же проверку можно выполнить с помощью WWW::Mechanize (являющегося подклассом LWP::UserAgent). - person ikegami; 01.07.2014