From: minima Date: Fri, 20 Apr 2001 12:24:06 +0000 (+0000) Subject: make sure pc50_t is set to systime on start up X-Git-Tag: R_1_47~15 X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=2a37fdae7b5154d77fe602bf18d6fa908e634748;p=spider.git make sure pc50_t is set to systime on start up --- diff --git a/perl/DXProt.pm b/perl/DXProt.pm index e92ca8a1..ef3f3317 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -242,7 +242,7 @@ sub start $self->{lastping} = $main::systime + ($self->pingint / 2); } $self->state('init'); - $self->pc50_t(time); + $self->{pc50_t} = $main::systime; # send info to all logged in thingies $self->tell_login('loginn'); @@ -1119,9 +1119,9 @@ sub process next if $dxchan == $me; # send a pc50 out on this channel - if ($t >= $dxchan->pc50_t + $DXProt::pc50_interval) { + if ($t >= $dxchan->{pc50_t} + $DXProt::pc50_interval) { $dxchan->send(pc50(scalar DXChannel::get_all_users)); - $dxchan->pc50_t($t); + $dxchan->{pc50_t} = $t; } # send a ping out on this channel