Changes in / [a661510:e611598]
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
client/bin/gbq
r7cdd65d r9dee329 43 43 } 44 44 print "Queue listing for queue '$queue' on '$host'\n\n"; 45 print "Job ID\t\tOwner\t\tTitle\n"; 46 print "-----------------------------------------------------------------\n"; 47 45 printf ("%-8s%-15s%s\n","Job","Owner","Title"); 46 print "-"x70 . "\n"; 48 47 my @jobs = $printer->getJobs(0, 0); 49 48 my ($job_ref, $jobid); … … 56 55 my $title = $job_ref->{'title'}; 57 56 58 print "$id\t\t$user\t\t$title\n";57 printf ("%-8s%-15s%s\n","$id",substr("$user",0,15),substr("$title",0,47)); 59 58 }
Note: See TracChangeset
for help on using the changeset viewer.