From 516dc3f87a4d591938aa2edf76b6a5ae040d05f9 Mon Sep 17 00:00:00 2001 From: minima Date: Tue, 16 Jan 2007 16:32:07 +0000 Subject: [PATCH] add pc92 capable flag --- cmd/links.pl | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/cmd/links.pl b/cmd/links.pl index 17c12ff1..d0dc49ec 100644 --- a/cmd/links.pl +++ b/cmd/links.pl @@ -16,7 +16,7 @@ my @out; my $nowt = time; push @out, " Ave Obs Ping Sec Since"; -push @out, " Callsign Type Started RTT count Int. Last Ping"; +push @out, " Callsign Type Started RTT count Int. Last Ping PC92"; foreach $dxchan ( sort {$a->call cmp $b->call} DXChannel::get_all_nodes ) { my $call = $dxchan->call(); @@ -34,7 +34,8 @@ foreach $dxchan ( sort {$a->call cmp $b->call} DXChannel::get_all_nodes ) { $sort = "DXNT" if $dxchan->is_dxnet; $sort = "AR-C" if $dxchan->is_arcluster; $sort = "AK1A" if $dxchan->is_ak1a; - push @out, sprintf "%10s $sort $t$ping $obscount %5d %5d", $call, $pingint, $lastt; + my $pc92 = $dxchan->do_pc92 ? 'Y' : ''; + push @out, sprintf "%10s $sort $t$ping $obscount %5d %5d $pc92", $call, $pingint, $lastt; } return (1, @out) -- 2.43.0