#!/afs/athena/contrib/perl5/perl -w
use strict;

@ARGV = ('/var/athena/olc/queue') unless @ARGV;

sub outNL () { print "\n"; }
#sub outS ($$) { chomp $_[1]; printf "%-20s '%s'\n", @_; }
sub outS ($$) { chomp $_[1]; printf "%-20s %s\n", @_; }
sub outI ($$) { chomp $_[1]; printf "%-20s [%s]\n", @_; }
sub outL ($$) { chomp $_[1]; printf "%-20s %s\n", $_[0],
		  ($_[1] =~ /^\+/ ? 'ACTIVE' : 'LOGGED_OUT'); }

my ($nQ, $Q, $nq, $q);

defined($nQ = <>) or die "number of queues is missing";

for $Q (1..$nQ) {
  outS 'queue:', <>;
  outNL;
  defined($nq = <>) or die "number of questions is missing for queue $Q";
  for $q (1..$nq) {
    outS 'user:', <>;
    outS 'machine:', <>;
    outI 'instance:', <>;
    outL 'logged in:', <>;
    outS 'kstatus:', <>;
    outS 'consultant:', <>;
    outI 'c_instance:', <>;
    outS 'c_status:', <>;
    outS 'ncons:', <>;
    outS 'topic:', <>;
    outS 'date:', <>;
    outS 'time:', <>;
    outS 'desc:', <>;
    outNL;
  }
}