storm/w3m
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

[w3m-dev 03583] w3mman

Browse Source 
* 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>
This commit is contained in:
Fumitoshi UKAI
2002-12-18 16:48:02 +00:00
parent 8696cb81db
commit 3888822eef
5 changed files with 50 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
scripts/w3mman/README
View File

@@ -11,6 +11,13 @@ w3mman
w3mman [<section>] <command>
w3mman -k <keyword>
<EFBFBD>Ķ<EFBFBD><EFBFBD>ѿ<EFBFBD>
W3MMAN_W3M
<20><><EFBFBD>Ѥ<EFBFBD><D1A4><EFBFBD> w3m <20><><EFBFBD>ޥ<EFBFBD><DEA5>ɤ<EFBFBD><C9A4><EFBFBD><EFBFBD>ꤷ<EFBFBD>ޤ<EFBFBD>(<28>ǥե<C7A5><D5A5><EFBFBD><EFBFBD>Ȥ<EFBFBD> w3m)
W3MMAN_MAN
<20><><EFBFBD>Ѥ<EFBFBD><D1A4><EFBFBD> man <20><><EFBFBD>ޥ<EFBFBD><DEA5>ɤ<EFBFBD><C9A4><EFBFBD><EFBFBD>ꤷ<EFBFBD>ޤ<EFBFBD>(<28>ǥե<C7A5><D5A5><EFBFBD><EFBFBD>Ȥ<EFBFBD> man)
<EFBFBD><EFBFBD><EFBFBD>󥹥ȡ<EFBFBD><EFBFBD><EFBFBD>
make install

7
scripts/w3mman/w3mman.1.in
View File

@@ -34,6 +34,13 @@ as MANPATH.
.B \-k " keyword"
Specify
.I keyword.
.SH ENVIRONMENT
.TP
.B W3MMAN_W3M
If W3MMAN_W3M is set, its value is used instead of @W3M@.
.TP
.B W3MMAN_MAN
If W3MMAN_MAN is set, its value is used instead of @MAN@.
.SH FILES
.TP
.I @LIB_DIR@/w3mman2html.cgi

4
scripts/w3mman/w3mman.in
View File

@@ -1,7 +1,7 @@
#!@PERL@
@W3M = split(' ', '@W3M@');
$ENV{'MAN'} = '@MAN@';
@W3M = split(' ', $ENV{'W3MMAN_W3M'} || '@W3M@');
$ENV{'W3MMAN_MAN'} ||= '@MAN@';
$SCRIPT = 'file:///$LIB/w3mman2html.cgi';
sub usage {

27
scripts/w3mman/w3mman2html.cgi.in
View File

@@ -1,6 +1,6 @@
#!@PERL@
$MAN = $ENV{'MAN'} || '@MAN@';
$MAN = $ENV{'W3MMAN_MAN'} || '@MAN@';
$QUERY = $ENV{'QUERY_STRING'} || $ARGV[0];
$SCRIPT_NAME = $ENV{'SCRIPT_NAME'} || $0;
$CGI = "file://$SCRIPT_NAME";
@@ -89,6 +89,8 @@ open(F, "$MAN $section $man 2> /dev/null |");
$ok = 0;
undef $header;
$blank = -1;
$cmd = "";
$prev = "";
while(<F>) {
if (! defined($header)) {
/^\s*$/ && next;
@@ -147,11 +149,30 @@ EOF
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)*\&lt;)([/\w.\-]+)@$1 . &include_ref($3)@ge;
s@(\W)(\~?/[\w.][\w.\-/~]*)@$1 . &file_ref($2)@ge;
s@(include(<\/?[bu]\>|\s)*\&lt;)([\w.\-/]+)@$1 . &include_ref($3)@ge;
if ($prev && m@^\s*(\<[bu]\>)*(\w[\w.\-]*)(\</[bu]\>)*(\([\dm]\w*\))@) {
$cmd .= "$2$4";
$prev =~ s@(\w[\w.\-]*-)((\</[bu]\>)*\s*)$@<a href="$CGI?$cmd">$1</a>$2@;
print $prev;
$prev = '';
s@^(\s*(\<[bu]\>)*)(\w[\w.\-]*)@@;
print "$1<a href=\"$CGI?$cmd\">$3</a>";
} elsif ($prev) {
print $prev;
$prev = '';
}
s@(\w[\w.\-]*)((\</[bu]\>)*)(\([\dm]\w*\))@<a href="$CGI?$1$4">$1</a>$2$4@g;
if (m@(\w[\w.\-]*)-(\</[bu]\>)*\s*$@) {
$cmd = $1;
$prev = $_;
next;
}
print;
}
if ($prev) {
print $prev;
}
close(F);
if (! $ok) {
if ($query{'quit'}) {