- # determine the minimum ping channel
- my $minping = 99999999;
- foreach my $dxc (@dxchan) {
- my $p = $dxc->pingave;
- if (defined $p && $p < $minping) {
- $minping = $p;
- $dxchan = $dxc;
- }
- }
- $dxchan = shift @dxchan unless $dxchan;
- return $dxchan;
-}
-
-sub _adddxchan
-{
- my $self = shift;
- return $self->_addlist('dxchan', @_);
-}
-
-sub _deldxchan
-{
- my $self = shift;
- return $self->_dellist('dxchan', @_);