w3m help page

#!@PERL@ # $Id: w3mhelp.cgi.in,v 1.22 2002/12/11 02:57:30 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 ($ENV{'QUERY_STRING'} =~ /(^|&)cookie=([^&]*)/) { $cookie = $2; $cookie =~ s/\+|%([0-9A-Fa-f][0-9A-Fa-f])/$& eq '+' ? ' ' : pack('C', hex($1))/ge; } } if (($cookie eq "") || ($cookie ne $ENV{"LOCAL_COOKIE"})) { print < w3m help page ******* w3m (WWW-wo-Miru) Version $version by A.ITO ********
***** Key assign table ***** HEADING $q_version = $version; $q_version =~ s/[^A-Za-z0-9_\$\.\-]/sprintf('%%%02X', ord($&))/ge; $q_cookie = $cookie; $q_cookie =~ s/[^A-Za-z0-9_\$\.\-]/sprintf('%%%02X', ord($&))/ge; $script = "$d[2] version
\n"; } } &show_keymap("Page/Cursor motion", split(" ", "pgFore pgBack movR movL movD movU movR1 movL1 movD1 movU1 ldown1 lup1 shiftl shiftr col1L col1R linbeg linend ctrCsrH ctrCsrV goLine goLineF goLineL movRW movLW topA lastA nextA prevA movlistMn nextR nextL nextD nextU nextRD nextLU undoPos redoPos")); &show_keymap("Hyperlink operation", split(" ", "followA tabA svA followI svI submitForm curURL peekURL peekIMG pginfo curlno chkURL chkWORD chkNMID rFrame extbrz linkbrz linkLst listMn linkMn accessKey")); &show_keymap("File/Stream operation", split(" ", "goURL gorURL tabURL tabrURL ldfile readsh pipesh pipeBuf")); &show_keymap("Buffer operation", split(" ", "backBf nextBf prevBf selMn selBuf vwSrc svSrc svBuf editBf editScr reload rdrwSc dispI stopI")); &show_keymap("Tab operation", split(" ", "newT closeT nextT prevT tabMn tabR tabL")); &show_keymap("Bookmark operation", split(" ", "ldBmark adBmark")); &show_keymap("Search", split(" ", "srchfor srchbak srchnxt srchprv isrchfor isrchbak")); &show_keymap("Dictionary look-up", split(" ", "dictword dictwordat")); &show_keymap("Mark operation", split(" ", "_mark nextMk prevMk reMark")); &show_keymap("Miscellany", split(" ", "mainMn ldhelp ldOpt dispVer cooLst ldHist ldDL msgs msToggle wrapToggle execCmd setAlarm setOpt setEnv defKey reinit execsh susp qquitfm quitfm")); &show_keymap("Buffer selection mode", split(" ", "buffer_next buffer_prev buffer_delete buffer_go")); &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_editor lineedit_complete lineedit_accept")); print < PAGE exit 0; sub load_keymap { local(*FH) = shift; local($func) = @_; while () { /^#/ && next; s/^\s*keymap\s+// || next; s/^(\"(\\\"|[^\"])+\"|\'(\\\'|[^\'])+\'|\S+)\s+(\S+)\s*// || next; ($key, $fname) = ($1, $4); ($data = $_) && next; $fname =~ tr/a-z/A-Z/; defined($funcdesc{$fname}) || next; $key =~ s/^["'](.*)["']$/$1/; $key = &norm_key($key); $keyfunc{$key} = $fname; } } sub norm_key { local($_) = @_; s/(ESC|SPC|TAB|DEL|UP|DOWN|RIGHT|LEFT)/\U$1/i; s/\\(.)/$1/g; s/(^|\s+|-)\^(.)/${1}C-$2/g; s/(^|\s+|-)(C-\[|M-)/${1}ESC-/g; if (/^ESC-\[/) { /^ESC-\[A$/ && return "UP"; /^ESC-\[B$/ && return "DOWN"; /^ESC-\[C$/ && return "RIGHT"; /^ESC-\[D$/ && return "LEFT"; } s/(^|\s+|-)ESC-\[/$1\^\[\[/g; s/(^|\s+|-)ESC-\^(.)/${1}ESC-C-$2/g; s/(^|\s+|-)(ESC-)?C-[iI]/$1${2}TAB/g; s/(^|\s+|-)(ESC-)?C-\?/$1${2}DEL/g; return $_; } sub show_keymap { local($head, @list) = @_; local($fid); local($attr) = " WIDTH=140"; if (defined($title{$head})) { $head = $title{$head}; $head =~ s/[<>&]/$htmlesc{$&}/ge; } print <$head PAGE foreach $fid (@list) { local ($desc, $keys) = split("\n", $funckeydesc{$fid}, 2); $keys =~ s/,$//; $keys = '' if ($keys eq ''); $keys =~ s/[<>&]/$htmlesc{$&}/ge; $desc =~ s/[<>&]/$htmlesc{$&}/ge; print <$keys

$desc PAGE $attr = ""; } print "

\n"; } sub cygwin_pathconv { local($_) = @_; local(*CYGPATH); open(CYGPATH, '-|') || exec('cygpath', '-w', $_); $_ = ; close(CYGPATH); s/\r?\n$//; s!\\!/!g; s!/$!!; return $_; }