This port hasn't been used in over five years.

Approved by:	portmgr (mcl)

4 files changed, 0 insertions, 225 deletions

diff --git a/devel/Makefile b/devel/Makefile
index e3fae7e53c3e..b99e11a819af 100644
--- a/devel/Makefile
+++ b/devel/Makefile
@@ -2721,7 +2721,6 @@
     SUBDIR += pikdev
     SUBDIR += piklab
     SUBDIR += pinba_engine
-    SUBDIR += pinstall
     SUBDIR += pipestatus
     SUBDIR += pire
     SUBDIR += pit
diff --git a/devel/pinstall/Makefile b/devel/pinstall/Makefile
deleted file mode 100644
index 0d259a8c022b..000000000000
--- a/devel/pinstall/Makefile
+++ /dev/null
@@ -1,32 +0,0 @@
-# New ports collection makefile for:		pinstall
-# Date created:					October 20th 2000
-# Whom:						des
-#
-# $FreeBSD$
-#
-# This port is self contained in the src directory.
-#
-
-PORTNAME=	pinstall
-PORTVERSION=	1.0
-CATEGORIES=	devel
-MASTER_SITES=	# none
-DISTFILES=	# none
-
-MAINTAINER=	des@FreeBSD.org
-COMMENT=	A tool for installing files according to a packing list
-
-NO_BUILD=	yes
-NO_WRKSUBDIR=	yes
-PLIST_FILES=	bin/pinstall
-USE_PERL5=	yes
-
-SRC=		${.CURDIR}/src
-
-do-fetch:
-	@${DO_NADA}
-
-do-install:
-	@${INSTALL_SCRIPT} ${SRC}/pinstall.pl ${PREFIX}/bin/pinstall
-
-.include <bsd.port.mk>
diff --git a/devel/pinstall/pkg-descr b/devel/pinstall/pkg-descr
deleted file mode 100644
index 9381efeea8b6..000000000000
--- a/devel/pinstall/pkg-descr
+++ /dev/null
@@ -1,5 +0,0 @@
-This is a simple Perl script that installs files from a source
-directory to a destination directory according to a packing list,
-assuming the layout of the source and destination directories are
-similar. It is very useful for installing ports that do not have their
-own install targets.
diff --git a/devel/pinstall/src/pinstall.pl b/devel/pinstall/src/pinstall.pl
deleted file mode 100644
index 188c35f59fe1..000000000000
--- a/devel/pinstall/src/pinstall.pl
+++ /dev/null
@@ -1,187 +0,0 @@
-#!/usr/bin/perl -w
-#-
-# Copyright (c) 2000 Dag-Erling Coïdan Smørgrav
-# 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
-#    in this position and unchanged.
-# 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.
-# 3. The name of the author may not be used to endorse or promote products
-#    derived from this software without specific prior written permission.
-#
-# THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``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 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.
-#
-#      $Id$
-#
-
-use strict;
-use Fcntl;
-use POSIX qw(EEXIST);
-use Getopt::Long;
-
-my $VERSION	= "1.0";
-
-# Global parameters
-my $plist;			# Packing list
-my $prefix;			# Installation prefix
-my $srcdir;			# Source directory
-
-# Global flags
-my $verbose;			# Verbose flag
-
-#
-# Install a directory
-#
-sub install_dir($) {
-    my $dn = shift;		# Directory name
-
-    my @sb;			# File status
-
-    if ($verbose) {
-	print(STDERR "Creating directory $prefix/$dn\n");
-    }
-    if (!(@sb = stat("$srcdir/$dn"))) {
-	die("stat('$dn'): $!\n");
-    }
-    if (!mkdir("$prefix/$dn", 0755) && $! != EEXIST) {
-	die("mkdir('$prefix/$dn'): $!\n");
-    }
-    if (!chmod($sb[2] & 07777, "$prefix/$dn")) {
-	die("chmod('$prefix/$dn'): $!\n");
-    }
-    if (!chown($sb[4], $sb[5], "$prefix/$dn")) {
-	die("chown('$prefix/$dn'): $!\n");
-    }
-}
-
-#
-# Install a file
-#
-sub install_file($) {
-    my $fn = shift;		# Filename
-
-    my @sb;			# File status
-
-    if ($verbose) {
-	print(STDERR "Installing $fn as $prefix/$fn\n");
-    }
-    if (!(@sb = stat("$srcdir/$fn"))) {
-	die("stat('$fn'): $!\n");
-    }
-    if (system("install", "-c", "-m", sprintf("0%o", $sb[2] & 07777),
-	       "-o", $sb[4], "-g", $sb[5], "$srcdir/$fn", "$prefix/$fn")) {
-	die("install('$fn'): failed\n");
-    }
-}
-
-#
-# Print usage message and exit
-#
-sub usage() {
-    
-    print(STDERR "Usage: pinstall [-hv] [-d srcdir] [-f plist] [-p prefix]\n");
-    exit(1);
-}
-
-#
-# Print help text
-#
-sub help() {
-    
-    print(STDERR "pinstall $VERSION
-Copyright (c) 2000 Dag-Erling Smørgrav. All rights reserved.
-
-Options:
-  -h, --help               Show this information
-  -v, --verbose            Verbose mode
-
-Parameters:
-  -d, --srcdir=DIR         Specify source directory
-  -f, --plist=FILE         Specify packing list
-  -p, --prefix=DIR         Specify installation prefix
-
-Report bugs to <des\@freebsd.org>.
-");
-    exit(1);
-}
-
-MAIN:{
-    local *PLIST;		# File handle
-    my @dirs;			# Directories
-    my @files;			# Files
-    my $item;			# Iterator
-    
-    # Scan command line options
-    (Getopt::Long::Configure("auto_abbrev", "bundling"));
-    GetOptions(
-	       "d|src-dir=s"	=> \$srcdir,
-	       "f|plist=s"	=> \$plist,
-	       "h|help"		=> \&help,
-	       "p|prefix=s"	=> \$prefix,
-	       "v|verbose"	=> \$verbose,
-	       )
-	or usage();
-
-    # Check prefix
-    if (!$prefix) {
-	$prefix = $ENV{'PREFIX'} || "/usr/local";
-    }
-    $prefix =~ s|/*$||;
-    if ($prefix !~ m|^/|) {
-	die("Invalid prefix\n");
-    }
-
-    # Check packing list
-    if (!$plist) {
-	$plist = "pkg-plist";
-    }
-    if (!-f $plist) {
-	die("No packing list\n");
-    }
-
-    # Check source directory
-    if (!$srcdir || !-d $srcdir) {
-	die("No source directory\n");
-    }
-
-    # Read plist
-    sysopen(PLIST, $plist, O_RDONLY)
-	or die("open(): $!\n");
-    while (<PLIST>) {
-	chomp();
-	if (m/^([a-z]\S+)\s*$/) {
-	    push(@files, $1);
-	} elsif (m/^\@dirrm\s+(\S+)\s*$/) {
-	    push(@dirs, $1);
-	} else {
-	    warn("Unrecognized directive: $_\n");
-	}
-    }
-    close(PLIST)
-	or die("close(): $!\n");
-
-    # Create directories
-    foreach $item (sort(@dirs)) {
-	install_dir($item);
-    }
-
-    # Copy files
-    foreach $item (sort(@files)) {
-	install_file($item);
-    }
-}