[Glibc-bsd-commits] r1910 - trunk/web/scripts/dlog

[Cyril Brulebois]

Author: kibi-guest
Date: 2007-03-19 06:44:09 +0000 (Mon, 19 Mar 2007)
New Revision: 1910

Modified:
   trunk/web/scripts/dlog/dlog-fetch.pl
Log:
dlog-fetcher: decode HTML entities

Modified: trunk/web/scripts/dlog/dlog-fetch.pl
===================================================================
--- trunk/web/scripts/dlog/dlog-fetch.pl	2007-03-19 06:32:43 UTC (rev 1909)
+++ trunk/web/scripts/dlog/dlog-fetch.pl	2007-03-19 06:44:09 UTC (rev 1910)
@@ -9,18 +9,19 @@
 #
 #
 # Dependencies on Debian packages: (non-exhaustive)
-#  - libterm-readline-perl-perl [or similar?]
-#  - libwww-perl
-#  - libhtml-tree-perl
-#  - libapt-pkg-perl
+#  - libterm-readline-perl-perl [Or other?]
+#  - libwww-perl                [WWW:Mechanize]
+#  - libhtml-tree-perl          [HTML::TreeBuilder]
+#  - libhtml-parser-perl        [HTML::Entities]
+#  - libapt-pkg-perl            [AptPkg::*]
 #  - [to be continued]
 #
 # (maybe) in future versions:
-#  - replace HTML entities
 #  - support several buildd servers query at the same time
 #  - support several versions query at the same time (e.g. using a
 #    coma-separated list)
 #  - support command-line parameters to ease calls from dlog-analyze
+#  - proper copyright header
 
 
 use strict;
@@ -28,6 +29,7 @@
 use Data::Dumper;
 use WWW::Mechanize;
 use HTML::TreeBuilder;
+use HTML::Entities;
 
 use AptPkg::Config  '$_config';
 use AptPkg::System  '$_system';
@@ -298,6 +300,9 @@
             $suffix = '_ftbfs';
         }
 
+        # HTML...
+        decode_entities($content);
+
         open my $log, '>', $log_dir.'/'.$stamp.$suffix
             or die "Unable to create $stamp in $log_dir";