}
} else {
my $node = $main::routeroot;
- push @out, "Callsigns connected to $main::mycall";
+ push @out, join(' ', $self->msg('userconn'), $main::mycall);
my $call;
my $i = 0;
my @l;
my @val = sort $node->users;
foreach $call (@val) {
if ($i >= 5) {
- push @out, sprintf "%-12s %-12s %-12s %-12s %-12s %-12s", @l;
+ push @out, sprintf "%-12s %-12s %-12s %-12s %-12s", @l;
@l = ();
$i = 0;
}
push @l, $s;
$i++;
}
- push @out, sprintf "%-12s %-12s %-12s %-12s %-12s %-12s", @l;
+ push @l, "" while $i++ < 5;
+ push @out, sprintf "%-12s %-12s %-12s %-12s %-12s", @l;
}
return (1, @out);