From e9d127328584062a35806bdeecb3faba6527a5dd Mon Sep 17 00:00:00 2001
From: "gerv%gerv.net" <>
Date: Wed, 8 May 2002 11:40:33 +0000
Subject: Bug 140437 - clean up parameters. Patch by gerv; 2xr=justdave.

---
 checksetup.pl | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

(limited to 'checksetup.pl')

diff --git a/checksetup.pl b/checksetup.pl
index a3aee4a7d..59d1dc14c 100755
--- a/checksetup.pl
+++ b/checksetup.pl
@@ -903,13 +903,23 @@ if (-e "data/params") {
     require "data/params";
     require "defparams.pl";
     use vars @::param_list;
+    open(PARAMFILE, ">>old-params.txt") 
+      || die "$0: Can't open param-$item.txt for writing: $!\n";
+      
     foreach my $item (keys %::param) {
         if (!grep($_ eq $item, @::param_list) && $item ne "version") {
-            print "The $item parameter is no longer used in Bugzilla\n" . 
-                  "and has been removed from your parameters file.\n";
+            print "The $item parameter is no longer used in Bugzilla,
+                   so it has been removed from your parameters file and
+                   written to old-params.txt.\n";
+            
+            print PARAMFILE "\n\n$item:\n";
+            print PARAMFILE $::param{$item};
+                
             delete $::param{$item};
         }
     }
+    
+    close PARAMFILE;
     WriteParams();
 }
 
-- 
cgit v1.2.3-24-g4f1b