LEMONLDAP::NG : 2 bugs :

* lmLog was not exported in Proxy.pm
                * the new javascript library does not need to replace & by &
environments/ppa-mbqj77/deployments/1
Xavier Guimard 17 years ago
parent af5541480a
commit 6959f1c20a
  1. 2
      modules/lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Proxy.pm
  2. 11
      modules/lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Simple.pm
  3. 2
      modules/lemonldap-ng-manager/lib/Lemonldap/NG/Manager/_HTML.pm

@ -2,7 +2,7 @@ package Lemonldap::NG::Handler::Proxy;
use strict;
use Lemonldap::NG::Handler::Simple qw(:apache :headers);
use Lemonldap::NG::Handler::Simple qw(:apache :headers :log);
use LWP::UserAgent;
our $VERSION = '0.3';

@ -26,16 +26,12 @@ our %EXPORT_TAGS = (
$https $port
)
],
log => [qw( lmLog )],
traces => [qw( $whatToTrace )],
apache => [qw( MP OK REDIRECT FORBIDDEN DONE DECLINED SERVER_ERROR )],
);
our @EXPORT_OK = ();
push( @EXPORT_OK, @{ $EXPORT_TAGS{$_} } )
foreach (
qw( localStorage globalStorage locationRules import headers traces apache )
);
$EXPORT_TAGS{all} = \@EXPORT_OK;
our @EXPORT = ();
@ -55,6 +51,11 @@ our (
##########################################
BEGIN {
push( @EXPORT_OK, @{ $EXPORT_TAGS{$_} } )
foreach (
qw( localStorage globalStorage locationRules import headers traces apache )
);
$EXPORT_TAGS{all} = \@EXPORT_OK;
if ( exists $ENV{MOD_PERL} ) {
if ( $ENV{MOD_PERL_API_VERSION} and $ENV{MOD_PERL_API_VERSION} >= 2 ) {
*MP = sub { 2 };

@ -399,7 +399,7 @@ function deleteConf(){
function ec(s){
if((!s) || s=='') return s;
return s.replace(/&(?!\#)/g,'&amp;').replace(/>/g,'&gt;').replace(/</g,'&lt;');
return s.replace(/>/g,'&gt;').replace(/</g,'&lt;');
}
#;
}

Loading…
Cancel
Save