X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXCommandmode.pm;fp=perl%2FDXCommandmode.pm;h=cf745c4fd6926ca9911d6fb74f3c257c5e7b3bd6;hb=5f18e6a46558e9b1e4eeb2227dcfac6917b629fe;hp=f36f266f4a4cbcbe8abe8bf7ed581a1b37d3dcbf;hpb=4d1c2206f8c3abeb3524a722b306313716fc0973;p=spider.git

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index f36f266f..cf745c4f 100644
--- a/perl/DXCommandmode.pm
+++ b/perl/DXCommandmode.pm
@@ -92,6 +92,7 @@ sub start
 	my $host = $self->{conn}->peerhost;
 	$host ||= "AGW Port #$self->{conn}->{agwport}" if exists $self->{conn}->{agwport};
 	$host ||= "unknown";
+	$self->{hostname} = $host;
 	LogDbg('DXCommand', "$call connected from $host");
 
 	$self->{name} = $name ? $name : $call;
@@ -118,6 +119,7 @@ sub start
 	$self->{ann_talk} = $user->wantann_talk;
 	$self->{here} = 1;
 	$self->{prompt} = $user->prompt if $user->prompt;
+	$self->{lastmsgpoll} = 0;
 
 	# sort out new dx spot stuff
 	$user->wantdxcq(0) unless defined $user->{wantdxcq};
@@ -212,7 +214,7 @@ sub start
 		}
 	}
 
-	$self->lastmsgpoll($main::systime);
+	$self->{lastmsgpoll} = $main::systime;
 	$self->prompt;
 }
 
@@ -563,12 +565,12 @@ sub process
 	my $dxchan;
 	
 	foreach $dxchan (@dxchan) {
-		next if $dxchan->is_user;  
+		next unless $dxchan->is_user;  
 	
 		# send a outstanding message prompt if required
 		if ($t >= $dxchan->lastmsgpoll + $msgpolltime) {
 			$dxchan->send($dxchan->msg('m9')) if DXMsg::for_me($dxchan->call);
-			$dxchan->lastmsgpoll($t);
+			$dxchan->{lastmsgpoll} = $t;
 		}
 		
 		# send a prompt if no activity out on this channel