From 27a0230dd7d0acb41380d65fd30fd935b9598f98 Mon Sep 17 00:00:00 2001
From: cjwatson <>
Date: Sun, 25 May 2003 12:17:14 -0800
Subject: [PATCH] [project @ 2003-05-25 13:17:14 by cjwatson] Nothing uses
 archive/index, so stop updating it.

---
 scripts/expire.in | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

diff --git a/scripts/expire.in b/scripts/expire.in
index 796f5f60..d2284036 100755
--- a/scripts/expire.in
+++ b/scripts/expire.in
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: expire.in,v 1.15 2003/05/03 20:01:20 doogie Exp $
+# $Id: expire.in,v 1.16 2003/05/25 13:17:14 cjwatson Exp $
 
 # Load modules and set envirnment
 use File::Copy;
@@ -72,11 +72,6 @@ while (length($ref=shift(@list))) {
 			link( "db-h/$dir/$mref.log", "archive/$dir/$mref.log" ) || copy( "db-h/$dir/$mref.log", "archive/$dir/$mref.log" );
 			link( "db-h/$dir/$mref.status", "archive/$dir/$mref.status" ) || copy( "db-h/$dir/$mref.status", "archive/$dir/$mref.status" );
 			link( "db-h/$dir/$mref.report", "archive/$dir/$mref.report" ) || copy( "db-h/$dir/$mref.report", "archive/$dir/$mref.report" );
-			if ( open( IDXFILE, ">>archive/index" ) ) {
-				printf IDXFILE "%s %d %s\n", $data->{package}, $mref, $data->{subject};
-				close IDXFILE;
-			} else { print "Unable to write to index file\n"; }
-				
             		print("archived $mref to archive/$dir (from $ref)\n") || &quit("output old: $!");
 		}
 		unlink("db-h/$dir/$mref.log", "db-h/$dir/$mref.status", "db-h/$dir/$mref.report");
-- 
2.39.5