storm/w3m
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Assume a local file if the argument contains slash for w3mman

Browse Source
This commit is contained in:
Tatsuya Kinoshita
2020-09-25 21:43:47 +09:00
parent a3ec574690
commit ea47145ea8
1 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
scripts/w3mman/w3mman.in
View File

@@ -22,9 +22,12 @@ while (@ARGV) {
@ARGV || &usage(); @ARGV || &usage();
if ( $query eq "" ) { $query = "?quit=ok"; } if ( $query eq "" ) { $query = "?quit=ok"; }
$query .= "&keyword=" . &form_encode(shift @ARGV); $query .= "&keyword=" . &form_encode(shift @ARGV);
} elsif (/^-l$/) { } elsif (/^-l$/ || /\//) {
if (/^-l$/) {
@ARGV || &usage(); @ARGV || &usage();
$query = "?quit=ok&local=" . &form_encode(shift @ARGV); $_ = shift @ARGV;
}
$query = "?quit=ok&local=" . &form_encode($_);
$query .= "&pwd=" . &form_encode($ENV{'PWD'}); $query .= "&pwd=" . &form_encode($ENV{'PWD'});
} elsif (/^-/) { } elsif (/^-/) {
&usage(); &usage();