summaryrefslogtreecommitdiffstats
path: root/ldap/cm/fixNSPerlInf.pl
diff options
context:
space:
mode:
authorRich Megginson <rmeggins@redhat.com>2007-06-20 22:08:44 +0000
committerRich Megginson <rmeggins@redhat.com>2007-06-20 22:08:44 +0000
commit21a720bdde2fcd98ad8e6ea23bda1a7b503120c4 (patch)
tree0a6ed117ff9e621d583143afb534f213e39e264e /ldap/cm/fixNSPerlInf.pl
parent58beff0b8a06fa37ba459d978ed16a93c6a2f55f (diff)
downloadds-21a720bdde2fcd98ad8e6ea23bda1a7b503120c4.tar.gz
ds-21a720bdde2fcd98ad8e6ea23bda1a7b503120c4.tar.xz
ds-21a720bdde2fcd98ad8e6ea23bda1a7b503120c4.zip
remove obsolete files
Diffstat (limited to 'ldap/cm/fixNSPerlInf.pl')
-rw-r--r--ldap/cm/fixNSPerlInf.pl87
1 files changed, 0 insertions, 87 deletions
diff --git a/ldap/cm/fixNSPerlInf.pl b/ldap/cm/fixNSPerlInf.pl
deleted file mode 100644
index 5194eaf6..00000000
--- a/ldap/cm/fixNSPerlInf.pl
+++ /dev/null
@@ -1,87 +0,0 @@
-#
-# BEGIN COPYRIGHT BLOCK
-# This Program is free software; you can redistribute it and/or modify it under
-# the terms of the GNU General Public License as published by the Free Software
-# Foundation; version 2 of the License.
-#
-# This Program is distributed in the hope that it will be useful, but WITHOUT
-# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
-# FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# this Program; if not, write to the Free Software Foundation, Inc., 59 Temple
-# Place, Suite 330, Boston, MA 02111-1307 USA.
-#
-# In addition, as a special exception, Red Hat, Inc. gives You the additional
-# right to link the code of this Program with code not covered under the GNU
-# General Public License ("Non-GPL Code") and to distribute linked combinations
-# including the two, subject to the limitations in this paragraph. Non-GPL Code
-# permitted under this exception must only link to the code of this Program
-# through those well defined interfaces identified in the file named EXCEPTION
-# found in the source code files (the "Approved Interfaces"). The files of
-# Non-GPL Code may instantiate templates or use macros or inline functions from
-# the Approved Interfaces without causing the resulting work to be covered by
-# the GNU General Public License. Only Red Hat, Inc. may make changes or
-# additions to the list of Approved Interfaces. You must obey the GNU General
-# Public License in all respects for all of the Program code and other code used
-# in conjunction with the Program except the Non-GPL Code covered by this
-# exception. If you modify this file, you may extend this exception to your
-# version of the file, but you are not obligated to do so. If you do not wish to
-# provide this exception without modification, you must delete this exception
-# statement from your version and license this file solely under the GPL without
-# exception.
-#
-#
-# Copyright (C) 2001 Sun Microsystems, Inc. Used by permission.
-# Copyright (C) 2005 Red Hat, Inc.
-# 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: $!";
-
-$PRINT = 1;
-while (<IN>) {
- if (/^Components\s*=\s*/) {
- if ($' =~ /$ARGV[1]/) {
- $_ = "Components=$ARGV[1]\n";
- } else {
- die "Error: the version of nsPerl in $infile does not contain $ARGV[1]\n";
- }
- }
- if (/^Archive=/) {
- $_ = "Archive=nsperl561.zip\n";
- }
- if (/^\[(\w+)\]/) {
- if (($1 eq $ARGV[1]) || ($1 eq General)) {
- $PRINT = 1;
- } else {
- $PRINT = 0;
- }
- }
-
- if ($PRINT) {
- if (/^Description/) {
- s/The Sun \| Netscape Alliance/Fedora/g;
- s/iPlanet/Fedora/g;
- } elsif (/^Vendor/) {
- s/The Sun \| Netscape Alliance/Fedora/g;
- }
- print OUT;
- if (/^RunPostInstall/) {
- print OUT "Checked=TRUE\nVisible=FALSE\n";
- }
- }
-}
-
-close OUT;
-close IN;
-
-unlink $infile;
-rename $outfile, $infile;