r17822 - /scripts/qa/rss_upload.cgi
gregoa-guest at users.alioth.debian.org
gregoa-guest at users.alioth.debian.org
Tue Mar 18 16:55:27 UTC 2008
Author: gregoa-guest
Date: Tue Mar 18 16:55:26 2008
New Revision: 17822
URL: http://svn.debian.org/wsvn/?sc=1&rev=17822
Log:
create the guid differently
Modified:
scripts/qa/rss_upload.cgi
Modified: scripts/qa/rss_upload.cgi
URL: http://svn.debian.org/wsvn/scripts/qa/rss_upload.cgi?rev=17822&op=diff
==============================================================================
--- scripts/qa/rss_upload.cgi (original)
+++ scripts/qa/rss_upload.cgi Tue Mar 18 16:55:26 2008
@@ -108,8 +108,6 @@
foreach my $pkg ( @for_upload )
{
-# $pkg->{svn}->{changer} =~ s/</</;
-# $pkg->{svn}->{changer} =~ s/>/>/;
my $svn = svn_get();
my $changelog = $svn->{$pkg->{name}}{text};
$changelog =~ s/&/&/g;
@@ -122,10 +120,13 @@
$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",
+ # just use the changelog
description => "<pre>" . decode_utf8($changelog) ."</pre>\n",
- guid => "$CFG{svn}{repository} revision $pkg->{svn}->{'/stamp'}",
+ #guid => "$CFG{svn}{repository} revision $pkg->{svn}->{'/stamp'}",
+ # the /stamp ist gone, use the date; and the local path is weird, use the group name
+ guid => "$CFG{qareport_cgi}{group_name}, $pkg->{svn}->{date}",
);
# use Data::Dumper; print Dumper $pkg;
More information about the Pkg-perl-cvs-commits
mailing list