- Obsolete and made unusable by changes in the Ports Collection

1 files changed, 0 insertions, 109 deletions

diff --git a/Tools/scripts/mkptools/mkpinstall b/Tools/scripts/mkptools/mkpinstall
deleted file mode 100755
index d5a1f8e6dbf9..000000000000
--- a/Tools/scripts/mkptools/mkpinstall
+++ /dev/null
@@ -1,109 +0,0 @@
-#!/usr/bin/perl -w
-#
-# Copyright (c) 2001 Neil Blakey-Milner
-# All rights reserved.
-#
-# Redistribution and use in source and binary forms, with or without
-# modification, are permitted provided that the following conditions
-# are met:
-# 1. Redistributions of source code must retain the above copyright
-#    notice, this list of conditions and the following disclaimer.
-# 2. Redistributions in binary form must reproduce the above copyright
-#    notice, this list of conditions and the following disclaimer in the
-#    documentation and/or other materials provided with the distribution.
-#
-# THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
-# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
-# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
-# ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
-# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
-# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
-# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
-# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
-# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
-# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
-# SUCH DAMAGE.
-#
-
-use strict;
-my $path_tmp = "/tmp";
-eval {
-	require 'paths.ph';
-	$path_tmp = &_PATH_TMP;
-};
-
-
-sub testdir (@) {
-	my $d;			# currently tested dir
-
-	foreach $d (@_) {
-		next unless defined($d);
-		$d =~ s,/$,,;
-		return $d if ((-d $d) && (-w $d));
-	}
-	return "";
-}
-
-my ($user, $group, $origdir, $portname, $tmpbase, $tmpdir, $wdpdir, $predir, $hmake);
-chomp ($user = `id -un`);
-chomp ($group = `id -gn`);
-chomp ($origdir = `pwd`);
-chomp ($portname = `basename $origdir`);
-$tmpbase = testdir($ENV{'TMPDIR'}, $ENV{'TMP'}, $path_tmp);
-($tmpbase eq "") and die("No temp dir, please define either TMPDIR or TMP\n");
-$tmpdir = "$tmpbase/$user.$portname";
-$wdpdir = "$tmpdir/wdp";
-$predir = "$tmpdir/prefix";
-
-$hmake = "env WRKDIRPREFIX=$wdpdir PREFIX=$predir NO_PKG_REGISTER=1 ";
-foreach (qw"SHARE MAN LIB BIN") {
-	$hmake .= $_ . "OWN=$user ";
-	$hmake .= $_ . "GRP=$group ";
-}
-$hmake .= "PREFIX=$predir NO_PKG_REGISTER=1 make";
-
-my ($origdirs) = "$tmpdir/dirs.orig";
-my ($currdirs) = "$tmpdir/dirs.curr";
-my ($mtreedist) = "/etc/mtree/BSD.local.dist";
-
-my ($redest) = "mtree -d -f $mtreedist -r -U -p $predir";
-
-my ($ff) = "(cd $predir && find . ! -type d | cut -d/ -f2- | grep -v man/man | sort)";
-my ($fd) = "(cd $predir && find . -type d | cut -d/ -f2- | grep -v '^\.\$'| sort)";
-
-system("mkdir $tmpdir");
-system("mkdir $predir");
-open(MT, "<$mtreedist") || die "Cannot open mtree file";
-open(TMT, ">$origdirs") || die "Cannot open temporary dirs file $origdirs: $!";
-my($mydir) = "";
-while (<MT>) {
-	chomp;
-	/^#/ && next;
-	/^\// && next;
-	/^\s*$/ && next;
-	s/^\s*//;
-	/^\.$/ && next;
-	/^\.\.$/ && do {
-		$mydir =~ s#/[^/]*$##;
-		next;
-	};
-	s/\s+\S+$//g;
-	#print "$_\n";
-	$mydir = "$mydir/$_";
-	my ($acwrite) = $mydir;
-	$acwrite =~ s#^/##;
-	print TMT "$acwrite\n";
-}
-close(TMT);
-
-system("$redest >/dev/null");
-open(INSTALL, "$hmake install |");
-while(<INSTALL>) {
-	print;
-}
-close(INSTALL);
-die "abnormal program completion ($?): $!" if $?;
-system($ff);
-
-system("$fd > $currdirs");
-system("comm -23 $currdirs $origdirs | sort -r | xargs -n1 echo \@dirrm");