#!/usr/bin/perl -dw
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
#NAME
#  pdfnames - Turn file names into pdf names
#
#SYNOPSIS
#  pdfnames [file]..
#REQUIRES
#
#DESCRIPTION
#  Strip off suffix from names that have one, and append ".pdf"
#
#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"} || 2;	# Verbose level.

for $name (@ARGV) {			# No args (yet)
	$name =~ s/\.\w+$//;	# Delete suffix if present
	$name .= '.pdf';		# Name of PDF file
	print "$name\n";
}

exit $exitstat;