#!/usr/bin/perl
#
#NAME
#
#SYNOPSIS
#
#DESCRIPTION
#
#OPTIONS
#
#FILES
#
#BUGS
#
#SEE ALSO
#
#AUTHOR
#  John Chambers <jc@trillian.mit.edu>
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #

$| = 1;
($P = $0) =~ s".*/"";
$exitstat = 0;
&Vopt($ENV{"D_$P"} || $ENV{"T_$P"} || $ENV{"V_$P"} || '1');

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
sub Vopt {
	if (($V,$Vfil) = ($Vopt =~ /^(\d)(.+)/)) {
		if ($Vfil) {
			if (open(V,">>$Vfil")) {
				print V "$P: Verbose level $V\n" if $V>0;
				return $V;
			}
			print V "$P: Can't write \"$Vfil\" ($!)\n" if $V>0;
		}
	}
	open(V,$Vfil = '>>&STDERR');
	select V; $| = 1;
#	select STDOUT; $| = 1;	# To make STDOUT the default for print.
}

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #

exit $exitstat;