3888822eef
* scripts/w3mman/README: W3MMAN_W3M, W3MMAN_MAN
* scripts/w3mman/w3mman.1.in: add ENVIRONMENT
* scripts/w3mman/w3mman.in: $ENV{'W3MMAN_W3M'}, $ENV{'W3MMAN_MAN'}
* scripts/w3mman/w3mman2html.cgi.in: $ENV{'W3MMAN_MAN'}
hyphenation
From: Hironori SAKAMOTO <hsaka@mth.biglobe.ne.jp>
42 lines
929 B
Plaintext
42 lines
929 B
Plaintext
#!@PERL@
|
|
|
|
@W3M = split(' ', $ENV{'W3MMAN_W3M'} || '@W3M@');
|
|
$ENV{'W3MMAN_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 .= "§ion=" . &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 $_;
|
|
}
|
|
|