Commit 73fa979c authored by Yadd's avatar Yadd
Browse files

'CustomSOAPServices' target in portal

parent f2f94e66
......@@ -35,7 +35,7 @@ sub AUTOLOAD {
return $tmp;
}
elsif($AUTOLOAD ne 'DESTROY') {
die "$AUTOLOAD is not an authorizated function";use Data::Dumper;
die "$AUTOLOAD is not an authorizated function";
}
1;
}
......
......@@ -40,7 +40,7 @@ sub extractFormInfo {
if ($user) {
$self->{sessionInfo}->{authenticationLevel} = 5;
$self->{user} = $user;
$self->{authFilter} =
$self->{authFilter} ||=
'(&(' . $self->{SSLLDAPField} . "=$user)(objectClass=inetOrgPerson))";
return PE_OK;
}
......
......@@ -33,8 +33,10 @@ sub formateFilter {
my $self = shift;
$self->{filter} =
$self->{authFilter}
|| $self->{filter}
|| "(&(uid=" . $self->{user} . ")(objectClass=inetOrgPerson))";
|| $self->{filter};
$self->{filter} =~ s/\$(user|_?password)/$self->{$1}/g;
$self->{filter} =~ s/\$(\w+)/$self->{sessionInfo}->{$1}/g;
$self->{filter} ||= "(&(uid=" . $self->{user} . ")(objectClass=inetOrgPerson))";
PE_OK;
}
......
......@@ -15,9 +15,11 @@ require SOAP::Lite;
# If "soapOnly" is set, reject otehr request. Else, simply return.
sub startSoapServices {
my $self = shift;
$self->{CustomSOAPServices} ||= {};
if (
$ENV{PATH_INFO}
and my $tmp = {
%{$self->{CustomSOAPServices}},
'/sessions' => 'getAttributes',
'/adminSessions' => 'getAttributes setAttributes '
. 'newSession deleteSession get_key_from_all_sessions',
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment