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',
);
sub is_bbs
{
my $self = shift;
- return $self->{sort} eq 'B';
+ return $self->{'sort'} eq 'B';
}
# is it an ak1a cluster ?
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