#!/bin/sh

Type=
Format=
Entry=
Preview=

eval "`/usr/local/lib/tkgnats/output_dialog.t`"

case "$Type" in
'')
    exit 0
    ;;
esac

case "$Type" in
Printer)
    case "$Entry" in
    '')
	P=''
	;;
    *)
	P="-P$Entry"
	;;
    esac
    while read file junk
    do
	echo "########## $file"
	cat "$file"
    done | lpr $P
    ;;
File)
    case "$Entry" in
    '-')
	while read file junk
	do
	    echo "########## $file"
	    cat "$file"
	done
	;;
    *)
	while read file junk
	do
	    echo "########## $file"
	    cat "$file"
	done >"$Entry"
	;;
    esac
    ;;
esac

exit 0
