From 72e1154ed24b8ad7ad5cc29a2dfdd8310d6cec41 Mon Sep 17 00:00:00 2001
From: Peter Karlsson <peterk>
Date: Sun, 29 Dec 2002 16:29:25 +0000
Subject: Generate ICS (Internet Calendar, RFC 2445) files for the Debian
 events, using the WML source files as input.

CVS version numbers

remove_stale.pl: 1.9 -> 1.10
english/events/make_ics.pl: INITIAL -> 1.1
english/events/2003/Makefile: 1.1 -> 1.2
english/po/templates.pot: 1.7 -> 1.8
english/template/debian/event.wml: 1.62 -> 1.63
english/template/debian/events_common.wml: 1.32 -> 1.33
swedish/po/templates.sv.po: 1.13 -> 1.14
---
 remove_stale.pl | 26 ++++++++++++++++++++++++--
 1 file changed, 24 insertions(+), 2 deletions(-)

(limited to 'remove_stale.pl')

diff --git a/remove_stale.pl b/remove_stale.pl
index 44dc6f040c7..5e5351204a6 100755
--- a/remove_stale.pl
+++ b/remove_stale.pl
@@ -6,8 +6,8 @@
 # a removing a WML file from CVS causes the corresponding HTML file to go
 # away.
 
-# Written 2001-03-22 by peter karlsson <peterk@debian.org>
-# © Copyright 2001 Software in the public interest, Inc.
+# Originally written 2001-03-22 by peter karlsson <peterk@debian.org>
+# © Copyright 2001-2002 Software in the public interest, Inc.
 # This program is released under the GNU General Public License, v2.
 
 # $Id$
@@ -123,6 +123,12 @@ sub recurse
 				my $installed = $direntry;
 				$installed =~ s(^\./[^/]*/)(../www/);
 
+				# Name of corresponding ICS file for events.
+				my $icslocal = $direntry;
+				$icslocal =~ s/html$/ics/;
+				my $icsinstalled = $installed;
+				$icsinstalled =~ s/html$/ics/;
+
 				# Remove or report.
 				if ($opt_d)
 				{
@@ -132,6 +138,18 @@ sub recurse
 						unlink $installed
 							or die "Unable to remove $installed: $!\n";
 					}
+					if (-f $icsinstalled)
+					{
+						print "Removing $icsinstalled\n";
+						unlink $icsinstalled
+							or die "Unable to remove $icsinstalled: $!\n";
+					}
+					if (-f $icslocal)
+					{
+						print "Removing $icslocal\n";
+						unlink $icslocal
+							or die "Unable to remove $icslocal: $!\n";
+					}
 
 					print "Removing $direntry\n";
 					unlink $direntry
@@ -143,6 +161,10 @@ sub recurse
 					print "  installed file is $installed\n";
 					print " (does not exist)\n"
 						unless -f $installed;
+					print "  installed ICS file: $icsinstalled\n"
+						if -f $icsinstalled;
+					print "  local ICS file: $icslocal\n"
+						if -f $icslocal;
 				}
 			}
 		}
-- 
cgit v1.2.3