Update to w3m-0.2.1-inu-1.6.
This commit is contained in:
Akinori Ito
21
scripts/bm2menu/README
Normal file
21
scripts/bm2menu/README
Normal file
@@ -0,0 +1,21 @@
|
||||
|
||||
bm2menu.pl
|
||||
|
||||
ブックマークファイル ~/.w3m/bookmark.html を変換して w3m の
|
||||
ブックマークメニューとして使える様にする。
|
||||
|
||||
使用法
|
||||
|
||||
~/.w3m/bookmark.html を変換して ~/.w3m/menu に追加。
|
||||
|
||||
perl bm2menu.pl ~/.w3m/bookmark.html >> ~/.w3m/menu
|
||||
|
||||
次に、~/.w3m/keymap に
|
||||
|
||||
keymap x MENU Bookmarks
|
||||
|
||||
の様にキーの割り当てを追加します。
|
||||
|
||||
これで、キー `x' でブックマークメニューが開きます。
|
||||
メニューの操作は doc-jp/README.menu を読んでください。
|
||||
|
||||
58
scripts/bm2menu/bm2menu.pl
Normal file
58
scripts/bm2menu/bm2menu.pl
Normal file
@@ -0,0 +1,58 @@
|
||||
#!/usr/bin/perl
|
||||
|
||||
$PRE_MENU = "";
|
||||
$POST_MENU = <<EOF;
|
||||
nop "----------------------"
|
||||
func "¥Ö¥Ã¥¯¥Þ¡¼¥¯¤ËÄɲà (a)" ADD_BOOKMARK "aA"
|
||||
EOF
|
||||
# $POST_MENU = <<EOF;
|
||||
# nop "----------------------"
|
||||
# func "Add Bookmark (a)" ADD_BOOKMARK "aA"
|
||||
# EOF
|
||||
|
||||
@section = ();
|
||||
%title = ();
|
||||
%url = ();
|
||||
while(<>) {
|
||||
if (/<h2>(.*)<\/h2>/) {
|
||||
$s = &unquote($1);
|
||||
push(@section, $s);
|
||||
} elsif (/<li><a href=\"(.*)\">(.*)<\/a>/) {
|
||||
$u = &unquote($1);
|
||||
$t = &unquote($2);
|
||||
$url{$s} .= "$u\n";
|
||||
$title{$s} .= "$t\n";
|
||||
}
|
||||
}
|
||||
|
||||
print "menu Bookmarks\n";
|
||||
print $PRE_MENU;
|
||||
foreach(@section) {
|
||||
print " popup\t\"$_\"\t\"$_\"\n";
|
||||
}
|
||||
print $POST_MENU;
|
||||
print "end\n";
|
||||
|
||||
foreach(@section) {
|
||||
print "\n";
|
||||
print "menu \"$_\"\n";
|
||||
@ts = split("\n", $title{$_});
|
||||
@us = split("\n", $url{$_});
|
||||
while(@ts) {
|
||||
$t = shift @ts;
|
||||
$u = shift @us;
|
||||
print " func\t\"$t\"\tGOTO\t\"\"\t\"$u\"\n";
|
||||
}
|
||||
print "end\n";
|
||||
}
|
||||
|
||||
sub unquote {
|
||||
local($_) = @_;
|
||||
|
||||
s/\</\</g;
|
||||
s/\>/\>/g;
|
||||
s/\ / /g;
|
||||
s/\&/\&/g;
|
||||
|
||||
return $_;
|
||||
}
|
||||
@@ -1,4 +1,4 @@
|
||||
#!/usr/local/bin/perl
|
||||
#!/usr/bin/perl
|
||||
#
|
||||
# Directory list CGI by Hironori Sakamoto (hsaka@mth.biglobe.ne.jp)
|
||||
#
|
||||
|
||||
35
scripts/multipart/Makefile
Normal file
35
scripts/multipart/Makefile
Normal file
@@ -0,0 +1,35 @@
|
||||
|
||||
prefix = /usr/local
|
||||
bindir = $(prefix)/bin
|
||||
libdir = $(prefix)/lib
|
||||
distdir = ./distfiles
|
||||
|
||||
W3M_LIBDIR = $(libdir)/w3m
|
||||
|
||||
INSTALL = install -c
|
||||
INSTALL_SCRIPT = $(INSTALL) -m 755
|
||||
|
||||
PERL = /usr/local/bin/perl
|
||||
NKF = /usr/local/bin/nkf
|
||||
|
||||
all: multipart.cgi
|
||||
|
||||
multipart.cgi: multipart.cgi.in Makefile
|
||||
sed -e 's%@PERL@%$(PERL)%g' \
|
||||
-e 's%@NKF@%$(NKF)%g' \
|
||||
multipart.cgi.in > multipart.cgi
|
||||
chmod +x multipart.cgi
|
||||
|
||||
install: multipart.cgi
|
||||
$(INSTALL_SCRIPT) multipart.cgi $(W3M_LIBDIR)
|
||||
|
||||
dist: all
|
||||
@-rm -fr $(distdir)/multipart
|
||||
mkdir -p $(distdir)/multipart
|
||||
cp Makefile README multipart.cgi multipart.cgi.in \
|
||||
$(distdir)/multipart
|
||||
( cd $(distdir); \
|
||||
tar -cf - multipart | GZIP='' gzip ) \
|
||||
> $(distdir)/multipart.tar.gz
|
||||
-rm -fr $(distdir)/multipart
|
||||
|
||||
24
scripts/multipart/README
Normal file
24
scripts/multipart/README
Normal file
@@ -0,0 +1,24 @@
|
||||
|
||||
Content-Type: multipart/* を扱う local-CGI
|
||||
|
||||
Content-Type: multipart/* なファイルを扱うための local-CGI です。
|
||||
主に mailx などでメールを PAGER="w3m -m" で読む場合を想定しています。
|
||||
|
||||
インストール
|
||||
|
||||
* make install
|
||||
必要なら PERL, NKF, W3M_LIBDIR を設定してください。
|
||||
|
||||
* mailcap を ~/.w3m/mailcap にマージ
|
||||
multipart.cgi のパスに注意
|
||||
|
||||
* w3m の Option Setting Panel で、
|
||||
『保存時に Content-Transfer-Encoding をデコードする』を ON
|
||||
添付ファイルの保存時に便利です。
|
||||
|
||||
必要なもの
|
||||
|
||||
* NKF モジュールまたは nkf
|
||||
文字コード変換や MIME ヘッダのデコードにを使ってます。
|
||||
気にいらなければ変えてください。
|
||||
|
||||
1
scripts/multipart/mailcap
Normal file
1
scripts/multipart/mailcap
Normal file
@@ -0,0 +1 @@
|
||||
multipart/*; /usr/local/lib/w3m/multipart.cgi %s %{boundary}; htmloutput
|
||||
272
scripts/multipart/multipart.cgi
Normal file
272
scripts/multipart/multipart.cgi
Normal file
@@ -0,0 +1,272 @@
|
||||
#!/usr/local/bin/perl
|
||||
|
||||
if ($use_NKF = eval "use NKF;") {
|
||||
$CONV = "-e";
|
||||
$MIME_DECODE = "-m -e";
|
||||
} else {
|
||||
# $CONV = "w3m -dump -e";
|
||||
$CONV = "/usr/local/bin/nkf -e";
|
||||
$MIME_DECODE = "/usr/local/bin/nkf -m -e";
|
||||
}
|
||||
$MIME_TYPE = "$ENV{'HOME'}/.mime.types";
|
||||
|
||||
if (defined($ENV{'QUERY_STRING'})) {
|
||||
for (split('&', $ENV{'QUERY_STRING'})) {
|
||||
s/^([^=]*)=//;
|
||||
$v{$1} = $_;
|
||||
}
|
||||
$file = &form_decode($v{'file'});
|
||||
$boundary = &form_decode($v{'boundary'});
|
||||
} else {
|
||||
$file = $ARGV[0];
|
||||
if (@ARGV >= 2) {
|
||||
$boundary = $ARGV[1];
|
||||
}
|
||||
$CGI = "file:///\$LIB/multipart.cgi?file=" . &html_quote($file);
|
||||
}
|
||||
|
||||
open(F, $file);
|
||||
$end = 0;
|
||||
$mbody = '';
|
||||
if (defined($boundary)) {
|
||||
while(<F>) {
|
||||
s/\r?\n$//;
|
||||
($_ eq "--$boundary") && last;
|
||||
($_ eq "--$boundary--") && ($end = 1, last);
|
||||
$mbody .= "$_\n";
|
||||
}
|
||||
} else {
|
||||
while(<F>) {
|
||||
s/\r?\n$//;
|
||||
if (s/^\-\-//) {
|
||||
$boundary = $_;
|
||||
last;
|
||||
}
|
||||
$mbody .= "$_\n";
|
||||
}
|
||||
}
|
||||
$CGI .= "&boundary=" . &html_quote($boundary);
|
||||
|
||||
if (defined($v{'count'})) {
|
||||
$count = 0;
|
||||
while($count < $v{'count'}) {
|
||||
while(<F>) {
|
||||
s/\r?\n$//;
|
||||
($_ eq "--$boundary") && last;
|
||||
}
|
||||
eof(F) && exit;
|
||||
$count++;
|
||||
}
|
||||
|
||||
%header = ();
|
||||
$hbody = '';
|
||||
while(<F>) {
|
||||
/^\s*$/ && last;
|
||||
$x = $_;
|
||||
s/\r?\n$//;
|
||||
if (/=\?/) {
|
||||
$_ = &decode($_, $MIME_DECODE);
|
||||
}
|
||||
if (s/^(\S+)\s*:\s*//) {
|
||||
$hbody .= "$&$_\n";
|
||||
$p = $1;
|
||||
$p =~ tr/A-Z/a-z/;
|
||||
$header{$p} = $_;
|
||||
} elsif (s/^\s+//) {
|
||||
chop $hbody;
|
||||
$hbody .= "$_\n";
|
||||
$header{$p} .= $_;
|
||||
}
|
||||
}
|
||||
$type = $header{"content-type"};
|
||||
$dispos = $header{"content-disposition"};
|
||||
if ($type =~ /application\/octet-stream/) {
|
||||
if ($type =~ /type\=gzip/) {
|
||||
print "Content-Encoding: x-gzip\n";
|
||||
}
|
||||
if ($type =~ /name=\"?([^\"]+)\"?/ ||
|
||||
$dispos =~ /filename=\"?([^\"]+)\"?/) {
|
||||
$type = &guess_type($1);
|
||||
if ($type) {
|
||||
print "Content-Type: $type; name=\"$1\"\n";
|
||||
} else {
|
||||
print "Content-Type: text/plain; name=\"$1\"\n";
|
||||
}
|
||||
}
|
||||
}
|
||||
print $hbody;
|
||||
print "\n";
|
||||
while(<F>) {
|
||||
$x = $_;
|
||||
s/\r?\n$//;
|
||||
($_ eq "--$boundary") && last;
|
||||
if ($_ eq "--$boundary--") {
|
||||
last;
|
||||
}
|
||||
print $x;
|
||||
}
|
||||
close(F);
|
||||
exit;
|
||||
}
|
||||
|
||||
if ($mbody =~ /\S/) {
|
||||
$_ = $mbody;
|
||||
s/\&/\&/g;
|
||||
s/\</\</g;
|
||||
s/\>/\>/g;
|
||||
print "<pre>\n";
|
||||
print $_;
|
||||
print "</pre>\n";
|
||||
}
|
||||
|
||||
$count = 0;
|
||||
while(! $end) {
|
||||
%header = ();
|
||||
$hbody = '';
|
||||
while(<F>) {
|
||||
/^\s*$/ && last;
|
||||
s/\r?\n$//;
|
||||
if (/=\?/) {
|
||||
$_ = &decode($_, $MIME_DECODE);
|
||||
}
|
||||
if (s/^(\S+)\s*:\s*//) {
|
||||
$hbody .= "$&$_\n";
|
||||
$p = $1;
|
||||
$p =~ tr/A-Z/a-z/;
|
||||
$header{$p} = $_;
|
||||
} elsif (s/^\s+//) {
|
||||
chop $hbody;
|
||||
$hbody .= "$_\n";
|
||||
$header{$p} .= $_;
|
||||
}
|
||||
}
|
||||
$type = $header{"content-type"};
|
||||
$dispos = $header{"content-disposition"};
|
||||
if ((! $type || $type =~ /^text\/plain/i) &&
|
||||
(! $dispos || $dispos =~ /^inline/i)) {
|
||||
$plain = 1;
|
||||
} else {
|
||||
$plain = 0;
|
||||
}
|
||||
$body = '';
|
||||
while(<F>) {
|
||||
s/\r?\n$//;
|
||||
($_ eq "--$boundary") && last;
|
||||
if ($_ eq "--$boundary--") {
|
||||
$end = 1;
|
||||
last;
|
||||
}
|
||||
if ($plain) {
|
||||
$body .= "$_\n";
|
||||
}
|
||||
}
|
||||
$| = 1;
|
||||
print "<hr>\n";
|
||||
{
|
||||
$_ = $hbody;
|
||||
s/\&/\&/g;
|
||||
s/\</\</g;
|
||||
s/\>/\>/g;
|
||||
print "<pre>\n";
|
||||
print $_;
|
||||
if ($type =~ /name=\"?([^\"]+)\"?/ ||
|
||||
$dispos =~ /filename=\"?([^\"]+)\"?/) {
|
||||
$name = $1;
|
||||
} else {
|
||||
$name = "[Content]";
|
||||
}
|
||||
print "\n<a href=\"$CGI&count=$count\">", &html_quote($name), "</a>";
|
||||
print "\n\n</pre>\n";
|
||||
}
|
||||
if ($plain) {
|
||||
$body = &decode($body, $CONV);
|
||||
$_ = $body;
|
||||
s/\&/\&/g;
|
||||
s/\</\</g;
|
||||
s/\>/\>/g;
|
||||
print "<pre>\n";
|
||||
print $_;
|
||||
print "</pre>\n";
|
||||
}
|
||||
eof(F) && last;
|
||||
$count++;
|
||||
}
|
||||
close(F);
|
||||
|
||||
sub decode {
|
||||
if ($use_NKF) {
|
||||
local($body, $opt) = @_;
|
||||
return nkf($opt, $body);
|
||||
}
|
||||
local($body, @cmd) = @_;
|
||||
local($_);
|
||||
|
||||
$| = 1;
|
||||
pipe(R, W2);
|
||||
pipe(R2, W);
|
||||
if (! fork()) {
|
||||
close(F);
|
||||
close(R);
|
||||
close(W);
|
||||
open(STDIN, "<&R2");
|
||||
open(STDOUT, ">&W2");
|
||||
exec @cmd;
|
||||
die;
|
||||
}
|
||||
close(R2);
|
||||
close(W2);
|
||||
print W $body;
|
||||
close(W);
|
||||
$body = '';
|
||||
while(<R>) {
|
||||
$body .= $_;
|
||||
}
|
||||
close(R);
|
||||
return $body;
|
||||
}
|
||||
|
||||
sub html_quote {
|
||||
local($_) = @_;
|
||||
local(%QUOTE) = (
|
||||
'<', '<',
|
||||
'>', '>',
|
||||
'&', '&',
|
||||
'"', '"',
|
||||
);
|
||||
s/[<>&"]/$QUOTE{$&}/g;
|
||||
return $_;
|
||||
}
|
||||
|
||||
sub form_decode {
|
||||
local($_) = @_;
|
||||
s/\+/ /g;
|
||||
s/%([\da-f][\da-f])/pack('c', hex($1))/egi;
|
||||
return $_;
|
||||
}
|
||||
|
||||
sub guess_type {
|
||||
local($_) = @_;
|
||||
|
||||
/\.(\w+)$/ || next;
|
||||
$_ = $1;
|
||||
tr/A-Z/a-z/;
|
||||
%mime_type = &load_mime_type($MIME_TYPE);
|
||||
$mime_type{$_};
|
||||
}
|
||||
|
||||
sub load_mime_type {
|
||||
local($file) = @_;
|
||||
local(%m, $a, @b, $_);
|
||||
|
||||
open(M, $file) || return ();
|
||||
while(<M>) {
|
||||
/^#/ && next;
|
||||
chop;
|
||||
(($a, @b) = split(" ")) >= 2 || next;
|
||||
for(@b) {
|
||||
$m{$_} = $a;
|
||||
}
|
||||
}
|
||||
close(M);
|
||||
return %m;
|
||||
}
|
||||
272
scripts/multipart/multipart.cgi.in
Normal file
272
scripts/multipart/multipart.cgi.in
Normal file
@@ -0,0 +1,272 @@
|
||||
#!@PERL@
|
||||
|
||||
if ($use_NKF = eval "use NKF;") {
|
||||
$CONV = "-e";
|
||||
$MIME_DECODE = "-m -e";
|
||||
} else {
|
||||
# $CONV = "w3m -dump -e";
|
||||
$CONV = "@NKF@ -e";
|
||||
$MIME_DECODE = "@NKF@ -m -e";
|
||||
}
|
||||
$MIME_TYPE = "$ENV{'HOME'}/.mime.types";
|
||||
|
||||
if (defined($ENV{'QUERY_STRING'})) {
|
||||
for (split('&', $ENV{'QUERY_STRING'})) {
|
||||
s/^([^=]*)=//;
|
||||
$v{$1} = $_;
|
||||
}
|
||||
$file = &form_decode($v{'file'});
|
||||
$boundary = &form_decode($v{'boundary'});
|
||||
} else {
|
||||
$file = $ARGV[0];
|
||||
if (@ARGV >= 2) {
|
||||
$boundary = $ARGV[1];
|
||||
}
|
||||
$CGI = "file:///\$LIB/multipart.cgi?file=" . &html_quote($file);
|
||||
}
|
||||
|
||||
open(F, $file);
|
||||
$end = 0;
|
||||
$mbody = '';
|
||||
if (defined($boundary)) {
|
||||
while(<F>) {
|
||||
s/\r?\n$//;
|
||||
($_ eq "--$boundary") && last;
|
||||
($_ eq "--$boundary--") && ($end = 1, last);
|
||||
$mbody .= "$_\n";
|
||||
}
|
||||
} else {
|
||||
while(<F>) {
|
||||
s/\r?\n$//;
|
||||
if (s/^\-\-//) {
|
||||
$boundary = $_;
|
||||
last;
|
||||
}
|
||||
$mbody .= "$_\n";
|
||||
}
|
||||
}
|
||||
$CGI .= "&boundary=" . &html_quote($boundary);
|
||||
|
||||
if (defined($v{'count'})) {
|
||||
$count = 0;
|
||||
while($count < $v{'count'}) {
|
||||
while(<F>) {
|
||||
s/\r?\n$//;
|
||||
($_ eq "--$boundary") && last;
|
||||
}
|
||||
eof(F) && exit;
|
||||
$count++;
|
||||
}
|
||||
|
||||
%header = ();
|
||||
$hbody = '';
|
||||
while(<F>) {
|
||||
/^\s*$/ && last;
|
||||
$x = $_;
|
||||
s/\r?\n$//;
|
||||
if (/=\?/) {
|
||||
$_ = &decode($_, $MIME_DECODE);
|
||||
}
|
||||
if (s/^(\S+)\s*:\s*//) {
|
||||
$hbody .= "$&$_\n";
|
||||
$p = $1;
|
||||
$p =~ tr/A-Z/a-z/;
|
||||
$header{$p} = $_;
|
||||
} elsif (s/^\s+//) {
|
||||
chop $hbody;
|
||||
$hbody .= "$_\n";
|
||||
$header{$p} .= $_;
|
||||
}
|
||||
}
|
||||
$type = $header{"content-type"};
|
||||
$dispos = $header{"content-disposition"};
|
||||
if ($type =~ /application\/octet-stream/) {
|
||||
if ($type =~ /type\=gzip/) {
|
||||
print "Content-Encoding: x-gzip\n";
|
||||
}
|
||||
if ($type =~ /name=\"?([^\"]+)\"?/ ||
|
||||
$dispos =~ /filename=\"?([^\"]+)\"?/) {
|
||||
$type = &guess_type($1);
|
||||
if ($type) {
|
||||
print "Content-Type: $type; name=\"$1\"\n";
|
||||
} else {
|
||||
print "Content-Type: text/plain; name=\"$1\"\n";
|
||||
}
|
||||
}
|
||||
}
|
||||
print $hbody;
|
||||
print "\n";
|
||||
while(<F>) {
|
||||
$x = $_;
|
||||
s/\r?\n$//;
|
||||
($_ eq "--$boundary") && last;
|
||||
if ($_ eq "--$boundary--") {
|
||||
last;
|
||||
}
|
||||
print $x;
|
||||
}
|
||||
close(F);
|
||||
exit;
|
||||
}
|
||||
|
||||
if ($mbody =~ /\S/) {
|
||||
$_ = $mbody;
|
||||
s/\&/\&/g;
|
||||
s/\</\</g;
|
||||
s/\>/\>/g;
|
||||
print "<pre>\n";
|
||||
print $_;
|
||||
print "</pre>\n";
|
||||
}
|
||||
|
||||
$count = 0;
|
||||
while(! $end) {
|
||||
%header = ();
|
||||
$hbody = '';
|
||||
while(<F>) {
|
||||
/^\s*$/ && last;
|
||||
s/\r?\n$//;
|
||||
if (/=\?/) {
|
||||
$_ = &decode($_, $MIME_DECODE);
|
||||
}
|
||||
if (s/^(\S+)\s*:\s*//) {
|
||||
$hbody .= "$&$_\n";
|
||||
$p = $1;
|
||||
$p =~ tr/A-Z/a-z/;
|
||||
$header{$p} = $_;
|
||||
} elsif (s/^\s+//) {
|
||||
chop $hbody;
|
||||
$hbody .= "$_\n";
|
||||
$header{$p} .= $_;
|
||||
}
|
||||
}
|
||||
$type = $header{"content-type"};
|
||||
$dispos = $header{"content-disposition"};
|
||||
if ((! $type || $type =~ /^text\/plain/i) &&
|
||||
(! $dispos || $dispos =~ /^inline/i)) {
|
||||
$plain = 1;
|
||||
} else {
|
||||
$plain = 0;
|
||||
}
|
||||
$body = '';
|
||||
while(<F>) {
|
||||
s/\r?\n$//;
|
||||
($_ eq "--$boundary") && last;
|
||||
if ($_ eq "--$boundary--") {
|
||||
$end = 1;
|
||||
last;
|
||||
}
|
||||
if ($plain) {
|
||||
$body .= "$_\n";
|
||||
}
|
||||
}
|
||||
$| = 1;
|
||||
print "<hr>\n";
|
||||
{
|
||||
$_ = $hbody;
|
||||
s/\&/\&/g;
|
||||
s/\</\</g;
|
||||
s/\>/\>/g;
|
||||
print "<pre>\n";
|
||||
print $_;
|
||||
if ($type =~ /name=\"?([^\"]+)\"?/ ||
|
||||
$dispos =~ /filename=\"?([^\"]+)\"?/) {
|
||||
$name = $1;
|
||||
} else {
|
||||
$name = "[Content]";
|
||||
}
|
||||
print "\n<a href=\"$CGI&count=$count\">", &html_quote($name), "</a>";
|
||||
print "\n\n</pre>\n";
|
||||
}
|
||||
if ($plain) {
|
||||
$body = &decode($body, $CONV);
|
||||
$_ = $body;
|
||||
s/\&/\&/g;
|
||||
s/\</\</g;
|
||||
s/\>/\>/g;
|
||||
print "<pre>\n";
|
||||
print $_;
|
||||
print "</pre>\n";
|
||||
}
|
||||
eof(F) && last;
|
||||
$count++;
|
||||
}
|
||||
close(F);
|
||||
|
||||
sub decode {
|
||||
if ($use_NKF) {
|
||||
local($body, $opt) = @_;
|
||||
return nkf($opt, $body);
|
||||
}
|
||||
local($body, @cmd) = @_;
|
||||
local($_);
|
||||
|
||||
$| = 1;
|
||||
pipe(R, W2);
|
||||
pipe(R2, W);
|
||||
if (! fork()) {
|
||||
close(F);
|
||||
close(R);
|
||||
close(W);
|
||||
open(STDIN, "<&R2");
|
||||
open(STDOUT, ">&W2");
|
||||
exec @cmd;
|
||||
die;
|
||||
}
|
||||
close(R2);
|
||||
close(W2);
|
||||
print W $body;
|
||||
close(W);
|
||||
$body = '';
|
||||
while(<R>) {
|
||||
$body .= $_;
|
||||
}
|
||||
close(R);
|
||||
return $body;
|
||||
}
|
||||
|
||||
sub html_quote {
|
||||
local($_) = @_;
|
||||
local(%QUOTE) = (
|
||||
'<', '<',
|
||||
'>', '>',
|
||||
'&', '&',
|
||||
'"', '"',
|
||||
);
|
||||
s/[<>&"]/$QUOTE{$&}/g;
|
||||
return $_;
|
||||
}
|
||||
|
||||
sub form_decode {
|
||||
local($_) = @_;
|
||||
s/\+/ /g;
|
||||
s/%([\da-f][\da-f])/pack('c', hex($1))/egi;
|
||||
return $_;
|
||||
}
|
||||
|
||||
sub guess_type {
|
||||
local($_) = @_;
|
||||
|
||||
/\.(\w+)$/ || next;
|
||||
$_ = $1;
|
||||
tr/A-Z/a-z/;
|
||||
%mime_type = &load_mime_type($MIME_TYPE);
|
||||
$mime_type{$_};
|
||||
}
|
||||
|
||||
sub load_mime_type {
|
||||
local($file) = @_;
|
||||
local(%m, $a, @b, $_);
|
||||
|
||||
open(M, $file) || return ();
|
||||
while(<M>) {
|
||||
/^#/ && next;
|
||||
chop;
|
||||
(($a, @b) = split(" ")) >= 2 || next;
|
||||
for(@b) {
|
||||
$m{$_} = $a;
|
||||
}
|
||||
}
|
||||
close(M);
|
||||
return %m;
|
||||
}
|
||||
46
scripts/w3mman/Makefile
Normal file
46
scripts/w3mman/Makefile
Normal file
@@ -0,0 +1,46 @@
|
||||
|
||||
prefix = /usr/local
|
||||
bindir = $(prefix)/bin
|
||||
libdir = $(prefix)/lib
|
||||
distdir = ./distfiles
|
||||
|
||||
W3M_LIBDIR = $(libdir)/w3m
|
||||
|
||||
INSTALL = install -c
|
||||
INSTALL_SCRIPT = $(INSTALL) -m 755
|
||||
|
||||
PERL = /usr/local/bin/perl
|
||||
W3M = w3m
|
||||
# W3M = w3m -X -o confirm_qq=0
|
||||
MAN = man
|
||||
|
||||
all: w3mman w3mman2html.cgi
|
||||
|
||||
w3mman: w3mman.in Makefile
|
||||
sed -e 's%@PERL@%$(PERL)%g' \
|
||||
-e 's%@W3M@%$(W3M)%g' \
|
||||
-e 's%@MAN@%$(MAN)%g' \
|
||||
w3mman.in > w3mman
|
||||
chmod +x w3mman
|
||||
|
||||
w3mman2html.cgi: w3mman2html.cgi.in Makefile
|
||||
sed -e 's%@PERL@%$(PERL)%g' \
|
||||
-e 's%@MAN@%$(MAN)%g' \
|
||||
w3mman2html.cgi.in > w3mman2html.cgi
|
||||
chmod +x w3mman2html.cgi
|
||||
|
||||
install: w3mman w3mman2html.cgi
|
||||
$(INSTALL_SCRIPT) w3mman $(bindir)
|
||||
$(INSTALL_SCRIPT) w3mman2html.cgi $(W3M_LIBDIR)
|
||||
|
||||
dist: all
|
||||
@-rm -fr $(distdir)/w3mman
|
||||
mkdir -p $(distdir)/w3mman
|
||||
cp Makefile README w3mman w3mman.in \
|
||||
w3mman2html.cgi w3mman2html.cgi.in hlink.cgi \
|
||||
$(distdir)/w3mman
|
||||
( cd $(distdir); \
|
||||
tar -cf - w3mman | GZIP='' gzip ) \
|
||||
> $(distdir)/w3mman.tar.gz
|
||||
-rm -fr $(distdir)/w3mman
|
||||
|
||||
47
scripts/w3mman/README
Normal file
47
scripts/w3mman/README
Normal file
@@ -0,0 +1,47 @@
|
||||
|
||||
w3mman
|
||||
|
||||
他のマニュアルやヘッダファイルにリンクをはることができる
|
||||
man コマンドの代替コマンドです。
|
||||
|
||||
使用法
|
||||
|
||||
w3mman
|
||||
w3mman <command>[(<section>)]
|
||||
w3mman [<section>] <command>
|
||||
w3mman -k <keyword>
|
||||
|
||||
インストール
|
||||
|
||||
make install
|
||||
必要なら PERL, MAN, W3M_LIBDIR を設定してください。
|
||||
w3mman2html.cgi もインストールされます。
|
||||
|
||||
================
|
||||
|
||||
w3mman2html.cgi
|
||||
|
||||
使用法
|
||||
|
||||
w3m file:///$LIB/w3mman2html.cgi
|
||||
w3m file:///$LIB/w3mman2html.cgi?<command>[(<section>)]
|
||||
w3m file:///$LIB/w3mman2html.cgi?man=<command>[§ion=<section>]
|
||||
w3m file:///$LIB/w3mman2html.cgi?keyword=<keyword>
|
||||
|
||||
インストール
|
||||
|
||||
make install
|
||||
必要なら PERL, MAN, W3M_LIBDIR を設定してください。
|
||||
w3mman もインストールされます。
|
||||
|
||||
================
|
||||
|
||||
hlink.cgi
|
||||
|
||||
ヘッダファイルなどにリンクを張る
|
||||
|
||||
インストール
|
||||
|
||||
/$LIB/ にコピー
|
||||
w3mman2html.cgi で使用するならば $CGI2 に設定してください。
|
||||
|
||||
97
scripts/w3mman/hlink.cgi
Normal file
97
scripts/w3mman/hlink.cgi
Normal file
@@ -0,0 +1,97 @@
|
||||
#!/usr/local/bin/perl
|
||||
|
||||
$SCRIPT_NAME = $ENV{'SCRIPT_NAME'} || $0;
|
||||
$CGI = "file://$SCRIPT_NAME?";
|
||||
|
||||
if ($ENV{'QUERY_STRING'}) {
|
||||
$file = $ENV{'QUERY_STRING'};
|
||||
} else {
|
||||
$file = $ARGV[0];
|
||||
}
|
||||
$file = &cleanup($file);
|
||||
|
||||
if (-d $file) {
|
||||
print <<EOF;
|
||||
Location: file:$file
|
||||
EOF
|
||||
exit;
|
||||
}
|
||||
if (! open(FILE, "< $file")) {
|
||||
$file = &html_quote($file);
|
||||
$_ = "$file: " . &html_quote($!);
|
||||
print <<EOF;
|
||||
Content-Type: text/html
|
||||
|
||||
<head><title>$file</title></head>
|
||||
<b>$_</b>
|
||||
EOF
|
||||
exit 1;
|
||||
}
|
||||
|
||||
$file = &html_quote($file);
|
||||
($dir = $file) =~ s@[^/]*$@@;
|
||||
|
||||
print <<EOF;
|
||||
Content-Type: text/html
|
||||
|
||||
<head><title>$file</title></head>
|
||||
<pre>
|
||||
EOF
|
||||
while (<FILE>) {
|
||||
$_ = &html_quote($_);
|
||||
|
||||
s/^(\#\s*include\s+)(\".*\"|\<\;.*\>\;)/$1 . &header_ref($2)/ge;
|
||||
|
||||
print;
|
||||
}
|
||||
close(FILE);
|
||||
print "</pre>\n";
|
||||
|
||||
sub header_ref {
|
||||
local($_) = @_;
|
||||
local($d);
|
||||
|
||||
if (s/^\"//) {
|
||||
s/\"$//;
|
||||
return ""<a href=\"$CGI$dir$_\">$_</a>"";
|
||||
}
|
||||
s/^\<\;//;
|
||||
s/\>\;$//;
|
||||
|
||||
for $d (
|
||||
"/usr/include",
|
||||
"/usr/local/include",
|
||||
"/usr/X11R6/include",
|
||||
"/usr/X11/include",
|
||||
"/usr/X/include",
|
||||
"/usr/include/X11"
|
||||
) {
|
||||
-f "$d/$_" && return "<<a href=\"$CGI$d/$_\">$_</a>>";
|
||||
}
|
||||
return $_;
|
||||
}
|
||||
|
||||
|
||||
sub html_quote {
|
||||
local($_) = @_;
|
||||
local(%QUOTE) = (
|
||||
'<', '<',
|
||||
'>', '>',
|
||||
'&', '&',
|
||||
'"', '"',
|
||||
);
|
||||
s/[<>&"]/$QUOTE{$&}/g;
|
||||
return $_;
|
||||
}
|
||||
|
||||
sub cleanup {
|
||||
local($_) = @_;
|
||||
|
||||
s@//+@/@g;
|
||||
s@/\./@/@g;
|
||||
while(m@/\.\./@) {
|
||||
s@^/(\.\./)+@/@;
|
||||
s@/[^/]+/\.\./@/@;
|
||||
}
|
||||
return $_;
|
||||
}
|
||||
41
scripts/w3mman/w3mman
Normal file
41
scripts/w3mman/w3mman
Normal file
@@ -0,0 +1,41 @@
|
||||
#!/usr/local/bin/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 .= "§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 $_;
|
||||
}
|
||||
|
||||
41
scripts/w3mman/w3mman.in
Normal file
41
scripts/w3mman/w3mman.in
Normal file
@@ -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 .= "§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 $_;
|
||||
}
|
||||
|
||||
252
scripts/w3mman/w3mman2html.cgi
Normal file
252
scripts/w3mman/w3mman2html.cgi
Normal file
@@ -0,0 +1,252 @@
|
||||
#!/usr/local/bin/perl
|
||||
|
||||
$MAN = $ENV{'MAN'} || 'man';
|
||||
$QUERY = $ENV{'QUERY_STRING'} || $ARGV[0];
|
||||
$SCRIPT_NAME = $ENV{'SCRIPT_NAME'} || $0;
|
||||
$CGI = "file://$SCRIPT_NAME";
|
||||
$CGI2 = "file:";
|
||||
# $CGI2 = "file:///\$LIB/hlink.cgi?";
|
||||
$SQUEEZE = 1;
|
||||
|
||||
if ($QUERY =~ /\=/) {
|
||||
for (split('&', $QUERY)) {
|
||||
($v, $q) = split('=', $_, 2);
|
||||
$query{$v} = &form_decode($q);
|
||||
}
|
||||
} else {
|
||||
$QUERY =~ s/^man=//;
|
||||
$query{"man"} = &form_decode($QUERY);
|
||||
}
|
||||
|
||||
if (! $query{"man"}) {
|
||||
if ($query{"keyword"}) {
|
||||
$keyword = $query{"keyword"};
|
||||
$k = &html_quote($keyword);
|
||||
print <<EOF;
|
||||
Content-Type: text/html
|
||||
|
||||
<html>
|
||||
<head><title>man -k $k</title></head>
|
||||
<body>
|
||||
<h2>man -k <b>$k</b></h2>
|
||||
<ul>
|
||||
EOF
|
||||
$keyword =~ s:([^\w./]):\\$1:g;
|
||||
open(F, "$MAN -k $keyword 2> /dev/null |");
|
||||
@line = ();
|
||||
while(<F>) {
|
||||
chop;
|
||||
$_ = &html_quote($_);
|
||||
s/(\s+-.*)$//;
|
||||
$title = $1;
|
||||
s@(\w[\w.\-]*(\s*\,\s*\w[\w.\-]*)*)\s*(\([\dn]\w*\))@&keyword_ref($1, $3)@ge;
|
||||
print "<li>$_$title\n";
|
||||
}
|
||||
close(F);
|
||||
print <<EOF;
|
||||
</ul>
|
||||
</body>
|
||||
</html>
|
||||
EOF
|
||||
exit;
|
||||
}
|
||||
print <<EOF;
|
||||
Content-Type: text/html
|
||||
|
||||
<html>
|
||||
<head><title>man</title></head>
|
||||
<body>
|
||||
<form action="$CGI">
|
||||
<table>
|
||||
<tr><td>Manual:<td><input name=man>
|
||||
<tr><td>Section:<td><input name=section>
|
||||
<tr><td>Keyword:<td><input name=keyword>
|
||||
<tr><td><td><input type=submit> <input type=reset>
|
||||
</table>
|
||||
</form>
|
||||
</body>
|
||||
</html>
|
||||
EOF
|
||||
exit;
|
||||
}
|
||||
|
||||
$man = $query{"man"};
|
||||
if ($man =~ s/\((\w+)\)$//) {
|
||||
$section = $1;
|
||||
$man_section = "$man($1)";
|
||||
} elsif ($query{"section"}) {
|
||||
$section = $query{"section"};
|
||||
$man_section = "$man($section)";
|
||||
} else {
|
||||
$section = "";
|
||||
$man_section = "$man";
|
||||
}
|
||||
|
||||
$section =~ s:([^\w./]):\\$1:g;
|
||||
$man =~ s:([^\w./]):\\$1:g;
|
||||
open(F, "$MAN $section $man 2> /dev/null |");
|
||||
$ok = 0;
|
||||
undef $header;
|
||||
$blank = -1;
|
||||
while(<F>) {
|
||||
if (! defined($header)) {
|
||||
/^\s*$/ && next;
|
||||
$header = $_;
|
||||
$space = $header;
|
||||
chop $space;
|
||||
$space =~ s/\S.*//;
|
||||
} elsif ($_ eq $header) { # delete header
|
||||
$blank = -1;
|
||||
next;
|
||||
} elsif (!/\010/ && /^$space[\w\200-\377].*\s\S/o) { # delete footer
|
||||
$blank = -1;
|
||||
next;
|
||||
}
|
||||
if ($SQUEEZE) {
|
||||
if (/^\s*$/) {
|
||||
$blank || $blank++;
|
||||
next;
|
||||
} elsif ($blank) {
|
||||
$blank > 0 && print "\n";
|
||||
$blank = 0;
|
||||
}
|
||||
}
|
||||
|
||||
s/\&/\&/g;
|
||||
s/\</\</g;
|
||||
s/\>/\>/g;
|
||||
|
||||
s@([\200-\377].)(\010{1,2}\1)+@<b>$1</b>@g;
|
||||
s@(\&\w+;|.)(\010\1)+@<b>$1</b>@g;
|
||||
s@__\010{1,2}((\<b\>)?[\200-\377].(\</b\>)?)@<u>$1</u>@g;
|
||||
s@_\010((\<b\>)?(\&\w+\;|.)(\</b\>)?)@<u>$1</u>@g;
|
||||
s@((\<b\>)?[\200-\377].(\</b\>)?)\010{1,2}__@<u>$1</u>@g;
|
||||
s@((\<b\>)?(\&\w+\;|.)(\</b\>)?)\010_@<u>$1</u>@g;
|
||||
s@.\010(.)@$1@g;
|
||||
|
||||
s@\</b\>\</u\>\<b\>_\</b\>\<u\>\<b\>@_@g;
|
||||
s@\</u\>\<b\>_\</b\>\<u\>@_@g;
|
||||
s@\</u\>\<u\>@@g;
|
||||
s@\</b\>\<b\>@@g;
|
||||
|
||||
if (! $ok) {
|
||||
/^No/ && last;
|
||||
print <<EOF;
|
||||
Content-Type: text/html
|
||||
|
||||
<html>
|
||||
<head><title>man $man_section</title></head>
|
||||
<body>
|
||||
<pre>
|
||||
EOF
|
||||
print;
|
||||
$ok = 1;
|
||||
next;
|
||||
}
|
||||
|
||||
s@(http|ftp)://[\w.\-/~]+[\w/]@<a href="$&">$&</a>@g;
|
||||
s@(\W)(mailto:)?(\w[\w.\-]*\@\w[\w.\-]*\.[\w.\-]*\w)@$1<a href="mailto:$3">$2$3</a>@g;
|
||||
s@(\W)(\~?/[\w.][/\w.\-]*)@$1 . &file_ref($2)@ge;
|
||||
s@(include(<\/?[bu]\>|\s)*\<)([/\w.\-]+)@$1 . &include_ref($3)@ge;
|
||||
s@(\w[\w.\-]*)((\</[bu]\>)*)(\([\dm]\w*\))@<a href="$CGI?$1$4">$1</a>$2$4@g;
|
||||
print;
|
||||
}
|
||||
close(F);
|
||||
if (! $ok) {
|
||||
if ($query{'quit'}) {
|
||||
print STDERR "No manual entry for $man_section.\n";
|
||||
print <<EOF;
|
||||
w3m-control: EXIT
|
||||
EOF
|
||||
exit 1;
|
||||
}
|
||||
print <<EOF;
|
||||
Content-Type: text/html
|
||||
|
||||
<html>
|
||||
<head><title>man $man_section</title></head>
|
||||
<body>
|
||||
<pre>
|
||||
EOF
|
||||
print "No manual entry for <B>$man_section</B>.\n";
|
||||
}
|
||||
print <<EOF;
|
||||
</pre>
|
||||
</body>
|
||||
</html>
|
||||
EOF
|
||||
|
||||
sub is_command {
|
||||
local($_) = @_;
|
||||
local($p);
|
||||
|
||||
(! -d && -x) || return 0;
|
||||
if (! defined(%PATH)) {
|
||||
for $p (split(":", $ENV{'PATH'})) {
|
||||
$p =~ s@/+$@@;
|
||||
$PATH{$p} = 1;
|
||||
}
|
||||
}
|
||||
s@/[^/]*$@@;
|
||||
return defined($PATH{$_});
|
||||
}
|
||||
|
||||
sub file_ref {
|
||||
local($_) = @_;
|
||||
|
||||
if (&is_command($_)) {
|
||||
($man = $_) =~ s@.*/@@;
|
||||
return "<a href=\"$CGI?$man\">$_</a>";
|
||||
}
|
||||
if (/^\~/ || -f || -d) {
|
||||
return "<a href=\"$CGI2$_\">$_</a>";
|
||||
}
|
||||
return $_;
|
||||
}
|
||||
|
||||
sub include_ref {
|
||||
local($_) = @_;
|
||||
local($d);
|
||||
|
||||
for $d (
|
||||
"/usr/include",
|
||||
"/usr/local/include",
|
||||
"/usr/X11R6/include",
|
||||
"/usr/X11/include",
|
||||
"/usr/X/include",
|
||||
"/usr/include/X11"
|
||||
) {
|
||||
-f "$d/$_" && return "<a href=\"$CGI2$d/$_\">$_</a>";
|
||||
}
|
||||
return $_;
|
||||
}
|
||||
|
||||
sub keyword_ref {
|
||||
local($_, $s) = @_;
|
||||
local(@a) = ();
|
||||
|
||||
for (split(/\s*,\s*/)) {
|
||||
push(@a, "<a href=\"$CGI?$_$s\">$_</a>");
|
||||
}
|
||||
return join(", ", @a) . $s;
|
||||
}
|
||||
|
||||
sub html_quote {
|
||||
local($_) = @_;
|
||||
local(%QUOTE) = (
|
||||
'<', '<',
|
||||
'>', '>',
|
||||
'&', '&',
|
||||
'"', '"',
|
||||
);
|
||||
s/[<>&"]/$QUOTE{$&}/g;
|
||||
return $_;
|
||||
}
|
||||
|
||||
sub form_decode {
|
||||
local($_) = @_;
|
||||
s/\+/ /g;
|
||||
s/%([\da-f][\da-f])/pack('c', hex($1))/egi;
|
||||
return $_;
|
||||
}
|
||||
|
||||
252
scripts/w3mman/w3mman2html.cgi.in
Normal file
252
scripts/w3mman/w3mman2html.cgi.in
Normal file
@@ -0,0 +1,252 @@
|
||||
#!@PERL@
|
||||
|
||||
$MAN = $ENV{'MAN'} || '@MAN@';
|
||||
$QUERY = $ENV{'QUERY_STRING'} || $ARGV[0];
|
||||
$SCRIPT_NAME = $ENV{'SCRIPT_NAME'} || $0;
|
||||
$CGI = "file://$SCRIPT_NAME";
|
||||
$CGI2 = "file:";
|
||||
# $CGI2 = "file:///\$LIB/hlink.cgi?";
|
||||
$SQUEEZE = 1;
|
||||
|
||||
if ($QUERY =~ /\=/) {
|
||||
for (split('&', $QUERY)) {
|
||||
($v, $q) = split('=', $_, 2);
|
||||
$query{$v} = &form_decode($q);
|
||||
}
|
||||
} else {
|
||||
$QUERY =~ s/^man=//;
|
||||
$query{"man"} = &form_decode($QUERY);
|
||||
}
|
||||
|
||||
if (! $query{"man"}) {
|
||||
if ($query{"keyword"}) {
|
||||
$keyword = $query{"keyword"};
|
||||
$k = &html_quote($keyword);
|
||||
print <<EOF;
|
||||
Content-Type: text/html
|
||||
|
||||
<html>
|
||||
<head><title>man -k $k</title></head>
|
||||
<body>
|
||||
<h2>man -k <b>$k</b></h2>
|
||||
<ul>
|
||||
EOF
|
||||
$keyword =~ s:([^\w./]):\\$1:g;
|
||||
open(F, "$MAN -k $keyword 2> /dev/null |");
|
||||
@line = ();
|
||||
while(<F>) {
|
||||
chop;
|
||||
$_ = &html_quote($_);
|
||||
s/(\s+-.*)$//;
|
||||
$title = $1;
|
||||
s@(\w[\w.\-]*(\s*\,\s*\w[\w.\-]*)*)\s*(\([\dn]\w*\))@&keyword_ref($1, $3)@ge;
|
||||
print "<li>$_$title\n";
|
||||
}
|
||||
close(F);
|
||||
print <<EOF;
|
||||
</ul>
|
||||
</body>
|
||||
</html>
|
||||
EOF
|
||||
exit;
|
||||
}
|
||||
print <<EOF;
|
||||
Content-Type: text/html
|
||||
|
||||
<html>
|
||||
<head><title>man</title></head>
|
||||
<body>
|
||||
<form action="$CGI">
|
||||
<table>
|
||||
<tr><td>Manual:<td><input name=man>
|
||||
<tr><td>Section:<td><input name=section>
|
||||
<tr><td>Keyword:<td><input name=keyword>
|
||||
<tr><td><td><input type=submit> <input type=reset>
|
||||
</table>
|
||||
</form>
|
||||
</body>
|
||||
</html>
|
||||
EOF
|
||||
exit;
|
||||
}
|
||||
|
||||
$man = $query{"man"};
|
||||
if ($man =~ s/\((\w+)\)$//) {
|
||||
$section = $1;
|
||||
$man_section = "$man($1)";
|
||||
} elsif ($query{"section"}) {
|
||||
$section = $query{"section"};
|
||||
$man_section = "$man($section)";
|
||||
} else {
|
||||
$section = "";
|
||||
$man_section = "$man";
|
||||
}
|
||||
|
||||
$section =~ s:([^\w./]):\\$1:g;
|
||||
$man =~ s:([^\w./]):\\$1:g;
|
||||
open(F, "$MAN $section $man 2> /dev/null |");
|
||||
$ok = 0;
|
||||
undef $header;
|
||||
$blank = -1;
|
||||
while(<F>) {
|
||||
if (! defined($header)) {
|
||||
/^\s*$/ && next;
|
||||
$header = $_;
|
||||
$space = $header;
|
||||
chop $space;
|
||||
$space =~ s/\S.*//;
|
||||
} elsif ($_ eq $header) { # delete header
|
||||
$blank = -1;
|
||||
next;
|
||||
} elsif (!/\010/ && /^$space[\w\200-\377].*\s\S/o) { # delete footer
|
||||
$blank = -1;
|
||||
next;
|
||||
}
|
||||
if ($SQUEEZE) {
|
||||
if (/^\s*$/) {
|
||||
$blank || $blank++;
|
||||
next;
|
||||
} elsif ($blank) {
|
||||
$blank > 0 && print "\n";
|
||||
$blank = 0;
|
||||
}
|
||||
}
|
||||
|
||||
s/\&/\&/g;
|
||||
s/\</\</g;
|
||||
s/\>/\>/g;
|
||||
|
||||
s@([\200-\377].)(\010{1,2}\1)+@<b>$1</b>@g;
|
||||
s@(\&\w+;|.)(\010\1)+@<b>$1</b>@g;
|
||||
s@__\010{1,2}((\<b\>)?[\200-\377].(\</b\>)?)@<u>$1</u>@g;
|
||||
s@_\010((\<b\>)?(\&\w+\;|.)(\</b\>)?)@<u>$1</u>@g;
|
||||
s@((\<b\>)?[\200-\377].(\</b\>)?)\010{1,2}__@<u>$1</u>@g;
|
||||
s@((\<b\>)?(\&\w+\;|.)(\</b\>)?)\010_@<u>$1</u>@g;
|
||||
s@.\010(.)@$1@g;
|
||||
|
||||
s@\</b\>\</u\>\<b\>_\</b\>\<u\>\<b\>@_@g;
|
||||
s@\</u\>\<b\>_\</b\>\<u\>@_@g;
|
||||
s@\</u\>\<u\>@@g;
|
||||
s@\</b\>\<b\>@@g;
|
||||
|
||||
if (! $ok) {
|
||||
/^No/ && last;
|
||||
print <<EOF;
|
||||
Content-Type: text/html
|
||||
|
||||
<html>
|
||||
<head><title>man $man_section</title></head>
|
||||
<body>
|
||||
<pre>
|
||||
EOF
|
||||
print;
|
||||
$ok = 1;
|
||||
next;
|
||||
}
|
||||
|
||||
s@(http|ftp)://[\w.\-/~]+[\w/]@<a href="$&">$&</a>@g;
|
||||
s@(\W)(mailto:)?(\w[\w.\-]*\@\w[\w.\-]*\.[\w.\-]*\w)@$1<a href="mailto:$3">$2$3</a>@g;
|
||||
s@(\W)(\~?/[\w.][/\w.\-]*)@$1 . &file_ref($2)@ge;
|
||||
s@(include(<\/?[bu]\>|\s)*\<)([/\w.\-]+)@$1 . &include_ref($3)@ge;
|
||||
s@(\w[\w.\-]*)((\</[bu]\>)*)(\([\dm]\w*\))@<a href="$CGI?$1$4">$1</a>$2$4@g;
|
||||
print;
|
||||
}
|
||||
close(F);
|
||||
if (! $ok) {
|
||||
if ($query{'quit'}) {
|
||||
print STDERR "No manual entry for $man_section.\n";
|
||||
print <<EOF;
|
||||
w3m-control: EXIT
|
||||
EOF
|
||||
exit 1;
|
||||
}
|
||||
print <<EOF;
|
||||
Content-Type: text/html
|
||||
|
||||
<html>
|
||||
<head><title>man $man_section</title></head>
|
||||
<body>
|
||||
<pre>
|
||||
EOF
|
||||
print "No manual entry for <B>$man_section</B>.\n";
|
||||
}
|
||||
print <<EOF;
|
||||
</pre>
|
||||
</body>
|
||||
</html>
|
||||
EOF
|
||||
|
||||
sub is_command {
|
||||
local($_) = @_;
|
||||
local($p);
|
||||
|
||||
(! -d && -x) || return 0;
|
||||
if (! defined(%PATH)) {
|
||||
for $p (split(":", $ENV{'PATH'})) {
|
||||
$p =~ s@/+$@@;
|
||||
$PATH{$p} = 1;
|
||||
}
|
||||
}
|
||||
s@/[^/]*$@@;
|
||||
return defined($PATH{$_});
|
||||
}
|
||||
|
||||
sub file_ref {
|
||||
local($_) = @_;
|
||||
|
||||
if (&is_command($_)) {
|
||||
($man = $_) =~ s@.*/@@;
|
||||
return "<a href=\"$CGI?$man\">$_</a>";
|
||||
}
|
||||
if (/^\~/ || -f || -d) {
|
||||
return "<a href=\"$CGI2$_\">$_</a>";
|
||||
}
|
||||
return $_;
|
||||
}
|
||||
|
||||
sub include_ref {
|
||||
local($_) = @_;
|
||||
local($d);
|
||||
|
||||
for $d (
|
||||
"/usr/include",
|
||||
"/usr/local/include",
|
||||
"/usr/X11R6/include",
|
||||
"/usr/X11/include",
|
||||
"/usr/X/include",
|
||||
"/usr/include/X11"
|
||||
) {
|
||||
-f "$d/$_" && return "<a href=\"$CGI2$d/$_\">$_</a>";
|
||||
}
|
||||
return $_;
|
||||
}
|
||||
|
||||
sub keyword_ref {
|
||||
local($_, $s) = @_;
|
||||
local(@a) = ();
|
||||
|
||||
for (split(/\s*,\s*/)) {
|
||||
push(@a, "<a href=\"$CGI?$_$s\">$_</a>");
|
||||
}
|
||||
return join(", ", @a) . $s;
|
||||
}
|
||||
|
||||
sub html_quote {
|
||||
local($_) = @_;
|
||||
local(%QUOTE) = (
|
||||
'<', '<',
|
||||
'>', '>',
|
||||
'&', '&',
|
||||
'"', '"',
|
||||
);
|
||||
s/[<>&"]/$QUOTE{$&}/g;
|
||||
return $_;
|
||||
}
|
||||
|
||||
sub form_decode {
|
||||
local($_) = @_;
|
||||
s/\+/ /g;
|
||||
s/%([\da-f][\da-f])/pack('c', hex($1))/egi;
|
||||
return $_;
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user