use POSIX qw(strftime);
use CGI qw/:standard/;
-open REMOVALS, "</srv/ftp.debian.org/web/removals.txt";
+open REMOVALS, "</srv/backports-web.debian.org/underlay/removals.txt";
my @removals;
my $rss = new XML::RSS (version => '1.0');
$rss->channel(
title => "Removals from Debian",
- link => "http://ftp-master.debian.org/removals.txt",
+ link => "http://backports-master.debian.org/removals.txt",
description => "List of all the removals from Debian's archives",
dc => {
date => POSIX::strftime ("%FT%R+00:00",gmtime()),
}
);
-for (0..15) {
- my $i = $_;
+my $num_to_display = 16;
+for my $removal (@removals ) {
my ($null, $date, $ftpmaster, $body, $reason);
- $removals[$i] =~ s/=========================================================================//g;
- $removals[$i] =~ m/\[Date: ([^]]+)\] \[ftpmaster: ([^]]+)\]/;
+ $removal =~ s/=========================================================================//g;
+ $removal =~ m/\[Date: ([^]]+)\] \[ftpmaster: ([^]]+)\]/;
$date = $1;
$ftpmaster = $2;
- ($null, $body) = split /\n/, $removals[$i], 2;
+ ($null, $body) = split /\n/, $removal, 2;
chomp $body;
$body =~ m/---- Reason ---.*\n(.*)/;
$reason = $1;
chomp($link);
$rss->add_item(title => "$reason",
- link => "http://ftp-master.debian.org/removals.txt?" . $link,
- description => qq[<pre>$body</pre>],
+ link => "http://backports-master.debian.org/removals.txt?" . $link,
+ description => qq[<pre>$body</pre>],
dc => {
creator => "$ftpmaster",
}
);
+ $num_to_display -= 1;
+ last unless $num_to_display;
}
print $rss->as_string;