Add removals.pl

Signed-off-by: NJoerg Jaspert <joerg@debian.org>

ChangeLog

+2008-12-15  Joerg Jaspert  <joerg@debian.org>
+
+	* config/debian/cron.hourly: Call the removals.pl
+
 2008-12-09  Joerg Jaspert  <joerg@debian.org>
 
 	* config/debian/cron.hourly: Added queue_rss.py to hourly cron.

config/debian/cron.hourly

@@ -15,5 +15,6 @@ dak queue-report -n > $webdir/new.html
 dak show-deferred > ${webdir}/deferred.html
 cd $queuedir/new ; dak show-new *.changes > /dev/null
 $base/dak/tools/queue_rss.py -q $queuedir/new -o $webdir/rss/ -d $base/misc
+$base/dak/tools/removals.pl > $webdir/rss/removals.rss
 
 $scriptsdir/generate-di

tools/removals.pl

+#! /usr/bin/perl
+
+#    removals - generate an RSS feed of removals from Debian
+#    (C) Copyright 2005 Tollef Fog Heen <tfheen@err.no>
+#
+#    This program is free software; you can redistribute it and/or
+#    modify it under the terms of the GNU General Public License
+#    version 2 as published by the Free Software Foundation.
+#
+#    This program is distributed in the hope that it will be useful,
+#    but WITHOUT ANY WARRANTY; without even the implied warranty of
+#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+#    General Public License for more details.
+#
+#    You should have received a copy of the GNU General Public License
+#    along with this program; if not, write to the Free Software
+#    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
+#    02111-1307 USA
+
+
+use strict;
+use warnings;
+
+use MIME::Base64 qw(encode_base64);
+use XML::RSS;
+use POSIX qw(strftime);
+use CGI qw/:standard/;
+
+open REMOVALS, "</srv/ftp.debian.org/web/removals.txt";
+
+my @removals;
+
+{
+  local $/ = "=========================================================================\n=========================================================================";
+  @removals = reverse <REMOVALS>;
+}
+
+my $rss = new XML::RSS (version => '1.0');
+$rss->channel(
+			  title        => "Removals from Debian",
+			  link         => "http://ftp-master.debian.org/removals.txt",
+			  description  => "List of all the removals from Debian's archives",
+			  dc => {
+					 date       => POSIX::strftime ("%FT%R+00:00",gmtime()),
+					 subject    => "Removals from Debian",
+					 creator    => 'tfheen@debian.org',
+					 publisher  => 'joerg@debian.org',
+					 rights     => 'Copyright 2005, Tollef Fog Heen',
+					 language   => 'en-us',
+					},
+			  syn => {
+					  updatePeriod     => "hourly",
+					  updateFrequency  => "1",
+					  updateBase       => "1901-01-01T00:00+00:00",
+					 }
+			 );
+
+for (0..15) {
+  my $i = $_;
+  my ($null, $date, $ftpmaster, $body, $reason);
+  $removals[$i] =~ s/=========================================================================//g;
+  $removals[$i] =~ m/\[Date: ([^]]+)\] \[ftpmaster: ([^]]+)\]/;
+  $date = $1;
+  $ftpmaster = $2;
+  ($null, $body) = split /\n/, $removals[$i], 2;
+  chomp $body;
+  $body =~ m/---- Reason ---.*\n(.*)/;
+  $reason = $1;
+  my $link =  encode_base64($date . $ftpmaster);
+  chomp($link);
+
+  $rss->add_item(title       => "$reason",
+				 link        => "http://ftp-master.debian.org/removals.txt?" . $link,
+				 description => qq[&lt;pre&gt;$body&lt;/pre&gt;],
+				 dc => {
+						creator => "$ftpmaster",
+					   }
+				);
+
+}
+print $rss->as_string;