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

LEMONLDAP::NG : 2 bugs : 

* lmLog was not exported in Proxy.pm
                * the new javascript library does not need to replace & by &
This commit is contained in:
Xavier Guimard 2008-04-07 08:47:40 +00:00
parent af5541480a
commit 6959f1c20a
3 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
modules/lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Proxy.pm
View File

@ -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';

11
modules/lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Simple.pm
View File

@ -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 };

2
modules/lemonldap-ng-manager/lib/Lemonldap/NG/Manager/_HTML.pm
View File

@ -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;');
}
#;
}