#!/usr/bin/perl
use Lemonldap::NG::Portal::SharedConf;
my $self = Lemonldap::NG::Portal::SharedConf->new( {} );
unless ( $self->{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 $portal = $self->{portal};
$portal .= "index.pl" if ( $portal =~ /\/$/ );
my @cookies = ( $self->{cookieName} );
push @cookies, "$self->{cookieName}http"
if ( $self->{securedCookie} >= 2 );
my $cookieList = join "\n",
map { "" } @cookies;
my $attrList = join "\n",
map { "" }
$self->exportedAttr;
print <
$cookieList
$attrList
EOT