Localization of Manager interface
This commit is contained in:
Xavier Guimard
parent
f581c0c1c2
commit
f1a9171c83
|
|
@ -1,5 +1,11 @@
|
|||
Revision history for Perl extension Lemonldap::NG::Manager.
|
||||
|
||||
0.2 Sun Dec 31 16:40:04 2006
|
||||
- Localization (fr and en)
|
||||
|
||||
0.1
|
||||
- Bug corrections
|
||||
|
||||
0.03 Sun Dec 16 12:29:12 2006
|
||||
- Autoload does not work when inherits from CGI.
|
||||
Temporarly disabled
|
||||
|
|
|
|||
|
|
@ -47,6 +47,7 @@ example/lemonldap-ng-manager.js
|
|||
example/index.pl
|
||||
lib/Lemonldap/NG/Manager.pm
|
||||
lib/Lemonldap/NG/Manager/_HTML.pm
|
||||
lib/Lemonldap/NG/Manager/_i18n.pm
|
||||
lib/Lemonldap/NG/Manager/Base.pm
|
||||
lib/Lemonldap/NG/Manager/Conf.pm
|
||||
lib/Lemonldap/NG/Manager/Conf/DBI.pm
|
||||
|
|
|
|||
|
|
@ -4,16 +4,20 @@ use strict;
|
|||
|
||||
use XML::Simple;
|
||||
|
||||
#use AutoLoader qw(AUTOLOAD);
|
||||
use Lemonldap::NG::Manager::Base;
|
||||
use Lemonldap::NG::Manager::Conf;
|
||||
use Lemonldap::NG::Manager::_HTML;
|
||||
|
||||
our @ISA = qw(Lemonldap::NG::Manager::Base);
|
||||
|
||||
our $VERSION = '0.1';
|
||||
our $VERSION = '0.2';
|
||||
|
||||
sub new {
|
||||
unless(__PACKAGE__->can('ldapServer')) {
|
||||
require Lemonldap::NG::Manager::_i18n;
|
||||
Lemonldap::NG::Manager::_i18n::import($ENV{HTTP_ACCEPT_LANGUAGE});
|
||||
}
|
||||
|
||||
my ( $class, $args ) = @_;
|
||||
my $self = $class->SUPER::new();
|
||||
unless ($args) {
|
||||
|
|
@ -113,37 +117,36 @@ sub printXmlConf {
|
|||
item => {
|
||||
id => 'root',
|
||||
open => 1,
|
||||
text => "configuration $config->{cfgNum}",
|
||||
text => &configuration." $config->{cfgNum}",
|
||||
item => {
|
||||
generalParameters => {
|
||||
text => 'Paramètres généraux',
|
||||
text => &generalParameters,
|
||||
item => {
|
||||
exportedVars => {
|
||||
text => "Attributs LDAP à mapper",
|
||||
text => &exportedVars,
|
||||
item => {},
|
||||
},
|
||||
ldapParameters => {
|
||||
text => 'Paramètres LDAP',
|
||||
text => &ldapParameters,
|
||||
item => {},
|
||||
},
|
||||
sessionStorage => {
|
||||
text => 'Stockage des sessions',
|
||||
text => &sessionStorage,
|
||||
item => {
|
||||
globalStorageOptions => {
|
||||
text =>
|
||||
'Paramètres du module Apache::Session',
|
||||
text => &globalStorageOptions,
|
||||
}
|
||||
},
|
||||
},
|
||||
authParams => {
|
||||
text => "Paramètres d'authentification",
|
||||
text => &authParams,
|
||||
item => {},
|
||||
},
|
||||
},
|
||||
},
|
||||
groups => { text => "Groupes d'utilisateurs", },
|
||||
groups => { text => &userGroups, },
|
||||
virtualHosts => {
|
||||
text => "Hôtes virtuels",
|
||||
text => &virtualHosts,
|
||||
open => 1,
|
||||
},
|
||||
},
|
||||
|
|
@ -158,7 +161,7 @@ sub printXmlConf {
|
|||
$authParams->{authentication} = $self->xmlField(
|
||||
"value",
|
||||
$config->{authentication} || 'ldap',
|
||||
"Type d'authentification"
|
||||
&authenticationType,
|
||||
);
|
||||
$authParams->{portal} =
|
||||
$self->xmlField(
|
||||
|
|
@ -168,50 +171,51 @@ sub printXmlConf {
|
|||
$authParams->{securedCookie} = $self->xmlField(
|
||||
"value",
|
||||
$config->{securedCookie} || 0,
|
||||
"Cookie sécurisé (SSL)"
|
||||
&securedCookie,
|
||||
);
|
||||
|
||||
$generalParameters->{domain} =
|
||||
$self->xmlField(
|
||||
"value",
|
||||
$config->{domain} || 'example.com',
|
||||
'Domaine'
|
||||
&domain,
|
||||
);
|
||||
$generalParameters->{cookieName} = $self->xmlField(
|
||||
"value",
|
||||
$config->{cookieName} || 'lemonldap',
|
||||
'Nom du cookie'
|
||||
&cookieName,
|
||||
);
|
||||
|
||||
$sessionStorage->{globalStorage} = $self->xmlField(
|
||||
"value",
|
||||
$config->{globalStorage} || 'Apache::Session::File',
|
||||
'Module Apache::Session'
|
||||
&apacheSessionModule,
|
||||
);
|
||||
|
||||
$ldapParameters->{ldapServer} = $self->xmlField(
|
||||
"value",
|
||||
$config->{ldapServer} || 'localhost',
|
||||
'Serveur LDAP' );
|
||||
&ldapServer,
|
||||
);
|
||||
$ldapParameters->{ldapPort} = $self->xmlField(
|
||||
"value",
|
||||
$config->{ldapPort} || 389,
|
||||
'Port du serveur LDAP'
|
||||
&ldapPort,
|
||||
);
|
||||
$ldapParameters->{ldapBase} = $self->xmlField(
|
||||
"value",
|
||||
$config->{ldapBase} || ' ',
|
||||
'Base de recherche LDAP'
|
||||
&ldapBase,
|
||||
);
|
||||
$ldapParameters->{managerDn} = $self->xmlField(
|
||||
"value",
|
||||
$config->{managerDn} || ' ',
|
||||
'Compte de connexion LDAP'
|
||||
&managerDn,
|
||||
);
|
||||
$ldapParameters->{managerPassword} = $self->xmlField(
|
||||
"value",
|
||||
$config->{managerPassword} || ' ',
|
||||
'Mot de passe LDAP'
|
||||
&managerPassword,
|
||||
);
|
||||
|
||||
if ( $config->{exportedVars} ) {
|
||||
|
|
@ -244,8 +248,8 @@ sub printXmlConf {
|
|||
$virtualHost->{$host} = $self->xmlField( "text", 'i', $host );
|
||||
my ( $ih, $ir ) = ( "exportedHeaders_$indice", "locationRules_$indice" );
|
||||
$virtualHost->{$host}->{item} = {
|
||||
"$ih" => { text => "Headers", },
|
||||
"$ir" => { text => "Règles", },
|
||||
"$ih" => { text => &httpHeaders, },
|
||||
"$ir" => { text => &locationRules, },
|
||||
};
|
||||
while ( my ( $reg, $expr ) = each(%$rules) ) {
|
||||
my $type = ( $reg eq 'default' ) ? 'value' : 'both';
|
||||
|
|
|
|||
|
|
@ -0,0 +1,83 @@
|
|||
package Lemonldap::NG::Manager::_i18n;
|
||||
|
||||
use AutoLoader qw(AUTOLOAD);
|
||||
use UNIVERSAL qw(can);
|
||||
our $VERSION = '0.1';
|
||||
|
||||
sub import {
|
||||
my($caller_package) = caller;
|
||||
my $lang = shift;
|
||||
$lang = lc($lang);
|
||||
$lang =~ s/-/_/g;
|
||||
foreach(split(/[,;]/,$lang)) {
|
||||
next if /=/;
|
||||
if(__PACKAGE__->can($_)) {
|
||||
$functions = &$_;
|
||||
last;
|
||||
}
|
||||
}
|
||||
$functions ||= &en;
|
||||
while (my($f,$v) = each(%$functions)) {
|
||||
*{"${caller_package}::$f"} = sub{ $v };
|
||||
}
|
||||
}
|
||||
|
||||
*fr_fr = *fr;
|
||||
*en_us = *en;
|
||||
|
||||
1;
|
||||
__END__
|
||||
=pod
|
||||
=cut
|
||||
|
||||
sub fr {
|
||||
return {
|
||||
configuration => 'Configuration',
|
||||
exportedVars => 'Attributs LDAP à exporter',
|
||||
generalParameters => 'Paramètres généraux',
|
||||
ldapParameters => 'Paramètres LDAP',
|
||||
sessionStorage => 'Stockage des sessions',
|
||||
globalStorageOptions => 'Paramètres du module Apache::Session',
|
||||
authParams => "Paramètres d'authentification",
|
||||
userGroups => "Groupes d'utilisateurs",
|
||||
virtualHosts => "Hôtes virtuels",
|
||||
authenticationType => "Type d'authentification",
|
||||
securedCookie => 'Cookie sécurisé (SSL)',
|
||||
domain => 'Domaine',
|
||||
cookieName => 'Nom du cookie',
|
||||
apacheSessionModule => 'Module Apache::Session',
|
||||
ldapServer => 'Serveur LDAP',
|
||||
ldapPort => 'Port du serveur LDAP',
|
||||
ldapBase => 'Base de recherche LDAP',
|
||||
managerDn => 'Compte de connexion LDAP',
|
||||
managerPassword => 'Mot de passe LDAP',
|
||||
httpHeaders => 'En-têtes HTTP',
|
||||
locationRules => 'Règles',
|
||||
}
|
||||
}
|
||||
|
||||
sub en {
|
||||
return {
|
||||
configuration => 'Configuration',
|
||||
exportedVars => 'Exported Variables',
|
||||
generalParameters => 'General Parameters',
|
||||
ldapParameters => 'LDAP Parameters',
|
||||
sessionStorage => 'Session Storage',
|
||||
globalStorageOptions => 'Session Storage Parameters',
|
||||
authParams => "Authentication Parameters",
|
||||
userGroups => "User Groups",
|
||||
virtualHosts => "Virtual Hosts",
|
||||
authenticationType => "Authentifition Type",
|
||||
securedCookie => 'Secured Cookie (SSL)',
|
||||
domain => 'Domain',
|
||||
cookieName => 'Cookie Name',
|
||||
apacheSessionModule => 'Apache::Session module',
|
||||
ldapServer => 'LDAP Server',
|
||||
ldapPort => 'LDAP Server Port',
|
||||
ldapBase => 'LDAP Search Base',
|
||||
managerDn => 'LDAP Account',
|
||||
managerPassword => 'LDAP Password',
|
||||
httpHeaders => 'HTTP Headers',
|
||||
locationRules => 'Rules',
|
||||
}
|
||||
}
|
||||
Loading…
Reference in New Issue