#!/usr/bin/perl

eval 'exec /usr/bin/perl  -S $0 ${1+"$@"}'
    if 0; # not running under some shell

use strict;use warnings;
use IPC::Transit;
use Getopt::Std;

my $opts = {};
getopt('P', $opts);
if($opts->{P}) {
    $IPC::Transit::config_dir = $opts->{P};
    print "Using alternative Transit config dir: $IPC::Transit::config_dir\n";
}

my $format = '%-50s%-20s';
my $info = IPC::Transit::stats();
foreach my $queue (@{$info}) {
    printf("$format\n", $queue->{qname}, $queue->{qnum});
}
