From: minima <minima>
Date: Wed, 3 Jul 2002 14:03:38 +0000 (+0000)
Subject: check for user status
X-Git-Tag: R_1_50~45
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=a10bb3f88ba73704734a47f6093e86277a581ea0;p=spider.git

check for user status
---

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'));
diff --git a/perl/Messages b/perl/Messages
index 60ad432c..d396c54f 100644
--- 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',