X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fdemonstrate.pl;h=53437b966dd5317517b8dc62bb697a00eee58457;hb=a10bb3f88ba73704734a47f6093e86277a581ea0;hp=31426986291cd22f8c533cc0c2a211985350d68e;hpb=2d8d13a2cb2840f7d38232a81e6eb272a521c009;p=spider.git

diff --git a/cmd/demonstrate.pl b/cmd/demonstrate.pl
index 31426986..53437b96 100644
--- 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'));