diff options
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/w3mman/w3mman.in | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/scripts/w3mman/w3mman.in b/scripts/w3mman/w3mman.in index fae7a41..5cff68f 100644 --- a/scripts/w3mman/w3mman.in +++ b/scripts/w3mman/w3mman.in @@ -22,9 +22,12 @@ while (@ARGV) { @ARGV || &usage(); if ( $query eq "" ) { $query = "?quit=ok"; } $query .= "&keyword=" . &form_encode(shift @ARGV); - } elsif (/^-l$/) { - @ARGV || &usage(); - $query = "?quit=ok&local=" . &form_encode(shift @ARGV); + } elsif (/^-l$/ || /\//) { + if (/^-l$/) { + @ARGV || &usage(); + $_ = shift @ARGV; + } + $query = "?quit=ok&local=" . &form_encode($_); $query .= "&pwd=" . &form_encode($ENV{'PWD'}); } elsif (/^-/) { &usage(); |