/*
* $LynxId: LYReadCFG.c,v 1.193 2018/05/11 00:03:10 tom Exp $
*/
#ifndef NO_RULES
#include <HTRules.h>
#else
#include <HTUtils.h>
#endif
#include <HTTP.h> /* 'reloading' flag */
#include <HTFile.h>
#include <HTInit.h>
#include <UCMap.h>
#include <LYUtils.h>
#include <GridText.h>
#include <LYStrings.h>
#include <LYStructs.h>
#include <LYGlobalDefs.h>
#include <LYCharSets.h>
#include <LYCharUtils.h>
#include <LYKeymap.h>
#include <LYJump.h>
#include <LYGetFile.h>
#include <LYCgi.h>
#include <LYCurses.h>
#include <LYBookmark.h>
#include <LYCookie.h>
#include <LYReadCFG.h>
#include <HTAlert.h>
#include <LYHistory.h>
#include <LYPrettySrc.h>
#include <LYrcFile.h>
#ifdef DIRED_SUPPORT
#include <LYLocal.h>
#endif /* DIRED_SUPPORT */
#include <LYexit.h>
#include <LYLeaks.h>
#ifndef DISABLE_NEWS
#include <HTNews.h>
#endif
BOOLEAN have_read_cfg = FALSE;
BOOLEAN LYUseNoviceLineTwo = TRUE;
/*
* Translate a TRUE/FALSE field in a string buffer.
*/
static BOOL is_true(const char *string)
{
if (!strcasecomp(string, "TRUE") || !strcasecomp(string, "ON"))
return (TRUE);
else
return (FALSE);
}
/*
* Find an unescaped colon in a string buffer.
*/
static const char *find_colon(const char *buffer)
{
char ch;
const char *buf = buffer;
if (buf == NULL)
return NULL;
while ((ch = *buf) != 0) {
if (ch == ':')
return buf;
if (ch == '\\') {
buf++;
if (*buf == 0)
break;
}
buf++;
}
return NULL;
}
static void free_item_list_item(lynx_list_item_type **list,
lynx_list_item_type *ptr)
{
lynx_list_item_type *prev;
lynx_list_item_type *cur;
for (cur = *list, prev = 0; cur != 0; prev = cur, cur = cur->next) {
if (cur == ptr) {
if (prev != 0)
prev->next = cur->next;
else
*list = cur->next;
FREE(cur->name);
FREE(cur->menu_name);
FREE(cur->command);
FREE(cur);
break;
}
}
}
static void free_item_list(lynx_list_item_type **ptr)
{
while (*ptr != 0) {
free_item_list_item(ptr, *ptr);
}
}
/*
* Function for freeing the DOWNLOADER and UPLOADER menus list. - FM
*/
static void free_all_item_lists(void)
{
free_item_list(&printers);
free_item_list(&downloaders);
#ifdef DIRED_SUPPORT
free_item_list(&uploaders);
#endif /* DIRED_SUPPORT */
#ifdef USE_EXTERNALS
free_item_list(&externals);
#endif /* USE_EXTERNALS */
return;
}
static const char *parse_list_bool(BOOL *target, const char *source)
{
const char *result;
source = LYSkipCBlanks(source);
result = find_colon(source);
if (*source != '\0') {
char temp[20];
size_t len = ((result != 0)
? (size_t) (result - source)
: strlen(source));
if (len > sizeof(temp))
len = (sizeof(temp) - 1);
LYStrNCpy(temp, source, len);
*target = is_true(temp);
CTRACE2(TRACE_CFG, (tfp, "parse_list_bool(%s) '%d'\n", source, *target));
}
return result;
}
static const char *parse_list_int(int *target, const char *source)
{
const char *result;
source = LYSkipCBlanks(source);
result = find_colon(source);
if (*source != '\0') {
*target = atoi(source);
CTRACE2(TRACE_CFG, (tfp, "parse_list_int(%s) '%d'\n", source, *target));
}
return result;
}
static const char *parse_list_string(char **target, const char *source)
{
const char *result;
source = LYSkipCBlanks(source);
result = find_colon(source);
if (*source != '\0') {
const char *next = ((result == 0)
? (source + strlen(source))
: result);
*target = typecallocn(char, (size_t) (next - source + 1));
if (*target == NULL)
outofmem(__FILE__, "read_cfg");
LYStrNCpy(*target, source, (next - source));
remove_backslashes(*target);
CTRACE2(TRACE_CFG, (tfp, "parse_list_string(%s) '%s'\n", source, *target));
}
return result;
}
/*
* Process string buffer fields for DOWNLOADER or UPLOADER
* or PRINTERS or EXTERNALS menus
*/
static void add_item_to_list(char *buffer,
lynx_list_item_type **list_ptr,
int special,
int menu_name)
{
const char *colon, *last_colon;
lynx_list_item_type *cur_item, *prev_item;
/*
* Check if the XWINDOWS or NON_XWINDOWS keyword is present in the last
* field, and act properly when found depending if external environment
* $DISPLAY variable is set.
*/
if ((colon = find_colon(buffer)) == 0) {
return;
}
for (last_colon = colon;
(colon = find_colon(last_colon + 1)) != 0;
last_colon = colon) {
;
}
/*
* If colon equals XWINDOWS then only continue
* if there is a $DISPLAY variable
*/
if (!strcasecomp(last_colon + 1, "XWINDOWS")) {
if (LYgetXDisplay() == NULL)
return;
}
/*
* If colon equals NON_XWINDOWS then only continue
* if there is no $DISPLAY variable
*/
else if (!strcasecomp(last_colon + 1, "NON_XWINDOWS")) {
if (LYgetXDisplay() != NULL)
return;
}
/*
* Make a linked list
*/
if (*list_ptr == NULL) {
/*
* First item.
*/
cur_item = typecalloc(lynx_list_item_type);
if (cur_item == NULL)
outofmem(__FILE__, "read_cfg");
*list_ptr = cur_item;
#ifdef LY_FIND_LEAKS
atexit(free_all_item_lists);
#endif
} else {
/*
* Find the last item.
*/
for (prev_item = *list_ptr;
prev_item->next != NULL;
prev_item = prev_item->next) ; /* null body */
cur_item = typecalloc(lynx_list_item_type);
if (cur_item == NULL)
outofmem(__FILE__, "read_cfg");
else
prev_item->next = cur_item;
}
/* fill-in nonzero default values */
cur_item->pagelen = 66;
/*
* Find first unescaped colon and process fields
*/
if (find_colon(buffer) != NULL) {
colon = parse_list_string(&(cur_item->name), buffer);
if (colon && menu_name) {
colon = parse_list_string(&(cur_item->menu_name), colon + 1);
}
if (colon) {
colon = parse_list_string(&(cur_item->command), colon + 1);
}
if (colon) {
colon = parse_list_bool(&(cur_item->always_enabled), colon + 1);
}
if (colon) {
if (special) {
(void) parse_list_int(&(cur_item->pagelen), colon + 1);
} else {
(void) parse_list_bool(&(cur_item->override_action), colon + 1);
}
}
}
/* ignore empty data */
if (cur_item->name == NULL
|| cur_item->command == NULL) {
CTRACE2(TRACE_CFG, (tfp, "ignoring incomplete list_item '%s'\n", buffer));
free_item_list_item(list_ptr, cur_item);
} else if (cur_item->menu_name == NULL) {
StrAllocCopy(cur_item->menu_name, cur_item->command);
}
}
lynx_list_item_type *find_item_by_number(lynx_list_item_type *list_ptr,
char *number)
{
int value = atoi(number);
while (value-- >= 0 && list_ptr != 0) {
list_ptr = list_ptr->next;
}
return list_ptr;
}
int match_item_by_name(lynx_list_item_type *ptr,
const char *name,
int only_overriders)
{
return
(ptr->command != 0
&& !strncasecomp(ptr->name, name, (int) strlen(ptr->name))
&& (only_overriders ? ptr->override_action : 1));
}
#if defined(USE_COLOR_STYLE) || defined(USE_COLOR_TABLE)
#ifndef COLOR_WHITE
#define COLOR_WHITE 7
#endif
#ifndef COLOR_BLACK
#define COLOR_BLACK 0
#endif
#ifdef USE_DEFAULT_COLORS
int default_fg = DEFAULT_COLOR;
int default_bg = DEFAULT_COLOR;
#else
int default_fg = COLOR_WHITE;
int default_bg = COLOR_BLACK;
#endif
static const char *Color_Strings[16] =
{
"black",
"red",
"green",
"brown",
"blue",
"magenta",
"cyan",
"lightgray",
"gray",
"brightred",
"brightgreen",
"yellow",
"brightblue",
"brightmagenta",
"brightcyan",
"white"
};
#if defined(PDCURSES) && !defined(XCURSES)
/*
* PDCurses (and possibly some other implementations) use a non-ANSI set of
* codes for colors.
*/
static int ColorCode(int color)
{
/* *INDENT-OFF* */
static int map[] =
{
0, 4, 2, 6, 1, 5, 3, 7,
8, 12, 10, 14, 9, 13, 11, 15
};
/* *INDENT-ON* */
return map[color];
}
#else
#define ColorCode(color) (color)
#endif
BOOL default_color_reset = FALSE;
/*
* Validator for COLOR fields.
*/
int check_color(const char *color,
int the_default)
{
int i;
CTRACE2(TRACE_STYLE, (tfp, "check_color(%s,%d)\n", color, the_default));
if (!strcasecomp(color, "default")) {
#ifdef USE_DEFAULT_COLORS
if (LYuse_default_colors && !default_color_reset)
the_default = DEFAULT_COLOR;
#endif /* USE_DEFAULT_COLORS */
CTRACE2(TRACE_STYLE, (tfp, "=> default %d\n", the_default));
return the_default;
}
if (!strcasecomp(color, "nocolor"))
return NO_COLOR;
for (i = 0; i < 16; i++) {
if (!strcasecomp(color, Color_Strings[i])) {
int c = ColorCode(i);
CTRACE2(TRACE_STYLE, (tfp, "=> %d\n", c));
return c;
}
}
CTRACE2(TRACE_STYLE, (tfp, "=> ERR_COLOR\n"));
return ERR_COLOR;
}
const char *lookup_color(int code)
{
unsigned n;
for (n = 0; n < 16; n++) {
if ((int) ColorCode(n) == code)
return Color_Strings[n];
}
return "default";
}
#endif /* USE_COLOR_STYLE || USE_COLOR_TABLE */
#if defined(USE_COLOR_TABLE) || defined(EXP_ASSUMED_COLOR)
/*
* Exit routine for failed COLOR parsing.
*/
static void exit_with_color_syntax(char *error_line)
{
unsigned int i;
fprintf(stderr, gettext("\
Syntax Error parsing COLOR in configuration file:\n\
The line must be of the form:\n\
COLOR:INTEGER:FOREGROUND:BACKGROUND\n\
\n\
Here FOREGROUND and BACKGROUND must be one of:\n\
The special strings 'nocolor' or 'default', or\n")
);
for (i = 0; i < 16; i += 4) {
fprintf(stderr, "%16s %16s %16s %16s\n",
Color_Strings[i], Color_Strings[i + 1],
Color_Strings[i + 2], Color_Strings[i + 3]);
}
fprintf(stderr, "%s\nCOLOR:%s\n", gettext("Offending line:"), error_line);
exit_immediately(EXIT_FAILURE);
}
#endif /* defined(USE_COLOR_TABLE) || defined(EXP_ASSUMED_COLOR) */
#if defined(USE_COLOR_TABLE)
/*
* Process string buffer fields for COLOR setting.
*/
static void parse_color(char *buffer)
{
int color;
const char *fg, *bg;
char *temp_fg = 0;
/*
* We are expecting a line of the form:
* INTEGER:FOREGROUND:BACKGROUND
*/
color = atoi(buffer);
if (NULL == (fg = find_colon(buffer)))
exit_with_color_syntax(buffer);
if (NULL == (bg = find_colon(++fg)))
exit_with_color_syntax(buffer);
StrAllocCopy(temp_fg, fg);
temp_fg[bg++ - fg] = '\0';
#if defined(USE_SLANG)
if ((check_color(temp_fg, default_fg) == ERR_COLOR) ||
(check_color(bg, default_bg) == ERR_COLOR))
exit_with_color_syntax(buffer);
SLtt_set_color(color, NULL, temp_fg, bg);
#else
if (lynx_chg_color(color,
check_color(temp_fg, default_fg),
check_color(bg, default_bg)) < 0)
exit_with_color_syntax(buffer);
#endif
FREE(temp_fg);
}
#endif /* USE_COLOR_TABLE */
/* *INDENT-OFF* */
#ifdef USE_SOURCE_CACHE
static Config_Enum tbl_source_cache[] = {
{ "FILE", SOURCE_CACHE_FILE },
{ "MEMORY", SOURCE_CACHE_MEMORY },
{ "NONE", SOURCE_CACHE_NONE },
{ NULL, -1 },
};
static Config_Enum tbl_abort_source_cache[] = {
{ "KEEP", SOURCE_CACHE_FOR_ABORTED_KEEP },
{ "DROP", SOURCE_CACHE_FOR_ABORTED_DROP },
{ NULL, -1 },
};
#endif
/* *INDENT-ON* */
#define PARSE_ADD(n,v) {n, CONF_ADD_ITEM, UNION_ADD(v), 0}
#define PARSE_SET(n,v) {n, CONF_BOOL, UNION_SET(v), 0}
#define PARSE_ENU(n,v,t) {n, CONF_ENUM, UNION_INT(v), t}
#define PARSE_INT(n,v) {n, CONF_INT, UNION_INT(v), 0}
#define PARSE_TIM(n,v) {n, CONF_TIME, UNION_INT(v), 0}
#define PARSE_STR(n,v) {n, CONF_STR, UNION_STR(v), 0}
#define PARSE_PRG(n,v) {n, CONF_PRG, UNION_DEF(v), 0}
#define PARSE_Env(n,v) {n, CONF_ENV, UNION_ENV(v), 0}
#define PARSE_ENV(n,v) {n, CONF_ENV2, UNION_ENV(v), 0}
#define PARSE_FUN(n,v) {n, CONF_FUN, UNION_FUN(v), 0}
#define PARSE_REQ(n,v) {n, CONF_INCLUDE, UNION_FUN(v), 0}
#define PARSE_LST(n,v) {n, CONF_ADD_STRING, UNION_LST(v), 0}
#define PARSE_DEF(n,v) {n, CONF_ADD_TRUSTED, UNION_DEF(v), 0}
#define PARSE_NIL {NULL, CONF_NIL, UNION_DEF(0), 0}
typedef enum {
CONF_NIL = 0
,CONF_BOOL /* BOOLEAN type */
,CONF_FUN
,CONF_TIME
,CONF_ENUM
,CONF_INT
,CONF_STR
,CONF_PRG
,CONF_ENV /* from environment variable */
,CONF_ENV2 /* from environment VARIABLE */
,CONF_INCLUDE /* include file-- handle special */
,CONF_ADD_ITEM
,CONF_ADD_STRING
,CONF_ADD_TRUSTED
} Conf_Types;
typedef struct {
const char *name;
Conf_Types type;
ParseData;
Config_Enum *table;
} Config_Type;
static int assume_charset_fun(char *value)
{
assumed_charset = TRUE;
UCLYhndl_for_unspec = safeUCGetLYhndl_byMIME(value);
StrAllocCopy(UCAssume_MIMEcharset,
LYCharSet_UC[UCLYhndl_for_unspec].MIMEname);
CTRACE((tfp, "assume_charset_fun %s ->%d ->%s\n",
NonNull(value),
UCLYhndl_for_unspec,
UCAssume_MIMEcharset));
return 0;
}
static int assume_local_charset_fun(char *value)
{
UCLYhndl_HTFile_for_unspec = safeUCGetLYhndl_byMIME(value);
return 0;
}
static int assume_unrec_charset_fun(char *value)
{
UCLYhndl_for_unrec = safeUCGetLYhndl_byMIME(value);
return 0;
}
static int character_set_fun(char *value)
{
int i = UCGetLYhndl_byAnyName(value); /* by MIME or full name */
if (i < 0) {
#ifdef CAN_AUTODETECT_DISPLAY_CHARSET
if (auto_display_charset >= 0
&& (!strncasecomp(value, "AutoDetect ", 11)
|| !strncasecomp(value, "AutoDetect-2 ", 13)))
current_char_set = auto_display_charset;
#endif
/* do nothing here: so fallback to userdefs.h */
} else {
current_char_set = i;
}
return 0;
}
static int outgoing_mail_charset_fun(char *value)
{
outgoing_mail_charset = UCGetLYhndl_byMIME(value);
/* -1 if NULL or not recognized value: no translation (compatibility) */
return 0;
}
#ifdef EXP_ASSUMED_COLOR
/*
* Process string buffer fields for ASSUMED_COLOR setting.
*/
static int assumed_color_fun(char *buffer)
{
const char *fg = buffer, *bg;
char *temp_fg = 0;
if (LYuse_default_colors) {
/*
* We are expecting a line of the form:
* FOREGROUND:BACKGROUND
*/
if (NULL == (bg = find_colon(fg)))
exit_with_color_syntax(buffer);
StrAllocCopy(temp_fg, fg);
temp_fg[bg++ - fg] = '\0';
default_fg = check_color(temp_fg, default_fg);
default_bg = check_color(bg, default_bg);
if (default_fg == ERR_COLOR
|| default_bg == ERR_COLOR)
exit_with_color_syntax(buffer);
FREE(temp_fg);
} else {
CTRACE((tfp, "...ignored since DEFAULT_COLORS:off\n"));
}
return 0;
}
#endif /* EXP_ASSUMED_COLOR */
#ifdef USE_COLOR_TABLE
static int color_fun(char *value)
{
parse_color(value);
return 0;
}
#endif
#ifdef USE_COLOR_STYLE
static int lynx_lss_file_fun(char *value)
{
CTRACE((tfp, "lynx_lss_file_fun '%s'\n", NonNull(value)));
if (isEmpty(value)) {
clear_lss_list();
} else {
add_to_lss_list(value, NULL);
}
return 0;
}
#endif
#ifdef USE_DEFAULT_COLORS
void update_default_colors(void)
{
int old_fg = default_fg;
int old_bg = default_bg;
default_color_reset = !LYuse_default_colors;
if (LYuse_default_colors) {
default_color_reset = FALSE;
default_fg = DEFAULT_COLOR;
default_bg = DEFAULT_COLOR;
} else {
default_color_reset = TRUE;
default_fg = COLOR_WHITE;
default_bg = COLOR_BLACK;
}
if (old_fg != default_fg || old_bg != default_bg) {
lynx_setup_colors();
#ifdef USE_COLOR_STYLE
update_color_style();
#endif
}
}
static int default_colors_fun(char *value)
{
LYuse_default_colors = is_true(value);
update_default_colors();
return 0;
}
#endif
static int default_bookmark_file_fun(char *value)
{
set_default_bookmark_page(value);
return 0;
}
static int default_cache_size_fun(char *value)
{
HTCacheSize = atoi(value);
if (HTCacheSize < 2)
HTCacheSize = 2;
return 0;
}
static int default_editor_fun(char *value)
{
if (!system_editor)
StrAllocCopy(editor, value);
return 0;
}
static int numbers_as_arrows_fun(char *value)
{
if (is_true(value))
keypad_mode = NUMBERS_AS_ARROWS;
else
keypad_mode = LINKS_ARE_NUMBERED;
return 0;
}
#ifdef DIRED_SUPPORT
static int dired_menu_fun(char *value)
{
add_menu_item(value);
return 0;
}
#endif
static int jumpfile_fun(char *value)
{
char *buffer = NULL;
HTSprintf0(&buffer, "JUMPFILE:%s", value);
if (!LYJumpInit(buffer))
CTRACE((tfp, "Failed to register %s\n", buffer));
FREE(buffer);
return 0;
}
#ifdef EXP_KEYBOARD_LAYOUT
static int keyboard_layout_fun(char *key)
{
if (!LYSetKbLayout(key))
CTRACE((tfp, "Failed to set keyboard layout %s\n", key));
return 0;
}
#endif /* EXP_KEYBOARD_LAYOUT */
static int keymap_fun(char *key)
{
char *func, *efunc;
if ((func = StrChr(key, ':')) != NULL) {
*func++ = '\0';
efunc = StrChr(func, ':');
/* Allow comments on the ends of key remapping lines. - DT */
/* Allow third field for line-editor action. - kw */
if (efunc == func) { /* have 3rd field, but 2nd field empty */
func = NULL;
} else if (efunc && strncasecomp(efunc + 1, "DIRED", 5) == 0) {
if (!remap(key, strtok(func, " \t\n:#"), TRUE)) {
fprintf(stderr,
gettext("key remapping of %s to %s for %s failed\n"),
key, func, efunc + 1);
} else if (!strcmp("TOGGLE_HELP", func)) {
LYUseNoviceLineTwo = FALSE;
}
return 0;
} else if (!remap(key, strtok(func, " \t\n:#"), FALSE)) {
fprintf(stderr, gettext("key remapping of %s to %s failed\n"),
key, func);
} else {
if (!strcmp("TOGGLE_HELP", func))
LYUseNoviceLineTwo = FALSE;
}
if (efunc) {
efunc++;
if (efunc == strtok((func ? NULL : efunc), " \t\n:#") && *efunc) {
BOOLEAN success = FALSE;
int lkc = lkcstring_to_lkc(key);
int lec = -1;
int select_edi = 0;
char *sselect_edi = strtok(NULL, " \t\n:#");
char **endp = &sselect_edi;
if (sselect_edi) {
if (*sselect_edi)
select_edi = (int) strtol(sselect_edi, endp, 10);
if (**endp != '\0') {
fprintf(stderr,
gettext("invalid line-editor selection %s for key %s, selecting all\n"),
sselect_edi, key);
select_edi = 0;
}
}
/*
* PASS! tries to enter the key into the LYLineEditors
* bindings in a different way from PASS, namely as binding
* that maps to the specific lynx actioncode (rather than to
* LYE_FORM_PASS). That only works for lynx keycodes with
* modifier bit set, and we have no documented/official way to
* specify this in the KEYMAP directive, although it can be
* made to work e.g. by specifying a hex value that has the
* modifier bit set. But knowledge about the bit pattern of
* modifiers should remain in internal matter subject to
* change... At any rate, if PASS! fails try it the same way
* as for PASS. - kw
*/
if (!success && strcasecomp(efunc, "PASS!") == 0) {
if (func) {
lec = LYE_FORM_LAC | lacname_to_lac(func);
success = (BOOL) LYRemapEditBinding(lkc, lec, select_edi);
}
if (!success)
fprintf(stderr,
gettext("setting of line-editor binding for key %s (0x%x) to 0x%x for %s failed\n"),
key, lkc, lec, efunc);
else
return 0;
}
if (!success) {
lec = lecname_to_lec(efunc);
success = (BOOL) LYRemapEditBinding(lkc, lec, select_edi);
}
if (!success) {
if (lec != -1) {
fprintf(stderr,
gettext("setting of line-editor binding for key %s (0x%x) to 0x%x for %s failed\n"),
key, lkc, lec, efunc);
} else {
fprintf(stderr,
gettext("setting of line-editor binding for key %s (0x%x) for %s failed\n"),
key, lkc, efunc);
}
}
}
}
}
return 0;
}
static int localhost_alias_fun(char *value)
{
LYAddLocalhostAlias(value);
return 0;
}
#ifdef LYNXCGI_LINKS
static int lynxcgi_environment_fun(char *value)
{
add_lynxcgi_environment(value);
return 0;
}
#endif
static int lynx_sig_file_fun(char *value)
{
char temp[LY_MAXPATH];
LYStrNCpy(temp, value, sizeof(temp) - 1);
if (LYPathOffHomeOK(temp, sizeof(temp))) {
StrAllocCopy(LynxSigFile, temp);
LYAddPathToHome(temp, sizeof(temp), LynxSigFile);
StrAllocCopy(LynxSigFile, temp);
CTRACE((tfp, "LYNX_SIG_FILE set to '%s'\n", LynxSigFile));
} else {
CTRACE((tfp, "LYNX_SIG_FILE '%s' is bad. Ignoring.\n", LYNX_SIG_FILE));
}
return 0;
}
#ifndef DISABLE_NEWS
static int news_chunk_size_fun(char *value)
{
HTNewsChunkSize = atoi(value);
/*
* If the new HTNewsChunkSize exceeds the maximum,
* increase HTNewsMaxChunk to this size. - FM
*/
if (HTNewsChunkSize > HTNewsMaxChunk)
HTNewsMaxChunk = HTNewsChunkSize;
return 0;
}
static int news_max_chunk_fun(char *value)
{
HTNewsMaxChunk = atoi(value);
/*
* If HTNewsChunkSize exceeds the new maximum,
* reduce HTNewsChunkSize to this maximum. - FM
*/
if (HTNewsChunkSize > HTNewsMaxChunk)
HTNewsChunkSize = HTNewsMaxChunk;
return 0;
}
static int news_posting_fun(char *value)
{
LYNewsPosting = is_true(value);
no_newspost = (BOOL) (LYNewsPosting == FALSE);
return 0;
}
#endif /* DISABLE_NEWS */
#ifndef NO_RULES
static int cern_rulesfile_fun(char *value)
{
char *rulesfile1 = NULL;
char *rulesfile2 = NULL;
if (HTLoadRules(value) >= 0) {
return 0;
}
StrAllocCopy(rulesfile1, value);
LYTrimLeading(value);
LYTrimTrailing(value);
StrAllocCopy(rulesfile2, value);
LYTildeExpand(&rulesfile2, FALSE);
if (strcmp(rulesfile1, rulesfile2) &&
HTLoadRules(rulesfile2) >= 0) {
FREE(rulesfile1);
FREE(rulesfile2);
return 0;
}
fprintf(stderr,
gettext("Lynx: cannot start, CERN rules file %s is not available\n"),
non_empty(rulesfile2) ? rulesfile2 : gettext("(no name)"));
exit_immediately(EXIT_FAILURE);
return 0; /* though redundant, for compiler-warnings */
}
#endif /* NO_RULES */
static int referer_with_query_fun(char *value)
{
if (!strncasecomp(value, "SEND", 4))
LYRefererWithQuery = 'S';
else if (!strncasecomp(value, "PARTIAL", 7))
LYRefererWithQuery = 'P';
else
LYRefererWithQuery = 'D';
return 0;
}
static int status_buffer_size_fun(char *value)
{
status_buf_size = atoi(value);
if (status_buf_size < 2)
status_buf_size = 2;
return 0;
}
static int startfile_fun(char *value)
{
StrAllocCopy(startfile, value);
#ifdef USE_PROGRAM_DIR
if (is_url(startfile) == 0) {
char *tmp = NULL;
HTSprintf0(&tmp, "%s\\%s", program_dir, startfile);
FREE(startfile);
LYLocalFileToURL(&startfile, tmp);
FREE(tmp);
}
#endif
return 0;
}
static int suffix_fun(char *value)
{
char *mime_type, *p, *parsed;
const char *encoding = NULL;
char *sq = NULL;
char *description = NULL;
double q = 1.0;
if ((strlen(value) < 3)
|| (NULL == (mime_type = StrChr(value, ':')))) {
CTRACE((tfp, "Invalid SUFFIX:%s ignored.\n", value));
return 0;
}
*mime_type++ = '\0';
if (*mime_type) {
if ((parsed = StrChr(mime_type, ':')) != NULL) {
*parsed++ = '\0';
if ((sq = StrChr(parsed, ':')) != NULL) {
*sq++ = '\0';
if ((description = StrChr(sq, ':')) != NULL) {
*description++ = '\0';
if ((p = StrChr(sq, ':')) != NULL)
*p = '\0';
LYTrimTail(description);
}
LYRemoveBlanks(sq);
if (!*sq)
sq = NULL;
}
LYRemoveBlanks(parsed);
LYLowerCase(parsed);
if (!*parsed)
parsed = NULL;
}
encoding = parsed;
}
LYRemoveBlanks(mime_type);
/*
* mime-type is not converted to lowercase on input, to make it possible to
* reproduce the equivalent of some of the HTInit.c defaults that use mixed
* case, although that is not recomended. - kw
*/
if (!*mime_type) { /* that's ok now, with an encoding! */
CTRACE((tfp, "SUFFIX:%s without MIME type for %s\n", value,
encoding ? encoding : "what?"));
mime_type = NULL; /* that's ok now, with an encoding! */
if (!encoding)
return 0;
}
if (!encoding) {
if (strstr(mime_type, "tex") != NULL ||
strstr(mime_type, "postscript") != NULL ||
strstr(mime_type, "sh") != NULL ||
strstr(mime_type, "troff") != NULL ||
strstr(mime_type, "rtf") != NULL)
encoding = "8bit";
else
encoding = "binary";
}
if (!sq) {
q = 1.0;
} else {
double df = strtod(sq, &p);
if (p == sq && df <= 0.0) {
CTRACE((tfp, "Invalid q=%s for SUFFIX:%s, using -1.0\n",
sq, value));
q = -1.0;
} else {
q = df;
}
}
HTSetSuffix5(value, mime_type, encoding, description, q);
return 0;
}
static int suffix_order_fun(char *value)
{
char *p = value;
char *optn;
BOOLEAN want_file_init_now = FALSE;
LYUseBuiltinSuffixes = TRUE;
while ((optn = HTNextTok(&p, ", ", "", NULL)) != NULL) {
if (!strcasecomp(optn, "NO_BUILTIN")) {
LYUseBuiltinSuffixes = FALSE;
} else if (!strcasecomp(optn, "PRECEDENCE_HERE")) {
want_file_init_now = TRUE;
} else if (!strcasecomp(optn, "PRECEDENCE_OTHER")) {
want_file_init_now = FALSE;
} else {
CTRACE((tfp, "Invalid SUFFIX_ORDER:%s\n", optn));
break;
}
}
if (want_file_init_now && !FileInitAlreadyDone) {
HTFileInit();
FileInitAlreadyDone = TRUE;
}
return 0;
}
static int system_editor_fun(char *value)
{
StrAllocCopy(editor, value);
system_editor = TRUE;
return 0;
}
#define SetViewer(mime_type, viewer) \
HTSetPresentation(mime_type, viewer, 0, 1.0, 3.0, 0.0, 0L, mediaCFG)
static int viewer_fun(char *value)
{
char *mime_type;
char *viewer;
char *environment;
mime_type = value;
if ((strlen(value) < 3)
|| (NULL == (viewer = StrChr(mime_type, ':'))))
return 0;
*viewer++ = '\0';
LYRemoveBlanks(mime_type);
LYLowerCase(mime_type);
environment = strrchr(viewer, ':');
if ((environment != NULL) &&
(strlen(viewer) > 1) && *(environment - 1) != '\\') {
*environment++ = '\0';
remove_backslashes(viewer);
/*
* If environment equals xwindows then only assign the presentation if
* there is a $DISPLAY variable.
*/
if (!strcasecomp(environment, "XWINDOWS")) {
if (LYgetXDisplay() != NULL)
SetViewer(mime_type, viewer);
} else if (!strcasecomp(environment, "NON_XWINDOWS")) {
if (LYgetXDisplay() == NULL)
SetViewer(mime_type, viewer);
} else {
SetViewer(mime_type, viewer);
}
} else {
remove_backslashes(viewer);
SetViewer(mime_type, viewer);
}
return 0;
}
static int nonrest_sigwinch_fun(char *value)
{
if (!strncasecomp(value, "XWINDOWS", 8)) {
LYNonRestartingSIGWINCH = (BOOL) (LYgetXDisplay() != NULL);
} else {
LYNonRestartingSIGWINCH = is_true(value);
}
return 0;
}
#ifdef USE_CHARSET_CHOICE
static void matched_charset_choice(int display_charset,
int i)
{
int j;
if (display_charset && !custom_display_charset) {
for (custom_display_charset = TRUE, j = 0; j < LYNumCharsets; ++j)
charset_subsets[j].hide_display = TRUE;
} else if (!display_charset && !custom_assumed_doc_charset) {
for (custom_assumed_doc_charset = TRUE, j = 0; j < LYNumCharsets; ++j)
charset_subsets[j].hide_assumed = TRUE;
}
if (display_charset)
charset_subsets[i].hide_display = FALSE;
else
charset_subsets[i].hide_assumed = FALSE;
}
static int parse_charset_choice(char *p,
int display_charset) /*if FALSE, then assumed doc charset */
{
int len, i;
int matches = 0;
/*only one charset choice is allowed per line! */
LYTrimHead(p);
LYTrimTail(p);
CTRACE((tfp, "parsing charset choice for %s:\"%s\"",
(display_charset ? "display charset" : "assumed doc charset"), p));
len = (int) strlen(p);
if (!len) {
CTRACE((tfp, " - EMPTY STRING\n"));
return 1;
}
if (*p == '*' && len == 1) {
if (display_charset)
for (custom_display_charset = TRUE, i = 0; i < LYNumCharsets; ++i)
charset_subsets[i].hide_display = FALSE;
else
for (custom_assumed_doc_charset = TRUE, i = 0; i < LYNumCharsets; ++i)
charset_subsets[i].hide_assumed = FALSE;
CTRACE((tfp, " - all unhidden\n"));
return 0;
}
if (p[len - 1] == '*') {
--len;
for (i = 0; i < LYNumCharsets; ++i) {
if ((!strncasecomp(p, LYchar_set_names[i], len)) ||
(!strncasecomp(p, LYCharSet_UC[i].MIMEname, len))) {
++matches;
matched_charset_choice(display_charset, i);
}
}
CTRACE((tfp, " - %d matches\n", matches));
return 0;
} else {
for (i = 0; i < LYNumCharsets; ++i) {
if ((!strcasecomp(p, LYchar_set_names[i])) ||
(!strcasecomp(p, LYCharSet_UC[i].MIMEname))) {
matched_charset_choice(display_charset, i);
++matches;
CTRACE((tfp, " - OK, %d matches\n", matches));
return 0;
}
}
CTRACE((tfp, " - NOT recognised\n"));
return 1;
}
}
static int parse_display_charset_choice(char *p)
{
return parse_charset_choice(p, 1);
}
static int parse_assumed_doc_charset_choice(char *p)
{
return parse_charset_choice(p, 0);
}
#endif /* USE_CHARSET_CHOICE */
#ifdef USE_EXTERNALS
/*
* EXTERNAL and EXTERNAL_MENU share the same list. EXTERNAL_MENU allows
* setting a different name than the command string.
*/
static int external_fun(char *str)
{
add_item_to_list(str, &externals, FALSE, TRUE);
return 0;
}
#endif
#ifdef USE_PRETTYSRC
static void html_src_bad_syntax(char *value,
char *option_name)
{
char *buf = 0;
HTSprintf0(&buf, "HTMLSRC_%s", option_name);
LYUpperCase(buf);
fprintf(stderr, "Bad syntax in TAGSPEC %s:%s\n", buf, value);
exit_immediately(EXIT_FAILURE);
}
static int parse_html_src_spec(HTlexeme lexeme_code, char *value,
char *option_name)
{
/* Now checking the value for being correct. Since HTML_dtd is not
* initialized completely (member tags points to non-initiailized data), we
* use tags_old. If the syntax is incorrect, then lynx will exit with error
* message.
*/
char *ts2;
if (isEmpty(value))
return 0; /* silently ignoring */
#define BS() html_src_bad_syntax(value,option_name)
ts2 = StrChr(value, ':');
if (!ts2)
BS();
*ts2 = '\0';
CTRACE2(TRACE_CFG, (tfp,
"LYReadCFG - parsing tagspec '%s:%s' for option '%s'\n",
value, ts2, option_name));
html_src_clean_item(lexeme_code);
if (!html_src_parse_tagspec(value, lexeme_code, TRUE, TRUE)
|| !html_src_parse_tagspec(ts2, lexeme_code, TRUE, TRUE)) {
*ts2 = ':';
BS();
}
*ts2 = ':';
StrAllocCopy(HTL_tagspecs[lexeme_code], value);
#undef BS
return 0;
}
static int psrcspec_fun(char *s)
{
char *e;
/* *INDENT-OFF* */
static Config_Enum lexemnames[] =
{
{ "comm", HTL_comm },
{ "tag", HTL_tag },
{ "attrib", HTL_attrib },
{ "attrval", HTL_attrval },
{ "abracket", HTL_abracket },
{ "entity", HTL_entity },
{ "href", HTL_href },
{ "entire", HTL_entire },
{ "badseq", HTL_badseq },
{ "badtag", HTL_badtag },
{ "badattr", HTL_badattr },
{ "sgmlspecial", HTL_sgmlspecial },
{ NULL, -1 }
};
/* *INDENT-ON* */
int found;
e = StrChr(s, ':');
if (!e) {
CTRACE((tfp,
"bad format of PRETTYSRC_SPEC setting value, ignored %s\n",
s));
return 0;
}
*e = '\0';
if (!LYgetEnum(lexemnames, s, &found)) {
CTRACE((tfp,
"bad format of PRETTYSRC_SPEC setting value, ignored %s:%s\n",
s, e + 1));
return 0;
}
parse_html_src_spec((HTlexeme) found, e + 1, s);
return 0;
}
static int read_htmlsrc_attrname_xform(char *str)
{
int val;
if (1 == sscanf(str, "%d", &val)) {
if (val < 0 || val > 2) {
CTRACE((tfp,
"bad value for htmlsrc_attrname_xform (ignored - must be one of 0,1,2): %d\n",
val));
} else
attrname_transform = val;
} else {
CTRACE((tfp, "bad value for htmlsrc_attrname_xform (ignored): %s\n",
str));
}
return 0;
}
static int read_htmlsrc_tagname_xform(char *str)
{
int val;
if (1 == sscanf(str, "%d", &val)) {
if (val < 0 || val > 2) {
CTRACE((tfp,
"bad value for htmlsrc_tagname_xform (ignored - must be one of 0,1,2): %d\n",
val));
} else
tagname_transform = val;
} else {
CTRACE((tfp, "bad value for htmlsrc_tagname_xform (ignored): %s\n",
str));
}
return 0;
}
#endif
#ifdef USE_SESSIONS
static int session_limit_fun(char *value)
{
session_limit = (short) atoi(value);
if (session_limit < 1)
session_limit = 1;
else if (session_limit > MAX_SESSIONS)
session_limit = MAX_SESSIONS;
return 0;
}
#endif /* USE_SESSIONS */
#if defined(PDCURSES) && defined(PDC_BUILD) && PDC_BUILD >= 2401
static int screen_size_fun(char *value)
{
char *cp;
if ((cp = StrChr(value, ',')) != 0) {
*cp++ = '\0'; /* Terminate ID */
scrsize_x = atoi(value);
scrsize_y = atoi(cp);
if ((scrsize_x <= 1) || (scrsize_y <= 1)) {
scrsize_x = scrsize_y = 0;
}
if ((scrsize_x > 0) && (scrsize_x < 80)) {
scrsize_x = 80;
}
if ((scrsize_y > 0) && (scrsize_y < 4)) {
scrsize_y = 4;
}
CTRACE((tfp, "scrsize: x=%d, y=%d\n", scrsize_x, scrsize_y));
}
return 0;
}
#endif
#if defined(HAVE_LIBINTL_H) || defined(HAVE_LIBGETTEXT_H)
static int message_language_fun(char *value)
{
char *tmp = NULL;
HTSprintf0(&tmp, "LANG=%s", value);
putenv(tmp);
LYSetTextDomain();
return 0;
}
#endif
/* This table is searched ignoring case */
/* *INDENT-OFF* */
static Config_Type Config_Table [] =
{
PARSE_SET(RC_ACCEPT_ALL_COOKIES, LYAcceptAllCookies),
PARSE_TIM(RC_ALERTSECS, AlertSecs),
#if USE_BLAT_MAILER
PARSE_SET(RC_ALT_BLAT_MAIL, mail_is_altblat),
#endif
PARSE_SET(RC_ALWAYS_RESUBMIT_POSTS, LYresubmit_posts),
#ifdef EXEC_LINKS
PARSE_DEF(RC_ALWAYS_TRUSTED_EXEC, ALWAYS_EXEC_PATH),
#endif
PARSE_FUN(RC_ASSUME_CHARSET, assume_charset_fun),
PARSE_FUN(RC_ASSUME_LOCAL_CHARSET, assume_local_charset_fun),
PARSE_FUN(RC_ASSUME_UNREC_CHARSET, assume_unrec_charset_fun),
#ifdef EXP_ASSUMED_COLOR
PARSE_FUN(RC_ASSUMED_COLOR, assumed_color_fun),
#endif
#ifdef USE_CHARSET_CHOICE
PARSE_FUN(RC_ASSUMED_DOC_CHARSET_CHOICE, parse_assumed_doc_charset_choice),
#endif
#ifdef DIRED_SUPPORT
PARSE_INT(RC_AUTO_UNCACHE_DIRLISTS, LYAutoUncacheDirLists),
#endif
#ifndef DISABLE_BIBP
PARSE_STR(RC_BIBP_BIBHOST, BibP_bibhost),
PARSE_STR(RC_BIBP_GLOBALSERVER, BibP_globalserver),
#endif
#if USE_BLAT_MAILER
PARSE_SET(RC_BLAT_MAIL, mail_is_blat),
#endif
PARSE_SET(RC_BLOCK_MULTI_BOOKMARKS, LYMBMBlocked),
PARSE_SET(RC_BOLD_H1, bold_H1),
PARSE_SET(RC_BOLD_HEADERS, bold_headers),
PARSE_SET(RC_BOLD_NAME_ANCHORS, bold_name_anchors),
#ifndef DISABLE_FTP
PARSE_LST(RC_BROKEN_FTP_EPSV, broken_ftp_epsv),
PARSE_LST(RC_BROKEN_FTP_RETR, broken_ftp_retr),
#endif
PARSE_PRG(RC_BZIP2_PATH, ppBZIP2),
PARSE_SET(RC_CASE_SENSITIVE_ALWAYS_ON, LYcase_sensitive),
PARSE_FUN(RC_CHARACTER_SET, character_set_fun),
#ifdef CAN_SWITCH_DISPLAY_CHARSET
PARSE_STR(RC_CHARSET_SWITCH_RULES, charset_switch_rules),
PARSE_STR(RC_CHARSETS_DIRECTORY, charsets_directory),
#endif
PARSE_SET(RC_CHECKMAIL, check_mail),
PARSE_PRG(RC_CHMOD_PATH, ppCHMOD),
PARSE_SET(RC_COLLAPSE_BR_TAGS, LYCollapseBRs),
#ifdef USE_COLOR_TABLE
PARSE_FUN(RC_COLOR, color_fun),
#endif
#ifdef USE_COLOR_STYLE
PARSE_FUN(RC_COLOR_STYLE, lynx_lss_file_fun),
#endif
PARSE_PRG(RC_COMPRESS_PATH, ppCOMPRESS),
PARSE_PRG(RC_COPY_PATH, ppCOPY),
PARSE_INT(RC_CONNECT_TIMEOUT, connect_timeout),
PARSE_SET(RC_CONV_JISX0201KANA, conv_jisx0201kana),
PARSE_STR(RC_COOKIE_ACCEPT_DOMAINS, LYCookieSAcceptDomains),
#ifdef USE_PERSISTENT_COOKIES
PARSE_STR(RC_COOKIE_FILE, LYCookieFile),
#endif /* USE_PERSISTENT_COOKIES */
PARSE_STR(RC_COOKIE_LOOSE_INVALID_DOMAINS, LYCookieSLooseCheckDomains),
PARSE_STR(RC_COOKIE_QUERY_INVALID_DOMAINS, LYCookieSQueryCheckDomains),
PARSE_STR(RC_COOKIE_REJECT_DOMAINS, LYCookieSRejectDomains),
#ifdef USE_PERSISTENT_COOKIES
PARSE_STR(RC_COOKIE_SAVE_FILE, LYCookieSaveFile),
#endif /* USE_PERSISTENT_COOKIES */
PARSE_STR(RC_COOKIE_STRICT_INVALID_DOMAIN, LYCookieSStrictCheckDomains),
PARSE_Env(RC_CSO_PROXY, 0),
#ifdef VMS
PARSE_PRG(RC_CSWING_PATH, ppCSWING),
#endif
PARSE_TIM(RC_DELAYSECS, DelaySecs),
PARSE_FUN(RC_DEFAULT_BOOKMARK_FILE, default_bookmark_file_fun),
PARSE_FUN(RC_DEFAULT_CACHE_SIZE, default_cache_size_fun),
#ifdef USE_DEFAULT_COLORS
PARSE_FUN(RC_DEFAULT_COLORS, default_colors_fun),
#endif
PARSE_FUN(RC_DEFAULT_EDITOR, default_editor_fun),
PARSE_STR(RC_DEFAULT_INDEX_FILE, indexfile),
PARSE_ENU(RC_DEFAULT_KEYPAD_MODE, keypad_mode, tbl_keypad_mode),
PARSE_FUN(RC_DEFAULT_KEYPAD_MODE_NUMARO, numbers_as_arrows_fun),
PARSE_ENU(RC_DEFAULT_USER_MODE, user_mode, tbl_user_mode),
#if defined(VMS) && defined(VAXC) && !defined(__DECC)
PARSE_INT(RC_DEFAULT_VIRTUAL_MEMORY_SIZE, HTVirtualMemorySize),
#endif
#ifdef DIRED_SUPPORT
PARSE_FUN(RC_DIRED_MENU, dired_menu_fun),
#endif
#ifdef USE_CHARSET_CHOICE
PARSE_FUN(RC_DISPLAY_CHARSET_CHOICE, parse_display_charset_choice),
#endif
PARSE_SET(RC_DONT_WRAP_PRE, dont_wrap_pre),
PARSE_ADD(RC_DOWNLOADER, downloaders),
PARSE_SET(RC_EMACS_KEYS_ALWAYS_ON, emacs_keys),
PARSE_FUN(RC_ENABLE_LYNXRC, enable_lynxrc),
PARSE_SET(RC_ENABLE_SCROLLBACK, enable_scrollback),
#ifdef USE_EXTERNALS
PARSE_ADD(RC_EXTERNAL, externals),
PARSE_FUN(RC_EXTERNAL_MENU, external_fun),
#endif
PARSE_Env(RC_FINGER_PROXY, 0),
#if defined(_WINDOWS) /* 1998/10/05 (Mon) 17:34:15 */
PARSE_SET(RC_FOCUS_WINDOW, focus_window),
#endif
PARSE_SET(RC_FORCE_8BIT_TOUPPER, UCForce8bitTOUPPER),
PARSE_ENU(RC_FORCE_COOKIE_PROMPT, cookie_noprompt, tbl_force_prompt),
PARSE_SET(RC_FORCE_EMPTY_HREFLESS_A, force_empty_hrefless_a),
PARSE_SET(RC_FORCE_HTML, LYforce_HTML_mode),
PARSE_SET(RC_FORCE_SSL_COOKIES_SECURE, LYForceSSLCookiesSecure),
#ifdef USE_SSL
PARSE_ENU(RC_FORCE_SSL_PROMPT, ssl_noprompt, tbl_force_prompt),
#endif
#if !defined(NO_OPTION_FORMS) && !defined(NO_OPTION_MENU)
PARSE_SET(RC_FORMS_OPTIONS, LYUseFormsOptions),
#endif
PARSE_STR(RC_FTP_FORMAT, ftp_format),
#ifndef DISABLE_FTP
PARSE_SET(RC_FTP_PASSIVE, ftp_passive),
#endif
PARSE_Env(RC_FTP_PROXY, 0),
PARSE_STR(RC_GLOBAL_EXTENSION_MAP, global_extension_map),
PARSE_STR(RC_GLOBAL_MAILCAP, global_type_map),
PARSE_Env(RC_GOPHER_PROXY, 0),
PARSE_SET(RC_GOTOBUFFER, goto_buffer),
PARSE_PRG(RC_GZIP_PATH, ppGZIP),
PARSE_SET(RC_GUESS_SCHEME, LYGuessScheme),
PARSE_STR(RC_HELPFILE, helpfile),
PARSE_FUN(RC_HIDDENLINKS, hiddenlinks_fun),
#ifdef MARK_HIDDEN_LINKS
PARSE_STR(RC_HIDDEN_LINK_MARKER, hidden_link_marker),
#endif
PARSE_SET(RC_HISTORICAL_COMMENTS, historical_comments),
PARSE_SET(RC_HTML5_CHARSETS, html5_charsets),
#ifdef USE_PRETTYSRC
PARSE_FUN(RC_HTMLSRC_ATTRNAME_XFORM, read_htmlsrc_attrname_xform),
PARSE_FUN(RC_HTMLSRC_TAGNAME_XFORM, read_htmlsrc_tagname_xform),
#endif
PARSE_FUN(RC_HTTP_PROTOCOL, get_http_protocol),
PARSE_Env(RC_HTTP_PROXY, 0),
PARSE_Env(RC_HTTPS_PROXY, 0),
PARSE_REQ(RC_INCLUDE, 0),
PARSE_PRG(RC_INFLATE_PATH, ppINFLATE),
PARSE_TIM(RC_INFOSECS, InfoSecs),
PARSE_PRG(RC_INSTALL_PATH, ppINSTALL),
PARSE_STR(RC_JUMP_PROMPT, jumpprompt),
PARSE_SET(RC_JUMPBUFFER, jump_buffer),
PARSE_FUN(RC_JUMPFILE, jumpfile_fun),
#ifdef USE_JUSTIFY_ELTS
PARSE_SET(RC_JUSTIFY, ok_justify),
PARSE_INT(RC_JUSTIFY_MAX_VOID_PERCENT, justify_max_void_percent),
#endif
#ifdef EXP_KEYBOARD_LAYOUT
PARSE_FUN(RC_KEYBOARD_LAYOUT, keyboard_layout_fun),
#endif
PARSE_FUN(RC_KEYMAP, keymap_fun),
PARSE_SET(RC_LEFTARROW_IN_TEXTFLD_PROMPT, textfield_prompt_at_left_edge),
PARSE_SET(RC_LISTONLY, dump_links_only),
#ifndef VMS
PARSE_STR(RC_LIST_FORMAT, list_format),
#endif
PARSE_SET(RC_LIST_INLINE, dump_links_inline),
#ifndef DISABLE_NEWS
PARSE_SET(RC_LIST_NEWS_DATES, LYListNewsDates),
PARSE_SET(RC_LIST_NEWS_NUMBERS, LYListNewsNumbers),
#endif
#ifdef USE_LOCALE_CHARSET
PARSE_SET(RC_LOCALE_CHARSET, LYLocaleCharset),
#endif
PARSE_STR(RC_LOCAL_DOMAIN, LYLocalDomain),
PARSE_SET(RC_LOCALHOST, local_host_only),
PARSE_FUN(RC_LOCALHOST_ALIAS, localhost_alias_fun),
#if defined(EXEC_LINKS) || defined(EXEC_SCRIPTS)
PARSE_SET(RC_LOCAL_EXECUTION_LINKS_ALWAYS, local_exec),
PARSE_SET(RC_LOCAL_EXECUTION_LINKS_LOCAL, local_exec_on_local_files),
#endif
PARSE_STR(RC_LYNX_HOST_NAME, LYHostName),
PARSE_FUN(RC_LYNX_SIG_FILE, lynx_sig_file_fun),
#ifdef LYNXCGI_LINKS
#ifndef VMS
PARSE_STR(RC_LYNXCGI_DOCUMENT_ROOT, LYCgiDocumentRoot),
#endif
PARSE_FUN(RC_LYNXCGI_ENVIRONMENT, lynxcgi_environment_fun),
#endif
#if USE_VMS_MAILER
PARSE_STR(RC_MAIL_ADRS, mail_adrs),
#endif
PARSE_SET(RC_MAIL_SYSTEM_ERROR_LOGGING, error_logging),
PARSE_SET(RC_MAKE_LINKS_FOR_ALL_IMAGES, clickable_images),
PARSE_SET(RC_MAKE_PSEUDO_ALTS_FOR_INLINES, pseudo_inline_alts),
PARSE_INT(RC_MAX_COOKIES_BUFFER, max_cookies_buffer),
PARSE_INT(RC_MAX_COOKIES_DOMAIN, max_cookies_domain),
PARSE_INT(RC_MAX_COOKIES_GLOBAL, max_cookies_global),
PARSE_INT(RC_MAX_URI_SIZE, max_uri_size),
PARSE_TIM(RC_MESSAGESECS, MessageSecs),
#if defined(HAVE_LIBINTL_H) || defined(HAVE_LIBGETTEXT_H)
PARSE_FUN(RC_MESSAGE_LANGUAGE, message_language_fun),
#endif
PARSE_SET(RC_MINIMAL_COMMENTS, minimal_comments),
PARSE_PRG(RC_MKDIR_PATH, ppMKDIR),
PARSE_ENU(RC_MULTI_BOOKMARK_SUPPORT, LYMultiBookmarks, tbl_multi_bookmarks),
PARSE_PRG(RC_MV_PATH, ppMV),
PARSE_SET(RC_NCR_IN_BOOKMARKS, UCSaveBookmarksInUnicode),
#ifdef EXP_NESTED_TABLES
PARSE_SET(RC_NESTED_TABLES, nested_tables),
#endif
#ifndef DISABLE_NEWS
PARSE_FUN(RC_NEWS_CHUNK_SIZE, news_chunk_size_fun),
PARSE_FUN(RC_NEWS_MAX_CHUNK, news_max_chunk_fun),
PARSE_FUN(RC_NEWS_POSTING, news_posting_fun),
PARSE_Env(RC_NEWS_PROXY, 0),
PARSE_Env(RC_NEWSPOST_PROXY, 0),
PARSE_Env(RC_NEWSREPLY_PROXY, 0),
PARSE_Env(RC_NNTP_PROXY, 0),
PARSE_ENV(RC_NNTPSERVER, 0), /* actually NNTPSERVER */
#endif
PARSE_SET(RC_NUMBER_FIELDS_ON_LEFT,number_fields_on_left),
PARSE_SET(RC_NUMBER_LINKS_ON_LEFT, number_links_on_left),
PARSE_SET(RC_NO_DOT_FILES, no_dotfiles),
PARSE_SET(RC_NO_FILE_REFERER, no_filereferer),
#ifndef VMS
PARSE_SET(RC_NO_FORCED_CORE_DUMP, LYNoCore),
#endif
PARSE_SET(RC_NO_FROM_HEADER, LYNoFromHeader),
PARSE_SET(RC_NO_ISMAP_IF_USEMAP, LYNoISMAPifUSEMAP),
PARSE_SET(RC_NO_MARGINS, no_margins),
PARSE_SET(RC_NO_PAUSE, no_pause),
PARSE_Env(RC_NO_PROXY, 0),
PARSE_SET(RC_NO_REFERER_HEADER, LYNoRefererHeader),
PARSE_SET(RC_NO_TABLE_CENTER, no_table_center),
PARSE_SET(RC_NO_TITLE, no_title),
PARSE_FUN(RC_NONRESTARTING_SIGWINCH, nonrest_sigwinch_fun),
PARSE_FUN(RC_OUTGOING_MAIL_CHARSET, outgoing_mail_charset_fun),
#ifdef DISP_PARTIAL
PARSE_SET(RC_PARTIAL, display_partial_flag),
PARSE_INT(RC_PARTIAL_THRES, partial_threshold),
#endif
#ifdef USE_PERSISTENT_COOKIES
PARSE_SET(RC_PERSISTENT_COOKIES, persistent_cookies),
#endif /* USE_PERSISTENT_COOKIES */
PARSE_STR(RC_PERSONAL_EXTENSION_MAP, personal_extension_map),
PARSE_STR(RC_PERSONAL_MAILCAP, personal_type_map),
PARSE_LST(RC_POSITIONABLE_EDITOR, positionable_editor),
PARSE_STR(RC_PREFERRED_CHARSET, pref_charset),
PARSE_ENU(RC_PREFERRED_CONTENT_TYPE, LYContentType, tbl_preferred_content),
PARSE_ENU(RC_PREFERRED_ENCODING, LYAcceptEncoding, tbl_preferred_encoding),
PARSE_STR(RC_PREFERRED_LANGUAGE, language),
PARSE_ENU(RC_PREFERRED_MEDIA_TYPES, LYAcceptMedia, tbl_preferred_media),
PARSE_SET(RC_PREPEND_BASE_TO_SOURCE, LYPrependBaseToSource),
PARSE_SET(RC_PREPEND_CHARSET_TO_SOURCE, LYPrependCharsetToSource),
#ifdef USE_PRETTYSRC
PARSE_SET(RC_PRETTYSRC, LYpsrc),
PARSE_FUN(RC_PRETTYSRC_SPEC, psrcspec_fun),
PARSE_SET(RC_PRETTYSRC_VIEW_NO_ANCHOR_NUM, psrcview_no_anchor_numbering),
#endif
PARSE_ADD(RC_PRINTER, printers),
PARSE_SET(RC_QUIT_DEFAULT_YES, LYQuitDefaultYes),
PARSE_INT(RC_READ_TIMEOUT, reading_timeout),
PARSE_FUN(RC_REFERER_WITH_QUERY, referer_with_query_fun),
#ifdef USE_CMD_LOGGING
PARSE_TIM(RC_REPLAYSECS, ReplaySecs),
#endif
PARSE_SET(RC_REUSE_TEMPFILES, LYReuseTempfiles),
PARSE_PRG(RC_RLOGIN_PATH, ppRLOGIN),
PARSE_PRG(RC_RMDIR_PATH, ppRMDIR),
PARSE_PRG(RC_RM_PATH, ppRM),
#ifndef NO_RULES
PARSE_FUN(RC_RULE, HTSetConfiguration),
PARSE_FUN(RC_RULESFILE, cern_rulesfile_fun),
#endif /* NO_RULES */
PARSE_STR(RC_SAVE_SPACE, lynx_save_space),
PARSE_SET(RC_SCAN_FOR_BURIED_NEWS_REFS, scan_for_buried_news_references),
#if defined(PDCURSES) && defined(PDC_BUILD) && PDC_BUILD >= 2401
PARSE_FUN(RC_SCREEN_SIZE, screen_size_fun),
#endif
#ifdef USE_SCROLLBAR
PARSE_SET(RC_SCROLLBAR, LYShowScrollbar),
PARSE_SET(RC_SCROLLBAR_ARROW, LYsb_arrow),
#endif
PARSE_SET(RC_SEEK_FRAG_AREA_IN_CUR, LYSeekFragAREAinCur),
PARSE_SET(RC_SEEK_FRAG_MAP_IN_CUR, LYSeekFragMAPinCur),
#ifdef USE_SESSIONS
PARSE_SET(RC_AUTO_SESSION, LYAutoSession),
PARSE_STR(RC_SESSION_FILE, LYSessionFile),
PARSE_FUN(RC_SESSION_LIMIT, session_limit_fun),
#endif
PARSE_SET(RC_SET_COOKIES, LYSetCookies),
PARSE_SET(RC_SHORT_URL, long_url_ok),
PARSE_SET(RC_SHOW_CURSOR, LYShowCursor),
PARSE_STR(RC_SHOW_KB_NAME, LYTransferName),
PARSE_ENU(RC_SHOW_KB_RATE, LYTransferRate, tbl_transfer_rate),
PARSE_Env(RC_SNEWS_PROXY, 0),
PARSE_Env(RC_SNEWSPOST_PROXY, 0),
PARSE_Env(RC_SNEWSREPLY_PROXY, 0),
PARSE_SET(RC_SOFT_DQUOTES, soft_dquotes),
#ifdef USE_SOURCE_CACHE
PARSE_ENU(RC_SOURCE_CACHE, LYCacheSource, tbl_source_cache),
PARSE_ENU(RC_SOURCE_CACHE_FOR_ABORTED, LYCacheSourceForAborted, tbl_abort_source_cache),
#endif
PARSE_STR(RC_SSL_CERT_FILE, SSL_cert_file),
PARSE_STR(RC_SSL_CLIENT_CERT_FILE, SSL_client_cert_file),
PARSE_STR(RC_SSL_CLIENT_KEY_FILE, SSL_client_key_file),
PARSE_FUN(RC_STARTFILE, startfile_fun),
PARSE_FUN(RC_STATUS_BUFFER_SIZE, status_buffer_size_fun),
PARSE_SET(RC_STRIP_DOTDOT_URLS, LYStripDotDotURLs),
PARSE_SET(RC_SUBSTITUTE_UNDERSCORES, use_underscore),
PARSE_FUN(RC_SUFFIX, suffix_fun),
PARSE_FUN(RC_SUFFIX_ORDER, suffix_order_fun),
#ifdef SYSLOG_REQUESTED_URLS
PARSE_SET(RC_SYSLOG_REQUESTED_URLS, syslog_requested_urls),
PARSE_STR(RC_SYSLOG_TEXT, syslog_txt),
#endif
PARSE_FUN(RC_SYSTEM_EDITOR, system_editor_fun),
PARSE_STR(RC_SYSTEM_MAIL, system_mail),
PARSE_STR(RC_SYSTEM_MAIL_FLAGS, system_mail_flags),
PARSE_FUN(RC_TAGSOUP, get_tagsoup),
PARSE_PRG(RC_TAR_PATH, ppTAR),
PARSE_PRG(RC_TELNET_PATH, ppTELNET),
#ifdef TEXTFIELDS_MAY_NEED_ACTIVATION
PARSE_SET(RC_TEXTFIELDS_NEED_ACTIVATION, textfields_activation_option),
#endif
PARSE_PRG(RC_TN3270_PATH, ppTN3270),
#if defined(_WINDOWS)
PARSE_INT(RC_TIMEOUT, lynx_timeout),
#endif
PARSE_PRG(RC_TOUCH_PATH, ppTOUCH),
PARSE_SET(RC_TRACK_INTERNAL_LINKS, track_internal_links),
PARSE_SET(RC_TRIM_BLANK_LINES, LYtrimBlankLines),
PARSE_SET(RC_TRIM_INPUT_FIELDS, LYtrimInputFields),
#ifdef EXEC_LINKS
PARSE_DEF(RC_TRUSTED_EXEC, EXEC_PATH),
#endif
#ifdef LYNXCGI_LINKS
PARSE_DEF(RC_TRUSTED_LYNXCGI, CGI_PATH),
#endif
PARSE_PRG(RC_UNCOMPRESS_PATH, ppUNCOMPRESS),
PARSE_SET(RC_UNDERLINE_LINKS, LYUnderlineLinks),
PARSE_SET(RC_UNIQUE_URLS, unique_urls),
PARSE_PRG(RC_UNZIP_PATH, ppUNZIP),
#ifdef DIRED_SUPPORT
PARSE_ADD(RC_UPLOADER, uploaders),
#endif
PARSE_STR(RC_URL_DOMAIN_PREFIXES, URLDomainPrefixes),
PARSE_STR(RC_URL_DOMAIN_SUFFIXES, URLDomainSuffixes),
#ifdef VMS
PARSE_SET(RC_USE_FIXED_RECORDS, UseFixedRecords),
#endif
#if defined(USE_MOUSE)
PARSE_SET(RC_USE_MOUSE, LYUseMouse),
#endif
PARSE_SET(RC_USE_SELECT_POPUPS, LYSelectPopups),
PARSE_PRG(RC_UUDECODE_PATH, ppUUDECODE),
PARSE_SET(RC_VERBOSE_IMAGES, verbose_img),
PARSE_SET(RC_VI_KEYS_ALWAYS_ON, vi_keys),
PARSE_FUN(RC_VIEWER, viewer_fun),
PARSE_Env(RC_WAIS_PROXY, 0),
PARSE_SET(RC_WAIT_VIEWER_TERMINATION, wait_viewer_termination),
PARSE_SET(RC_WITH_BACKSPACES, with_backspaces),
PARSE_STR(RC_XLOADIMAGE_COMMAND, XLoadImageCommand),
PARSE_SET(RC_XHTML_PARSING, LYxhtml_parsing),
PARSE_PRG(RC_ZCAT_PATH, ppZCAT),
PARSE_PRG(RC_ZIP_PATH, ppZIP),
PARSE_NIL
};
/* *INDENT-ON* */
static char *lynxcfginfo_url = NULL; /* static */
#if defined(HAVE_CONFIG_H) && !defined(NO_CONFIG_INFO)
static char *configinfo_url = NULL; /* static */
#endif
/*
* Free memory allocated in 'read_cfg()'
*/
void free_lynx_cfg(void)
{
Config_Type *tbl;
for (tbl = Config_Table; tbl->name != 0; tbl++) {
ParseUnionPtr q = ParseUnionOf(tbl);
switch (tbl->type) {
case CONF_ENV:
if (q->str_value != 0) {
char *name = *(q->str_value);
char *eqls = StrChr(name, '=');
if (eqls != 0) {
*eqls = 0;
#ifdef VMS
Define_VMSLogical(name, NULL);
#else
# ifdef HAVE_PUTENV
if (putenv(name))
break;
# else
unsetenv(name);
# endif
#endif
}
FREE(*(q->str_value));
FREE(q->str_value);
/* is it enough for reload_read_cfg() to clean up
* the result of putenv()? No for certain platforms.
*/
}
break;
default:
break;
}
}
free_all_item_lists();
#ifdef DIRED_SUPPORT
reset_dired_menu(); /* frees and resets dired menu items - kw */
#endif
FREE(lynxcfginfo_url);
#if defined(HAVE_CONFIG_H) && !defined(NO_CONFIG_INFO)
FREE(configinfo_url);
#endif
}
static Config_Type *lookup_config(const char *name)
{
Config_Type *tbl = Config_Table;
char ch = (char) TOUPPER(*name);
while (tbl->name != 0) {
char ch1 = tbl->name[0];
if ((ch == TOUPPER(ch1))
&& (0 == strcasecomp(name, tbl->name)))
break;
tbl++;
}
return tbl;
}
/*
* If the given value is an absolute path (by syntax), or we can read it, use
* the value as given. Otherwise, assume it must be in the same place we read
* the parent configuration file from.
*
* Note: only read files from the current directory if there's no parent
* filename, otherwise it leads to user surprise.
*/
static char *actual_filename(const char *cfg_filename,
const char *parent_filename,
const char *dft_filename)
{
char *my_filename = NULL;
if (!LYisAbsPath(cfg_filename)
&& !(parent_filename == 0 && LYCanReadFile(cfg_filename))) {
if (LYIsTilde(cfg_filename[0]) && LYIsPathSep(cfg_filename[1])) {
HTSprintf0(&my_filename, "%s%s", Home_Dir(), cfg_filename + 1);
} else {
if (parent_filename != 0) {
StrAllocCopy(my_filename, parent_filename);
*LYPathLeaf(my_filename) = '\0';
StrAllocCat(my_filename, cfg_filename);
}
if (my_filename == 0 || !LYCanReadFile(my_filename)) {
StrAllocCopy(my_filename, dft_filename);
*LYPathLeaf(my_filename) = '\0';
StrAllocCat(my_filename, cfg_filename);
if (!LYCanReadFile(my_filename)) {
StrAllocCopy(my_filename,
LYFindConfigFile(cfg_filename,
dft_filename));
}
}
}
} else {
StrAllocCopy(my_filename, cfg_filename);
}
return my_filename;
}
FILE *LYOpenCFG(const char *cfg_filename,
const char *parent_filename,
const char *dft_filename)
{
char *my_file = actual_filename(cfg_filename, parent_filename, dft_filename);
FILE *result;
CTRACE((tfp, "opening config file %s\n", my_file));
result = fopen(my_file, TXT_R);
FREE(my_file);
return result;
}
#define NOPTS_ ( TABLESIZE(Config_Table) - 1 )
typedef BOOL (optidx_set_t)[NOPTS_];
/* if element is FALSE, then it's allowed in the current file */
#define optidx_set_AND(r,a,b) \
{\
unsigned i1;\
for (i1 = 0; i1 < NOPTS_; ++i1) \
(r)[i1]= (BOOLEAN) ((a)[i1] || (b)[i1]); \
}
/*
* For simple (boolean, string, integer, time) values, set the corresponding
* configuration variable.
*/
BOOL LYSetConfigValue(const char *name,
const char *param)
{
BOOL changed = TRUE;
char *value = NULL;
Config_Type *tbl = lookup_config(name);
ParseUnionPtr q = ParseUnionOf(tbl);
char *temp_name = 0;
char *temp_value = 0;
if (param == NULL)
param = "";
StrAllocCopy(value, param);
switch (tbl->type) {
case CONF_BOOL:
if (q->set_value != 0)
*(q->set_value) = is_true(value);
break;
case CONF_FUN:
if (q->fun_value != 0)
(*(q->fun_value)) (value);
break;
case CONF_TIME:
if (q->int_value != 0) {
float ival;
if (1 == LYscanFloat(value, &ival)) {
*(q->int_value) = (int) SECS2Secs(ival);
}
}
break;
case CONF_ENUM:
if (tbl->table != 0)
LYgetEnum(tbl->table, value, q->int_value);
break;
case CONF_INT:
if (q->int_value != 0) {
int ival;
if (1 == sscanf(value, "%d", &ival))
*(q->int_value) = ival;
}
break;
case CONF_STR:
if (q->str_value != 0)
StrAllocCopy(*(q->str_value), value);
break;
case CONF_ENV:
case CONF_ENV2:
if (StrAllocCopy(temp_name, name)) {
if (tbl->type == CONF_ENV)
LYLowerCase(temp_name);
else
LYUpperCase(temp_name);
if (LYGetEnv(temp_name) == 0) {
#ifdef VMS
Define_VMSLogical(temp_name, value);
#else
if (q->str_value == 0) {
q->str_value = typecalloc(char *);
if (q->str_value == 0)
outofmem(__FILE__, "LYSetConfigValue");
}
HTSprintf0(q->str_value, "%s=%s", temp_name, value);
putenv(*(q->str_value));
#endif
}
FREE(temp_name);
}
break;
case CONF_ADD_ITEM:
if (q->add_value != 0)
add_item_to_list(value,
q->add_value,
(q->add_value == &printers),
FALSE);
break;
case CONF_ADD_STRING:
if (*(q->lst_value) == NULL) {
*(q->lst_value) = HTList_new();
}
temp_value = NULL;
StrAllocCopy(temp_value, value);
HTList_appendObject(*(q->lst_value), temp_value);
temp_value = NULL;
break;
#if defined(EXEC_LINKS) || defined(LYNXCGI_LINKS)
case CONF_ADD_TRUSTED:
add_trusted(value, (int) q->def_value);
break;
#endif
case CONF_PRG:
if (isEmpty(value)) {
HTSetProgramPath((ProgramPaths) (q->def_value), NULL);
} else if (StrAllocCopy(temp_value, value)) {
HTSetProgramPath((ProgramPaths) (q->def_value), temp_value);
}
break;
default:
changed = FALSE;
break;
}
FREE(value);
return changed;
}
/*
* Process the configuration file (lynx.cfg).
*
* 'allowed' is a pointer to HTList of allowed options. Since the included
* file can also include other files with a list of acceptable options, these
* lists are ANDed.
*/
static void do_read_cfg(const char *cfg_filename,
const char *parent_filename,
int nesting_level,
FILE *fp0,
optidx_set_t *allowed)
{
FILE *fp;
char *buffer = 0;
CTRACE((tfp, "Loading cfg file '%s'.\n", cfg_filename));
/*
* Don't get hung up by an include file loop. Arbitrary max depth
* of 10. - BL
*/
if (nesting_level > 10) {
fprintf(stderr,
gettext("More than %d nested lynx.cfg includes -- perhaps there is a loop?!?\n"),
nesting_level - 1);
fprintf(stderr, gettext("Last attempted include was '%s',\n"), cfg_filename);
fprintf(stderr, gettext("included from '%s'.\n"), parent_filename);
exit_immediately(EXIT_FAILURE);
}
/*
* Locate and open the file.
*/
if (!cfg_filename || strlen(cfg_filename) == 0) {
CTRACE((tfp, "No filename following -cfg switch!\n"));
return;
}
if ((fp = LYOpenCFG(cfg_filename, parent_filename, LYNX_CFG_FILE)) == 0) {
CTRACE((tfp, "lynx.cfg file not found as '%s'\n", cfg_filename));
return;
}
have_read_cfg = TRUE;
/*
* Process each line in the file.
*/
if (show_cfg) {
time_t t;
time(&t);
printf("### %s %s, at %s", LYNX_NAME, LYNX_VERSION, ctime(&t));
}
while (LYSafeGets(&buffer, fp) != 0) {
char *name, *value;
char *cp;
Config_Type *tbl;
/* Most lines in the config file are comment lines. Weed them out
* now. Also, leading whitespace is ok, so trim it.
*/
name = LYSkipBlanks(buffer);
if (ispunct(UCH(*name)))
continue;
LYTrimTrailing(name);
if (*name == 0)
continue;
/* Significant lines are of the form KEYWORD:WHATEVER */
if ((value = StrChr(name, ':')) == 0) {
/* fprintf (stderr, "Bad line-- no :\n"); */
CTRACE((tfp, "LYReadCFG: missing ':' %s\n", name));
continue;
}
/* skip past colon, but replace ':' with 0 to make name meaningful */
*value++ = 0;
/*
* Trim off any trailing comments.
*
* (Apparently, the original code considers a trailing comment valid
* only if preceded by a space character but is not followed by a
* colon. -- JED)
*/
if ((cp = strrchr(value, ':')) == 0)
cp = value;
if ((cp = StrChr(cp, '#')) != 0) {
cp--;
if (isspace(UCH(*cp)))
*cp = 0;
}
CTRACE2(TRACE_CFG, (tfp, "LYReadCFG %s:%s\n", name, value));
tbl = lookup_config(name);
if (tbl->name == 0) {
/* lynx ignores unknown keywords */
CTRACE((tfp, "LYReadCFG: ignored %s:%s\n", name, value));
continue;
}
if (show_cfg)
printf("%s:%s\n", name, value);
if (allowed && (*allowed)[tbl - Config_Table]) {
if (fp0 == NULL)
fprintf(stderr, "%s is not allowed in the %s\n",
name, cfg_filename);
/*FIXME: we can do something wiser if we are generating
the html representation of lynx.cfg - say include this line
in bold, or something... */
continue;
}
(void) ParseUnionOf(tbl);
switch ((fp0 != 0 && tbl->type != CONF_INCLUDE)
? CONF_NIL
: tbl->type) {
case CONF_BOOL:
case CONF_FUN:
case CONF_TIME:
case CONF_ENUM:
case CONF_INT:
case CONF_STR:
case CONF_ENV:
case CONF_ENV2:
case CONF_PRG:
case CONF_ADD_ITEM:
case CONF_ADD_STRING:
case CONF_ADD_TRUSTED:
LYSetConfigValue(name, value);
break;
case CONF_INCLUDE:{
/* include another file */
optidx_set_t cur_set, anded_set;
optidx_set_t *resultant_set = NULL;
char *p1, *p2, savechar;
BOOL any_optname_found = FALSE;
char *url = NULL;
char *cp1 = NULL;
const char *sep = NULL;
if ((p1 = strstr(value, sep = " for ")) != 0
#if defined(UNIX) && !defined(USE_DOS_DRIVES)
|| (p1 = strstr(value, sep = ":")) != 0
#endif
) {
*p1 = '\0';
p1 += strlen(sep);
}
#ifndef NO_CONFIG_INFO
if (fp0 != 0 && !no_lynxcfg_xinfo) {
char *my_file = actual_filename(value, cfg_filename, LYNX_CFG_FILE);
LYLocalFileToURL(&url, my_file);
FREE(my_file);
StrAllocCopy(cp1, value);
if (StrChr(value, '&') || StrChr(value, '<')) {
LYEntify(&cp1, TRUE);
}
fprintf(fp0, "%s:<a href=\"%s\">%s</a>\n\n", name, url, cp1);
fprintf(fp0, " #<begin %s>\n", cp1);
}
#endif
if (p1) {
while (*(p1 = LYSkipBlanks(p1)) != 0) {
Config_Type *tbl2;
p2 = LYSkipNonBlanks(p1);
savechar = *p2;
*p2 = 0;
tbl2 = lookup_config(p1);
if (tbl2->name == 0) {
if (fp0 == NULL)
fprintf(stderr,
"unknown option name %s in %s\n",
p1, cfg_filename);
} else {
unsigned i;
if (!any_optname_found) {
any_optname_found = TRUE;
for (i = 0; i < NOPTS_; ++i)
cur_set[i] = TRUE;
}
cur_set[tbl2 - Config_Table] = FALSE;
}
if (savechar && p2[1])
p1 = p2 + 1;
else
break;
}
}
if (!allowed) {
if (!any_optname_found)
resultant_set = NULL;
else
resultant_set = &cur_set;
} else {
if (!any_optname_found)
resultant_set = allowed;
else {
optidx_set_AND(anded_set, *allowed, cur_set);
resultant_set = &anded_set;
}
}
#ifndef NO_CONFIG_INFO
/*
* Now list the opts that are allowed in included file. If all
* opts are allowed, then emit nothing, else emit an effective set
* of allowed options in <ul>. Option names will be uppercased.
* FIXME: uppercasing option names can be considered redundant.
*/
if (fp0 != 0 && !no_lynxcfg_xinfo && resultant_set) {
char *buf = NULL;
unsigned i;
fprintf(fp0, " Options allowed in this file:\n");
for (i = 0; i < NOPTS_; ++i) {
if ((*resultant_set)[i])
continue;
StrAllocCopy(buf, Config_Table[i].name);
LYUpperCase(buf);
fprintf(fp0, " * %s\n", buf);
}
FREE(buf);
}
#endif
do_read_cfg(value, cfg_filename, nesting_level + 1, fp0, resultant_set);
#ifndef NO_CONFIG_INFO
if (fp0 != 0 && !no_lynxcfg_xinfo) {
fprintf(fp0, " #<end of %s>\n\n", cp1);
FREE(url);
FREE(cp1);
}
#endif
}
break;
default:
if (fp0 != 0) {
if (StrChr(value, '&') || StrChr(value, '<')) {
char *cp1 = NULL;
StrAllocCopy(cp1, value);
LYEntify(&cp1, TRUE);
fprintf(fp0, "%s:%s\n", name, cp1);
FREE(cp1);
} else {
fprintf(fp0, "%s:%s\n", name, value);
}
}
break;
}
}
LYCloseInput(fp);
/*
* If any DOWNLOADER: commands have always_enabled set (:TRUE), make
* override_no_download TRUE, so that other restriction settings will not
* block presentation of a download menu with those always_enabled options
* still available. - FM
*/
if (downloaders != 0) {
lynx_list_item_type *cur_download;
cur_download = downloaders;
while (cur_download != 0) {
if (cur_download->always_enabled) {
override_no_download = TRUE;
break;
}
cur_download = cur_download->next;
}
}
/*
* If any COOKIE_{ACCEPT,REJECT}_DOMAINS have been defined,
* process them. These are comma delimited lists of
* domains. - BJP
*
* And for query/strict/loose invalid cookie checking. - BJP
*/
LYConfigCookies();
}
/* this is a public interface to do_read_cfg */
void read_cfg(const char *cfg_filename,
const char *parent_filename,
int nesting_level,
FILE *fp0)
{
HTInitProgramPaths(TRUE);
do_read_cfg(cfg_filename, parent_filename, nesting_level, fp0, NULL);
}
#ifndef NO_CONFIG_INFO
static void extra_cfg_link(FILE *fp, const char *href,
const char *name)
{
fprintf(fp, "<a href=\"%s\">%s</a>",
href, name);
}
#endif /* NO_CONFIG_INFO */
/*
* Show rendered lynx.cfg data without comments, LYNXCFG:/ internal page.
* Called from getfile() cycle: we create and load the page just in place and
* return to mainloop().
*/
int lynx_cfg_infopage(DocInfo *newdoc)
{
static char tempfile[LY_MAXPATH] = "\0";
DocAddress WWWDoc; /* need on exit */
char *temp = 0;
char *cp1 = NULL;
FILE *fp0;
#ifndef NO_CONFIG_INFO
/*-------------------------------------------------
* kludge a link from LYNXCFG:/, the URL was:
* " <a href=\"LYNXCFG://reload\">RELOAD THE CHANGES</a>\n"
*--------------------------------------------------*/
if (!no_lynxcfg_xinfo && (strstr(newdoc->address, "LYNXCFG://reload"))) {
/*
* Some stuff to reload read_cfg(), but also load options menu items
* and command-line options to make things consistent. Implemented in
* LYMain.c
*/
reload_read_cfg();
/*
* now pop-up and return to updated LYNXCFG:/ page, remind
* postoptions() but much simpler:
*/
/*
* But check whether the top history document is really the expected
* LYNXCFG: page. - kw
*/
if (HTMainText && nhist > 0 &&
!strcmp(HTLoadedDocumentTitle(), LYNXCFG_TITLE) &&
!strcmp(HTLoadedDocumentURL(), HDOC(nhist - 1).address) &&
LYIsUIPage(HDOC(nhist - 1).address, UIP_LYNXCFG) &&
(!lynxcfginfo_url ||
strcmp(HTLoadedDocumentURL(), lynxcfginfo_url))) {
/* the page was pushed, so pop-up. */
LYpop(newdoc);
WWWDoc.address = newdoc->address;
WWWDoc.post_data = newdoc->post_data;
WWWDoc.post_content_type = newdoc->post_content_type;
WWWDoc.bookmark = newdoc->bookmark;
WWWDoc.isHEAD = newdoc->isHEAD;
WWWDoc.safe = newdoc->safe;
LYforce_no_cache = FALSE; /* ! */
LYoverride_no_cache = TRUE; /* ! */
/*
* Working out of getfile() cycle we reset *no_cache manually here
* so HTLoadAbsolute() will return "Document already in memory":
* it was forced reloading obsolete file again without this
* (overhead).
*
* Probably *no_cache was set in a wrong position because of the
* internal page...
*/
if (!HTLoadAbsolute(&WWWDoc))
return (NOT_FOUND);
HTuncache_current_document(); /* will never use again */
LYUnRegisterUIPage(UIP_LYNXCFG);
}
/* now set up the flag and fall down to create a new LYNXCFG:/ page */
FREE(lynxcfginfo_url); /* see below */
}
#endif /* !NO_CONFIG_INFO */
/*
* We regenerate the file if reloading has been requested (with LYK_NOCACHE
* key). If we did not regenerate, there would be no way to recover in a
* session from a situation where the file is corrupted (for example
* truncated because the file system was full when it was first created -
* lynx doesn't check for write errors below), short of manual complete
* removal or perhaps forcing regeneration with LYNXCFG://reload.
* Similarly, there would be no simple way to get a different page if
* user_mode has changed to Advanced after the file was first generated in
* a non-Advanced mode (the difference being in whether the page includes
* the link to LYNXCFG://reload or not).
*
* We also try to regenerate the file if lynxcfginfo_url is set, indicating
* that tempfile is valid, but the file has disappeared anyway. This can
* happen to a long-lived lynx process if for example some system script
* periodically cleans up old files in the temp file space. - kw
*/
if (LYforce_no_cache && reloading) {
FREE(lynxcfginfo_url); /* flag to code below to regenerate - kw */
} else if (lynxcfginfo_url != NULL) {
if (!LYCanReadFile(tempfile)) { /* check existence */
FREE(lynxcfginfo_url); /* flag to code below to try again - kw */
}
}
if (lynxcfginfo_url == 0) {
if ((fp0 = InternalPageFP(tempfile, TRUE)) == 0)
return (NOT_FOUND);
LYLocalFileToURL(&lynxcfginfo_url, tempfile);
LYforce_no_cache = TRUE; /* don't cache this doc */
BeginInternalPage(fp0, LYNXCFG_TITLE, NULL);
fprintf(fp0, "<pre>\n");
#ifndef NO_CONFIG_INFO
if (!no_lynxcfg_xinfo) {
#if defined(HAVE_CONFIG_H) || defined(VMS)
if (strcmp(lynx_cfg_file, LYNX_CFG_FILE)) {
fprintf(fp0, "<em>%s\n%s",
gettext("The following is read from your lynx.cfg file."),
gettext("Please read the distribution"));
LYLocalFileToURL(&temp, LYNX_CFG_FILE);
fprintf(fp0, " <a href=\"%s\">lynx.cfg</a> ",
temp);
FREE(temp);
fprintf(fp0, "%s</em>\n\n",
gettext("for more comments."));
} else
#endif /* HAVE_CONFIG_H */
{
/* no absolute path... for lynx.cfg on DOS/Win32 */
fprintf(fp0, "<em>%s\n%s",
gettext("The following is read from your lynx.cfg file."),
gettext("Please read the distribution"));
fprintf(fp0, " </em>lynx.cfg<em> ");
fprintf(fp0, "%s</em>\n",
gettext("for more comments."));
}
#ifndef NO_CONFIG_INFO
#if defined(HAVE_CONFIG_H) && defined(USE_COLOR_STYLE)
if (!no_compileopts_info && !no_lynxcfg_xinfo) {
fprintf(fp0, "%s</pre><ul><li>", SEE_ALSO);
extra_cfg_link(fp0, STR_LYNXCFLAGS, COMPILE_OPT_SEGMENT);
fprintf(fp0, "<li>");
LYLocalFileToURL(&temp, lynx_lss_file);
extra_cfg_link(fp0, temp, COLOR_STYLE_SEGMENT);
fprintf(fp0, "</ul><pre>\n");
} else
#endif
{
fprintf(fp0, "%s ", SEE_ALSO);
#if defined(HAVE_CONFIG_H)
if (!no_compileopts_info) {
extra_cfg_link(fp0, STR_LYNXCFLAGS, COMPILE_OPT_SEGMENT);
}
#endif
#if defined(USE_COLOR_STYLE)
if (!no_lynxcfg_xinfo) {
LYLocalFileToURL(&temp, lynx_lss_file);
extra_cfg_link(fp0, temp, COLOR_STYLE_SEGMENT);
}
#endif
fprintf(fp0, "\n\n");
}
#endif /* NO_CONFIG_INFO */
/** a new experimental link ... **/
if (user_mode == ADVANCED_MODE)
fprintf(fp0, " <a href=\"%s//reload\">%s</a>\n",
STR_LYNXCFG,
gettext("RELOAD THE CHANGES"));
LYLocalFileToURL(&temp, lynx_cfg_file);
StrAllocCopy(cp1, lynx_cfg_file);
if (StrChr(lynx_cfg_file, '&') || StrChr(lynx_cfg_file, '<')) {
LYEntify(&cp1, TRUE);
}
fprintf(fp0, "\n #<em>%s <a href=\"%s\">%s</a></em>\n",
gettext("Your primary configuration"),
temp,
cp1);
FREE(temp);
FREE(cp1);
} else
#endif /* !NO_CONFIG_INFO */
fprintf(fp0, "<em>%s</em>\n\n",
gettext("The following is read from your lynx.cfg file."));
/*
* Process the configuration file.
*/
read_cfg(lynx_cfg_file, "main program", 1, fp0);
fprintf(fp0, "</pre>\n");
EndInternalPage(fp0);
LYCloseTempFP(fp0);
LYRegisterUIPage(lynxcfginfo_url, UIP_LYNXCFG);
}
/* return to getfile() cycle */
StrAllocCopy(newdoc->address, lynxcfginfo_url);
WWWDoc.address = newdoc->address;
WWWDoc.post_data = newdoc->post_data;
WWWDoc.post_content_type = newdoc->post_content_type;
WWWDoc.bookmark = newdoc->bookmark;
WWWDoc.isHEAD = newdoc->isHEAD;
WWWDoc.safe = newdoc->safe;
if (!HTLoadAbsolute(&WWWDoc))
return (NOT_FOUND);
#ifdef DIRED_SUPPORT
lynx_edit_mode = FALSE;
#endif /* DIRED_SUPPORT */
return (NORMAL);
}
#if defined(HAVE_CONFIG_H) && !defined(NO_CONFIG_INFO)
/*
* Compile-time definitions info, LYNXCOMPILEOPTS:/ internal page, from
* getfile() cycle.
*/
int lynx_compile_opts(DocInfo *newdoc)
{
static char tempfile[LY_MAXPATH] = "\0";
#define PutDefs(table, N) fprintf(fp0, "%-35s %s\n", table[N].name, table[N].value)
#include <cfg_defs.h>
unsigned n;
DocAddress WWWDoc; /* need on exit */
FILE *fp0;
/* In general, create the page only once - compile-time data will not
* change... But we will regenerate the file anyway, in a few situations:
*
* (a) configinfo_url has been FREEd - this can happen if free_lynx_cfg()
* was called as part of a LYNXCFG://reload action.
*
* (b) reloading has been requested (with LYK_NOCACHE key). If we did not
* regenerate, there would be no way to recover in a session from a
* situation where the file is corrupted (for example truncated because the
* file system was full when it was first created - lynx doesn't check for
* write errors below), short of manual complete removal or forcing
* regeneration with LYNXCFG://reload.
*
* (c) configinfo_url is set, indicating that tempfile is valid, but the
* file has disappeared anyway. This can happen to a long-lived lynx
* process if for example some system script periodically cleans up old
* files in the temp file space. - kw
*/
if (LYforce_no_cache && reloading) {
FREE(configinfo_url); /* flag to code below to regenerate - kw */
} else if (configinfo_url != NULL) {
if (!LYCanReadFile(tempfile)) { /* check existence */
FREE(configinfo_url); /* flag to code below to try again - kw */
}
}
if (configinfo_url == NULL) {
if ((fp0 = InternalPageFP(tempfile, TRUE)) == 0)
return (NOT_FOUND);
LYLocalFileToURL(&configinfo_url, tempfile);
BeginInternalPage(fp0, CONFIG_DEF_TITLE, NULL);
fprintf(fp0, "<pre>\n");
fprintf(fp0, "\n%s<br>\n<em>config.cache</em>\n", AUTOCONF_CONFIG_CACHE);
for (n = 0; n < TABLESIZE(config_cache); n++) {
PutDefs(config_cache, n);
}
fprintf(fp0, "\n%s<br>\n<em>lynx_cfg.h</em>\n", AUTOCONF_LYNXCFG_H);
for (n = 0; n < TABLESIZE(config_defines); n++) {
PutDefs(config_defines, n);
}
fprintf(fp0, "</pre>\n");
EndInternalPage(fp0);
LYCloseTempFP(fp0);
LYRegisterUIPage(configinfo_url, UIP_CONFIG_DEF);
}
/* exit to getfile() cycle */
StrAllocCopy(newdoc->address, configinfo_url);
WWWDoc.address = newdoc->address;
WWWDoc.post_data = newdoc->post_data;
WWWDoc.post_content_type = newdoc->post_content_type;
WWWDoc.bookmark = newdoc->bookmark;
WWWDoc.isHEAD = newdoc->isHEAD;
WWWDoc.safe = newdoc->safe;
if (!HTLoadAbsolute(&WWWDoc))
return (NOT_FOUND);
#ifdef DIRED_SUPPORT
lynx_edit_mode = FALSE;
#endif /* DIRED_SUPPORT */
return (NORMAL);
}
#endif /* !NO_CONFIG_INFO */