projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
e228aaf
)
cater better for 0 pingint in links cmd
author
Dirk Koopman
<djk@tobit.co.uk>
Thu, 19 Jul 2007 11:33:29 +0000
(12:33 +0100)
committer
Dirk Koopman
<djk@tobit.co.uk>
Thu, 19 Jul 2007 11:33:29 +0000
(12:33 +0100)
cmd/links.pl
patch
|
blob
|
history
perl/Version.pm
patch
|
blob
|
history
diff --git
a/cmd/links.pl
b/cmd/links.pl
index b1737145e9fc7edf96e923292d658966098755d4..419de1896ddd6c391f1b8333876e16dc09acbab9 100644
(file)
--- 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 99bbd848ccce3d5d32ce3e6d8be0a34c6e977e77..3906391ebefec0b5002fe74d6c6c0c2df6d58c72 100644
(file)
--- a/
perl/Version.pm
+++ b/
perl/Version.pm
@@
-11,6
+11,6
@@
use vars qw($version $subversion $build);
$version = '1.54';
$subversion = '0';
-$build = '12
0
';
+$build = '12
1
';
1;