X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=perl%2FDXProt.pm;h=ce9b13a4b077c61cd0c8568784f768061f992081;hb=5acd1be649672f6e5bd2b4a6772b51cd935ebda9;hp=7cde642c00206f806f3232e0d6f25b3a394d48b6;hpb=b5ca6131980983160f64b33f1dae9ecc05b58e6f;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 7cde642c..ce9b13a4 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -116,8 +116,9 @@ sub start
 	$self->{wwvfilter} = Filter::read_in('wwv', $call);
 	$self->{annfilter} = Filter::read_in('ann', $call);
 	
-	# set unbuffered
+	# set unbuffered and no echo
 	$self->send_now('B',"0");
+	$self->send_now('E',"0");
 	
 	# send initialisation string
 	if (!$self->{outbound}) {
@@ -325,7 +326,7 @@ sub normal
 				$user = DXUser->new($call) if !$user;
 				$user->homenode($node->call) if !$user->homenode;
 				$user->node($node->call);
-				$user->lastin($main::systime);
+				$user->lastin($main::systime) unless DXChannel->get($call);
 				$user->put;
 			}
 			
@@ -378,7 +379,7 @@ sub normal
 					$user->homenode($call);
 					$user->node($call);
 				}
-				$user->lastin($main::systime);
+				$user->lastin($main::systime) unless DXChannel->get($call);
 				$user->put;
 			}
 			
@@ -737,7 +738,7 @@ sub send_dx_spot
 			}
 		} elsif ($dxchan->is_user && $dxchan->{dx}) {
 			my $buf = Spot::formatb($_[0], $_[1], $_[2], $_[3], $_[4]);
-			$buf .= "\a\a" if $dxchan->beep;
+			$buf .= "\a\a" if $dxchan->{beep};
 			if ($dxchan->{state} eq 'prompt' || $dxchan->{state} eq 'convers') {
 				$dxchan->send($buf) if !$hops || ($hops && $filter);
 			} else {