Assume a local file if the argument contains slash for w3mman

2020-09-25 21:43:47 +09:00
parent a3ec574690
commit ea47145ea8
1 changed files with 6 additions and 3 deletions
--- 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();