X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Ftalk.pl;h=dae38e243be0d56b8f1378fd57e8f4bcf067e28b;hb=4b207544da78b182bd12e94eab01451694749012;hp=57b27e7c4df7bbc63b1aacfba9c253e46f3f5e33;hpb=6fb4862ab94c57166f0f09c0a5f1a28cb35b5189;p=spider.git

diff --git a/cmd/talk.pl b/cmd/talk.pl
index 57b27e7c..dae38e24 100644
--- a/cmd/talk.pl
+++ b/cmd/talk.pl
@@ -1,5 +1,5 @@
 #
-# The talk command
+# The talk command (improved)
 #
 # Copyright (c) 1998 Dirk Koopman G1TLH
 #
@@ -32,9 +32,8 @@ return (1, $self->msg('e8')) unless $to;
 
 $to = uc $to;
 
-return (1, $self->msg('e5')) if $self->remotecmd || $self->inscript;
 return (1, $self->msg('e22', $to)) unless is_callsign($to);
-return (1, $self->msg('e28')) unless $self->registered || $to eq $main::myalias;
+return (1, $self->msg('e28')) unless $self->isregistered || $to eq $main::myalias;
 
 $via = uc $via if $via;
 my $call = $via || $to;