X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=ab1e7572b45c426a374cbebd3da369d1100ec6d7;hb=775fd16897916dccc374098ba6130b0f8858b636;hp=615dfdd08316b24cfec90b12ef8e0da2dc878291;hpb=f0910da57e166acb22e83de4e4b771d175074c80;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 615dfdd0..ab1e7572 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -422,7 +422,7 @@ sub normal
 					my $node;
 					my $to = $user->homenode;
 					my $last = $user->lastoper || 0;
-					if ($to ne $main::mycall && $send_opernam && $main::systime > $last + $DXUser::lastoperinterval && $to && ($node = Route::Node::get($to)) ) {
+					if ($send_opernam && $to && $to ne $main::mycall && $main::systime > $last + $DXUser::lastoperinterval && ($node = Route::Node::get($to)) ) {
 						my $cmd = "forward/opernam $spot[4]";
 						# send the rcmd but we aren't interested in the replies...
 						my $dxchan = $node->dxchan;
@@ -1718,7 +1718,7 @@ sub disconnect
 	my $node = Route::Node::get($call);
 	my @rout;
 	if ($node) {
-		@rout = $node->del_nodes;    # at the next level
+#		@rout = $node->del_nodes;    # at the next level
 		@rout = $node->del($main::routeroot);
 	}