From 395db45545bb9e954892b278f28fbbff533a0a20 Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Fri, 20 Jul 2007 15:52:52 +0100 Subject: [PATCH] make links command work :-) --- cmd/links.pl | 10 +++++----- perl/Version.pm | 4 ++-- 2 files changed, 7 insertions(+), 7 deletions(-) diff --git a/cmd/links.pl b/cmd/links.pl index 4bad6285..16e7e421 100644 --- a/cmd/links.pl +++ b/cmd/links.pl @@ -16,7 +16,7 @@ my @out; my $nowt = time; push @out, " Ave Obs Ping Next Filters"; -push @out, " Callsign Type Started RTT Count Int. Ping Iso? In Out PC92?"; +push @out, " Callsign Type Started RTT Count Int. Ping Iso? In Out"; foreach $dxchan ( sort {$a->call cmp $b->call} DXChannel::get_all_nodes ) { my $call = $dxchan->call(); @@ -30,9 +30,9 @@ foreach $dxchan ( sort {$a->call cmp $b->call} DXChannel::get_all_nodes ) { my $ping = $dxchan->is_node && $dxchan != $main::me ? sprintf("%8.2f",$dxchan->pingave) : ""; my $iso = $dxchan->isolate ? 'Y' :' '; my ($fin, $fout, $pc92) = (' ', ' ', ' '); - if ($dxchan->do_pc9x) { - $pc92 = 'Y'; - } else { +# if ($dxchan->do_pc9x) { +# $pc92 = 'Y'; +# } else { my $f; if ($f = $dxchan->inroutefilter) { $fin = $dxchan->inroutefilter =~ /node_default/ ? 'D' : 'Y'; @@ -40,7 +40,7 @@ foreach $dxchan ( sort {$a->call cmp $b->call} DXChannel::get_all_nodes ) { if ($f = $dxchan->routefilter) { $fout = $dxchan->routefilter =~ /node_default/ ? 'D' : 'Y'; } - } +# } $sort = 'ANEA' if $dxchan->is_aranea; $sort = "DXSP" if $dxchan->is_spider; $sort = "CLX " if $dxchan->is_clx; diff --git a/perl/Version.pm b/perl/Version.pm index dff014c3..15bfb22c 100644 --- a/perl/Version.pm +++ b/perl/Version.pm @@ -9,7 +9,7 @@ package main; use vars qw($version $build); -$version = ''; -$build = '1'; +$version = '1.53.0'; +$build = '2'; 1; -- 2.43.0