1 files changed, 39 insertions, 0 deletions
diff --git a/ldap/cm/fixBaseInf.pl b/ldap/cm/fixBaseInf.pl
new file mode 100644
index 00000000..cadbfa74
--- /dev/null
+++ b/ldap/cm/fixBaseInf.pl
@@ -0,0 +1,39 @@
+#
+# BEGIN COPYRIGHT BLOCK
+# Copyright 2001 Sun Microsystems, Inc.
+# Portions copyright 1999, 2001-2003 Netscape Communications Corporation.
+# All rights reserved.
+# END COPYRIGHT BLOCK
+#
+
+# the first argument is the full path and filename of ths nsperl.inf file
+# the second argument is the name of the sub component to use
+
+$infile = $ARGV[0];
+$outfile = $ARGV[0] . ".tmp";
+open(IN, $infile) or die "Error: could not read file $infile: $!";
+open(OUT, ">$outfile") or die "Error: could not write file $outfile: $!";
+
+$inBaseSection = 0;
+while (<IN>) {
+  my $printIt = 1;
+  if ($inBaseSection && /^Archive/) {
+	$printIt = 0; # remove the Archive directives
+  } elsif ($inBaseSection && /^System32Archive/) {
+	$printIt = 0; # remove the Archive directives
+  } elsif ($inBaseSection && /^RestoreFiles/) {
+	$printIt = 0; # these files may not be present
+  }
+  if (/^\[base\]/) {
+	$inBaseSection = 1;
+  } elsif (/^\[/) {
+	$inBaseSection = 0;
+  }
+  print OUT if $printIt;
+}
+
+close OUT;
+close IN;
+
+unlink $infile;
+rename $outfile, $infile;