X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXCommandmode.pm;h=c7ce8c3c7f6699e8313740a7d95afd4766ba6eaa;hb=19980464653659320e9b143f3da34b38bb908cb9;hp=32b1f86c4cade33ca79f84a633b43d2f5f2aec99;hpb=a38e5ea93005099bdd5486fda443595d20a26e13;p=spider.git

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index 32b1f86c..c7ce8c3c 100644
--- a/perl/DXCommandmode.pm
+++ b/perl/DXCommandmode.pm
@@ -644,6 +644,15 @@ sub talk
 	$line =~ s/\\5E/\^/g;
 	$self->send("$to de $from: $line") if $self->{talk};
 	Log('talk', $to, $from, $main::mycall, $line);
+	# send a 'not here' message if required
+	unless ($self->{here} && $from ne $to) {
+		my ($ref, $dxchan);
+		if (($ref = Route::get($from)) && ($dxchan = $ref->dxchan)) {
+			my $name = $self->user->name || $to;
+			my $s = $self->user->nothere || $dxchan->msg('nothere', $name);
+			$dxchan->talk($to, $from, undef, $s);
+		}
+	}
 }
 
 # send an announce