#!/afs/athena/contrib/perl/p

format STDOUT =
@<<<<<<<<<<  @<<<<<
$p, $n
.

$host = `hostname`;
$host =~ s/[a-zA-Z]//;
$host =~ /(.+)-(.+)-(.+)/;
$myclust = $1.'-'.$2;
if($myclust eq '20-575'){$myclust = 'W20-575';}
$cview = `cview printers`;
@plines = split("\n", $cview);
print("Printer      Jobs\n-------      ----\n");
for $i (3..$#plines){
	@words = split(/[ \t]+/, $plines[$i]);
	$cluster = $words[1];
	if($cluster eq $myclust){
		if($words[2] eq 'up'){
		$p=$words[0];$n=$words[3];}
		else{$p=$words[0];$n='down';}
		write;
	}

	$cluster = $words[5];
	if($cluster eq $myclust){
		if($words[6] eq 'up'){
		$p=$words[4];$n=$words[7];}
		else{$p=$words[4];$n='down';}
		write;
	}
}