Commit f1a9171c authored by Yadd's avatar Yadd
Browse files

Localization of Manager interface

parent f581c0c1
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 => 'Paramtres gnraux',
text => &generalParameters,
item => {
exportedVars => {
text => "Attributs LDAP mapper",
text => &exportedVars,
item => {},
},
ldapParameters => {
text => 'Paramtres LDAP',
text => &ldapParameters,
item => {},
},
sessionStorage => {
text => 'Stockage des sessions',
text => &sessionStorage,
item => {
globalStorageOptions => {
text =>
'Paramtres du module Apache::Session',
text => &globalStorageOptions,
}
},
},
authParams => {
text => "Paramtres d'authentification",
text => &authParams,
item => {},
},
},
},
groups => { text => "Groupes d'utilisateurs", },
groups => { text => &userGroups, },
virtualHosts => {
text => "Htes 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 scuris (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 => "Rgles", },
"$ih" => { text => &httpHeaders, },
"$ir" => { text => &locationRules, },
};
while ( my ( $reg, $expr ) = each(%$rules) ) {
my $type = ( $reg eq 'default' ) ? 'value' : 'both';
......
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',
}
}
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment