Produits Entr'ouvert » Lasso

use 5.14.2;

use Lasso;

my $server = Lasso::Server->new("sp-metadata.xml",     # Liberty metadata file for the service provider   

                                "sp-private.pem",      # service provider private key; used to sign documents

                                undef,                 #

                                "sp-cert.pem");        # service provider certificate; sent inside signed documents

$server->add_provider(Lasso::Constants::PROVIDER_ROLE_IDP,

                     "idp-metadata.xml",               # Liberty metadata file for the identity provider 

                     "idp-public.pem",                 # identity provider public key; used to verify signature in documents sent by the identity provider 

                     "idp-cacert.pem");                # certificate of the certification authority used by the identity provider

my $login = Lasso::Login->new($server);

$login->init_authn_request('http://www.idp.com/123', Lasso::Constants::HTTP_METHOD_REDIRECT );

$login->build_authn_request_msg();