[PerlWikiBot] SF.net SVN: perlwikibot:[91] trunk/no-interwiki
Status: Pre-Alpha
Brought to you by:
rotemliss
|
From: <am...@us...> - 2010-05-26 15:37:06
|
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 ‏
+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.
|