diff options
author | Rich Megginson <rmeggins@redhat.com> | 2007-06-20 22:08:44 +0000 |
---|---|---|
committer | Rich Megginson <rmeggins@redhat.com> | 2007-06-20 22:08:44 +0000 |
commit | 21a720bdde2fcd98ad8e6ea23bda1a7b503120c4 (patch) | |
tree | 0a6ed117ff9e621d583143afb534f213e39e264e /ldap/cm/fixNSPerlInf.pl | |
parent | 58beff0b8a06fa37ba459d978ed16a93c6a2f55f (diff) | |
download | ds-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.pl | 87 |
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; |