tools/removals.pl was making the assumption that at least 16 removals exist in
removals.txt. If there are not, it creates and rss feed with with bogus empty
removals to pad the output to 16 entries. This patch removes this false
assumption.
Signed-off-by: Mike O'Connor <stew@vireo.org>
-for (0..15) {
- my $i = $_;
+my $num_to_display = 16;
+for my $removal (@removals ) {
my ($null, $date, $ftpmaster, $body, $reason);
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;
$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 $body;
$body =~ m/---- Reason ---.*\n(.*)/;
$reason = $1;
+ $num_to_display -= 1;
+ last unless $num_to_display;