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 # 0 if user isn't granted
sub testUri { sub testUri {
my $self = shift; my $self = shift;
$self->abort( $self->abort( "Can't test URI because configuration has not been loaded",
"Can't test URI because configuration has not been loaded",
$self->{noConf} ) $self->{noConf} )
if ( $self->{noConf} ); if ( $self->{noConf} );
my $uri = shift; 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( $s->push_handlers(
PerlPostConfigHandler => sub { PerlPostConfigHandler => sub {
my ( $c, $l, $t, $s ) = splice @_; 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} ); ) unless ( $args->{hideSignature} );
} }

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

@ -14,10 +14,10 @@ use Data::Dumper;
my $session_id = shift @ARGV; my $session_id = shift @ARGV;
# Service # 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'); $soap->default_ns('urn:Lemonldap/NG/Common/CGI/SOAPService');
# Call some SOAP methods # Call some SOAP methods
my $attributes = $soap->call( 'getAttributes', $session_id )->result(); my $attributes = $soap->call( 'getAttributes', $session_id )->result();
print Dumper $attributes; print Dumper $attributes;