#!/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