Perl (nu)cas client の使い方.

$Id: Document.txt,v 1.1 2005-12-04 19:00:45+09 naito Exp $

1.   インストールが必要なもの

     modules.tar.gz 内の CAS::cas2.pm, XML::simple.pm
     その他に Crypt::SSLeay, LWP::UserAgent, LWP::Simple が必要.

2.   サンプルソース

     index.html から testcas_post.cgi ( testcas_post.pl への symbolic link) または
     testcas_get.cgi (testcas_get.pl への symbolic link) を呼び出します.

     実際の呼び出し部分は以下の通りです.

----------------------------------------------------------------------------------------------------
############ CAS server の設定
%CAS = (
	"SERVER" => "www.math.nagoya-u.ac.jp/cas/", 
	"LOGIN_SSL" => 1, 
	"VALIDATE_SSL" => 1, 
	"GOBACK_SSL" => 1, 
	"CLIENT_PROTOCOL" => "https", 
	); 
######### Post Method
######### Form Data の設定
#  read(STDIN, $form_info, $ENV{"CONTENT_LENGTH"}) ;
#  @form_data = split /\&/, $form_info ;
#  $form{"CASREQUESTMETHOD"} = "POST" ;
######### Get Method
@form_data = split /&/, $ENV{"QUERY_STRING"} ;
$form{"CASREQUESTMETHOD"} = "GET" ;
#########
while(@form_data) {
    local ($f_name, $command) = split /=/, $form_data[0] ;
    $form{$f_name} = &normalize($command) ;
    shift @form_data ;
}
######### この HTML ファイルの encoding
$form{"ENCODING"} = "EUC-JP" ;
######### 実際の呼び出し
%result = &site_local::CAS::cas2::cas_client(\%ENV, \%CAS, \%form) ;
----------------------------------------------------------------------------------------------------

以上.