OsmocomDECT

#! /usr/bin/perl -w

#

my $res = {};

my $lines = 0;

foreach my $trx ( @ARGV ) {

	open(FD, "dect-transceiver-list --name $trx |") || die ("list");

	my $n = 0;

	while ( my $line = <FD> ) {

		chomp($line);

		push @{$res->{$trx}}, $line;

		$n++;

	}

	if ($n > $lines) {

		$lines = $n;

	}

}

for (my $i = 0; $i < $lines; $i++) {

	foreach my $trx ( @ARGV ) {

		printf("%-80s", $res->{$trx}->[$i]);

	}

	printf("\n");

}