projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add various eph timings and variables to control them
[spider.git]
/
perl
/
DXCommandmode.pm
diff --git
a/perl/DXCommandmode.pm
b/perl/DXCommandmode.pm
index 8b704ab5333f4f011617bd0ca88ea795dbf8743a..4601ec21df0ca34d01ca99b7beb64f9f9996bdd8 100644
(file)
--- a/
perl/DXCommandmode.pm
+++ b/
perl/DXCommandmode.pm
@@
-186,6
+186,9
@@
sub normal
my $self = shift;
my $cmdline = shift;
my @ans;
my $self = shift;
my $cmdline = shift;
my @ans;
+
+ # save this for them's that need it
+ my $rawline = $cmdline;
# remove leading and trailing spaces
$cmdline =~ s/^\s*(.*)\s*$/$1/;
# remove leading and trailing spaces
$cmdline =~ s/^\s*(.*)\s*$/$1/;
@@
-274,7
+277,7
@@
sub normal
Log('DXCommand', "$self->{call} swore: $cmdline");
} else {
for (@{$self->{talklist}}) {
Log('DXCommand', "$self->{call} swore: $cmdline");
} else {
for (@{$self->{talklist}}) {
- $self->send_talks($_, $
cmd
line);
+ $self->send_talks($_, $
raw
line);
}
}
$self->send($self->talk_prompt) if $self->{state} eq 'talk';
}
}
$self->send($self->talk_prompt) if $self->{state} eq 'talk';
@@
-286,9
+289,9
@@
sub normal
no strict 'refs';
my @ans;
if (ref $self->{edit}) {
no strict 'refs';
my @ans;
if (ref $self->{edit}) {
- eval { @ans = $self->{edit}->$func($self, $
cmd
line)};
+ eval { @ans = $self->{edit}->$func($self, $
raw
line)};
} else {
} else {
- eval { @ans = &{$self->{func}}($self, $
cmd
line) };
+ eval { @ans = &{$self->{func}}($self, $
raw
line) };
}
if ($@) {
$self->send_ans("Syserr: on stored func $self->{func}", $@);
}
if ($@) {
$self->send_ans("Syserr: on stored func $self->{func}", $@);