IssuerOpenID skeleton

modules/lemonldap-ng-portal/MANIFEST

@@ -111,6 +111,7 @@ lib/Lemonldap/NG/Portal/AuthSAML.pm
 lib/Lemonldap/NG/Portal/AuthSSL.pm
 lib/Lemonldap/NG/Portal/CDA.pm
 lib/Lemonldap/NG/Portal/IssuerDBNull.pm
+lib/Lemonldap/NG/Portal/IssuerDBOpenID.pm
 lib/Lemonldap/NG/Portal/IssuerDBSAML.pm
 lib/Lemonldap/NG/Portal/MailReset.pm
 lib/Lemonldap/NG/Portal/Menu.pm

modules/lemonldap-ng-portal/META.yml

@@ -34,3 +34,4 @@ recommends:
     Email::Date::Format:  0
     MIME::Lite:           0
     Net::OpenID::Consumer:  0
+    Net::OpenID::Server:  0

modules/lemonldap-ng-portal/Makefile.PL

@@ -10,6 +10,7 @@ WriteMakefile(
         'recommends' => {
             'Email::Date::Format'   => 0,
             'Net::OpenID::Consumer' => 0,
+            'Net::OpenID::Server'   => 0,
             'MIME::Lite'            => 0,
         },
     },

modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/AuthOpenID.pm

@@ -181,9 +181,7 @@ L<http://forge.objectweb.org/project/showfiles.php?group_id=274>
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2007 by Thomas Chemineau,
-E<lt>thomas.chemineau@linagora.comE<gt> and
-Xavier Guimard E<lt>x.guimard@free.frE<gt>
+Copyright (C) 2010 Xavier Guimard E<lt>x.guimard@free.frE<gt>
 
 This library is free software; you can redistribute it and/or modify
 it under the same terms as Perl itself, either Perl version 5.8.4 or,

modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/IssuerDBOpenID.pm

@@ -0,0 +1,128 @@
+## @file
+# OpenID Issuer file
+
+## @class
+# OpenID Issuer class
+package Lemonldap::NG::Portal::IssuerDBOpenID;
+
+use strict;
+use Lemonldap::NG::Portal::Simple;
+
+our $VERSION = '0.01';
+
+## @method void issuerDBInit()
+# Do nothing
+# @return Lemonldap::NG::Portal error code
+sub issuerDBInit {
+    my $self = shift;
+    eval { require Net::OpenID::Server };
+    $self->abort( 'Unable to load Net::OpenID::Server', $@ ) if ($@);
+    return PE_OK;
+}
+
+## @apmethod int issuerForUnAuthUser()
+# Do nothing
+# @return Lemonldap::NG::Portal error code
+sub issuerForUnAuthUser {
+    my $self = shift;
+    if ( $ENV{PATH_INFO} =~ /^\/openid/ ) {
+
+        # TODO: store GET and POST params somewhere...
+    }
+    PE_OK;
+}
+
+## @apmethod int issuerForAuthUser()
+# Do nothing
+# @return Lemonldap::NG::Portal error code
+sub issuerForAuthUser {
+    my $self   = shift;
+    my $portal = $self->{portal};
+    $portal .= 'index.pl' if ( $portal =~ /\/$/ );
+
+    #TODO: Catch openIdSetup
+    my $server = Net::OpenID::Server->new(
+        post_args    => $self->params(),
+        get_args     => $self->params(),
+        endpoint_url => $portal . "/openid/",
+        setup_url    => $self->{portal},
+        get_user     => sub {
+            return $self->{sessionInfo}
+              ->{ $self->{OpenIdAttr} || $self->{whatToTrace} };
+        },
+        get_identity => sub {
+            my ( $u, $identity ) = @_;
+            return $identity unless $u;
+            return $portal . "/openid/" . $u->username;
+        },
+        is_identity => sub {
+            my ( $u, $identity ) = @_;
+            return $u && $u->username eq ( split '/', $identity )[-1];
+        },
+        is_trusted => sub {
+            my ( $u, $trust_root, $is_identity ) = @_;
+            return $is_identity;
+        }
+    );
+
+    my ( $type, $data ) = $server->handle_page();
+
+    if ( $type eq 'redirect' ) {
+        print $self->redirect($data);
+        $self->quit();
+    }
+    elsif ( $type eq 'setup' ) {
+
+        # TODO: what is in $data;
+        print $self->redirect( $portal
+              . "?openIdSetup=1&trust_root=$data->{trust_root}&return_to=$data->{return_to}"
+        );
+        print $self->quit();
+    }
+    else {
+        print $self->header($type);
+        print $data;
+        $self->quit();
+    }
+
+    PE_OK;
+}
+
+## @apmethod int issuerLogout()
+# TODO
+# @return Lemonldap::NG::Portal error code
+sub issuerLogout {
+    PE_OK;
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+=encoding utf8
+
+Lemonldap::NG::Portal::IssuerDBOpenID - OpenID IssuerDB for Lemonldap::NG
+
+=head1 DESCRIPTION
+
+OpenID Issuer implementation in LemonLDAP::NG
+
+=head1 SEE ALSO
+
+L<Lemonldap::NG::Portal>
+
+=head1 AUTHOR
+
+Xavier Guimard, E<lt>x.guimard@free.frE<gt>
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright (C) 2010 by Xavier Guimard
+
+This library is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself, either Perl version 5.10.0 or,
+at your option, any later version of Perl 5 you may have available.
+
+=cut