Fix incorrect query string for w3mman 7z

Bug-Debian: https://github.com/tats/w3m/issues/191
This commit is contained in:
Tatsuya Kinoshita
2021-08-30 20:19:07 +09:00
parent 0fb72f72ea
commit b71c5ec462

View File

@@ -31,7 +31,7 @@ while (@ARGV) {
$query .= "&pwd=" . &form_encode($ENV{'PWD'});
} elsif (/^-/) {
&usage();
} elsif (/^\d/ || $_ eq 'n' || $_ eq 'l') {
} elsif ($query !~ /&section=/ && (/^\d/ || $_ eq 'n' || $_ eq 'l')) {
if ( $query eq "" ) { $query = "?quit=ok"; }
$query .= "&section=" . &form_encode($_);
} else {
@@ -39,6 +39,9 @@ while (@ARGV) {
$query .= "&man=" . &form_encode($_);
}
}
if ($query =~ /&section=/ && $query !~ /&keyword=/ && $query !~ /&man=/) {
$query =~ s/&section=/&man=/;
}
exec @W3M, "$SCRIPT$query";