r16518 - /scripts/qa/rss_upload.cgi

[gregoa-guest at users.alioth.debian.org]

Author: gregoa-guest
Date: Wed Mar  5 17:31:03 2008
New Revision: 16518

URL: http://svn.debian.org/wsvn/?sc=1&rev=16518
Log:
show changelog entry in description

Modified:
    scripts/qa/rss_upload.cgi

Modified: scripts/qa/rss_upload.cgi
URL: http://svn.debian.org/wsvn/scripts/qa/rss_upload.cgi?rev=16518&op=diff
==============================================================================
--- scripts/qa/rss_upload.cgi (original)
+++ scripts/qa/rss_upload.cgi Wed Mar  5 17:31:03 2008
@@ -108,13 +108,23 @@
 
 foreach my $pkg ( @for_upload )
 {
-    $pkg->{svn}->{changer} =~ s/</&lt;/;
-    $pkg->{svn}->{changer} =~ s/>/&gt;/;
+#    $pkg->{svn}->{changer} =~ s/</&lt;/;
+#    $pkg->{svn}->{changer} =~ s/>/&gt;/;
+    my $svn = svn_get();
+    my $changelog = $svn->{$pkg->{name}}{text};
+    $changelog =~ s/&/&amp;/g;
+    $changelog =~ s/'/&apos;/g;
+    $changelog =~ s/"/&quot;/g;
+    $changelog =~ s/</&lt;/g;  
+    $changelog =~ s/>/&gt;/g;  
+    $changelog =~ s{\r?\n}{<br/>}g;
+    
     $rss->add_item(
        title       => "$pkg->{name}",  
        link        => sprintf($CFG{qareport_cgi}{wsvn_url}, $pkg->{name}),
-       description => "$pkg->{archive}->{most_recent} -> $pkg->{svn}->{version},\n" .
-                      decode_utf8($pkg->{svn}->{changer}) . ", $pkg->{svn}->{date}\n",
+#       description => "$pkg->{archive}->{most_recent} -> $pkg->{svn}->{version},\n" .
+#                      decode_utf8($pkg->{svn}->{changer}) . ", $pkg->{svn}->{date}\n",
+       description => "<pre>" . decode_utf8($changelog) ."</pre>\n",
        guid        => "$CFG{svn}{repository} revision $pkg->{svn}->{'/stamp'}",
      );