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/</&lt;/;
-#    $pkg->{svn}->{changer} =~ s/>/&gt;/;
     my $svn = svn_get();
     my $changelog = $svn->{$pkg->{name}}{text};
     $changelog =~ s/&/&amp;/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