r16518 - /scripts/qa/rss_upload.cgi
gregoa-guest at users.alioth.debian.org
gregoa-guest at users.alioth.debian.org
Wed Mar 5 17:31:04 UTC 2008
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/</</;
- $pkg->{svn}->{changer} =~ s/>/>/;
+# $pkg->{svn}->{changer} =~ s/</</;
+# $pkg->{svn}->{changer} =~ s/>/>/;
+ my $svn = svn_get();
+ my $changelog = $svn->{$pkg->{name}}{text};
+ $changelog =~ s/&/&/g;
+ $changelog =~ s/'/'/g;
+ $changelog =~ s/"/"/g;
+ $changelog =~ s/</</g;
+ $changelog =~ s/>/>/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'}",
);
More information about the Pkg-perl-cvs-commits
mailing list