Fix incorrect query string for w3mman 7z
Bug-Debian: https://github.com/tats/w3m/issues/191
This commit is contained in:
@@ -31,7 +31,7 @@ while (@ARGV) {
|
||||
$query .= "&pwd=" . &form_encode($ENV{'PWD'});
|
||||
} elsif (/^-/) {
|
||||
&usage();
|
||||
} elsif (/^\d/ || $_ eq 'n' || $_ eq 'l') {
|
||||
} elsif ($query !~ /§ion=/ && (/^\d/ || $_ eq 'n' || $_ eq 'l')) {
|
||||
if ( $query eq "" ) { $query = "?quit=ok"; }
|
||||
$query .= "§ion=" . &form_encode($_);
|
||||
} else {
|
||||
@@ -39,6 +39,9 @@ while (@ARGV) {
|
||||
$query .= "&man=" . &form_encode($_);
|
||||
}
|
||||
}
|
||||
if ($query =~ /§ion=/ && $query !~ /&keyword=/ && $query !~ /&man=/) {
|
||||
$query =~ s/§ion=/&man=/;
|
||||
}
|
||||
|
||||
exec @W3M, "$SCRIPT$query";
|
||||
|
||||
|
Reference in New Issue
Block a user