oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

- Added a 2.7% speed increase by precaching i18n messages. This should also

Browse source 
help increase shared memory amongst Apache children. (Matt Wilson)
This commit is contained in:
JT Smith 2006-05-16 16:47:09 +00:00
parent 746a916d4f
commit 4748163231
3 changed files with 24 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lib/WebGUI/International.pm
View file

@ -17,7 +17,7 @@ package WebGUI::International;
use strict qw(vars subs);
our %l10nCache;
our %i18nCache;
=head1 NAME
@ -95,7 +95,7 @@ sub get {
$id =~ s/$safeRe//g;
$language =~ s/$safeRe//g;
$namespace =~ s/$safeRe//g;
return $l10nCache{$language}{$namespace}{$id} if $l10nCache{$language}{$namespace}{$id};
return $i18nCache{$language}{$namespace}{$id}{message} if $i18nCache{$language}{$namespace}{$id}{message};
my $cmd = "WebGUI::i18n::".$language."::".$namespace;
my $load = "use ".$cmd;
eval($load);
@ -104,7 +104,7 @@ sub get {
my $output = eval($cmd);
$self->session->errorHandler->warn("Couldn't get value from ".$cmd." because ".$@) if ($@);
$output = $self->get($id,$namespace,"English") if ($output eq "" && $language ne "English");
$l10nCache{$language}{$namespace}{$id} = $output;
$i18nCache{$language}{$namespace}{$id}{message} = $output;
return $output;
}
@ -225,13 +225,13 @@ Specify a default language. Defaults to user preference or "English".
sub new {
my ($class, $session, $namespace, $language) = @_;
return $l10nCache{namespaces}{$namespace} if $l10nCache{namespaces}{$namespace};
return $i18nCache{namespaces}{$namespace} if $i18nCache{namespaces}{$namespace};
my $self = bless( {
_session => $session,
_namespace => $namespace,
_language => ($language || $session->user->profileField('language')),
},$class);
$l10nCache{namespaces}{$namespace} = $self;
$i18nCache{namespaces}{$namespace} = $self;
return $self;
}