#!/usr/bin/perl
use Lemonldap::NG::Portal::SharedConf;
my $portal = Lemonldap::NG::Portal::SharedConf->new( {} );
unless ( $portal->{Soap} ) {
print STDERR "Lemonldap::NG Portal SOAP capability is disabled.\n"
. "Set 'Soap' option to 1 in manager or lemonldap-ng.ini to enable it.\n";
exit;
}
my @cookies = ( $portal->{cookieName} );
push @cookies, "$portal->{cookieName}.http"
if ( $portal->{securedCookie} >= 2 );
my $cookieList = join "\n",
map { "" } @cookies;
my $attrList = join "\n",
map { "" }
$portal->exportedAttr;
print <
$cookieList
$attrList
EOT