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

LEMONLDAP::NG : new release 0.802 : bug in File.pm (Closes: #306760)

Browse Source
This commit is contained in:
Xavier Guimard 2007-03-11 20:18:28 +00:00
parent 17c5bc7718
commit c97159cd2c
9 changed files with 16 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
modules/lemonldap-ng-handler/lib/Lemonldap/NG/Handler/SharedConf.pm
View File

@ -116,6 +116,7 @@ sub setConf {
$cfgNum++;
$args->{_n_conf} = $cfgNum;
$refLocalStorage->set( "conf", $args, $EXPIRES_NEVER );
$class->lmLog( "$class: store configuration " . $args->{cfgNum}, 'debug' );
$class->globalInit($args);
}
@ -126,6 +127,7 @@ sub getConf {
$class->lmLog( "$class: Unable to load configuration", 'error' );
return SERVER_ERROR;
}
$class->lmLog( "$class: get configuration " . $tmp->{cfgNum}, 'debug' );
return $tmp;
}
@ -134,6 +136,7 @@ sub refresh($$) {
$class->lmLog( "$class: request for configuration reload", 'info' );
$r->handler("perl-script");
if ( $class->globalConfUpdate($r) == OK ) {
# $r->push_handlers( PerlHandler => sub { $r = shift; $r->send_http_headers; $r->print("OK"); OK } );
$r->push_handlers( PerlHandler => sub { OK } );
}
else {

4
modules/lemonldap-ng-manager/Changes
View File

@ -1,5 +1,9 @@
Revision history for Perl extension Lemonldap::NG::Manager.
0.511 Sun Mar 11 8:24:32
- Bug correction: lock does not work with File.pm
(Closes: #306760 / forge.objectweb.org)
0.51 Fri Mar 9 7:16:42
- Bug corrections issued from test in real life.
- More help in english

1
modules/lemonldap-ng-manager/MANIFEST
View File

@ -1,4 +1,5 @@
Changes
example/apply.conf
example/imgs/_customers.gif
example/imgs/blank.gif
example/imgs/book.gif

1
modules/lemonldap-ng-manager/example/index.pl
View File

@ -9,6 +9,7 @@ my $h = new Lemonldap::NG::Manager(
dirName => "__DIR__/conf/",
},
dhtmlXTreeImageLocation => "/imgs/",
applyConfFile => '__DIR__/manager/apply.conf',
# jsFile => /path/to/lemonldap-ng-manager.js,
}

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

@ -13,7 +13,7 @@ use LWP::UserAgent;
our @ISA = qw(Lemonldap::NG::Manager::Base);
our $VERSION = '0.51';
our $VERSION = '0.511';
sub new {
my ( $class, $args ) = @_;

6
modules/lemonldap-ng-manager/lib/Lemonldap/NG/Manager/Conf/File.pm
View File

@ -3,7 +3,7 @@ package Lemonldap::NG::Manager::Conf::File;
use strict;
use Lemonldap::NG::Manager::Conf::Constants;
our $VERSION = 0.2;
our $VERSION = 0.21;
sub prereq {
my $self = shift;
@ -41,8 +41,8 @@ sub lock {
sleep 2;
return 0 if( $self->isLocked );
}
unless( open F, $self->{dirName} . "/lmConf.lock" ) {
print STDERR "Unable to lock\n";
unless( open F, ">".$self->{dirName} . "/lmConf.lock" ) {
print STDERR "Unable to lock (".$self->{dirName}."/lmConf.lock)\n";
return 0;
}
print F $$;

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

@ -91,7 +91,7 @@ d&eacute;but ou fin de mot).</p>
<p>La variable export&eacute;e \$groups est une cha&icirc;ne de caract&egrave;res compos&eacute;s de tous les
noms de groupes auquel l'utilisateur connect&eacute; appartient (c'est &agrave; dire les
noms de groupe pour lesquels l'expression est vraie.</p>
noms de groupe pour lesquels l'expression est vraie).</p>
EOT
}

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

@ -183,7 +183,7 @@ function onNodeSelect(nodeId) {
}
}
if(tree.getUserData(nodeId,"modif")=='both') but+=button('$text{deleteNode}','deleteNode',nodeId);
but+=button('$text{saveConf}','saveConf',nodeId);
but+=button('$text{saveConf}','saveConf',nodeId);
if(nodeId == 'root') but+=button('$text{prevConf}','prevConf',nodeId)
+button('$text{nextConf}','nextConf',nodeId)
+button('$text{lastConf}','lastConf',nodeId);

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

@ -80,7 +80,7 @@ sub fr {
invalidLine => 'Ligne invalide',
error => 'Erreur',
result => 'R&eacute;sultat',
changesAppliedLater => "Changements seront actif d'ici 10 minutes'",
changesAppliedLater => "Les changements seront effectifs d'ici 10 minutes",
prevConf => 'Pr&eacute;c&eacute;dente',
nextConf => 'Suivante',
lastConf => 'Derni&egrave;re',