# MODULE print
# A function to print out a fax
#
# Written 1996 by Darko Krizic
#
print()
{
	# optionally take data as new archive directory
	if [ ! -z "$data" ]
	then
		printer=$data
	fi
	for file in $*
	do
		log "print $file to $printer"
		g32pbm $file \
		| pnmscale -xysize 2479 3508 \
		| pgmtopbm -fs \
		| pbmtolj -resolution 300 \
		| lpr -P $printer
	done

}
