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

make tidy

Browse Source
This commit is contained in:
Xavier Guimard 2010-09-29 06:28:15 +00:00
parent b48232068e
commit 7db3b688fa
6 changed files with 21 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
modules/lemonldap-ng-handler/lib/Lemonldap/NG/Handler/CGI.pm
View File

@ -136,8 +136,7 @@ sub authorize {
# 0 if user isn't granted
sub testUri {
my $self = shift;
$self->abort(
"Can't test URI because configuration has not been loaded",
$self->abort( "Can't test URI because configuration has not been loaded",
$self->{noConf} )
if ( $self->{noConf} );
my $uri = shift;

3
modules/lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Simple.pm
View File

@ -442,7 +442,8 @@ sub childInit {
$s->push_handlers(
PerlPostConfigHandler => sub {
my ( $c, $l, $t, $s ) = splice @_;
$s->add_version_component('Lemonldap::NG::Handler/'.$VERSION);
$s->add_version_component(
'Lemonldap::NG::Handler/' . $VERSION );
}
) unless ( $args->{hideSignature} );
}

8
modules/lemonldap-ng-portal/example/soaptest.pl
View File

@ -14,15 +14,15 @@ use Data::Dumper;
my $session_id = shift @ARGV;
# Service
my $soap = SOAP::Lite->new( proxy => 'http://auth.example.com/index.pl/sessions');
my $soap =
SOAP::Lite->new( proxy => 'http://auth.example.com/index.pl/sessions' );
$soap->default_ns('urn:Lemonldap/NG/Common/CGI/SOAPService');
# Call some SOAP methods
my $attributes = $soap->call( 'getAttributes', $session_id)->result();
my $attributes = $soap->call( 'getAttributes', $session_id )->result();
print Dumper $attributes;
my $applications = $soap->call( 'getMenuApplications', $session_id)->result();
my $applications = $soap->call( 'getMenuApplications', $session_id )->result();
print Dumper $applications;
exit;