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

Perltidy

Browse Source
This commit is contained in:
Xavier Guimard 2011-09-18 12:44:14 +00:00
parent edbe375c63
commit 819337f47a
7 changed files with 26 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
modules/lemonldap-ng-common/lib/Lemonldap/NG/Common/Safe.pm
View File

@ -82,7 +82,8 @@ sub reval {
# Catch errors
if ($@) {
$self->{p}->lmLog( "Error while evaluating the expression: $@", 'warn' );
$self->{p}
->lmLog( "Error while evaluating the expression: $@", 'warn' );
return;
}

4
modules/lemonldap-ng-manager/example/notifications.pl
View File

@ -25,7 +25,9 @@ my $cgi = Lemonldap::NG::Manager::Notifications->new(
# directory => '/usr/local/lemonlda-ng/conf/'
#},
}
) or Lemonldap::NG::Common::CGI->abort('Unable to start notifications explorer');
)
or
Lemonldap::NG::Common::CGI->abort('Unable to start notifications explorer');
my $skin = $cgi->{managerSkin} or $cgi->abort('managerSkin is not defined');
my $css = 'tree.css';

2
modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Notification.pm
View File

@ -425,6 +425,8 @@ sub purge {
sub _get {
no strict 'refs';
my $self = $_[0];
# Debug lines. Must be removed ?
die ref($self)
unless ( ref($self) eq 'Lemonldap::NG::Portal::Notification' );
return &{ $_[0]->{type} . '::get' }(@_);

2
modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/_LDAP.pm
View File

@ -422,7 +422,7 @@ sub searchGroups {
my $searchFilter =
"(&(objectClass=" . $portal->{ldapGroupObjectClass} . ")(|";
foreach ( split( $portal->{multiValuesSeparator}, $value ) ) {
$searchFilter .= "(" . $key . "=" . escape_filter_value($_) . ")";
$searchFilter .= "(" . $key . "=" . escape_filter_value($_) . ")";
}
$searchFilter .= "))";

3
modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/_SAML.pm
View File

@ -154,7 +154,8 @@ sub loadService {
# Create Lasso server with service metadata
my $server = $self->createServer(
$service_metadata->serviceToXML(
$self->getApacheHtdocsPath() . "/skins/common/saml2-metadata.tpl", $self
$self->getApacheHtdocsPath() . "/skins/common/saml2-metadata.tpl",
$self
),
$privateKeySig,
$privateKeySigPwd,

22
modules/lemonldap-ng-portal/t/05-Lemonldap-NG-Portal-Safe.t
View File

@ -14,16 +14,14 @@ BEGIN { use_ok( 'Lemonldap::NG::Portal::Simple', ':all' ) }
# Insert your test code below, the Test::More module is use()ed here so read
# its man page ( perldoc Test::More ) for help writing this test script.
# Create portal object with Safe jail (the default)
my $p;
$ENV{REQUEST_METHOD} = "GET";
ok(
$p = Lemonldap::NG::Portal::Simple->new(
{
globalStorage => 'Apache::Session::File',
domain => 'example.com',
globalStorage => 'Apache::Session::File',
domain => 'example.com',
}
),
'Portal object with Safe jail'
@ -38,8 +36,12 @@ $ENV{REMOTE_ADDR} = $envData;
# Real Safe jail
ok( $p->{useSafeJail} == 1, 'Safe jail on' );
ok( $p->safe->reval('$uid') eq $sessionData, 'Safe jail on - session data' );
ok( $p->safe->reval('$ENV{REMOTE_ADDR}') eq $envData, 'Safe jail on - env data' );
ok( defined $p->safe->reval('checkDate(0,1)'), 'Safe jail on - extended function' );
ok( $p->safe->reval('$ENV{REMOTE_ADDR}') eq $envData,
'Safe jail on - env data' );
ok(
defined $p->safe->reval('checkDate(0,1)'),
'Safe jail on - extended function'
);
# Reset safe object
$Lemonldap::NG::Portal::Simple::safe = undef;
@ -48,6 +50,10 @@ $p->{useSafeJail} = 0;
# Fake Safe jail
ok( $p->{useSafeJail} == 0, 'Safe jail off' );
ok( $p->safe->reval('$uid') eq $sessionData, 'Safe jail off - session data' );
ok( $p->safe->reval('$ENV{REMOTE_ADDR}') eq $envData, 'Safe jail off - env data' );
ok( defined $p->safe->reval('checkDate(0,1)'), 'Safe jail off - extended function' );
ok( $p->safe->reval('$ENV{REMOTE_ADDR}') eq $envData,
'Safe jail off - env data' );
ok(
defined $p->safe->reval('checkDate(0,1)'),
'Safe jail off - extended function'
);

4
modules/lemonldap-ng-portal/t/50-Lemonldap-NG-Portal-Menu.t
View File

@ -129,7 +129,7 @@ ok( $displayNok == 0, 'Display auto nok' );
# Connect as another user with different rights
$p->{sessionInfo}->{uid} = "toto";
my $appLoop2 = $p->appslist();
my $appLoop2 = $p->appslist();
my $displayOk2 = 0;
foreach (@$appLoop2) {
@ -140,5 +140,5 @@ foreach (@$appLoop2) {
}
}
ok( $displayOk2 != 0, 'Display auto ok for different user' );
ok( $displayOk2 != 0, 'Display auto ok for different user' );