1 files changed, 41 insertions, 0 deletions
diff --git a/scripts/w3mman/w3mman.in b/scripts/w3mman/w3mman.in
new file mode 100644
index 0000000..0c57135
--- /dev/null
+++ b/scripts/w3mman/w3mman.in
@@ -0,0 +1,41 @@
+#!@PERL@
+
+@W3M = split(' ', '@W3M@');
+$ENV{'MAN'} = '@MAN@';
+$SCRIPT = 'file:///$LIB/w3mman2html.cgi';
+
+sub usage {
+  ($_ = $0) =~ s@.*/@@;
+  print STDERR "$_ [-M <path>] [[<section>] <command>]\n";
+  print STDERR "$_ [-M <path>] [-k <keyword>]\n";
+  exit 1;
+}
+
+$query = "";
+while (@ARGV) {
+  $_ = shift @ARGV;
+  if (/^-M$/) {
+    @ARGV || &usage();
+    $ENV{'MANPATH'} = shift @ARGV;
+  } elsif (/^-k$/) {
+    @ARGV || &usage();
+    $query = "?keyword=" . &form_encode(shift @ARGV);
+  } elsif (/^-/) {
+    &usage();
+  } elsif (/^\d/ || $_ eq 'n') {
+    @ARGV || &usage();
+    $query = "?quit=ok&man=" . &form_encode(shift @ARGV);
+    $query .= "&section=" . &form_encode($_);
+  } else {
+    $query = "?quit=ok&man=" . &form_encode($_);
+  }
+}
+
+exec @W3M, "$SCRIPT$query";
+
+sub form_encode {
+  local($_) = @_;
+  s/[\000-\040\+:#?&%<>"\177-\377]/sprintf('%%%02X', unpack('C', $&))/eg;
+  return $_;
+}
+