Forum Webscript.Ru

Программирование => Perl => Тема начата: vladsu от 07 Декабря 2004, 19:52:01

Название: Как задать реалм в урл?
Отправлено: vladsu от 07 Декабря 2004, 19:52:01

Что-то типа

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 от 07 Декабря 2004, 19:57:41

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

Название: Как задать реалм в урл?
Отправлено: vladsu от 07 Декабря 2004, 20:16:14

Если бы я знал где они :(
продукт 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 от 07 Декабря 2004, 20:21:11

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 от 07 Декабря 2004, 20:25:16

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

Цитировать

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

Запросто.

Название: Как задать реалм в урл?
Отправлено: NeoNox от 07 Декабря 2004, 20:28:49

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

Название: Как задать реалм в урл?
Отправлено: vladsu от 07 Декабря 2004, 20:31:33

Тот что идет с

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


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 от 07 Декабря 2004, 20:32:53

Цитировать

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

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

Название: Как задать реалм в урл?
Отправлено: vladsu от 07 Декабря 2004, 20:36:10

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

Название: Как задать реалм в урл?
Отправлено: Phoinix от 08 Декабря 2004, 15:07:42

vladsu

use CGI::Carp qw(fatalsToBrowser warningsToBrowser);

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

Название: Как задать реалм в урл?
Отправлено: NeoNox от 08 Декабря 2004, 15:10:25

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

Название: Как задать реалм в урл?
Отправлено: Phoinix от 08 Декабря 2004, 16:05:46

NeoNox

Цитировать

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

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

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

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

Название: Как задать реалм в урл?
Отправлено: vladsu от 08 Декабря 2004, 16:49:21

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

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

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