#!/bin/rc

LPDELAY=60

if (! ~ $#* 2 && ! ~ $#* 3) {
	echo 'usage generic local_cmd _remote_cmd [ success_cmd ]' >[1=2]
	exit 'argument count'
}
LOCAL_CMD=$1
REMOTE_CMD=$2
SUCCESS_CMD=$3

if (! LOCK $LPSPOOL/$LPDEST $pid) exit 0

cd $LPSPOOL

MAXTRY=2
PRINTLOG=$LPLIB/log/$LPDEST^.st

while (FILE=`{bind -b $LPLIB/sched /bin;$SCHED $LPDEST}; ! ~ $#FILE 0 && test -s $LPDEST/$FILE(1)) {
	SCHEDLINE=`{cat $LPDEST/$FILE(1)^id}
	LSLINE=`{ls -l $LPDEST/$FILE(1)}
	if (~ $THIS_HOST $DEST_HOST) {
		if (test -f $LPLIB/perm/$LPDEST && grep -s $SCHEDLINE(2) $LPLIB/perm/$LPDEST) {
			echo you are not allowed to use printer $LPDEST | mail $SCHEDLINE(2)
			rm -f $LPDEST/$FILE(1) $LPDEST/$FILE(1)^id
		}
		if not {
			> $PRINTLOG
			STARTIME=`{date}
			eval $LOCAL_CMD
			rv=$status
			ENDTIME=`{date}
			if (status=$rv) {
				echo $SCHEDLINE(1)^$SCHEDLINE(3)'	'$SCHEDLINE(2)'	'$SCHEDLINE(4)' + '$LSLINE(6)' '$STARTIME(4)' '$ENDTIME(4)
				eval $SUCCESS_CMD
				rm -f $LPDEST/$FILE(1) $LPDEST/$FILE(1)^id
			}
			if not {
				echo $SCHEDLINE(1)^$SCHEDLINE(3)'	'$SCHEDLINE(2)'	'$SCHEDLINE(4)' - '$LSLINE(6)' '$STARTIME(4)' '$ENDTIME(4)
				$THISTRY=`{echo $SCHEDLINE(4) + 1|hoc}
				echo $SCHEDLINE(1) $SCHEDLINE(2) $SCHEDLINE(3) $THISTRY >$LPDEST/$FILE(1)^id
				if (test $THISTRY -ge $MAXTRY) {
					if (test -d $LPLIB/prob/$LPDEST) {
						cp $LPDEST/$FILE(1) $LPLIB/prob/$LPDEST
						cp $LPDEST/$FILE(1)^id $LPLIB/prob/$LPDEST
						cp $PRINTLOG $LPLIB/prob/$LPDEST/$FILE(1)^log
					}
					upasname=daemon
					mail $SCHEDLINE(2) <<endmail1
					rm -f $LPDEST/$FILE(1) $LPDEST/$FILE(1)^id
				}
				if not {
					touch $LPDEST/$FILE(1)
					sleep $LPDELAY
				}
			}
		}
	}
	if not {
#		trap '' 13	# temp hack: ignore SIGPIPE
		STARTIME=`{date}
		eval $REMOTE_CMD 
		rv=$status
		ENDTIME=`{date}
		if (status=$rv) {
			echo $SCHEDLINE(1)^$SCHEDLINE(3)'	'$SCHEDLINE(2)'	'$SCHEDLINE(4)' + '$LSLINE(6)' '$STARTIME(4)' '$ENDTIME(4)
			rm -f $LPDEST/$FILE(1) $LPDEST/$FILE(1)^id
		}
		if not {
			echo $SCHEDLINE(1)^$SCHEDLINE(3)'	'$SCHEDLINE(2)'	'$SCHEDLINE(4)' - '$LSLINE(6)' '$STARTIME(4)' '$ENDTIME(4)
			echo status $rv from '$REMOTE_CMD'
			THISTRY=`{echo $SCHEDLINE(4) + 1|hoc}
			echo $SCHEDLINE(1) $SCHEDLINE(2) $SCHEDLINE(3) $THISTRY >$LPDEST/$FILE(1)^id
			if (~ $THISTRY $MAXTRY) {
				upasname=daemon
				mail $SCHEDLINE(2) <<endmail2
			}
			if not {
				touch $LPDEST/$FILE(1)
				sleep $LPDELAY

				# this is here to deal with running out of
				# Datakit channels or other stupid problems
				# backoff connection attempts but not too long
				LPDELAY=`{echo $LPDELAY '*' 2|hoc}
				if (test $LPDELAY -gt 960)
					LPDELAY=60
			}
		}
	}
}
Your job has failed to print on $LPDEST after $MAXTRY attempt(s).
If the directory $LPLIB/prob/$LPDEST exists on $DEST_HOST,
the file has been put there along with the printer log file.
			Your friendly printer daemon
endmail1
Your job has failed to print on $LPDEST after $MAXTRY attempt(s).
There is a problem in sending the job to $DEST_HOST,
but I'll keep trying.  Have a nice day.
			Your enthusiastic printer daemon
endmail2
UNLOCK $LPSPOOL/$LPDEST
rm $LPSPOOL/$LPDEST >[2]/dev/null