check for user status

diff --git a/cmd/demonstrate.pl b/cmd/demonstrate.pl
index 31426986291cd22f8c533cc0c2a211985350d68e..53437b966dd5317517b8dc62bb697a00eee58457 100644 (file)
--- a/cmd/demonstrate.pl
+++ b/cmd/demonstrate.pl
@@ -12,8 +12,10 @@ my ($self, $line) = @_;
 my ($call, $newline) = split /\s+/, $line, 2;
 $call = uc $call;
 my $dxchan = DXChannel->get($call);
+my $mycall = $self->call;
 
 return (1, $self->msg('e7', $call)) unless $dxchan;
+return (1, $self->msg('e31', $call)) unless $dxchan->is_user;
 if ($self->remotecmd) {
        Log('DXCommand', "$mycall is trying to 'demo' to $call remotely");
        return (1, $self->msg('e5'));

diff --git a/perl/Messages b/perl/Messages
index 60ad432c34801c765206d0cbf1b5fe27dc1b2eb4..d396c54fd776c1f7a60665b00b18cb3e1fda3517 100644 (file)
--- a/perl/Messages
+++ b/perl/Messages
@@ -84,6 +84,7 @@ package DXM;
                                e28 => 'Sorry, you need to be registered (SP $main::myalias to register)',
                                e29 => 'Need a password',
                                e30 => 'Cannot Open $_[0] $!',
+                               e31 => '$_[0] is not a user', 
 
                                echoon => 'Echoing enabled',
                                echooff => 'Echoing disabled',