28 lines
556 B
Perl
28 lines
556 B
Perl
|
package Lemonldap::Portal::AccessPolicy;
|
||
|
|
||
|
use strict;
|
||
|
use warnings;
|
||
|
use Net::LDAP::Entry;
|
||
|
use Apache2::Const;
|
||
|
use Data::Dumper;
|
||
|
use Sys::Hostname;
|
||
|
use Lemonldap::Portal::Standard;
|
||
|
our $VERSION = '3.1.0';
|
||
|
|
||
|
|
||
|
sub default {
|
||
|
|
||
|
|
||
|
my $self = shift;
|
||
|
my $Entry=shift;
|
||
|
my $Session=shift ;
|
||
|
my $Org=shift ;
|
||
|
my $Attribute = shift;
|
||
|
my @Profil = $Entry->get_value($Attribute);
|
||
|
foreach my $line (@Profil){
|
||
|
my ($appl,$profile) = split (";",$line);
|
||
|
$Session->{$Org}{lc($appl)} = $profile;
|
||
|
}
|
||
|
}
|
||
|
return 1;
|