r18108 - /scripts/qa/rss_upload.cgi
gregoa-guest at users.alioth.debian.org
gregoa-guest at users.alioth.debian.org
Sat Mar 29 00:01:35 UTC 2008
Author: gregoa-guest
Date: Sat Mar 29 00:01:32 2008
New Revision: 18108
URL: http://svn.debian.org/wsvn/?sc=1&rev=18108
Log:
remove some cruft
Modified:
scripts/qa/rss_upload.cgi
Modified: scripts/qa/rss_upload.cgi
URL: http://svn.debian.org/wsvn/scripts/qa/rss_upload.cgi?rev=18108&op=diff
==============================================================================
--- scripts/qa/rss_upload.cgi (original)
+++ scripts/qa/rss_upload.cgi Sat Mar 29 00:01:32 2008
@@ -21,7 +21,6 @@
use POSIX qw(locale_h);
use Template ();
use Date::Parse ();
-use File::Find ();
use List::Util qw(max);
use XML::RSS;
use Encode;
@@ -33,11 +32,6 @@
my $cache = read_cache(consolidated => "");
my @modified;
-# Find recent template files
-File::Find::find( { wanted => sub {
- my $mtime = (stat)[9];
- push @modified, $mtime if(-f _);
- } }, $CFG{qareport_cgi}{templates_path} );
my $script_date = '$Date$';
push @modified, Date::Parse::str2time(
join(' ', (split(/ /, $script_date))[1..3]));
@@ -46,8 +40,7 @@
my $last_modified = max @modified;
my @pkglist = get_pkglist();
my $cls = classify(@pkglist);
-
-my( @for_upload );
+my @for_upload;
foreach my $pkg (sort keys %$cls)
{
@@ -120,12 +113,7 @@
$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",
- # just use the changelog
description => "<pre>" . decode_utf8($changelog) ."</pre>\n",
- #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}",
);
More information about the Pkg-perl-cvs-commits
mailing list