Darkdadaah has submitted this change and it was merged.

Change subject: Added support for language sections detections for de: and ru: 
- Limited to main languages
......................................................................


Added support for language sections detections for de: and ru:
- Limited to main languages

Change-Id: I35aa8c30ecc5597add2fbdf5073720c3096108d1
---
M scripts/wikt_dumps_diff.pl
1 file changed, 30 insertions(+), 4 deletions(-)

Approvals:
  Darkdadaah: Verified; Looks good to me, approved



diff --git a/scripts/wikt_dumps_diff.pl b/scripts/wikt_dumps_diff.pl
index 0bb71e7..8e6d454 100755
--- a/scripts/wikt_dumps_diff.pl
+++ b/scripts/wikt_dumps_diff.pl
@@ -16,7 +16,22 @@
                'en' => 'English',
                'fr' => 'French',
                'it' => 'Italian',
-       }
+               'ru' => 'Russian',
+       },
+       'de' => {
+               'de' => 'Deutch',
+               'en' => 'Englisch',
+               'fr' => 'Franz.+sisch',
+               'it' => 'Italienisch',
+               'ru' => 'Russisch',
+       },
+       'vi' => {
+               'fr' => 'fra',
+               'en' => 'eng',
+               'de' => 'deu',
+               'it' => 'ita',
+               'ru' => 'rus',
+       },
 } ;
 
 #################################################
@@ -73,8 +88,16 @@
                $recherche = '\{\{langue\|'.$lang.'\}\}' ;
        } elsif ($wiktlang eq 'en') {
                $recherche = "^== *$languages->{$wiktlang}->{$lang} *==" ;
+       } elsif ($wiktlang eq 'de') {
+               $recherche = '\{\{Sprache\|' . $languages->{$wiktlang}->{$lang} 
. '\}\}';
        } else {
-               $recherche = '\{\{-'.$lang.'-\}\}' ;
+               if ($languages->{$wiktlang}) {
+                       my $code = $languages->{$wiktlang}->{$lang};
+                       $code = $lang if not $code;
+                       $recherche = '\{\{-'.$code.'-\}\}' ;
+               } else {
+                       $recherche = '\{\{-'.$lang.'-\}\}' ;
+               }
        }
        stepl "(cherche '$recherche') " ;
        return $recherche ;
@@ -84,9 +107,12 @@
 {
        my ($file, $recherche) = @_ ;
        my $list = {} ;
+
+       if ($file =~ /\.bz2$/) {
+               $file = "bzcat $file |";
+       }
        
-       
-       open(DUMP, dump_input($file)) or die "Couldn't open '$file': $!\n" ;
+       open(DUMP, $file) or die "Couldn't open '$file': $!\n" ;
        
        my $title = '' ;
        while(my $line = <DUMP>) {

-- 
To view, visit https://gerrit.wikimedia.org/r/92984
To unsubscribe, visit https://gerrit.wikimedia.org/r/settings

Gerrit-MessageType: merged
Gerrit-Change-Id: I35aa8c30ecc5597add2fbdf5073720c3096108d1
Gerrit-PatchSet: 1
Gerrit-Project: wiktionary/anagrimes
Gerrit-Branch: master
Gerrit-Owner: Darkdadaah <[email protected]>
Gerrit-Reviewer: Darkdadaah <[email protected]>

_______________________________________________
MediaWiki-commits mailing list
[email protected]
https://lists.wikimedia.org/mailman/listinfo/mediawiki-commits

Reply via email to