projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add missing input filter for WWV
[spider.git]
/
perl
/
DXCommandmode.pm
diff --git
a/perl/DXCommandmode.pm
b/perl/DXCommandmode.pm
index 332e3badc98919d3893b6f40cd0d54703d93eb4b..6b62f58a820f02d1215f7b7decd1054300ad0ec0 100644
(file)
--- a/
perl/DXCommandmode.pm
+++ b/
perl/DXCommandmode.pm
@@
-435,6
+435,8
@@
sub run_cmd
if ($cmd) {
# strip out // on command only
$cmd =~ s|//|/|g;
if ($cmd) {
# strip out // on command only
$cmd =~ s|//|/|g;
+ $cmd =~ s|^/||g; # no leading / either
+ $cmd =~ s|[^-\w/]||g; # and no funny characters either
my ($path, $fcmd);
my ($path, $fcmd);
@@
-450,7
+452,7
@@
sub run_cmd
# first expand out the entry to a command
($path, $fcmd) = search($main::localcmd, $cmd, "pl");
# first expand out the entry to a command
($path, $fcmd) = search($main::localcmd, $cmd, "pl");
- ($path, $fcmd) = search($main::cmd, $cmd, "pl")
if !$path || !
$fcmd;
+ ($path, $fcmd) = search($main::cmd, $cmd, "pl")
unless $path &&
$fcmd;
if ($path && $cmd) {
dbg("path: $cmd cmd: $fcmd") if isdbg('command');
if ($path && $cmd) {
dbg("path: $cmd cmd: $fcmd") if isdbg('command');
@@
-918,7
+920,7
@@
sub wwv
return unless $self->{wwv};
if ($self->{wwvfilter}) {
return unless $self->{wwv};
if ($self->{wwvfilter}) {
- ($filter, $hops) = $self->{wwvfilter}->it(@_ );
+ ($filter, $hops) = $self->{wwvfilter}->it(@_
[7..$#_]
);
return unless $filter;
}
return unless $filter;
}