Subversion Repositories planix.SVN

Rev

Rev 2 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 - 1 
#!/bin/rc
2 
if (! ~ $DEBUG '') flag x +
3 
 
4 
if (~ $THIS_HOST $DEST_HOST) {
5 
	if (test -f $LPLIB/log/$LPDEST^.st) {
6 
		echo status:
7 
		tail -3 $LPLIB/log/$LPDEST^.st
8 
	}
9 
	cd $LPSPOOL
10 
	if (test -d $LPDEST) {
11 
		once=''
12 
		for (i in `{bind -b $LPLIB/sched /bin;$SCHED $LPDEST}) {
13 
			if (~ $once '') {
14 
				echo
15 
				echo queue on $THIS_HOST:
16 
				echo 'job		user	try	size'
17 
				once=1
18 
			}
19 
			STATLINE=`{cat $LPDEST/$i^id}
20 
			LSLINE=`{ls -l $LPDEST/$i}
21 
			echo $STATLINE(1)^$STATLINE(3)'	'$STATLINE(2)'	'$STATLINE(4)'	'$LSLINE(6)
22 
		}
23 
	}
24 
}
25 
if not {
26 
	{ echo -d$LPDEST -q; sleep 5 } | lpsend.rc $DEST_HOST
27 
}