[PerlWikiBot] SF.net SVN: perlwikibot:[91] trunk/no-interwiki

[<am...@us...>]

Revision: 91
          http://perlwikibot.svn.sourceforge.net/perlwikibot/?rev=91&view=rev
Author:   amire80
Date:     2010-05-26 15:36:59 +0000 (Wed, 26 May 2010)

Log Message:
-----------
Strings for Masry (arz).

Modified Paths:
--------------
    trunk/no-interwiki/MediaWiki/Toolkit.pm
    trunk/no-interwiki/prepare_noiw_list.pl
    trunk/no-interwiki/upload_iw.pl

Added Paths:
-----------
    trunk/no-interwiki/arz.language_codes.txt
    trunk/no-interwiki/arz.strings.txt

Property Changed:
----------------
    trunk/no-interwiki/MediaWiki/Toolkit.pm
    trunk/no-interwiki/upload_iw.pl

Modified: trunk/no-interwiki/MediaWiki/Toolkit.pm
===================================================================
--- trunk/no-interwiki/MediaWiki/Toolkit.pm	2010-03-26 18:42:13 UTC (rev 90)
+++ trunk/no-interwiki/MediaWiki/Toolkit.pm	2010-05-26 15:36:59 UTC (rev 91)
@@ -16,15 +16,16 @@
     GET_STRING => [qw( get_strings get_string )],
     FILE_UTIL  => [qw( file_error append_to_file read_file )],
     NAMESPACE  => [qw( init_namespaces namespace )],
+    DUMP       => [qw( load_dump )],
 );
 our @EXPORT_OK = map { @{$_} } values %EXPORT_TAGS;
 
 our $VERSION = '0.01';
 #<<< no perltidy
 my %SVN_PROPS = ( ## no critic (RequireInterpolationOfMetachars)
-    Revision => '$Revision: 0 $',
-    HeadURL  => '$HeadURL: https://perlwikibot.svn.sourceforge.net/svnroot/perlwikibot/trunk/no-interwiki/MediaWiki/Toolkit.pm $',
-    Date     => '$Date: 2010-03-25 17:02:28 +0200 (Thu, 25 Mar 2010) $',
+    Revision => '$Revision$',
+    HeadURL  => '$HeadURL$',
+    Date     => '$Date$',
 );
 #>>>
 
@@ -134,5 +135,13 @@
     return $namespace || get_string('article space');
 }
 
+sub load_dump {
+    my ($dump_fn) = @_;
+
+    my $dump = MediaWiki::DumpFile::Pages->new($dump_fn);
+
+    return $dump;
+}
+
 1;
 


Property changes on: trunk/no-interwiki/MediaWiki/Toolkit.pm
___________________________________________________________________
Added: svn:keywords
   + Revision HeadURL Date

Added: trunk/no-interwiki/arz.language_codes.txt
===================================================================
--- trunk/no-interwiki/arz.language_codes.txt	                        (rev 0)
+++ trunk/no-interwiki/arz.language_codes.txt	2010-05-26 15:36:59 UTC (rev 91)
@@ -0,0 +1 @@
+link language_codes.txt
\ No newline at end of file


Property changes on: trunk/no-interwiki/arz.language_codes.txt
___________________________________________________________________
Added: svn:special
   + *

Added: trunk/no-interwiki/arz.strings.txt
===================================================================
--- trunk/no-interwiki/arz.strings.txt	                        (rev 0)
+++ trunk/no-interwiki/arz.strings.txt	2010-05-26 15:36:59 UTC (rev 91)
@@ -0,0 +1,37 @@
+# months
+January	يناير
+February	فبراير
+March	مارس
+April	ابريل
+May	مايو
+June	يونيه
+July	يوليه
+August	اغسطس
+September	سبتمبر
+October	اكتوبر
+November	نوفمبر
+December	ديسمبر
+
+no_iw	no_iw
+disambig	توضيح
+template	قالب
+
+date	تاريخ
+type	نوع
+
+# MW specials
+REDIRECT	تحويل
+
+# Namespaces
+User	مستخدم
+User talk	نقاش المستخدم
+Image	ملف
+Portal	بوابة
+Category	تصنيف
+article space	(رئيسى)
+
+# Other
+other	متفرقات
+rlm	&rlm;
+exclude_lowercase	ß
+

