Difference between revisions of "CAS"
(→Make few changes to AuthCAS.pm (if using mysql)) |
(→Make few changes to AuthCAS.pm (if using mysql)) |
||
Line 21: | Line 21: | ||
Most probably, you will use mysql, as eprints use it. Unfortunately AuthCAS.pm is coded with the "Pg" driver in hard, even if a variable ($DB_DRIVER) exists, it is not used. So you will have to edit your AuthCAS.pm file and change each "Pg" with "mysql". | Most probably, you will use mysql, as eprints use it. Unfortunately AuthCAS.pm is coded with the "Pg" driver in hard, even if a variable ($DB_DRIVER) exists, it is not used. So you will have to edit your AuthCAS.pm file and change each "Pg" with "mysql". | ||
+ | [image:toto.pg] | ||
===Create the database to store cookies=== | ===Create the database to store cookies=== |
Revision as of 14:25, 10 April 2006
This page explains how to use a CAS server to authenticate user in eprints.
Contents
Install a secure host
The first thing you'll have to do is to install a secure host. This page explains how to do that.
Apache::AuthCAS
This perl library allows you to easily communicate with a CAS sever.
Install the lib
This can be done with the command: perl -MCPAN -e 'install Apache::AuthCAS'
More infomartion are available on CPAN
Make few changes to AuthCAS.pm (if using mysql)
The Apache::AuthCAS module use a database to store cookies. You can use Postgres or MySQL, as you wish.
Most probably, you will use mysql, as eprints use it. Unfortunately AuthCAS.pm is coded with the "Pg" driver in hard, even if a variable ($DB_DRIVER) exists, it is not used. So you will have to edit your AuthCAS.pm file and change each "Pg" with "mysql". [image:toto.pg]
Create the database to store cookies
You should find this mysql schema in /root/.cpan/build/Apache-AuthCAS-0.4/schema.sql
-- schema that has been used with PostgreSQL and may need to be altered for -- another DBMS CREATE TABLE cas_sessions ( id varchar(32) not null primary key, last_accessed int8 not null, uid varchar(32) not null, pgtiou varchar(64) not null ); CREATE TABLE cas_pgtiou_to_pgt ( pgtiou varchar(64) not null primary key, pgt varchar(64) not null, created int8 not null ); --example PostgreSQL indeces --CREATE INDEX cas_sessions_id_index ON cas_sessions(id); --CREATE INDEX cas_pgtiou_to_pgt_pgtiou_index ON cas_pgtiou_to_pgt(pgtiou); --CREATE INDEX cas_sessions_last_accessed_index ON cas_sessions(last_accessed);
Configure your secure host
You must provide some information like the CAS host. You can provide it in your virtual host, or in AuthCAS.pm. Read the module page on CPAN to know more about it.
Also edit $EPRINTS_ROOT/archives/$ARCHIVE_ID/cfg/auto-secure.conf and make the following changes:
Remove lines:
AuthType "Basic" PerlAuthenHandler EPrints::Auth::authen PerlAuthzHandler EPrints::Auth::authz PerlSetVar EPrints_Security_Area User require valid-user
and add:
AuthType Apache::AuthCAS AuthName "CAS" PerlAuthenHandler Apache::AuthCAS->authenticate PerlSetVar CASProduction "1" require valid-user
Load the module
Finally, don't forget to load Apache::AuthCAS!
Eprints::Session edit
Now edit the $EPRINTS_PATH/perl_lib/EPrints/Session.pm. First add this line:
use CGI qw(:standard -nph);
Which enables you to use the raw_cookie fuction which returns variables stored in http cookie. Then go to the current_user function definition where you have to put the uid provided by AuthCAS module in $username. To do it, you just have to make a sql query which looks like that:
$sql="SELECT uid FROM cas_sessions WHERE id='$user_ticket'";
Where $user_ticket is the variable stored in the AuthCAS http cookie.
my $user_ticket=raw_cookie('APACHECAS');
Note that 'APACHECAS' is the default name for the AuthCAS cookie but you may have change it.
Here is a code that should work if you have installed your Apache::AuthCAS sql tables in the same database where you store your eprints tables:
sub current_user { my( $self ) = @_; my $user = undef; # If we've already done this once, no point # in doing it again. unless( defined $self->{currentuser} ) { my $username =""; my $user_ticket=""; if( defined $ENV{HTTP_CAS_FILTER_USER})#cookie not set yet { $username = $ENV{HTTP_CAS_FILTER_USER}; } else { $user_ticket=raw_cookie('APACHECAS'); if( defined $user_ticket) { my $sql = "SELECT uid FROM cas_sessions as M where id='$user_ticket'"; my $r = {}; my $sth = $self->{database}->prepare( $sql ); $self->{database}->execute( $sth, $sql ); my $uid=""; while( my @info = $sth->fetchrow_array ) { my @list = split(":",$info[0]); foreach( @list ) {$uid=$_;} } $sth->finish; $username = $uid; } else { $username = $ENV{'REMOTE_USER'}; } } if( defined $username && $username ne "" ) { $self->{currentuser} = EPrints::User::user_with_username( $self, $username ); } } return $self->{currentuser}; }
This code can be greatly improved, it was used for test, and is provided to give you an idea how to do. It should not be used on a product server.