projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
2d8d13a
)
check for user status
author
minima
<minima>
Wed, 3 Jul 2002 14:03:38 +0000
(14:03 +0000)
committer
minima
<minima>
Wed, 3 Jul 2002 14:03:38 +0000
(14:03 +0000)
cmd/demonstrate.pl
patch
|
blob
|
history
perl/Messages
patch
|
blob
|
history
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 ($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('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'));
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] $!',
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',
echoon => 'Echoing enabled',
echooff => 'Echoing disabled',