Как задать реалм в урл?

[vladsu]

Что-то типа

http://user:pass:realm@127.0.0.1:8080/path

Это конечно к перл не относится, но все же, т.к. код

Код: [Выделить]


use strict;
use LWP;  
my $browser = LWP::UserAgent->new;$browser->credentials(      \'127.0.0.1:8889\',    \'Realm\',    \'admin\' => \'admin\'  );  

my $url
=   \'http://127.0.0.1:8889/admin/security/processNewUser.jsp?currentEditRealm=Realm&user=v&fullName=v&description=v&email=v&password=v&confirmPassword=v&accountDisabled=ON&passwordLife=expire&expireTime=3&enableBlank=minValue&minLength=1\';  

my $response = $browser->get($url);  die "Error: ", $response->header(\'WWW-Authenticate\') ||     \'Error accessing\',    
"\\n ", $response->status_line, "\\n at $url\\n Aborting"   unless $response->is_success;

работать не хочет, ругается 401, кто имеет примеры использования ЛВП с авторизацией не сочтите за труд, поделитесь.

Тут смотрел
http://www.faqs.org/rfcs/rfc1738.html
может не туда смотрел?

Спасибо заранее.

[NeoNox]

только что у себя проверил - чудесно работает.
error_log и access_log в студию.

[vladsu]

Если бы я знал где они
продукт 3 фирмы, который использует Том Кэт, и в тех логах, что я имею, чистота.
Вот что мне дает запуск данного скрипта:

Код: [Выделить]


Error: Basic realm="Realm"
 401 Unauthorized
 at [url]http://10.0.1.139:8889/admin/security/processNewUser.jsp?currentEditRealm=Realm&user=v&fullName=v&description=v&email=v&password=v&confirmPassword=v&accountDisabled=ON&passwordLife=expire&expireTime=3&enableBlank=minValue&minLength=1[/url]
 Aborting at test1.pl line 20.


Когда же я вставляю данный урл в ИЕ после ентер получаю окно авторизации ввожу и все отрабатывает как задуманно.

А Вы уверены, что используете с реалм?

[NeoNox]

vladsu
[OFF]лучше на ты, ок?[/OFF]

vladsu:
А Вы уверены, что используете с реалм?

Угу. Этот код у тебя заработает?

#!/usr/bin/perl -w
use strict;
use LWP;

    my $browser = LWP::UserAgent->new;
    $browser->credentials(  # add this to our $browser \'s "key ring"
        \'www.unicode.org:80\',
        \'Unicode-MailList-Archives\',
        \'unicode-ml\' => \'unicode\'
        );

my $url = \'http://www.unicode.org/mail-arch/unicode-ml/y2002-m08/0067.html\';

my $response = $browser->get($url);

print $response->content;

[vladsu]

Да этот работает, проверял, целый день только этим и занимаюсь

NeoNox:
лучше на ты, ок?

Запросто.

[NeoNox]

Кстати, что за версия LWP установлена?
Тестировалось на 5.79

[vladsu]

Тот что идет с

Код: [Выделить]


This is perl, v5.8.4 built for MSWin32-x86-multi-thread
Binary build 810 provided by ActiveState Corp. [url]http://www.ActiveState.com[/url]

5.79

[NeoNox]

vladsu:
Да этот работает

vladsu тогда нужны логи позарез - иначе это будет с пушки по воробьям. Подключить LWP::Debug будет тоже неплохой идеей. use LWP::Debug qw(+ -conns);

[vladsu]

ok. Спасибо, попробую, логи я нашел, но в них пусто, видимо из соображений экономии места, даную ошибку в них не кидают, может отключили.

[Phoinix]

vladsu

use CGI::Carp qw(fatalsToBrowser warningsToBrowser);

Может это поможет???

[NeoNox]

Phoinix проблема отследить ошибку не с клиентской стороны а со стороны Том Кэта - он выдает 401.

[Phoinix]

NeoNox

NeoNox:
отследить ошибку не с клиентской стороны а со стороны Том Кэта

Да... не вчитался...

Тут, тогда я не помощник, Том Кэта нет... но с cPanel работаю...

Проблема основная возникла только с реалмом...

[vladsu]

Всем спасибо!

Помогли lynx и lwp-request, натолкнули где искать проблему.
Как говорится сам лопух, нужно было еще и куки использовать.

Так что вопрос снят.