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:
41c6467
)
fix the command end.
author
minima
<minima>
Mon, 23 Jan 2006 23:19:24 +0000
(23:19 +0000)
committer
minima
<minima>
Mon, 23 Jan 2006 23:19:24 +0000
(23:19 +0000)
perl/DXXml/Cmd.pm
patch
|
blob
|
history
diff --git
a/perl/DXXml/Cmd.pm
b/perl/DXXml/Cmd.pm
index 821606afb65df2272b1df5cb966b8212cf16abcb..e985b37d2d899856679a29152eff3ee03473433b 100644
(file)
--- a/
perl/DXXml/Cmd.pm
+++ b/
perl/DXXml/Cmd.pm
@@
-35,7
+35,7
@@
sub handle_input
my $cmd = $self->{content};
my $cmd = $self->{content};
- if ($self->{
o} eq $dxchan->call) {
# online user or node
+ if ($self->{
u} && $self->{u} eq $dxchan->call) {
# online user or node
@in = (DXCommandmode::run_cmd($dxchan, $cmd));
} else {
# remote command
@in = (DXCommandmode::run_cmd($dxchan, $cmd));
} else {
# remote command
@@
-57,7
+57,7
@@
sub handle_input
Log('rcmd', 'in', $ref->{priv}, $self->{o}, "$self->{content}($answer)");
}
my $rep = DXXml::Text->new(u=>$self->{u}, to=>$self->{o}, content=>join('%0A', @in));
Log('rcmd', 'in', $ref->{priv}, $self->{o}, "$self->{content}($answer)");
}
my $rep = DXXml::Text->new(u=>$self->{u}, to=>$self->{o}, content=>join('%0A', @in));
- $rep->route($
dxchan);
+ $rep->route($
main::me); # because it's coming from me!
} else {
$self->route($dxchan);
}
} else {
$self->route($dxchan);
}