lynx-dev
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

LYNX-DEV CGI script 1 to set Lynx options


From: --- Alvian ---
Subject: LYNX-DEV CGI script 1 to set Lynx options
Date: Thu, 02 Oct 97 15:04:08 +1000

---Cut and save as cgi1.pl, modify path to perl & cgi-lib.pl (lines 1 & 4)---
#!/usr/local/bin/perl

# Read cgi-lib.pl and read in post-data
require ("/usr/local/etc/httpd/cgi-bin/cgi-lib.pl");
&ReadParse;

# Read old lynx options from user-specified filename
open (FILE,"<$in{lynxrc}");
# ---- Repeat until eof
LINE: while (<FILE>) {
# ---- Skip blank lines
        next LINE if /^$/;
# ---- Break into key and value (field separator is "=")
        /=/;
        $key=$`;
        $value=$';
# ---- Put into a table
        $table{$key}=$value;
}

# Output HTML form
print "Content-type:text/html\n\n";
print <<END_1;
<html><head>
<title>Set options page</title>
</head><body>
<h1>Submit this form to change options</h1>
<form method="post" action="lynxcgi:cgi2.pl">

<h2 id="toc">Table of Content</h2>
<ul>
<li><a href="#buttons">Update options</a>
<li><a href="#appear">On screen appearence</a>
        <ul>
        <li><a href="#usermode">User mode</a>
        <li><a href="#colour">Colour</a>
        <li><a href="#cursor">Cursor</a>
        <li><a href="#popups">Popup menu</a>
        <li><a href="#case">Case sensitivity</a>
        <li><a href="#ftp">Ftp sort order</a>
        <li><a href="#dot">Show hidden files</a>
        <li><a href="#dir">Directory list style</a>
        </ul>
<li><a href="#bookmarks">Bookmark(s)</a>
        <ul>
        <li><a href="#bookmark_type">Single/multiple bookmarks</a>
        <li><a href="#bookA">Define default bookmark</a>
        <li><a href="#multibook">Define multiple bookmarks</a>
        </ul>
<li><a href="#keys">Keyboard controls</a>
        <ul>
        <li><a href="#keypad">Keypad mode</a>
        <li><a href="#lineedit">Line edit keys</a>
        <li><a href="#vikeys">Vi keys</a>
        <li><a href="#emacskeys">Emacs keys</a>
        </ul>
<li><a href="#misc">Editor, email address, and language</a>
        <ul>
        <li><a href="#editor">File editor</a>
        <li><a href="#email">Personal email address</a>
        <li><a href="#prelang">Preferred document language</a>
        <li><a href="#prechar">Preferred document character set</a>
        <li><a href="#charset">Character set</a>
        </ul>
<li><a href="#ext">External program execution control</a> 
        <ul>
        <li><a href="#exelocal">Run all local links</a>
        <li><a href="#exefile">Run all local links in local files</a>
        </ul>
</ul><hr>

<h2 id="buttons">Update options</h2>
If you do not "Go and change", your options will not be updated. Press
&lt;Left-Arrow&gt; to return to the previous page.<p>

        <input type="hidden" name="lynxrc" value="$in{'lynxrc'}">
        <input type="submit" value="Go and change">
        or
        <input type="reset" value="Reset values"><p>
        <a href="#toc">Back to contents</a><hr>

<h2 id="appear">On screen appearence</h2>
<h3 id="usermode">User mode</h3>
User mode specifies your knowledge with Lynx.  The default is "Novice"
which displays two extra lines of help at the bottom of the screen to
aid the user in learning the basic Lynx commands.  Set user_mode to
"Intermediate" to turn off the extra info.  Use "Advanced" to see the
URL of the currently selected link at the bottom of the screen.<p>

<select name="user_mode">
END_1

SW_user_mode: {
        $_ = $table{user_mode};
        if (/NOVICE/) {
                print "<option selected value=\"NOVICE\">Novice\n";
                print "<option value=\"INTERMEDIATE\">Intermediate\n";
                print "<option value=\"ADVANCED\">Advanced\n";
                last SW_user_mode; }
        if (/INTERMEDIATE/) {
                print "<option value=\"NOVICE\">Novice\n";
                print "<option selected value=\"INTERMEDIATE\">Intermediate\n";
                print "<option value=\"ADVANCED\">Advanced\n";
                last SW_user_mode; }
        if (/ADVANCED/) {
                print "<option value=\"NOVICE\">Novice\n";
                print "<option value=\"INTERMEDIATE\">Intermediate\n";
                print "<option selected value=\"ADVANCED\">Advanced\n";
                last SW_user_mode; }
        print "<option value=\"NOVICE\">Novice\n";
        print "<option value=\"INTERMEDIATE\">Intermediate\n";
        print "<option value=\"ADVANCED\">Advanced\n";
        }
print <<END_2;
</select><p>
<a href="#top">Back to Contents</a>

<h3 id="colour">Colour mode</h3>
The "B/W" option will force black-and-white even on a colour terminal.
The "Colour" option will force Lynx to attempt to use colour. The
"Default" option will make Lynx question the terminal for colour, or
you may force colour with the -color command line switch or with the
COLORTERM environment variable.<p>

<select name="show_color">
END_2

SW_colour: {
        $_ = $table{show_color};
        if (/default/) {
                print "<option selected value=\"default\">Default\n";
                print "<option value=\"never\">B/W\n";
                print "<option value=\"always\">Colour\n";
                last SW_colour; }
        if (/never/) {
                print "<option value=\"default\">Default\n";
                print "<option selected value=\"never\">B/W\n";
                print "<option value=\"always\">Colour\n";
                last SW_colour; }
        if (/always/) {
                print "<option value=\"default\">Default\n";
                print "<option value=\"never\">B/W\n";
                print "<option selected value=\"always\">Colour\n";
                last SW_colour; }
        print "<option selected value=\"default\">Default\n";
        print "<option value=\"never\">B/W\n";
        print "<option value=\"always\">Colour\n";
        }
print <<END_3;
</select><p>
<a href="#top">Back to Contents</a>

<h3 id="cursor">Where to show cursor on screen</h3>
Either hide the cursor to the bottom right of the screen, or to place it 
to the left of the current link (or current option in select popup 
windows).<p>

Positioning the cursor to the left of the current link or option is
helpful for speech or braille interfaces, and when the terminal is
one which does not distingish the current link based on highlighting
or color.<p>

The default can be overridden via the -show_cursor command line toggle.<p>

<select name="show_cursor">
END_3

SW_cursor: {
        $_ = $table{show_cursor};
        if (/off/) {
                print "<option selected value=\"off\">Hide cursor to the bottom 
right\n";
                print "<option value=\"on\">Put cursor next to link\n";
                last SW_cursor; }
        if (/on/) {
                print "<option value=\"off\">Hide cursor to the bottom right\n";
                print "<option selected value=\"on\">Put cursor next to link\n";
                last SW_cursor; }
        print "<option value=\"off\">Hide cursor to the bottom right\n";
        print "<option value=\"on\">Put cursor next to link\n";
        }
print <<END_4;
</select><p>
<a href="#top">Back to Contents</a>

<h3 id="popups">Popup menu control</h3>
Popup menu control allows a "select option block" which lacks a "multiple
attribute" to be presented as a vertical list of radio buttons.<p>

Note that if the MULTIPLE attribute is present, Lynx always will create a 
vertical list of checkboxes for the options.<p>

<select name="select_popups">
END_4

SW_popups: {
        $_ = $table{select_popups};
        if (/off/) {
                print "<option value=\"on\">Popup as normal\n";
                print "<option selected value=\"off\">Popup as radio buttons\n";
                last SW_popups; }
        if (/on/) {
                print "<option selected value=\"on\">Popup as normal\n";
                print "<option value=\"off\">Popup as radio buttons\n";
                last SW_popups; }
        print "<option selected value=\"on\">Popup as normal\n";
        print "<option value=\"off\">Popup as radio buttons\n";
        }
print <<END_5;
</select><p>
<a href="#top">Back to Contents</a>

<h3 id="case">Case sensitivity during search</h3>
Decide whether search (using "s" or "/") should be case sensitive or not.<p>

<select name="case_sensitive_searching">
END_5

SW_case: {
        $_ = $table{case_sensitive_searching};
        if (/off/) {
                print "<option selected value=\"off\">Case insensitive\n";
                print "<option value=\"on\">Case sensitive\n";
                last SW_case; }
        if (/on/) {
                print "<option value=\"off\">Case insensitive\n";
                print "<option selected value=\"on\">Case sensitive\n";
                last SW_case; }
        print "<option selected value=\"off\">Case insensitive\n";
        print "<option value=\"on\">Case sensitive\n";
        }
print <<END_6;
</select><p>
<a href="#top">Back to Contents</a>

<h3 id="ftp">Ftp sort order</h3>
Specifies the ordering of files provided by the file-transfer-protocol.<p>

<select name="file_sorting_method">
END_6

SW_ftp: {
        $_ = $table{file_sorting_method};
        if (/BY_FILENAME/) {
                print "<option selected value=\"BY_FILENAME\">Alphabetical name 
order\n";
                print "<option value=\"BY_TYPE\">Sort by file type\n";
                print "<option value=\"BY_SIZE\">Sort by file size\n";
                print "<option value=\"BY_DATE\">Sort by creation date\n";
                last SW_ftp; }
        if (/BY_TYPE/) {
                print "<option value=\"BY_FILENAME\">Alphabetical name order\n";
                print "<option selected value=\"BY_TYPE\">Sort by file type\n";
                print "<option value=\"BY_SIZE\">Sort by file size\n";
                print "<option value=\"BY_DATE\">Sort by creation date\n";
                last SW_ftp; }
        if (/BY_SIZE/) {
                print "<option value=\"BY_FILENAME\">Alphabetical name order\n";
                print "<option value=\"BY_TYPE\">Sort by file type\n";
                print "<option selected value=\"BY_SIZE\">Sort by file size\n";
                print "<option value=\"BY_DATE\">Sort by creation date\n";
                last SW_ftp; }
        if (/BY_DATE/) {
                print "<option value=\"BY_FILENAME\">Alphabetical name order\n";
                print "<option value=\"BY_TYPE\">Sort by file type\n";
                print "<option value=\"BY_SIZE\">Sort by file size\n";
                print "<option selected value=\"BY_DATE\">Sort by creation 
date\n";
                last SW_ftp; }
        print "<option selected value=\"BY_FILENAME\">Alphabetical name 
order\n";
        print "<option value=\"BY_TYPE\">Sort by file type\n";
        print "<option value=\"BY_SIZE\">Sort by file size\n";
        print "<option value=\"BY_DATE\">Sort by creation date\n";
        }
print <<END_7;
</select><p>
<a href="#top">Back to Contents</a>

<h3 id="dot">Show hidden files</h3>
Specifies whether the directory listing should include "hidden" 
files/directories. These have names which begin with a "." (dot).<p>

If the display of hidden files is disabled, creation of such files via 
Lynx also is disabled.<p>

<select name="show_dotfiles">
END_7

SW_dot: {
        $_ = $table{show_dotfiles};
        if (/off/) {
                print "<option selected value=\"off\">Hide hidden files\n";
                print "<option value=\"on\">Show hidden files\n";
                last SW_dot; }
        if (/on/) {
                print "<option value=\"off\">Hide hidden files\n";
                print "<option selected value=\"on\">Show hidden files\n";
                last SW_dot; }
        print "<option selected value=\"off\">Hide hidden files\n";
        print "<option value=\"on\">Show hidden files\n";
        }
print <<END_8;
</select><p>
<a href="#top">Back to Contents</a>

<h3 id="dir">Directory list style</h3>
Specifies the directory list style under the "DIRED_SUPPORT" mode of Lynx
(if implemented).  The default mixes files and directories.  "Files first" 
lists files first and "Directories first" lists directories first.<p>

<select name="dir_list_style">
END_8

SW_dir: {
        $_ = $table{dir_list_style};
        if (/MIXED_STYLE/) {
                print "<option selected value=\"MIXED_STYLE\">Mix files and 
directories\n";
                print "<option value=\"FILES_FIRST\">List files first\n";
                print "<option value=\"DIRECTORIES_FIRST\">List directories 
first\n";
                last SW_dir; }
        if (/FILES_FIRST/) {
                print "<option value=\"MIXED_STYLE\">Mix files and 
directories\n";
                print "<option selected value=\"FILES_FIRST\">List files 
first\n";
                print "<option value=\"DIRECTORIES_FIRST\">List directories 
first\n";
                last SW_dir; }
        if (/DIRECTORIES_FIRST/) {
                print "<option value=\"MIXED_STYLE\">Mix files and 
directories\n";
                print "<option value=\"FILES_FIRST\">List files first\n";
                print "<option selected value=\"DIRECTORIES_FIRST\">List 
directories first\n";
                last SW_dir; }
        print "<option selected value=\"MIXED_STYLE\">Mix files and 
directories\n";
        print "<option value=\"FILES_FIRST\">List files first\n";
        print "<option value=\"DIRECTORIES_FIRST\">List directories first\n";
        }
print <<END_9;
</select><p>
<a href="#top">Back to Contents</a><hr>

<h2 id="bookmarks">Bookmarks</h2>
<h3 id="bookmark_type">Type of bookmarks</h3>
You can choose to use only a single bookmark, or up to 26 multiple
bookmarks (A to Z). With multiple bookmarks, Lynx will present a 
bookmarks selection menu when required.<p>

If both the <a href="#usermode">User mode</a> and multiple bookmarks
are set to "Advanced", then Lynx will present a prompt in the status
line instead of the multiple bookmarks menu.<p>
 
<select name="sub_bookmarks">
END_9

SW_sub_book: {
        $_ = $table{sub_bookmarks};
        if (/off/) {
                print "<option selected value=\"off\">Single bookmark\n";
                print "<option value=\"standard\">Multiple bookmarks\n";
                print "<option value=\"advanced\">Multiple bookmarks advanced 
mode\n";
                last SW_sub_book; }
        if (/standard/) {
                print "<option value=\"off\">Single bookmark\n";
                print "<option selected value=\"standard\">Multiple 
bookmarks\n";
                print "<option value=\"advanced\">Multiple bookmarks advanced 
mode\n";
                last SW_sub_book; }
        if (/advanced/) {
                print "<option value=\"off\">Single bookmark\n";
                print "<option value=\"standard\">Multiple bookmarks\n";
                print "<option selected value=\"advanced\">Multiple bookmarks 
advanced mode\n";
                last SW_sub_book; }
        print "<option value=\"off\">Single bookmark\n";
        print "<option value=\"standard\">Multiple bookmarks\n";
        print "<option value=\"advanced\">Multiple bookmarks advanced mode\n";
        }
print <<END_10;
</select><p>
<a href="#top">Back to Contents</a>

<h3 id="bookA">Default bookmark</h3>
Please enter the file name of the default bookmark. This file
is shared between the single and the multiple bookmark modes. In 
"multiple bookmark mode" this is known as "Bookmark A".<p>

<textarea name="bookmark_file" rows=1 cols=40>
$table{bookmark_file}
</textarea><p>
<a href="#top">Back to Contents</a>

<h3 id="multibook">Define multiple bookmarks</h3>
Here you can define up to 25 additional bookmarks. Please enter the
file name of the bookmark, followed immediately by a comma, and then
a description for the bookmark.<p>

(e.g.) ./lynx_bookmarks/bookmarkB.html,Description for bookmark B<p>

<p>Bookmark B: <textarea name="multi_bookmarkB" rows=1 cols=80>
$table{multi_bookmarkB}
</textarea><p>
<a href="#top">Back to Contents</a>

<p>Bookmark C: <textarea name="multi_bookmarkC" rows=1 cols=80>
$table{multi_bookmarkC}
</textarea><p>
<a href="#top">Back to Contents</a>

<p>Bookmark D: <textarea name="multi_bookmarkD" rows=1 cols=80>
$table{multi_bookmarkD}
</textarea><p>
<a href="#top">Back to Contents</a>

<p>Bookmark E: <textarea name="multi_bookmarkE" rows=1 cols=80>
$table{multi_bookmarkE}
</textarea><p>
<a href="#top">Back to Contents</a>

<p>Bookmark F: <textarea name="multi_bookmarkF" rows=1 cols=80>
$table{multi_bookmarkF}
</textarea><p>
<a href="#top">Back to Contents</a>

<p>Bookmark G: <textarea name="multi_bookmarkG" rows=1 cols=80>
$table{multi_bookmarkG}
</textarea><p>
<a href="#top">Back to Contents</a>

<p>Bookmark H: <textarea name="multi_bookmarkH" rows=1 cols=80>
$table{multi_bookmarkH}
</textarea><p>
<a href="#top">Back to Contents</a>

<p>Bookmark I: <textarea name="multi_bookmarkI" rows=1 cols=80>
$table{multi_bookmarkI}
</textarea><p>
<a href="#top">Back to Contents</a>

<p>Bookmark J: <textarea name="multi_bookmarkJ" rows=1 cols=80>
$table{multi_bookmarkJ}
</textarea><p>
<a href="#top">Back to Contents</a>

<p>Bookmark K: <textarea name="multi_bookmarkK" rows=1 cols=80>
$table{multi_bookmarkK}
</textarea><p>
<a href="#top">Back to Contents</a>

<p>Bookmark L: <textarea name="multi_bookmarkL" rows=1 cols=80>
$table{multi_bookmarkL}
</textarea><p>
<a href="#top">Back to Contents</a>

<p>Bookmark M: <textarea name="multi_bookmarkM" rows=1 cols=80>
$table{multi_bookmarkM}
</textarea><p>
<a href="#top">Back to Contents</a>

<p>Bookmark N: <textarea name="multi_bookmarkN" rows=1 cols=80>
$table{multi_bookmarkN}
</textarea><p>
<a href="#top">Back to Contents</a>

<p>Bookmark O: <textarea name="multi_bookmarkO" rows=1 cols=80>
$table{multi_bookmarkO}
</textarea><p>
<a href="#top">Back to Contents</a>

<p>Bookmark P: <textarea name="multi_bookmarkP" rows=1 cols=80>
$table{multi_bookmarkP}
</textarea><p>
<a href="#top">Back to Contents</a>

<p>Bookmark Q: <textarea name="multi_bookmarkQ" rows=1 cols=80>
$table{multi_bookmarkQ}
</textarea><p>
<a href="#top">Back to Contents</a>

<p>Bookmark R: <textarea name="multi_bookmarkR" rows=1 cols=80>
$table{multi_bookmarkR}
</textarea><p>
<a href="#top">Back to Contents</a>

<p>Bookmark S: <textarea name="multi_bookmarkS" rows=1 cols=80>
$table{multi_bookmarkS}
</textarea><p>
<a href="#top">Back to Contents</a>

<p>Bookmark T: <textarea name="multi_bookmarkT" rows=1 cols=80>
$table{multi_bookmarkT}
</textarea><p>
<a href="#top">Back to Contents</a>

<p>Bookmark U: <textarea name="multi_bookmarkU" rows=1 cols=80>
$table{multi_bookmarkU}
</textarea><p>
<a href="#top">Back to Contents</a>

<p>Bookmark V: <textarea name="multi_bookmarkV" rows=1 cols=80>
$table{multi_bookmarkV}
</textarea><p>
<a href="#top">Back to Contents</a>

<p>Bookmark W: <textarea name="multi_bookmarkW" rows=1 cols=80>
$table{multi_bookmarkW}
</textarea><p>
<a href="#top">Back to Contents</a>

<p>Bookmark X: <textarea name="multi_bookmarkX" rows=1 cols=80>
$table{multi_bookmarkX}
</textarea><p>
<a href="#top">Back to Contents</a>

<p>Bookmark Y: <textarea name="multi_bookmarkY" rows=1 cols=80>
$table{multi_bookmarkY}
</textarea><p>
<a href="#top">Back to Contents</a>

<p>Bookmark Z: <textarea name="multi_bookmarkZ" rows=1 cols=80>
$table{multi_bookmarkZ}
</textarea><p>
<a href="#top">Back to Contents</a><hr>

<h2 id="keys">Keyboard controls</h2>
<h3 id="keypad">Keypad mode</h3>
If keypad mode is set to "Keypad numbers act as arrows", then the 
numbers on your keypad (when the numlock is on) will act like 
arrow keys:
<pre>8 = Up Arrow,
4 = Left Arrow,    6 = Right Arrow,
2 = Down Arrow,</pre>
and the corresponding keyboard numbers will act as arrow keys.<p>

If keypad mode is set to "Links are numbered", then numbers will
appear next to each link and numbers are used to select links.<p>

If keypad mode is set to "Links and form fields are numbered", then
numbers will appear next to each link and visible form input field.
Numbers are used to select links, or to move the "current link" to a
form input field or button.  In addition, options in popup menus are
indexed so that the user may type an option number to select an option in
a popup menu, even if the option isn't visible on the screen.  Reference
lists and output from the list command also enumerate form inputs.<p>

NOTE: Some fixed format documents may look disfigured when
"Links are numbered" or "Links and form fields are numbered" are
enabled.<p>

<select name="keypad_mode">
END_10

SW_keypad: {
        $_ = $table{keypad_mode};
        if (/NUMBERS_AS_ARROWS/) {
                print "<option selected value=\"NUMBERS_AS_ARROWS\">Keypad 
numbers act as arrows\n";
                print "<option value=\"LINKS_ARE_NUMBERED\">Links are 
numbered\n";
                print "<option 
value=\"LINKS_AND_FORM_FIELDS_ARE_NUMBERED\">Links and form fields are 
numbered\n";
                last SW_keypad; }
        if (/LINKS_ARE_NUMBERED/) {
                print "<option value=\"NUMBERS_AS_ARROWS\">Keypad numbers act 
as arrows\n";
                print "<option selected value=\"LINKS_ARE_NUMBERED\">Links are 
numbered\n";
                print "<option 
value=\"LINKS_AND_FORM_FIELDS_ARE_NUMBERED\">Links and form fields are 
numbered\n";
                last SW_keypad; }
        if (/LINKS_AND_FORM_FIELDS_ARE_NUMBERED/) {
                print "<option value=\"NUMBERS_AS_ARROWS\">Keypad numbers act 
as arrows\n";
                print "<option value=\"LINKS_ARE_NUMBERED\">Links are 
numbered\n";
                print "<option selected 
value=\"LINKS_AND_FORM_FIELDS_ARE_NUMBERED\">Links and form fields are 
numbered\n";
                last SW_keypad; }
                print "<option selected value=\"NUMBERS_AS_ARROWS\">Keypad 
numbers act as arrows\n";
                print "<option value=\"LINKS_ARE_NUMBERED\">Links are 
numbered\n";
                print "<option 
value=\"LINKS_AND_FORM_FIELDS_ARE_NUMBERED\">Links and form fields are 
numbered\n";
        }
print <<END_11;
</select><p>
<a href="#top">Back to Contents</a>

<h3 id="lineedit">Line edit mode</h3>
Line edit mode specifies the key binding used for inputting strings in
prompts and forms.  If it is set to "Default Binding" then
the following control characters are used for moving and deleting:
<pre>Previous             Next           Enter = accept input
&lt;-       move char    -&gt;           ^G    = cancel input
^P       move word    ^N            ^U    = erase line
^H       del  char    ^R            ^A    = beginning of line
^B       del  word    ^F            ^E    = end of line</pre>

Current lineedit modes are: Default binding<p>

<select name="lineedit_mode">
END_11

SW_lineedit: {
        $_ = $table{lineedit_mode};
        if (/Default Binding/) {
                print "<option selected value=\"Default Binding\">Default 
binding\n";
                last SW_lineedit; }
        print "<option value=\"Default Binding\">Default binding\n";
        }
print <<END_12;
</select><p>
<a href="#top">Back to Contents</a>

<h3 id="vikeys">Vi keys</h3>
If vi keys is set to "on", then the normal vi movement keys
<pre>j = down,     k = up,
h = left,     l = right</pre>
will be enabled.  These keys are only lower 
case. Capital 'H', 'J' and 'K will still activate help, jump shortcuts,
and the keymap display, respectively.<p>

<select name="vi_keys">
END_12

SW_vikeys: {
        $_ = $table{vi_keys};
        if (/off/) {
                print "<option selected value=\"off\">Vi keys off\n";
                print "<option value=\"on\">Vi keys on\n";
                last SW_vikeys; }
        if (/on/) {
                print "<option value=\"off\">Vi keys off\n";
                print "<option selected value=\"on\">Vi keys on\n";
                last SW_vikeys; }
        print "<option selected value=\"off\">Vi keys off\n";
        print "<option value=\"on\">Vi keys on\n";
        }
print <<END_13;
</select><p>
<a href="#top">Back to Contents</a>

<h3 id="emacskeys">Emacs keys</h3>
If emacs_keys is to "on" then the normal EMACS movement keys
<pre>^N = down,      ^P = up, 
^B = left,      ^F = right</pre>
will be enabled.<p>

<select name="emacs_keys">
END_13

SW_emacskeys: {
        $_ = $table{emacs_keys};
        if (/off/) {
                print "<option selected value=\"off\">Emacs keys off\n";
                print "<option value=\"on\">Emacs keys on\n";
                last SW_emacskeys; }
        if (/on/) {
                print "<option value=\"off\">Emacs keys off\n";
                print "<option selected value=\"on\">Emacs keys on\n";
                last SW_emacskeys; }
                print "<option selected value=\"off\">Emacs keys off\n";
                print "<option value=\"on\">Emacs keys on\n";
        }
print <<END_14;
</select><p>
<a href="#top">Back to Contents</a><hr>

<h2 id="misc">File editors, email address, and language</h2>
<h3 id="editor">File editor</h3>
Choose an editor to be used when editing local files or sending email.  
If no editor is specified, then file editing is disabled unless it is 
activated from the command line. In this case the built-in line editor 
will be used for sending mail.<p>

<textarea name="file_editor" rows=1 cols=10>
$table{file_editor}
</textarea><p>
<a href="#top">Back to Contents</a>

<h3 id="email">Personal mail address</h3>
Fill in your email address.
This address will be sent during HTTP file transfers for authorization and
logging purposes, and for mailed comments.<p>

If you do not want this information given out, set the NO_FROM_HEADER
to TRUE in lynx.cfg, or use the -nofrom command line switch.  You also
could leave this field blank, but then you won't have if it included in
your mailed comments.<p>

<textarea name="personal_mail_address" rows=1 cols=40">
$table{personal_mail_address}
</textarea><p>
<a href="#top">Back to Contents</a>

<h3 id="prelang">Preferred document language</h3>
Specify your preferred document language in MIME notation (e.g., en, fr).
Lynx will indicate you preference in requests to http servers.
If a file in that language is available, the server will send it.
Otherwise, the server will send the file in it's default language.<p>

My preferred language is:
<textarea name="preferred_language" rows=1 cols=2>
$table{preferred_language}
</textarea><p>
<a href="#top">Back to Contents</a>

<h3 id="prechar">Preferred document character set</h3>
Specify your preferred document language in MIME notation (e.g.,
ISO-8859-2, ISO-8859-5). Lynx will indicate your preference in requests
to http servers using an Accept-Charset header.<p>

The value should NOT include ISO-8859-1 or US-ASCII, since those values 
are always assumed by default.  If a file in that character set is 
available, the server will send it.  Otherwise, the server will send 
the file in ISO-8859-1 or US-ASCII.<p>

My preferred character set is:
<textarea name="preferred_charset" rows=1 cols=12>
$table{preferred_charset}
</textarea><p>
<a href="#top">Back to Contents</a>

<h3 id="charset">Display character set</h3>
The display character set definition controls the representation of 
8-bit characters for your terminal.  If 8-bit characters do not show up
correctly on your screen you may try changing to a different 8-bit set 
or using the 7-bit character approximations.<p>

<!-- Due to my inexperience in perl, the follow popup menu cannot remember
     its last setting.  If I make a switch block out of it then these
     different options multiply to give a huge block.  -->
<select name="character_set">
        <option value="ISO Latin 1">ISO Latin 1
        <option value="ISO Latin 2">ISO Latin 2
        <option value="Other ISO Latin">Other ISO Latin
        <option value="DEC Multinational">DEC Multinational
        <option value="IBM PC character set">IBM PC character set
        <option value="IBM PC codepage 850">IBM PC codepage 850
        <option value="Macintosh (8 bit)">Macintosh (8 bit)
        <option value="NeXT character set">NeXT character set
        <option value="KOI8-R character set">KOI8-R character set
        <option value="Chinese">Chinese
        <option value="Japanese (EUC)">Japanese (EUC)
        <option value="Japanese (SJIS)">Japanese (SJIS)
        <option value="Korean">Korean
        <option value="Taipei (Big5)">Taipei (Big5)
        <option value="7 bit approximations">7 bit approximations
        <option value="Transparent">Transparent
        <option value="ISO Latin 3">ISO Latin 3
        <option value="ISO Latin 4">ISO Latin 4
        <option value="ISO 8859-5 Cyrillic">ISO 8859-5 Cyrillic
        <option value="ISO 8859-6 Arabic">ISO 8859-6 Arabic
        <option value="ISO 8859-7 Greek">ISO 8859-7 Greek
        <option value="ISO 8859-8 Hebrew">ISO 8859-8 Hebrew
        <option value="ISO 8859-9 (Latin 5)">ISO 8859-9 (Latin 5)
        <option value="ISO 8859-10">ISO 8859-10
        <option value="DOSLatin2 (cp852)">DOSLatin2 (cp852)
        <option value="DOSCyrillic (cp866)">DOSCyrillic (cp866)
        <option value="WinLatin2 (cp1250)">WinLatin2 (cp1250)
        <option value="WinCyrillic (cp1251)">WinCyrillic (cp1251)
        <option value="WinLatin1 (cp1252)">WinLatin1 (cp1252)
        <option value="Vietnamese (VISCII)">Vietnamese (VISCII)
        <option value="UNICODE UTF 8">UNICODE UTF 8
        <option value="RFC 1345 w/o Intro">RFC 1345 w/o Intro
        <option value="RFC 1345 Mnemonic">RFC 1345 Mnemonic
</select><p>
<a href="#top">Back to Contents</a><hr>

<h2 id="ext">External program execution control</h2> 
<h3 id="exelocal">Run all local links</h3>
If set to on then all local execute links (those that run within the local 
domain) will be run when selected.<p>

<dl><dt>Warning<dd>
This is potentially VERY dangerous.  Since you may view
information that is written by unknown and untrusted sources
there exists the possibility that Trojan horse links could be
written.  Trojan horse links could be written to erase files
or compromise security.  This should only be set to "on" if
you are viewing trusted source information.
</dl>

<select name="run_all_execution_links">
END_14

SW_exelocal: {
        $_ = $table{run_all_execution_links};
        if (/off/) {
                print "<option selected value=\"off\">Do not run all execution 
links\n";
                print "<option value=\"on\"><strong>Run all execution 
links</strong>\n";
                last SW_exelocal; }
        if (/on/) {
                print "<option value=\"off\">Do not run all execution links\n";
                print "<option selected value=\"on\"><strong>Run all execution 
links</strong>\n";
                last SW_exelocal; }
        print "<option selected value=\"off\">Do not run all execution links\n";
        print "<option value=\"on\"><strong>Run all execution links</strong>\n";
        }

print <<END_15;
</select><p>
<a href="#top">Back to Contents</a>

<h3 id="exefile">Run all local links in local files</h3>
If set to on then all local execute links (those that run within the local 
domain) which reside in a local file will be run when selected.  This is 
different from <a href="#exelocal">"run all local links"</a> in that
only files that reside on the local system will have execution link
permissions.<p>

<dl><dt>Warning<dd>
This is potentially dangerous.  Since you may view
information that is written by unknown and untrusted sources
there exists the possibility that Trojan horse links could be
written.  Trojan horse links could be written to erase files
or compromise security.  This should only be set to "on" if
you are viewing trusted source information.
</dl>

<select name="run_execution_links_on_local_files">
END_15

SW_exefile: {
        $_ = $table{run_execution_links_on_local_files};
        if (/off/) {
                print "<option selected value=\"off\">Do not run all execution 
links found in local files\n";
                print "<option value=\"on\"><strong>Run all execution links 
found in local files</strong>\n";
                last SW_exefile; }
        if (/on/) {
                print "<option value=\"off\">Do not run all execution links 
found in local files\n";
                print "<option selected value=\"on\"><strong>Run all execution 
links found in local files</strong>\n";
                last SW_exefile; }
        print "<option selected value=\"off\">Do not run all execution links 
found in local files\n";
        print "<option value=\"on\"><strong>Run all execution links found in 
local files</strong>\n";
        }

print <<END_N;
</select><p>
<a href="#top">Back to Contents</a>

</form>
</body>
</html>
END_N
;
; To UNSUBSCRIBE:  Send a mail message to address@hidden
;                  with "unsubscribe lynx-dev" (without the
;                  quotation marks) on a line by itself.
;

reply via email to

[Prev in Thread] Current Thread [Next in Thread]