X-Git-Url: http://scm.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=perl%2FDXProt.pm;h=7a39bb3ac81a1e2d2ed0eb161fdd7c4c861f79c1;hb=4c89d8b54e6b38a0dfd1eb2674d2a3327919883b;hp=ee9c92f103410f54bfc3c78d20c764fc8085b71d;hpb=ba0bc47c95759a369af81fb19556c48261530a79;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index ee9c92f1..7a39bb3a 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -208,7 +208,7 @@ sub new
 	# add this node to the table, the values get filled in later
 	my $pkg = shift;
 	my $call = shift;
-	$main::routeroot->add($call, '0000', Route::here(1)) if $call ne $main::mycall;
+	$main::routeroot->add($call, '5000', Route::here(1)) if $call ne $main::mycall;
 
 	return $self;
 }
@@ -743,7 +743,7 @@ sub normal
 				eph_del_regex("^PC(?:21\^$call|17\^[^\^]+\^$call)");
 				
 				# check for sane parameters
-				$ver = 5000 if $ver eq '0000';
+#				$ver = 5000 if $ver eq '0000';
 				next if $ver < 5000; # only works with version 5 software
 				next if length $call < 3; # min 3 letter callsigns
 				next if $call eq $main::mycall;