[PerlWikiBot] SF.net SVN: perlwikibot:[66] trunk/no-interwiki/prepare_noiw_list.pl

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

Revision: 66
          http://perlwikibot.svn.sourceforge.net/perlwikibot/?rev=66&view=rev
Author:   amire80
Date:     2008-08-11 13:29:30 +0000 (Mon, 11 Aug 2008)

Log Message:
-----------
Moved multi links to separate files.

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

Modified: trunk/no-interwiki/prepare_noiw_list.pl
===================================================================
--- trunk/no-interwiki/prepare_noiw_list.pl	2008-08-11 13:28:09 UTC (rev 65)
+++ trunk/no-interwiki/prepare_noiw_list.pl	2008-08-11 13:29:30 UTC (rev 66)
@@ -57,6 +57,7 @@
 Readonly my $WIKITEXT_EXT => 'wiki.txt';
 Readonly my $OUT_DIR      => 'out';
 Readonly my $UNSORTED_DIR => "$OUT_DIR/unsorted";
+Readonly my $MULTI_DIR    => "$OUT_DIR/multilinks";
 Readonly my $ALT_SEP      => q{|};
 Readonly my $FIELD_SEP    => qq{\t};
 Readonly my $LINK_SEP     => q{|};
@@ -291,7 +292,8 @@
 }
 
 # TODO: Make smarter, configurable, whatever
-foreach my $out_dir ($OUT_DIR, $UNSORTED_DIR) {
+# $OUT_DIR must be first, because it's the parent
+foreach my $out_dir ($OUT_DIR, $UNSORTED_DIR, $MULTI_DIR) {
     if (-d $out_dir) {
         unlink glob "$out_dir/*$WIKITEXT_EXT";
     }
@@ -1137,7 +1139,7 @@
     open my $file, '>>:utf8', $fn
         or croak(file_error('opening', $fn, 'appending'));
 
-    say {$file} $line;
+    say {$file} ($line // q{});
 
     close $file
         or croak(file_error('closing', $fn, 'appeding'));
@@ -1161,6 +1163,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 @foreign_articles = sort keys %{ $found_links{$lang_code} };
         FOREIGN_ARTICLE:
         foreach my $foreign_article (@foreign_articles) {
@@ -1174,7 +1177,7 @@
                     make_link($lang_code
                         . $MW_SYNTAX{namespace_sep}
                         . $foreign_article);
-                INFO("* '''$foreign_title''' - $links\n");
+                append_to_file($filename, "* '''$foreign_title''' - $links");
             }
         }
     }
@@ -1186,8 +1189,6 @@
     my %local_multi_links;
     LANG_CODE:
     foreach my $lang_code (sort keys %found_links) {
-
-        # my @foreign_articles = map { make_link($lang_code . $MW_SYNTAX{namespace_sep} . $_) } sort keys %{ $found_links{$lang_code} };
         my @foreign_articles = sort keys %{ $found_links{$lang_code} };
         FOREIGN_ARTICLE:
         foreach my $foreign_article (@foreign_articles) {
@@ -1208,19 +1209,23 @@
         }
     }
 
+    my $filename = "$MULTI_DIR/LOCAL.txt";
     foreach my $local_multi_article (sort keys %local_multi_links) {
-        INFO('* ' . mw_bold(make_link($local_multi_article)));
+        append_to_file($filename,
+            '* ' . mw_bold(make_link($local_multi_article)));
         foreach my $other_local_article (
             sort keys %{ $local_multi_links{$local_multi_article} })
         {
-            INFO('** ' . make_link($other_local_article));
+            append_to_file($filename,
+                '** ' . make_link($other_local_article));
             my $foreign_articles = join_links(
                 $local_multi_links{$local_multi_article}
                     ->{$other_local_article},
                 0
             );
-            INFO("*** $foreign_articles");
+            append_to_file($filename, "*** $foreign_articles");
         }
+        append_to_file($filename);
     }
 
     return;


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