#!/usr/bin/perl
#
# print filter for deciding if a file is a PS file or not.
#
# designed for use with xbubblejet, a Tcl/Tk based GUI for 
# allowing Linux users to interactively set print options
# for their Canon BJ-4XXX printer.
#

#
# obtain the username: parameter after "-n"
#

while (@ARGV) {
    $user = shift ;
    if ($user eq "-n") { 
	$user = shift ;
	last;
    }
}

$_ = <STDIN> ;

#
#  check if a postscript file
#

if (substr($_,0,2) eq "%!")
{
    $device_options = "-sDEVICE=bjc600" ;
    $canon_options = "-q -dSAFER -dNOPAUSE -sOutputFile=- -" ;

    $user_options_file = "</home/".$user."/.canon.ps.options" ;
    $default_options_file = "</etc/canon.ps.options" ;

#
# since this is called by the printcap facility, there is
# no reason why user should not be defined.  Still, if it
# isn't, no big deal -- the file path searched for below
# just won't be found
#

    if ( open(OPTFILE,$user_options_file) || 
	 open(OPTFILE,$default_options_file) )
    {
	$user_options = <OPTFILE> ;
	chop $user_options ;
	close(OPTFILE) ;
    }
    else { undef($user_options) } ;

    $gs_options = $device_options." ".$user_options." ".$canon_options ;

    open(FILTER,"| /usr/bin/gs $gs_options");
    undef($asciimode) ;
}
else {
#
#   just an ASCII file - add carriage returns using sed
#
    open(FILTER,'| /bin/sed -e s/$/
/') ;
    $asciimode  = 1;
}

print FILTER $_;
while (<STDIN>) { print FILTER $_ } ;

if (defined($asciimode)) { print '' } ;

close(FILTER) ;