#!/usr/bin/perl
#  classic_print: pass a Postscript file to the appropriate PrinterProxy
#  Usage: classic_print_wrapper printer_name file1 file2 ...
#  printer_name: the name of the printer
#  file1 file2 ... : the names of the files
#  Written by Toshi Nagata, 2005/03/11
#  Copyright 2005 (c) Toshi Nagata.  All rights reserved.

use POSIX qw(strftime);

$home = $ENV{"HOME"};
open(LOG, ">>$home/Library/Logs/classic_print.log");

$tmpdir = "/tmp/$</TemporaryItems";
if (!-d $tmpdir) {
	system("mkdir -p $tmpdir");
}

($printer, @files) = @ARGV;
print LOG header(), "printer = $printer\n";
print LOG header(), "files = ", join(' ', @files), "\n";

$proxy = "$home/Library/Printers/$printer.app";
$proxy_bin = "$proxy/Contents/MacOS/PrinterProxy";

if (!-d $proxy || !-x $proxy_bin) {
	print LOG header(), "the PrinterProxy for \'$printer\' does not exist\n";
	exit(1);
}

foreach $file (@files) {
	if (wait_for_eof($file)) { #  Read until '%%EOF' is detected
		print LOG header(), "%%EOF was detected\n";
		chomp ($tmpfile = `mktemp $tmpdir/classic_print.XXXXXX`);
	#	$cmd = "cp \'$file\' $tmpfile; \'$proxy_bin\' $tmpfile; rm \'$file\'";
		$cmd = "ln \'$file\' $tmpfile; /usr/bin/open -a \'$proxy\' \'$file\'; rm \'$file\'";
		print LOG header(), "execute: $cmd\n";
		if (system($cmd) != 0) {
			print LOG header(), sprintf("PrinterProxy failed. exit status = %d\n", $? >> 8);
			exit(1);
		} else {
			unlink($file);
			print LOG header(), "PrinterProxy successful. \'$file\' is deleted.\n";
		}
	} else {
		print LOG header(), "failed to read through \'$file\'... wrong Postscript file?\n";
	}
}
exit(0);

sub header {
	return strftime "%Y/%m/%d %H:%M:%S classic_print: ", localtime;
}

sub wait_for_eof {
	my ($file) = @_;
	local $/;
	if (!open($file, $file)) {
		return 0;
	}
	$/ = "\r";  #  Macintosh EOL
	while (1) {
		my $line = <$file>;
		while (substr($line, -1) ne "\r" && $line !~ /^%%EOF/) {
			my $line2;
			my $time = time;
			while (!($line2 = <$file>)) {
				if (time > $time + 600) {
					print LOG header(), "timeout: 600 seconds passed without new input.\n";
					close($file);
					return 0;
				}
			}
			$line .= $line2;
		}
		if ($line =~ /^%%EOF/) {
			close($file);
			return 1;
		}
	}
}