1 files changed, 33 insertions, 0 deletions
diff --git a/ldap/cm/fixPerlDAPInf.pl b/ldap/cm/fixPerlDAPInf.pl
new file mode 100644
index 00000000..fe87dad0
--- /dev/null
+++ b/ldap/cm/fixPerlDAPInf.pl
@@ -0,0 +1,33 @@
+#
+# BEGIN COPYRIGHT BLOCK
+# Copyright 2001 Sun Microsystems, Inc.
+# Portions copyright 1999, 2001-2003 Netscape Communications Corporation.
+# All rights reserved.
+# END COPYRIGHT BLOCK
+#
+
+# the argument is the full path and filename of the perldap.inf file
+
+$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: $!";
+
+while (<IN>) {
+  if (/^Description/) {
+	s/The Sun \| Netscape Alliance/Netscape/g;
+	s/iPlanet/Netscape/g;
+  } elsif (/^Vendor/) {
+	s/Sun \| Netscape Alliance/Netscape Communications Corp./g;
+  }
+  print OUT;
+  if (/^Archive=perldap14.zip/) {
+    print OUT "Visible=FALSE\n";
+  }
+}
+
+close OUT;
+close IN;
+
+unlink $infile;
+rename $outfile, $infile;