Now SOAP config access works...

environments/ppa-mbqj77/deployments/1
Xavier Guimard 16 years ago
parent affdc1f5bc
commit 4d57fead9d
  1. 2
      build/lemonldap-ng/debian/control
  2. 3
      modules/lemonldap-ng-common/lib/Lemonldap/NG/Common/Conf.pm
  3. 2
      modules/lemonldap-ng-common/lib/Lemonldap/NG/Common/Conf/SOAP.pm

@ -61,7 +61,7 @@ Description: Lemonldap::NG manager part
Package: liblemonldap-ng-portal-perl
Architecture: all
Depends: ${misc:Depends}, libapache-session-perl, libnet-ldap-perl, liblemonldap-ng-conf-perl (= ${binary:Version}), libhtml-template-perl, libjs-jquery, liblemonldap-ng-handler-perl (= ${binary:Version}), libxml-libxml-perl, libxml-libxslt-perl, libstring-random-perl
Recommends: libcgi-session-perl, libmime-lite-perl
Recommends: libmime-lite-perl
Suggests: liblasso-perl, libcgi-session-perl, slapd
Description: Lemonldap::NG authentication portal part
Lemonldap::NG is a complete Web-SSO system that can run with reverse-proxies

@ -240,7 +240,8 @@ sub getDBConf {
$v =~ s/^'(.*)'$/$1/s;
if ( $k =~
/^(?:exportedVars|locationRules|groups|exportedHeaders|macros|globalStorageOptions)$/
)
and $v ||= {}
and not ref($v) )
{
$conf->{$k} = {};
if ( defined($v) and $v !~ /^\$/ ) {

@ -87,7 +87,7 @@ sub store {
sub load {
my $self = shift;
return $self->_soapCall( 'load', @_ );
return $self->_soapCall( 'getConfig', @_ );
}
1;

Loading…
Cancel
Save