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

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

Revision: 67
          http://perlwikibot.svn.sourceforge.net/perlwikibot/?rev=67&view=rev
Author:   amire80
Date:     2008-08-12 07:22:30 +0000 (Tue, 12 Aug 2008)

Log Message:
-----------
Adding string files for fr + some cosmetics in the main script.

Modified Paths:
--------------
    trunk/no-interwiki/prepare_noiw_list.pl

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

Added: trunk/no-interwiki/fr.language_codes.txt
===================================================================
--- trunk/no-interwiki/fr.language_codes.txt	                        (rev 0)
+++ trunk/no-interwiki/fr.language_codes.txt	2008-08-12 07:22:30 UTC (rev 67)
@@ -0,0 +1 @@
+link language_codes.txt
\ No newline at end of file


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

Added: trunk/no-interwiki/fr.strings.txt
===================================================================
--- trunk/no-interwiki/fr.strings.txt	                        (rev 0)
+++ trunk/no-interwiki/fr.strings.txt	2008-08-12 07:22:30 UTC (rev 67)
@@ -0,0 +1,39 @@
+# months
+January	Jan
+February	Feb
+March	Mar
+April	Apr
+May	Mag
+June	Jun
+July	Jul
+August	Aug
+September	Sep
+October	Oct
+November	Nov
+December	Dec
+
+in	d'
+
+no_iw	sense iw
+disambig	Homonymie
+template	Modèle
+
+date	date
+type	type
+
+# MW specials
+REDIRECT	REDIRECT
+
+# Namespaces
+User	Utilisateur
+User talk	Discussion Utilisateur
+Image	Image
+Portal	Portail
+Category	Catégorie
+article space	Principal
+
+# Other
+other	autre
+rlm	‏
+exclude_lowercase	ß
+

Modified: trunk/no-interwiki/prepare_noiw_list.pl
===================================================================
--- trunk/no-interwiki/prepare_noiw_list.pl	2008-08-11 13:29:30 UTC (rev 66)
+++ trunk/no-interwiki/prepare_noiw_list.pl	2008-08-12 07:22:30 UTC (rev 67)
@@ -50,7 +50,7 @@
 );
 #>>>
 our $VERSION = ($SVN_PROPS{Revision} =~ /\A\$Revision:\ (?<revision_num>\d+)\ \$\z/xms)
-    ? "0.1.$+{revision_num}"
+    ? "0.1.9.$+{revision_num}"
     : croak(q(Something is wrong with SVN revision number));
 
 my %PATTERN;
@@ -324,8 +324,9 @@
 
 my $page_counter;
 
-my %statistics;
-$statistics{count_iw} = [];
+my %statistics = (
+    count_iw => [],
+);
 my %namespace_count;
 my %type_count;
 my %found_links;
@@ -1163,7 +1164,7 @@
 sub print_multi_links_by_foreign {
     LANG_CODE:
     foreach my $lang_code (sort keys %found_links) {
-        my $filename         = "$MULTI_DIR/$lang_code.txt";
+        my $filename         = "$MULTI_DIR/$lang_code.$WIKITEXT_EXT";
         my @foreign_articles = sort keys %{ $found_links{$lang_code} };
         FOREIGN_ARTICLE:
         foreach my $foreign_article (@foreign_articles) {
@@ -1209,7 +1210,7 @@
         }
     }
 
-    my $filename = "$MULTI_DIR/LOCAL.txt";
+    my $filename = "$MULTI_DIR/LOCAL.$WIKITEXT_EXT";
     foreach my $local_multi_article (sort keys %local_multi_links) {
         append_to_file($filename,
             '* ' . mw_bold(make_link($local_multi_article)));


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