add not here message

[spider.git] / perl / DXCommandmode.pm

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index 32b1f86c4cade33ca79f84a633b43d2f5f2aec99..c7ce8c3c7f6699e8313740a7d95afd4766ba6eaa 100644 (file)
--- 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