X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXChannel.pm;h=9f7b8d180fefec8ce6f9184b0bbc122b5fc9bbc6;hb=d49641602b7abfa832d6baaf18dc15969040083e;hp=33d353dbb84e2bb748c52d080b50b7e46c5c4f47;hpb=6ea05be3ca5b4857bb319782c408d5784658ec20;p=spider.git

diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm
index 33d353db..9f7b8d18 100644
--- 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