dani/lemonldap-ng
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Rewrite WSDL (#595)

Browse Source
This commit is contained in:
Xavier Guimard 2017-01-16 19:59:22 +00:00
parent dc342e45b7
commit 8f647e559b
1 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lemonldap-ng-portal/example/scripts/buildPortalWSDL → lemonldap-ng-portal/scripts/buildPortalWSDL
View File

@ -1,27 +1,26 @@
#!/usr/bin/perl
use Lemonldap::NG::Portal::SharedConf;
use Lemonldap::NG::Portal::Main;
my $self = Lemonldap::NG::Portal::SharedConf->new( {} );
my $self = Lemonldap::NG::Portal::Main->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";
unless ( $self->conf->{soapConfigServer} or $self->conf->{soapSessionServer} ) {
print STDERR "Lemonldap::NG Portal SOAP capability is disabled.\n";
exit;
}
my $portal = $self->{portal};
my $portal = $self->conf->{portal};
$portal .= "index.pl" if ( $portal =~ /\/$/ );
my @cookies = ( $self->{cookieName} );
push @cookies, "$self->{cookieName}http"
if ( $self->{securedCookie} >= 2 );
my @cookies = ( $self->conf->{cookieName} );
push @cookies, "$self->conf->{cookieName}http"
if ( $self->conf->{securedCookie} >= 2 );
my $cookieList = join "\n",
map { "<element name='$_' type='xsd:string'></element>" } @cookies;
my $attrList = join "\n",
map { "<element name='$_' type='xsd:string' nillable='true'></element>" }
$self->exportedAttr;
$self->conf->{exportedAttr};
print <<EOT;
<?xml version="1.0" encoding="UTF-8"?>