Почему я не могу подключиться к своему серверу CAS с помощью Perl AuthCAS? - PullRequest
Новая
       43

Почему я не могу подключиться к своему серверу CAS с помощью Perl AuthCAS?

2 голосов
/ 26 августа 2008

Я пытаюсь использовать существующий сервер CAS для аутентификации входа в систему для веб-скрипта Perl CGI и использую модуль AuthCAS Perl (v 1.3.1). Я могу подключиться к серверу CAS, чтобы получить билет службы, но когда я пытаюсь подключиться, чтобы проверить билет, мой сценарий возвращает следующую ошибку из модуля IO :: Socket :: SSL : 

 500 Can't connect to [CAS Server]:443 (Bad hostname '[CAS Server]') 
 ([CAS Server] substituted for real server name)

Симптомы / тесты:

  1. Если я введу сгенерированный URL-адрес для аутентификации в адресную строку веб-браузера, он будет прекрасно отображаться с ожидаемым фрагментом XML. Так что это не плохое имя хоста.
  2. Если я сгенерирую сценарий, не используя модуль AuthCAS, но используя модуль IO :: Socket :: SSL напрямую, чтобы запросить сервер CAS для проверки сгенерированного билета службы, сценарий Perl будет работать нормально из командной строки, но не в браузер.
  3. Если я добавлю модуль AuthCAS в скрипт в пункте 2, скрипт больше не будет работать в командной строке и все равно не будет работать в браузере.

Вот простой скрипт, который выдает ошибку: 

#!/usr/bin/perl
use strict;
use warnings;
use CGI;
use AuthCAS;
use CGI::Carp qw( fatalsToBrowser );

my $id = $ENV{QUERY_STRING};
my $q = new CGI;
my $target = "http://localhost/cgi-bin/testCAS.cgi";

my $cas = new AuthCAS(casUrl => 'https://cas_server/cas');

if ($id eq ""){
    my $login_url = $cas->getServerLoginURL($target);
    printf "Location: $login_url\n\n";
    exit 0;
} else {
    print $q->header();
    print "CAS TEST<br>\n";

    ## When coming back from the CAS server a ticket is provided in the QUERY_STRING
    print "QUERY_STRING = " . $id . "</br>\n";
    ## $ST should contain the received Service Ticket
    my $ST = $q->param('ticket');
    my $user = $cas->validateST($target, $ST);  #### This is what fails

    printf "Error: %s\n", &AuthCAS::get_errors() unless (defined $user);
}

Есть идеи, где может быть конфликт?

Ошибка исходит из строки прямо над фрагментом Cebjyre, а именно 

$ssl_socket = new IO::Socket::SSL(%ssl_options);

а именно создание сокета. Все входные параметры верны. Я отредактировал модуль, чтобы вставить отладочные операторы и распечатать все параметры непосредственно перед этим вызовом, и все они в порядке. Похоже, мне придется глубже погрузиться в модуль IO :: Socket :: SSL.

Ответы [ 2 ]

3 голосов
/ 27 августа 2008

Как обычно, когда я отправляю подобные вопросы, я обнаружил проблему. Оказывается, модуль Crypt :: SSLeay не был установлен или, по крайней мере, не обновлен. Конечно, сообщения об ошибках не дали мне никаких подсказок. Обновление и все проблемы исчезают, и теперь все работает нормально.

0 голосов
/ 26 августа 2008

Ну, из источника модуля похоже, что IO :: Ошибка Socket исходит от get_https2 

[...]
unless ($ssl_socket) {
    $errors = sprintf "error %s unable to connect https://%s:%s/\n",&IO::Socket::SSL::errstr,$host,$port;
    return undef;
}
[...]

, который вызывается callCAS, который вызывается validateST.

Один из вариантов - временно отредактировать файл модуля, чтобы добавить некоторые отладочные операторы, если вы можете, но если бы мне пришлось угадывать, я бы сказал, что предоставляемый вами casUrl не соответствует правилам _parse_url - возможно у вас есть три слеша после https?

...