diff options
| author | Tatsuya Kinoshita <tats@vega.ocn.ne.jp> | 2011-05-04 07:21:03 +0000 |
|---|---|---|
| committer | Tatsuya Kinoshita <tats@vega.ocn.ne.jp> | 2011-05-04 07:21:03 +0000 |
| commit | 2d9ece8bcb1c76c3d6990b83b00019e171c759d7 (patch) | |
| tree | b29dca9667fe151b2f01262c5907281ad2c7e3e8 /scripts/w3mman/w3mman.in | |
| parent | Releasing debian version 0.5.1-4 (diff) | |
| download | w3m-2d9ece8bcb1c76c3d6990b83b00019e171c759d7.tar.gz w3m-2d9ece8bcb1c76c3d6990b83b00019e171c759d7.zip | |
Releasing debian version 0.5.1-5debian/0.5.1-5
Diffstat (limited to 'scripts/w3mman/w3mman.in')
| -rw-r--r-- | scripts/w3mman/w3mman.in | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/scripts/w3mman/w3mman.in b/scripts/w3mman/w3mman.in index 6c6f65d..6a27e70 100644 --- a/scripts/w3mman/w3mman.in +++ b/scripts/w3mman/w3mman.in @@ -8,6 +8,7 @@ sub usage { ($_ = $0) =~ s@.*/@@; print STDERR "$_ [-M <path>] [[<section>] <command>]\n"; print STDERR "$_ [-M <path>] [-k <keyword>]\n"; + print STDERR "$_ [-l <file>]\n"; exit 1; } @@ -20,6 +21,10 @@ while (@ARGV) { } elsif (/^-k$/) { @ARGV || &usage(); $query = "?keyword=" . &form_encode(shift @ARGV); + } elsif (/^-l$/) { + @ARGV || &usage(); + $query = "?quit=ok&local=" . &form_encode(shift @ARGV); + $query .= "&pwd=" . &form_encode($ENV{'PWD'}); } elsif (/^-/) { &usage(); } elsif (/^\d/ || $_ eq 'n') { |