Modified: trunk/no-interwiki/prepare_noiw_list.pl
===================================================================
--- trunk/no-interwiki/prepare_noiw_list.pl	2010-03-26 18:42:13 UTC (rev 90)
+++ trunk/no-interwiki/prepare_noiw_list.pl	2010-05-26 15:36:59 UTC (rev 91)
@@ -62,6 +62,7 @@
         :FIELD_SEP
         :GET_STRING :FILE_UTIL
         :NAMESPACE
+        :DUMP
         )
 );
 
@@ -361,7 +362,7 @@
     }
 }
 
-my $the_dump = load_dump();
+my $the_dump = load_dump($dump_fn);
 
 my %NAMESPACES = $the_dump->namespaces();
 my @NAMESPACES = values %NAMESPACES;
@@ -417,14 +418,6 @@
 
 exit;
 
-sub load_dump {
-    my $dump;
-
-    $dump = MediaWiki::DumpFile::Pages->new($dump_fn);
-
-    return $dump;
-}
-
 sub next_page {
     my ($dump) = @_;
     my $page_ref = eval { $dump->next(); };
@@ -1203,11 +1196,14 @@
             next LANG_CODE;
         }
         my $filename         = "$MULTI_DIR/$lang_code.$WIKITEXT_EXT";
+        say 'sort keys found_links lang_code'; # XXX
         my @foreign_articles = sort keys %{ $found_links{$lang_code} };
+        say 'format_link_table lang_code scalar foreign_articles'; # XXX
         say format_link_table($lang_code, scalar @foreign_articles);
 
         FOREIGN_ARTICLE:
         foreach my $foreign_article (@foreign_articles) {
+            say 'local_articles = keys found_links lang_code';
             my @local_articles =
                 keys %{ $found_links{$lang_code}->{$foreign_article} };
 
@@ -1219,6 +1215,7 @@
             }
 
             if (scalar @local_articles > 1) {
+                say 'links = join sort map make_link';
                 my $links = join q{ | }, sort map { make_link($_) }
                     keys %{ $found_links{$lang_code}->{$foreign_article} };
 
@@ -1226,6 +1223,7 @@
                     make_link($lang_code
                         . $MW_SYNTAX{namespace_sep}
                         . $foreign_article);
+                say 'append_to_file filename';
                 append_to_file($filename, "* '''$foreign_title''' - $links");
             }
         }

Modified: trunk/no-interwiki/upload_iw.pl
===================================================================
--- trunk/no-interwiki/upload_iw.pl	2010-03-26 18:42:13 UTC (rev 90)
+++ trunk/no-interwiki/upload_iw.pl	2010-05-26 15:36:59 UTC (rev 91)
@@ -26,9 +26,9 @@
 our $VERSION = '0.01';
 #<<< no perltidy
 my %SVN_PROPS = ( ## no critic (RequireInterpolationOfMetachars)
-    Revision => '$Revision: 0 $',
-    HeadURL  => '$HeadURL: https://perlwikibot.svn.sourceforge.net/svnroot/perlwikibot/trunk/no-interwiki/upload_iw.pl $',
-    Date     => '$Date: 2010-03-25 17:02:28 +0200 (Thu, 25 Mar 2010) $',
+    Revision => '$Revision$',
+    HeadURL  => '$HeadURL$',
+    Date     => '$Date$',
 );
 #>>>
 


Property changes on: trunk/no-interwiki/upload_iw.pl
___________________________________________________________________
Added: svn:keywords
   + Revision HeadURL Date


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.