Perl CGI script

#!/usr/bin/perl -w use Ucam::WebAuth::CGIAA; my $aa = Ucam::WebAuth::CGIAA->new (cookie_key=>'eb78ba43b0222f28498'); my ($complete, $headers) = $aa->authenticate; print $headers if $headers; exit unless $complete; my $userid = $aa->principal if $aa->success;

Additionally requires the Ucam::WebAuth::Ticket module and a number of other modules from CPAN
Must be called BEFORE other output is created

#!/usr/bin/perl -w use Ucam::WebAuth::CGIAA; my $aa = Ucam::WebAuth::CGIAA->new (cookie_key=>'eb78ba43b0222f28498'); my ($complete, $headers) = $aa->authenticate; print $headers if $headers; exit unless $complete; my $userid = $aa->principal if $aa->success;