X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=1ba185b183d4123f2489115c76088b71df6d3bb1;hb=015e51891a2052454449c99fde521a36efdad9e2;hp=eb65eb44fd7b31415216e7b1209fdf252de50fbe;hpb=0e49d2c191786b825674e0cca106eef004c99899;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index eb65eb44..1ba185b1 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -179,6 +179,7 @@ sub init
 	do "$main::data/hop_table.pl" if -e "$main::data/hop_table.pl";
 	confess $@ if $@;
 	$me->{sort} = 'S';    # S for spider
+	$me->{priv} = 9;
 }
 
 #
@@ -1130,6 +1131,7 @@ sub process
 		next if $dxchan == $me;
 		
 		# send a pc50 out on this channel
+		$dxchan->{pc50_t} = $main::systime unless exists $dxchan->{pc50_t};
 		if ($t >= $dxchan->{pc50_t} + $DXProt::pc50_interval) {
 			$dxchan->send(pc50(scalar DXChannel::get_all_users));
 			$dxchan->{pc50_t} = $t;