X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=decd71f674452ea072172baab71a60b280d34f70;hb=c33a59698b9c2a7c319200620765d37706e12c5f;hp=a6587209179a8da21428e20a5176672265e8e61f;hpb=23cadfcd0cfe94855905545e2d68c8c0c8981f02;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index a6587209..decd71f6 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -31,6 +31,7 @@ use WCY;
 use Time::HiRes qw(gettimeofday tv_interval);
 use BadWords;
 use DXHash;
+use Route::Node;
 
 use strict;
 use vars qw($me $pc11_max_age $pc23_max_age
@@ -180,6 +181,7 @@ sub init
 	confess $@ if $@;
 	$me->{sort} = 'S';    # S for spider
 	$me->{priv} = 9;
+	$Route::Node::me->adddxchan($me);
 }
 
 #
@@ -1131,6 +1133,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;