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