#!/usr/bin/perl -dw
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
#NAME
#  ps2pnm2png2pam2gif - 
#
#SYNOPSIS
#  ps2pnm2png2pam2gif [file]..
#REQUIRES
#
#DESCRIPTION
# This cnverts PS files to GIF files using the chain:
#   ps -> pnm -> png -> pam -> gif
# This was the best I could find on a FreeBSD system. ;-)
#
#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.

foreach $arg (@ARGV) {
	print STDERR "$0: arg=\"$arg\"\n" if $V>1;
	if (($pth,$suf) = ($arg =~ /^(.+)\.(ps)/i) {
		print STDERR "$0: pth=\"$pth\" suf=\"$suf\"\n" if $V>1;
	}
}

exit $exitstat;