#!/usr/bin/perl use Lemonldap::NG::Portal::Main; my $self = Lemonldap::NG::Portal::Main->new( {} ); unless ( $self->conf->{soapConfigServer} or $self->conf->{soapSessionServer} ) { print STDERR "Lemonldap::NG Portal SOAP capability is disabled.\n"; exit; } my $portal = $self->conf->{portal}; $portal .= "index.fcgi" if ( $portal =~ /\/$/ ); my @cookies = ( $self->conf->{cookieName} ); push @cookies, "$self->conf->{cookieName}http" if ( $self->conf->{securedCookie} >= 2 ); my $cookieList = join "\n", map { "" } @cookies; my $attrList = join "\n", map { "" } $self->conf->{exportedAttr}; print < $cookieList $attrList EOT