diff options
Diffstat (limited to 'src/LYReadCFG.c')
-rw-r--r-- | src/LYReadCFG.c | 2682 |
1 files changed, 2682 insertions, 0 deletions
diff --git a/src/LYReadCFG.c b/src/LYReadCFG.c new file mode 100644 index 0000000..e4ab796 --- /dev/null +++ b/src/LYReadCFG.c @@ -0,0 +1,2682 @@ +/* + * $LynxId: LYReadCFG.c,v 1.200 2021/07/29 22:52:55 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, + (unsigned) lkc, + (unsigned) 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, + (unsigned) lkc, + (unsigned) lec, + efunc); + } else { + fprintf(stderr, + gettext("setting of line-editor binding for key %s (0x%x) for %s failed\n"), + key, + (unsigned) 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 recommended. - 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_BROTLI_PATH, ppBROTLI), + 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_ENU(RC_COOKIE_VERSION, cookie_version, tbl_cookie_version), + 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), + PARSE_SET(RC_LIST_DECODED, dump_links_decoded), +#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_SET(RC_UPDATE_TERM_TITLE, update_term_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_INT(RC_REDIRECTION_LIMIT, redirection_limit), + 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(); + + /* + * Do not allow infinite redirection loops. + */ + if (redirection_limit < 5) + redirection_limit = 5; + if (redirection_limit > 25) + redirection_limit = 25; +} + +/* 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 */ |