projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
b57791b
)
simplified version
author
minima
<minima>
Wed, 3 Jul 2002 13:51:14 +0000
(13:51 +0000)
committer
minima
<minima>
Wed, 3 Jul 2002 13:51:14 +0000
(13:51 +0000)
cmd/demonstrate.pl
patch
|
blob
|
history
diff --git
a/cmd/demonstrate.pl
b/cmd/demonstrate.pl
index 179aecf7d38b7ba8d4b1c7dc2d724c5a86ac6dde..31426986291cd22f8c533cc0c2a211985350d68e 100644
(file)
--- a/
cmd/demonstrate.pl
+++ b/
cmd/demonstrate.pl
@@
-9,10
+9,6
@@
#
my ($self, $line) = @_;
#
my ($self, $line) = @_;
-my $mycall = $self->call;
-my $myuser = $self->user;
-my $mypriv = $self->priv;
-
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);
@@
-22,23
+18,12
@@
if ($self->remotecmd) {
Log('DXCommand', "$mycall is trying to 'demo' to $call remotely");
return (1, $self->msg('e5'));
}
Log('DXCommand', "$mycall is trying to 'demo' to $call remotely");
return (1, $self->msg('e5'));
}
-if ($
mypriv < 8
) {
+if ($
self->priv < 9
) {
Log('DXCommand', "$mycall is trying to 'demo' to $call locally");
return (1, $self->msg('e5'));
}
Log('DXCommand', "$mycall is trying to 'demo' to $call locally");
return (1, $self->msg('e5'));
}
-
-$call = uc $call;
-my $user = $dxchan->user;
-
-# set up basic environment
-$self->call($call);
-$self->user($user);
-$self->priv($dxchan->priv);
Log('DXCommand', "demo '$newline' to $call by $mycall");
Log('DXCommand', "demo '$newline' to $call by $mycall");
-my @in = $self->run_cmd($newline);
-$self->call($mycall);
-$self->user($myuser);
-$self->priv($mypriv);
+my @in = $dxchan->run_cmd($newline);
$dxchan->send($newline, @in);
$dxchan->send($newline, @in);