[Dxspider-support] links command

[Simon Ravnic]

Hi!

We I enter links I get (from debug log) (second time cluster crashes):

1185302593^<- I S53ZO links
1185302593^Use of bare << to mean <<"" is deprecated at (eval 108) line 44.
1185302593^ at (eval 108) line 44
1185302593^Can't find string terminator "1" anywhere before EOF at (eval 
108) line 44.
1185302593^ at (eval 108) line 44
1185302593^     eval ' sub cmd_links { #
1185302593^# links : which are active
1185302593^# a complete list of currently connected linked nodes
1185302593^#
1185302593^# Created by Iain Philipps G0RDI, based entirely on
1185302593^# who.pl, which is Copyright (c) 1999 Dirk Koopman G1TLH
1185302593^# and subsequently plagerized by K1XX.
1185302593^#
1185302593^# 16-Jun-2000
1185302593^#
1185302593^#
1185302593^
1185302593^my $self = shift;
1185302593^my $dxchan;
1185302593^my @out;
1185302593^my $nowt = time;
1185302593^
1185302593^push @out, "                                      Ave  Obs 
Ping  Next      Filters";
1185302593^push @out, "  Callsign Type Started               RTT Count 
Int.  Ping Iso? In  Out PC92?";
1185302593^
1185302593^foreach $dxchan ( sort {$a->call cmp $b->call} 
DXChannel::get_all_nodes ) {
1185302593^     my $call = $dxchan->call();
1185302593^     next if $dxchan == $main::me;
1185302593^     my $t = cldatetime($dxchan->startt);
1185302593^     my $sort;
1185302593^     my $name = $dxchan->user->name || " ";
1185302593^     my $obscount = $dxchan->nopings;
1185302593^     my $lastt = $dxchan->pingint - ($nowt - $dxchan->lastping);
1185302593^     my $pingint = $dxchan->pingint;
1185302593^     my $ping = $dxchan->is_node && $dxchan != $main::me ? 
sprintf("%8.2f",$dxchan->pingave) : "";
1185302593^     my $iso = $dxchan->isolate ? \'Y\' :\' \';
1185302593^     my ($fin, $fout, $pc92) = (\' \', \' \', \' \');
1185302593^     if ($dxchan->do_pc9x) {
1185302593^             $pc92 = \'Y\';
1185302593^     } else {
1185302593^             my $f;
1185302593^             if ($f = $dxchan->inroutefilter) {
1185302593^                     $fin = $dxchan->inroutefilter =~ 
/node_default/ ? \'D\' : \'Y\';
1185302593^             }
1185302593^             if ($f = $dxchan->routefilter) {
1185302593^                     $fout = $dxchan->routefilter =~ 
/node_default/ ? \'D\' : \'Y\';
1185302593^             }
1185302593^     }
1185302593^<<<<<<< links.pl.mine
1185302593^=======
1185302593^     unless ($pingint) {
1185302593^             $lastt = 0;
1185302593^             $ping = "        ";
1185302593^     }
1185302593^>>>>>>> links.pl.12
1185302593^     $sort = \'ANEA\' if $dxchan->is_aranea;
1185302593^     $sort = "DXSP" if $dxchan->is_spider;
1185302593^     $sort = "CLX " if $dxchan->is_clx;
1185302593^     $sort = "DXNT" if $dxchan->is_dxnet;
1185302593^     $sort = "AR-C" if $dxchan->is_arcluster;
1185302593^     $sort = "AK1A" if $dxchan->is_ak1a;
1185302593^     push @out, sprintf "%10s $sort $t$ping   $obscount  %5d 
%5d  $iso    $fin   $fout   $pc92", $call, $pingint, $lastt;
1185302593^}
1185302593^
1185302593^return (1, @out)
1185302593^
1185302593^
1185302593^
1185302593^
1185302593^ }
1185302593^;' called at /spider/perl/DXCommandmode.pm line 829
1185302593^     DXCommandmode::find_cmd_name('/spider/cmd', 'links') 
called at /spider/perl/DXCommandmode.pm line 525
1185302593^     DXCommandmode::run_cmd('DXCommandmode=HASH(0x8d313c8)', 
'links') called at /spider/perl/DXCommandmode.pm line 376
1185302593^     DXCommandmode::normal('DXCommandmode=HASH(0x8d313c8)', 
'links') called at /spider/perl/DXChannel.pm line 690
1185302593^     DXChannel::process() called at /spider/perl/cluster.pl 
line 512
1185302593^-> D S53ZO Can't find string terminator "1" anywhere before 
EOF at (eval 108) line 44.
1185302593^-> D S53ZO S53ZO de S50DXS 24-Jul-2007 1843Z dxspider >