From: cjwatson <>
Date: Sun, 25 May 2003 20:17:14 +0000 (-0800)
Subject: [project @ 2003-05-25 13:17:14 by cjwatson]
X-Git-Tag: release/2.6.0~898
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=27a0230dd7d0acb41380d65fd30fd935b9598f98;p=debbugs.git

[project @ 2003-05-25 13:17:14 by cjwatson]
Nothing uses archive/index, so stop updating it.
---

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");