changed ping regime to be a rolling list of up to ten

[spider.git] / perl / DXChannel.pm

diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm
index 33d353dbb84e2bb748c52d080b50b7e46c5c4f47..9f7b8d180fefec8ce6f9184b0bbc122b5fc9bbc6 100644 (file)
--- a/perl/DXChannel.pm
+++ b/perl/DXChannel.pm
@@ -81,8 +81,7 @@ use vars qw(%channels %valid);
                  pingint => '9,Ping Interval ',
                  nopings => '9,Ping Obs Count',
                  lastping => '9,Ping last sent,atime',
-          pingrec => '9,Pings no rec',
-                 pingtime => '9,Ping totaltime',
+                 pingtime => '9,Ping totaltime,parray',
                  pingave => '0,Ping ave time',
                 );
 
@@ -175,7 +174,7 @@ sub del
 sub is_bbs
 {
        my $self = shift;
-       return $self->{sort} eq 'B';
+       return $self->{'sort'} eq 'B';
 }
 
 # is it an ak1a cluster ?
@@ -199,6 +198,13 @@ sub is_connect
        return $self->{'sort'} eq 'C';
 }
 
+# for perl 5.004's benefit
+sub sort
+{
+       my $self = shift;
+       return @_ ? $self->{'sort'} = shift : $self->{'sort'} ;
+}
+
 # handle out going messages, immediately without waiting for the select to drop
 # this could, in theory, block
 sub send_now