Implement context menu with: directions, add note, describe, centre.

[rails.git] / script / locale / merge-from-translatewiki

diff --git a/script/locale/merge-from-translatewiki b/script/locale/merge-from-translatewiki
old mode 100644 (file)
new mode 100755 (executable)
index f053593..706ec45
--- a/script/locale/merge-from-translatewiki
+++ b/script/locale/merge-from-translatewiki
@@ -54,12 +54,17 @@ Print this help message.
 
 =item --locales-dir
 
 
 =item --locales-dir
 

-The locales dir we'll merge stuff into. E.g. C<config/locales>.
+The locales dir we'll merge stuff into. F<config/locales> by default.

 
 =item --only-new
 
 Only import translations that don't exists for us yet.
 
 
 =item --only-new
 
 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
 =back
 
 =head1 AUTHOR


@@ -73,14 +78,15 @@ Getopt::Long::Parser->new(
     config => [ qw< bundling no_ignore_case no_require_order pass_through > ],
 )->getoptions(
     'h|help' => \my $help,
     config => [ qw< bundling no_ignore_case no_require_order pass_through > ],
 )->getoptions(
     'h|help' => \my $help,

-    'locales-dir=s' => \my $locales_dir,
+    'locales-dir=s' => \(my $locales_dir = 'config/locales'),

     'only-new' => \my $only_new,
     'only-new' => \my $only_new,

+    'cache' => \my $cache,

 ) or help();
 
 # On --help
 help() if $help;
 
 ) or help();
 
 # On --help
 help() if $help;
 

-help() unless $locales_dir;
+help() unless $locales_dir and -d $locales_dir;

 
 ###
 ### Main
 
 ###
 ### Main


@@ -196,6 +202,16 @@ for my $translatewiki_lang (sort @translatewiki_languages_codes) {
             }
         }
 
             }
         }
 

+        # There are a bunch of keys on Translatewiki that are
+        # equivalent to English for some reason. Probably because they
+        # were there at import time. Nuke them.
+        while (my ($new_k, $new_v) = each %new) {
+            if (exists $en{ $new_k } and $en{ $new_k } eq $new_v) {
+                #say "Purging dupe in $rails_lang: $new_k=$new_v";
+                delete $new{ $new_k };
+            }
+        }
+

         my $expanded = expand_hash( \%new );
         my $out = +{ $rails_lang => $expanded };
         spit_out($out_file, $out);
         my $expanded = expand_hash( \%new );
         my $out = +{ $rails_lang => $expanded };
         spit_out($out_file, $out);


@@ -302,9 +318,11 @@ sub get_translatewiki_translations
     my @languages = @_;
 
     my $cache_file = "/tmp/merge-from-translatewiki.storable";
     my @languages = @_;
 
     my $cache_file = "/tmp/merge-from-translatewiki.storable";

-    if (-f $cache_file) {
-        my $cache = retrieve($cache_file);
-        return %$cache;
+    if ($cache) {
+        if (-f $cache_file) {
+            my $c = retrieve($cache_file);
+            return %$c;
+        }

     }
 
     my %translatewiki_languages;
     }
 
     my %translatewiki_languages;


@@ -321,7 +339,9 @@ sub get_translatewiki_translations
         $translatewiki_languages{$lang} = $flat_data;
     }
 
         $translatewiki_languages{$lang} = $flat_data;
     }
 

-    store \%translatewiki_languages, $cache_file;
+    if ($cache) {
+        store \%translatewiki_languages, $cache_file;
+    }

 
     return %translatewiki_languages;
 }
 
     return %translatewiki_languages;
 }


@@ -331,7 +351,7 @@ sub get_language_from_translatewiki
     my ($lang) = @_;
     my $mech = WWW::Mechanize->new;
 
     my ($lang) = @_;
     my $mech = WWW::Mechanize->new;
 

-    $mech->get("http://translatewiki.net/w/i.php?title=Special%3ATranslate&task=export-to-file&group=out-osm&language=$lang");
+    $mech->get("http://translatewiki.net/w/i.php?title=Special%3ATranslate&task=export-to-file&group=out-osm-site&language=$lang");

 
     die "Couldn't get lang $lang lang from Translatewiki" unless $mech->success;
 
 
     die "Couldn't get lang $lang lang from Translatewiki" unless $mech->success;
 


@@ -346,7 +366,7 @@ sub translatewiki_languages
 {
     my $mech = WWW::Mechanize->new;
 
 {
     my $mech = WWW::Mechanize->new;
 

-    $mech->get('http://translatewiki.net/wiki/Translating:OpenStreetMap/stats/trunk');
+    $mech->get('http://translatewiki.net/wiki/Translating:OpenStreetMap/stats/trunk/site');

 
     die "Couldn't get translatewiki table" unless $mech->success;
 
 
     die "Couldn't get translatewiki table" unless $mech->success;