From: minima <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