r18108 - /scripts/qa/rss_upload.cgi

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

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}",
      );