lintian: r1309 - in trunk: debian reporting

[djpig@debian.org]

Author: djpig
Date: 2008-05-17 00:47:23 +0200 (Sat, 17 May 2008)
New Revision: 1309

Modified:
   trunk/debian/changelog
   trunk/reporting/html_reports
Log:
* reporting/html_reports:
  + Escape $email variable for usage in URI query strings.  
    Currently it is not used for anything else, so it is most simple
    to do it in the actual code.  Reported by Sandro Tosi.
    (Closes: #481256)


Modified: trunk/debian/changelog
===================================================================
--- trunk/debian/changelog	2008-05-15 20:58:34 UTC (rev 1308)
+++ trunk/debian/changelog	2008-05-16 22:47:23 UTC (rev 1309)
@@ -20,6 +20,12 @@
       .changes files.  It can be annoying to have to ignore this error
       during testing and dupload/dput/dak/etc... all will error out
       on it anyway.  Suggested by martin f krafft.  (Closes: #382327)
+  
+  * reporting/html_reports:
+    + [FL] Escape $email variable for usage in URI query strings.  
+      Currently it is not used for anything else, so it is most simple
+      to do it in the actual code.  Reported by Sandro Tosi.
+      (Closes: #481256)
 
  -- Frank Lichtenheld <djpig@debian.org>  Tue, 06 May 2008 20:01:56 +0200
 

Modified: trunk/reporting/html_reports
===================================================================
--- trunk/reporting/html_reports	2008-05-15 20:58:34 UTC (rev 1308)
+++ trunk/reporting/html_reports	2008-05-16 22:47:23 UTC (rev 1309)
@@ -23,6 +23,7 @@
 
 use strict;
 use File::Copy qw(copy);
+use URI::Escape;
 use Text::Template ();
 
 # ------------------------------
@@ -327,7 +328,7 @@
     # full maintainer page (all tags, including overrides and info tags).
     print "Generating page for $id\n";
     my %data = (
-        email      => html_quote ($email),
+        email      => html_quote (uri_escape ($email)),
         errors     => 1,
         id         => $id,
         maintainer => html_quote ($maintainer),
@@ -374,7 +375,7 @@
     my ($name, $email) = ($maintainer =~ /^(.*) <([^>]+)>/);
     $email = 'unknown' unless $email;
     my %data = (
-        email      => html_quote ($email),
+        email      => html_quote (uri_escape ($email)),
         maintainer => html_quote ($maintainer),
         name       => html_quote ($name),
         timestamp  => $timestamp,