From efdf578cb0e69807c50a93427a34ab36a23f3823 Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Thu, 19 Jul 2007 12:33:29 +0100 Subject: [PATCH] cater better for 0 pingint in links cmd --- cmd/links.pl | 4 ++++ perl/Version.pm | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/cmd/links.pl b/cmd/links.pl index b1737145..419de189 100644 --- a/cmd/links.pl +++ b/cmd/links.pl @@ -41,6 +41,10 @@ foreach $dxchan ( sort {$a->call cmp $b->call} DXChannel::get_all_nodes ) { $fout = $dxchan->routefilter =~ /node_default/ ? 'D' : 'Y'; } } + unless ($pingint) { + $lastt = 0; + $ping = " "; + } $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 99bbd848..3906391e 100644 --- a/perl/Version.pm +++ b/perl/Version.pm @@ -11,6 +11,6 @@ use vars qw($version $subversion $build); $version = '1.54'; $subversion = '0'; -$build = '120'; +$build = '121'; 1; -- 2.43.0