cst1/openstreetmap-website
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

--cache option

Browse source
This commit is contained in:
Ævar Arnfjörð Bjarmason 2009-09-30 17:42:06 +00:00
parent ab878d4844
commit 289c1c3cd9
1 changed files with 15 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

20
script/locale/merge-from-translatewiki
View file

@ -60,6 +60,11 @@ The locales dir we'll merge stuff into. F<config/locales> by default.
Only import translations that don't exists for us yet.
=item --cache
Write a L<Storable> cache for things downloaded from Translatewiki and
use it if it exists.
=back
=head1 AUTHOR
@ -75,6 +80,7 @@ Getopt::Long::Parser->new(
'h|help' => \my $help,
'locales-dir=s' => \(my $locales_dir = 'config/locales'),
'only-new' => \my $only_new,
'cache' => \my $cache,
) or help();
# On --help
@ -311,10 +317,12 @@ sub get_translatewiki_translations
{
my @languages = @_;
my $cache_file = "/tmp/merge-from-translatewiki.storable";
if (-f $cache_file) {
my $cache = retrieve($cache_file);
return %$cache;
if ($cache) {
my $cache_file = "/tmp/merge-from-translatewiki.storable";
if (-f $cache_file) {
my $c = retrieve($cache_file);
return %$c;
}
}
my %translatewiki_languages;
@ -331,7 +339,9 @@ sub get_translatewiki_translations
$translatewiki_languages{$lang} = $flat_data;
}
store \%translatewiki_languages, $cache_file;
if ($cache) {
store \%translatewiki_languages, $cache_file;
}
return %translatewiki_languages;
}