#!/usr/bin/perl -w
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
#NAME
#  lnprog - Link files into program directory
#
#SYNOPSIS
#  lnprog dir [file]..
#REQUIRES
#
#DESCRIPTION
#
#OPTIONS
# None yet, but there may be some soon.
#
#EXAMPLES
#
#FILES
#
#BUGS
#
#SEE ALSO
#
#AUTHOR
#  John Chambers <jc@trillian.mit.edu>
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #

$| = 1;
$exitstat = 0;
($P = $0) =~ s".*/"";
$V = $ENV{"V_$P"} || $ENV{"D_$P"} || 1;	# Verbose level.

if (-d ($d = shift @ARGV)) {
	for $f (@ARGV) {
		if (-f $f) {link($f, "$d/$f"); print "$d/$f\n" if $V>1}
		foreach $x (`ls $f.*`) {
			$x =~ s/[\r\s]*$//;
			print "x='$x'\n" if $V>1;
			($p = "$d/$x") =~ s/[\r\s]*$//;
			print "--> '$p'\n" if $V>1;
			link($x, $p);
		}
	}
} else {
	print STDERR "$F: $d isn't a directory.\n";
	exit 1;
}

exit $exitstat;