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

LEMONLDAP::NG : perltidy + template language detection regexp

Browse Source
This commit is contained in:
Xavier Guimard 2008-09-04 06:05:24 +00:00
parent b264d0f8c7
commit 4e90f24172
2 changed files with 50 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
modules/lemonldap-ng-portal/example/index_skin.pl
View File

@ -4,7 +4,7 @@ use Lemonldap::NG::Portal::SharedConf;
use HTML::Template;
# Skin configuration
my $skin = "default";
my $skin = "default";
my $skin_dir = "__SKINDIR__";
my $portal = Lemonldap::NG::Portal::SharedConf->new(
@ -17,34 +17,49 @@ my $portal = Lemonldap::NG::Portal::SharedConf->new(
);
# HTML::Template object creation
my $template = HTML::Template->new(filename => "$skin_dir/$skin/login.tpl", die_on_bad_params => 0, cache => 0, filter => sub{$portal->translate_template(@_)});
my $template = HTML::Template->new(
filename => "$skin_dir/$skin/login.tpl",
die_on_bad_params => 0,
cache => 0,
filter => sub { $portal->translate_template(@_) }
);
if ( $portal->process() ) {
print $portal->header('text/html; charset=utf8');
# Get sites
my @sites = ();
foreach ($portal->getProtectedSites) {
foreach ( $portal->getProtectedSites ) {
my %row_data;
$row_data{SITE_NAME} = $_;
push (@sites, \%row_data);
push( @sites, \%row_data );
}
@sites = sort {$a cmp $b} @sites ;
$template->param(AUTH_SITES => \@sites);
$template->param(AUTH_ERROR => $portal->error);
$template->param(AUTH_ERROR_TYPE => "negative");
$template->param(AUTH_ERROR_TYPE => "positive") if (scalar(grep{/$portal->{error}/} (PE_DONE,PE_OK)));
@sites = sort { $a cmp $b } @sites;
$template->param( AUTH_SITES => \@sites );
$template->param( AUTH_ERROR => $portal->error );
$template->param( AUTH_ERROR_TYPE => "negative" );
$template->param( AUTH_ERROR_TYPE => "positive" )
if ( scalar( grep { /$portal->{error}/ } ( PE_DONE, PE_OK ) ) );
# Logout
$template->param(LOGOUT_URL => "$ENV{SCRIPT_NAME}?logout=1");
$template->param( LOGOUT_URL => "$ENV{SCRIPT_NAME}?logout=1" );
print $template->output;
} else {
}
else {
print $portal->header('text/html; charset=utf8');
$template->param(AUTH_ERROR => $portal->error);
$template->param(AUTH_ERROR_TYPE => "negative");
$template->param(AUTH_ERROR_TYPE => "warning") if (scalar(grep{/$portal->{error}/} (PE_FIRSTACCESS,PE_SESSIONEXPIRED,PE_FORMEMPTY)));
$template->param(AUTH_ERROR_TYPE => "positive") if (scalar(grep{/$portal->{error}/} (PE_DONE,PE_OK)));
$template->param(AUTH_URL => $portal->param('url'));
$template->param(DISPLAY_FORM => 1);
$template->param( AUTH_ERROR => $portal->error );
$template->param( AUTH_ERROR_TYPE => "negative" );
$template->param( AUTH_ERROR_TYPE => "warning" )
if (
scalar(
grep { /$portal->{error}/ }
( PE_FIRSTACCESS, PE_SESSIONEXPIRED, PE_FORMEMPTY )
)
);
$template->param( AUTH_ERROR_TYPE => "positive" )
if ( scalar( grep { /$portal->{error}/ } ( PE_DONE, PE_OK ) ) );
$template->param( AUTH_URL => $portal->param('url') );
$template->param( DISPLAY_FORM => 1 );
print $template->output;
}

32
modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Simple.pm
View File

@ -119,20 +119,24 @@ sub error {
# Used as an HTML::Template filter to tranlate strings in the wanted language
sub translate_template {
my $self = shift;
my $text_ref = shift;
my $lang = shift || $ENV{HTTP_ACCEPT_LANGUAGE};
# Get the lang code (2 letters)
$lang = lc($lang);
$lang =~ s/-/_/g;
$lang =~ s/^(..).*$/$1/;
# Test if a translation is available for the selected language
# If not available, return the first translated string
if ( $$text_ref =~ m/$lang=\"(.*?)\"/) {
$$text_ref =~ s/<lang\s*.*$lang=\"(.*?)\".*\/>/$1/gx;
} else {
$$text_ref =~ s/<lang\s*(..)=\"(.*?)\".*\/>/$2/gx;
}
my $self = shift;
my $text_ref = shift;
my $lang = shift || $ENV{HTTP_ACCEPT_LANGUAGE};
# Get the lang code (2 letters)
$lang = lc($lang);
$lang =~ s/-/_/g;
$lang =~ s/^(..).*$/$1/;
# Test if a translation is available for the selected language
# If not available, return the first translated string
# <lang en="Please enter your credentials" fr="Merci de vous autentifier"/>
if ( $$text_ref =~ m/\s+$lang=\"(.*?)\"/ ) {
$$text_ref =~ s/<lang\s+[^>]*\s+$lang=\"(.*?)\".*?\/>/$1/gx;
}
else {
$$text_ref =~ s/<lang\s+\w+=\"(.*?)\".*?\/>/$1/gx;
}
}
# Private sub used to bind to LDAP server both with Lemonldap::NG account and user