[interchange-docs] xmldocs - docelic modified bin/infobot.facts

[docs at icdevgroup.org]

User:      docelic
Date:      2007-07-05 21:02:46 GMT
Modified:  bin      infobot.facts
Log:
* Ok, fix of the previous commit. Obviously I need to triple-check
  things today.

Revision  Changes    Path
1.3       +6 -2      xmldocs/bin/infobot.facts


rev 1.3, prev_rev 1.2
Index: infobot.facts
===================================================================
RCS file: /var/cvs/xmldocs/bin/infobot.facts,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- infobot.facts	5 Jul 2007 20:50:12 -0000	1.2
+++ infobot.facts	5 Jul 2007 21:02:46 -0000	1.3
@@ -4,6 +4,9 @@
 # creates interchange.fact file which you can load into an
 # infobot (www.infobot.org) to provide factoids on IRC channels.
 
+use warnings;
+use strict;
+
 my @files = <tmp/*.list>;
 s/tmp\/// for @files;
 s/\..*// for @files;
@@ -30,7 +33,7 @@
 uitags       => 'tags',
 usertags     => 'tags',
 glossary     => 'glossary',
-widget       => 'widget',
+widgets      => 'widgets',
 );
 
 # Translation from compound to "English"
@@ -42,7 +45,7 @@
 'pragmas'      => 'Pragma: ',
 'tags'         => 'Tag: ',
 'glossary'     => 'Glossary: ',
-'widget'       => 'Widget: ',
+'widgets'      => 'Widget: ',
 );
 
 
@@ -50,6 +53,7 @@
 	open IN, "< tmp/$file.list" or die "Can't rdopen 'tmp/$file.list' ($!)\n";
 	while ($_ = <IN>) {
 		chomp;
+		#print "FILE:$file TR:$tr{$file} TREN:$trEn{$tr{$file}}\n";
 		my $data = $trEn{$tr{$file}} . $prefix . $tr{$file} . '/' . $_ . '.html';
 
 		unless ( grep {/^$data$/} @{$output{$_}} ) {