Fix incorrect query string for w3mman 7z

Bug-Debian: #191
tats · Aug 30, 2021 · b71c5ec · b71c5ec
1 parent 0fb72f7
commit b71c5ec
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/scripts/w3mman/w3mman.in b/scripts/w3mman/w3mman.in
@@ -31,14 +31,17 @@ 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 {
     if ( $query eq "" ) { $query = "?quit=ok"; }
     $query .= "&man=" . &form_encode($_);
   }
 }
+if ($query =~ /&section=/ && $query !~ /&keyword=/ && $query !~ /&man=/) {
+  $query =~ s/&section=/&man=/;
+}
 
 exec @W3M, "$SCRIPT$query";