#!@PERL@
# $Id: w3mhelp.cgi.in,v 1.8 2001/12/25 09:16:23 ukai Exp $
if ( $^O =~ /^(ms)?(dos|win(32|nt)?)/i ) {
$CYGPATH = 1;
}
$helpdir = "@HELP_DIR@";
if ($CYGPATH) {
$helpdir = &cygwin_pathconv($helpdir);
}
unshift(@INC, $helpdir);
@docdirs = split(" ", "@DOCDIRS@");
require "w3mhelp-funcname.pl";
require "w3mhelp-funcdesc.en.pl";
$lang = 'en';
%htmlesc = (
'<', '<',
'>', '>',
'&', '&'
);
$RC_DIR = '@RC_DIR@';
$RC_DIR =~ s/^~/$ENV{'HOME'}/;
if ($CYGPATH) {
$RC_DIR = &cygwin_pathconv("$RC_DIR");
}
$keymap = "$RC_DIR/keymap";
$version = '*unknown*';
if (defined($ENV{'QUERY_STRING'})) {
print "QUERY_STRING=$ENV{'QUERY_STRING'}\n";
if ($ENV{'QUERY_STRING'} =~ /(^|&)version=([^&]*)/) {
$version = $2;
$version =~ s/\+|%([0-9A-Fa-f][0-9A-Fa-f])/$& eq '+' ? ' ' : pack('C', hex($1))/ge;
$version =~ s/w3m\///;
}
if ($ENV{'QUERY_STRING'} =~ /(^|&)lang=([^&]*)/) {
local($tlang) = $2;
$tlang =~ s/\+|%([0-9A-Fa-f][0-9A-Fa-f])/$& eq '+' ? ' ' : pack('C', hex($1))/ge;
$tlang =~ tr/A-Z/a-z/;
if ($tlang !~ /^[a-z][a-z]$/) {
$tlang = 'en';
}
print "tlang=$tlang\n";
eval {require "w3mhelp-funcdesc.$tlang.pl";};
if (defined(%funcdesc)) {
$lang = $tlang;
}
}
}
if (-f $keymap) {
open(KEYMAP, "< $keymap") || die "cannot open keymap: $keymap, $!";
&load_keymap(*KEYMAP, $func);
close(KEYMAP);
}
local (%funckeydesc, $key, $fname, $desc);
%funcname = (%funcname, %buf_funcname, %lineedit_funcname);
%funcdesc = (%funcdesc, %buf_funcdesc, %lineedit_funcdesc);
while (($fname, $desc) = each %funcdesc) {
$funckeydesc{$funcname{$fname}} = "$desc\n";
}
while (($key, $fname) = each %keyfunc) {
$funckeydesc{$funcname{$fname}} .= "$key,";
}
while (($key, $fname) = each %buf_keyfunc) {
$funckeydesc{$funcname{$fname}} .= "$key,";
}
while (($key, $fname) = each %lineedit_keyfunc) {
$funckeydesc{$funcname{$fname}} .= "$key,";
}
print <<HEADING;
Content-Type: text/html
<HTML>
<HEAD>
<TITLE>w3m help page</TITLE>
</HEAD>
<BODY>
<CENTER>
*******
<A HREF="http://w3m.sourceforge.net/">w3m</A>
(WWW-wo-Miru) Version $version by
<A HREF="mailto:aito\@fw.ipsj.or.jp">A.ITO</A> ********<BR>
***** Key assign table *****
</CENTER>
HEADING
$q_version = $version;
$q_version =~ s/[^A-Za-z0-9_\$\.\-]/sprintf('%%%02X', ord($&))/ge;
$script = "<A HREF=\"$ENV{'SCRIPT_NAME'}?version=$q_version&lang=";
# doc:en_English doc-jp:ja_Japanese
for $otherlang (@docdirs) {
local(@d) = split(/[:_]/, $otherlang);
if ($d[1] ne $lang) {
$d[1] =~ s/[^A-Za-z0-9_\$\.\-]/sprintf('%%%02X', ord($&))/ge;
print $script, $d[1], "\">$d[2] version</A><BR>\n";
}
}
&show_keymap("Page/Cursor motion",
split(" ", "pgFore pgBack movR movL movD movU lup1 ldown1
goLineF goLineL movRW movLW shiftl shiftr
col1R col1L goLine ctrCsrH ctrCsrV
topA lastA nextA prevA
nextL nextLU nextR nextRD nextD nextU"));
&show_keymap("Hyperlink operation",
split(" ", "followA svA peekURL peekIMG followI svI
chkURL chkNMID curURL pginfo curlno ldHist
rFrame extbrz linkbrz"));
&show_keymap("File/Stream operation",
split(" ", "goURL ldfile readsh pipesh"));
&show_keymap("Buffer operation",
split(" ", "backBf vwSrc selMn editBf rdrwSc reload
svBuf svSrc editScr"));
&show_keymap("Buffer selection mode",
split(" ", "buffer_prev buffer_next buffer_delete buffer_go"));
&show_keymap("Bookmark operation",
split(" ", "ldBmark adBmark"));
&show_keymap("Search",
split(" ", "srchfor srchbak srchnxt srchprv"));
&show_keymap("Dictionary look-up",
split(" ", "dictword dictwordat"));
&show_keymap("Mark operation",
split(" ", "_mark prevMk nextMk reMark"));
&show_keymap("Miscellany",
split(" ",
"setAlarm execsh ldhelp ldOpt cooLst susp qquitfm quitfm"));
&show_keymap("Line-edit mode",
split(" ", "lineedit_forward lineedit_back lineedit_backspace
lineedit_delete lineedit_kill_after lineedit_kill_before
lineedit_top lineedit_bottom lineedit_prev lineedit_next
lineedit_complete lineedit_accept"));
print <<PAGE;
<HR>
</BODY>
</HTML>
PAGE
exit 0;
sub load_keymap {
local(*FH) = shift;
local($func) = @_;
while (<FH>) {
next if /^#/;
next if /^\s*$/;
($keymap, $key, $fname) = split;
next unless $keymap =~ /keymap/;
$fname =~ tr/a-z/A-Z/;
next unless (defined($funcdesc{$fname}));
$key =~ s/^\\//;
$keyfunc{$key} = $fname;
}
}
sub show_keymap {
local($head, @list) = @_;
local($fid);
local($attr) = " WIDTH=140";
if (defined($title{$head})) {
$head = $title{$head};
$head =~ s/[<>&]/$htmlesc{$&}/ge;
}
print <<PAGE;
<H2>$head</H2>
<table cellpadding=0>
PAGE
foreach $fid (@list) {
local ($desc, $keys) = split("\n", $funckeydesc{$fid}, 2);
$keys =~ s/,$//;
$keys = '<NOT ASSIGNED>' if ($keys eq '');
$keys =~ s/[<>&]/$htmlesc{$&}/ge;
$desc =~ s/[<>&]/$htmlesc{$&}/ge;
print <<PAGE;
<TR><TD$attr>$keys</TD><TD>$desc</TD></TR>
PAGE
$attr = "";
}
print "</table>\n";
}
sub cygwin_pathconv {
local($_) = @_;
local(*CYGPATH);
open(CYGPATH, '-|') || exec('cygpath', '-w', $_);
$_ = <CYGPATH>;
close(CYGPATH);
s/\r?\n$//;
s!\\!/!g;
s!/$!!;
return $_;
}
