/* Reading/parsing the initialization file.
Copyright (C) 1995, 1996, 1997, 1998, 2000, 2001, 2003
Free Software Foundation, Inc.
This file is part of GNU Wget.
GNU Wget is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
GNU Wget is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with Wget; if not, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
In addition, as a special exception, the Free Software Foundation
gives permission to link the code of its release of Wget with the
OpenSSL project's "OpenSSL" library (or with modified versions of it
that use the same license as the "OpenSSL" library), and distribute
the linked executables. You must obey the GNU General Public License
in all respects for all of the code used other than "OpenSSL". If you
modify this file, you may extend this exception to your version of the
file, but you are not obligated to do so. If you do not wish to do
so, delete this exception statement from your version. */
#include <config.h>
#include <stdio.h>
#include <sys/types.h>
#include <stdlib.h>
#ifdef HAVE_UNISTD_H
# include <unistd.h>
#endif
#ifdef HAVE_STRING_H
# include <string.h>
#else
# include <strings.h>
#endif
#include <errno.h>
#ifdef WINDOWS
# include <winsock.h>
#else
# include <sys/socket.h>
# include <netinet/in.h>
#ifndef __BEOS__
# include <arpa/inet.h>
#endif
#endif
#ifdef HAVE_PWD_H
# include <pwd.h>
#endif
#include <assert.h>
#include "wget.h"
#include "utils.h"
#include "init.h"
#include "host.h"
#include "netrc.h"
#include "cookies.h" /* for cookie_jar_delete */
#include "progress.h"
#ifndef errno
extern int errno;
#endif
//extern struct cookie_jar *wget_cookie_jar;
/* We want tilde expansion enabled only when reading `.wgetrc' lines;
otherwise, it will be performed by the shell. This variable will
be set by the wgetrc-reading function. */
static int enable_tilde_expansion;
#define CMD_DECLARE(func) static int func \
PARAMS ((const char *, const char *, void *))
CMD_DECLARE (cmd_boolean);
CMD_DECLARE (cmd_bytes);
CMD_DECLARE (cmd_bytes_large);
CMD_DECLARE (cmd_directory_vector);
CMD_DECLARE (cmd_lockable_boolean);
CMD_DECLARE (cmd_number);
CMD_DECLARE (cmd_number_inf);
CMD_DECLARE (cmd_string);
CMD_DECLARE (cmd_file);
CMD_DECLARE (cmd_directory);
CMD_DECLARE (cmd_time);
CMD_DECLARE (cmd_vector);
CMD_DECLARE (cmd_spec_dirstruct);
CMD_DECLARE (cmd_spec_header);
CMD_DECLARE (cmd_spec_htmlify);
CMD_DECLARE (cmd_spec_mirror);
CMD_DECLARE (cmd_spec_progress);
CMD_DECLARE (cmd_spec_recursive);
CMD_DECLARE (cmd_spec_restrict_file_names);
CMD_DECLARE (cmd_spec_timeout);
CMD_DECLARE (cmd_spec_useragent);
/* List of recognized commands, each consisting of name, closure and function.
When adding a new command, simply add it to the list, but be sure to keep the
list sorted alphabetically, as findcmd() depends on it. Also, be sure to add
any entries that allocate memory (e.g. cmd_string and cmd_vector guys) to the
cleanup() function below. */
struct {
char *name;
void *closure;
int (*action) PARAMS ((const char *, const char *, void *));
} commands[] = {
{ "accept", NULL, cmd_vector },
{ "addhostdir", NULL, cmd_boolean },
{ "alwaysrest", NULL, cmd_boolean }, /* deprecated */
{ "background", NULL, cmd_boolean },
{ "backupconverted", NULL, cmd_boolean },
{ "backups", NULL, cmd_number },
{ "base", NULL, cmd_string },
{ "bindaddress", NULL, cmd_string },
{ "cache", NULL, cmd_boolean },
{ "connecttimeout", NULL, cmd_time },
{ "continue", NULL, cmd_boolean },
{ "convertlinks", NULL, cmd_boolean },
{ "cookies", NULL, cmd_boolean },
{ "cutdirs", NULL, cmd_number },
#ifdef ENABLE_DEBUG
{ "debug", NULL, cmd_boolean },
#endif
{ "deleteafter", NULL, cmd_boolean },
{ "dirprefix", NULL, cmd_directory },
{ "dirstruct", NULL, cmd_spec_dirstruct },
{ "dnscache", NULL, cmd_boolean },
{ "dnstimeout", NULL, cmd_time },
{ "domains", NULL, cmd_vector },
{ "dotbytes", NULL, cmd_bytes },
{ "dotsinline", NULL, cmd_number },
{ "dotspacing", NULL, cmd_number },
{ "dotstyle", NULL, cmd_string },
#ifdef HAVE_SSL
{ "egdfile", NULL, cmd_file },
#endif
{ "excludedirectories", NULL, cmd_directory_vector },
{ "excludedomains", NULL, cmd_vector },
{ "followftp", NULL, cmd_boolean },
{ "followtags", NULL, cmd_vector },
{ "forcehtml", NULL, cmd_boolean },
{ "ftpproxy", NULL, cmd_string },
{ "glob", NULL, cmd_boolean },
{ "header", NULL, cmd_spec_header },
{ "htmlextension", NULL, cmd_boolean },
{ "htmlify", NULL, cmd_spec_htmlify },
{ "httpkeepalive", NULL, cmd_boolean },
{ "httppasswd", NULL, cmd_string },
{ "httpproxy", NULL, cmd_string },
{ "httpsproxy", NULL, cmd_string },
{ "httpuser", NULL, cmd_string },
{ "ignorelength", NULL, cmd_boolean },
{ "ignoretags", NULL, cmd_vector },
{ "includedirectories", NULL, cmd_directory_vector },
{ "input", NULL, cmd_file },
{ "killlonger", NULL, cmd_boolean },
{ "limitrate", NULL, cmd_bytes },
{ "loadcookies", NULL, cmd_file },
{ "logfile", NULL, cmd_file },
{ "login", NULL, cmd_string },
{ "mirror", NULL, cmd_spec_mirror },
{ "netrc", NULL, cmd_boolean },
{ "noclobber", NULL, cmd_boolean },
{ "noparent", NULL, cmd_boolean },
{ "noproxy", NULL, cmd_vector },
{ "numtries", NULL, cmd_number_inf },/* deprecated*/
{ "outputdocument", NULL, cmd_file },
{ "pagerequisites", NULL, cmd_boolean },
{ "passiveftp", NULL, cmd_lockable_boolean },
{ "passwd", NULL, cmd_string },
{ "postdata", NULL, cmd_string },
{ "postfile", NULL, cmd_file },
{ "progress", NULL, cmd_spec_progress },
{ "proxypasswd", NULL, cmd_string },
{ "proxyuser", NULL, cmd_string },
{ "quiet", NULL, cmd_boolean },
{ "quota", NULL, cmd_bytes_large },
{ "randomwait", NULL, cmd_boolean },
{ "readtimeout", NULL, cmd_time },
{ "reclevel", NULL, cmd_number_inf },
{ "recursive", NULL, cmd_spec_recursive },
{ "referer", NULL, cmd_string },
{ "reject", NULL, cmd_vector },
{ "relativeonly", NULL, cmd_boolean },
{ "removelisting", NULL, cmd_boolean },
{ "restrictfilenames", NULL, cmd_spec_restrict_file_names },
{ "retrsymlinks", NULL, cmd_boolean },
{ "retryconnrefused", NULL, cmd_boolean },
{ "robots", NULL, cmd_boolean },
{ "savecookies", NULL, cmd_file },
{ "saveheaders", NULL, cmd_boolean },
{ "serverresponse", NULL, cmd_boolean },
{ "spanhosts", NULL, cmd_boolean },
{ "spider", NULL, cmd_boolean },
#ifdef HAVE_SSL
{ "sslcadir", NULL, cmd_directory },
{ "sslcafile", NULL, cmd_file },
{ "sslcertfile", NULL, cmd_file },
{ "sslcertkey", NULL, cmd_file },
{ "sslcerttype", NULL, cmd_number },
{ "sslcheckcert", NULL, cmd_number },
{ "sslprotocol", NULL, cmd_number },
#endif /* HAVE_SSL */
{ "strictcomments", NULL, cmd_boolean },
{ "timeout", NULL, cmd_spec_timeout },
{ "timestamping", NULL, cmd_boolean },
{ "tries", NULL, cmd_number_inf },
{ "useproxy", NULL, cmd_boolean },
{ "useragent", NULL, cmd_spec_useragent },
{ "verbose", NULL, cmd_boolean },
{ "wait", NULL, cmd_time },
{ "waitretry", NULL, cmd_time }
};
/* Look up COM in the commands[] array and return its index. If COM
is not found, -1 is returned. This function uses binary search. */
static int
findcmd (const char *com)
{
int lo = 0, hi = countof (commands) - 1;
while (lo <= hi)
{
int mid = (lo + hi) >> 1;
int cmp = strcasecmp (com, commands[mid].name);
if (cmp < 0)
hi = mid - 1;
else if (cmp > 0)
lo = mid + 1;
else
return mid;
}
return -1;
}
/* Reset the variables to default values. */
static void
defaults (void)
{
char *tmp;
/* Reset the commands[] array - UGLY HACK */
int i, max = sizeof(commands) / 12;
struct options *opt = WGET_OPTIONS;
for(i = 0; i < max; i++)
{
if (!strcmp(commands[i].name, "accept")) commands[i].closure = &opt->accepts;
if (!strcmp(commands[i].name, "addhostdir")) commands[i].closure = &opt->add_hostdir;
if (!strcmp(commands[i].name, "alwaysrest")) commands[i].closure = &opt->always_rest;
if (!strcmp(commands[i].name, "background")) commands[i].closure = &opt->background;
if (!strcmp(commands[i].name, "backupconverted")) commands[i].closure = &opt->backup_converted;
if (!strcmp(commands[i].name, "backups")) commands[i].closure = &opt->backups;
if (!strcmp(commands[i].name, "base")) commands[i].closure = &opt->base_href;
if (!strcmp(commands[i].name, "bindaddress")) commands[i].closure = &opt->bind_address;
if (!strcmp(commands[i].name, "cache")) commands[i].closure = &opt->allow_cache;
if (!strcmp(commands[i].name, "connecttimeout")) commands[i].closure = &opt->connect_timeout;
if (!strcmp(commands[i].name, "continue")) commands[i].closure = &opt->always_rest;
if (!strcmp(commands[i].name, "convertlinks")) commands[i].closure = &opt->convert_links;
if (!strcmp(commands[i].name, "cookies")) commands[i].closure = &opt->cookies;
if (!strcmp(commands[i].name, "cutdirs")) commands[i].closure = &opt->cut_dirs;
#ifdef ENABLE_DEBUG
if (!strcmp(commands[i].name, "debug")) commands[i].closure = &opt->debug;
#endif
if (!strcmp(commands[i].name, "deleteafter")) commands[i].closure = &opt->delete_after;
if (!strcmp(commands[i].name, "dirprefix")) commands[i].closure = &opt->dir_prefix;
if (!strcmp(commands[i].name, "dnscache")) commands[i].closure = &opt->dns_cache;
if (!strcmp(commands[i].name, "dnstimeout")) commands[i].closure = &opt->dns_timeout;
if (!strcmp(commands[i].name, "domains")) commands[i].closure = &opt->domains;
if (!strcmp(commands[i].name, "dotbytes")) commands[i].closure = &opt->dot_bytes;
if (!strcmp(commands[i].name, "dotsinline")) commands[i].closure = &opt->dots_in_line;
if (!strcmp(commands[i].name, "dotspacing")) commands[i].closure = &opt->dot_spacing;
if (!strcmp(commands[i].name, "dotstyle")) commands[i].closure = &opt->dot_style;
#ifdef HAVE_SSL
if (!strcmp(commands[i].name, "egdfile")) commands[i].closure = &opt->sslegdsock;
#endif
if (!strcmp(commands[i].name, "excludedirectories")) commands[i].closure = &opt->excludes;
if (!strcmp(commands[i].name, "excludedomains")) commands[i].closure = &opt->exclude_domains;
if (!strcmp(commands[i].name, "followftp")) commands[i].closure = &opt->follow_ftp;
if (!strcmp(commands[i].name, "followtags")) commands[i].closure = &opt->follow_tags;
if (!strcmp(commands[i].name, "forcehtml")) commands[i].closure = &opt->force_html;
if (!strcmp(commands[i].name, "ftpproxy")) commands[i].closure = &opt->ftp_proxy;
if (!strcmp(commands[i].name, "glob")) commands[i].closure = &opt->ftp_glob;
if (!strcmp(commands[i].name, "htmlextension")) commands[i].closure = &opt->html_extension;
if (!strcmp(commands[i].name, "httpkeepalive")) commands[i].closure = &opt->http_keep_alive;
if (!strcmp(commands[i].name, "httppasswd")) commands[i].closure = &opt->http_passwd;
if (!strcmp(commands[i].name, "httpproxy")) commands[i].closure = &opt->http_proxy;
if (!strcmp(commands[i].name, "httpsproxy")) commands[i].closure = &opt->https_proxy;
if (!strcmp(commands[i].name, "httpuser")) commands[i].closure = &opt->http_user;
if (!strcmp(commands[i].name, "ignorelength")) commands[i].closure = &opt->ignore_length;
if (!strcmp(commands[i].name, "ignoretags")) commands[i].closure = &opt->ignore_tags;
if (!strcmp(commands[i].name, "includedirectories")) commands[i].closure = &opt->includes;
if (!strcmp(commands[i].name, "input")) commands[i].closure = &opt->input_filename;
if (!strcmp(commands[i].name, "killlonger")) commands[i].closure = &opt->kill_longer;
if (!strcmp(commands[i].name, "limitrate")) commands[i].closure = &opt->limit_rate;
if (!strcmp(commands[i].name, "loadcookies")) commands[i].closure = &opt->cookies_input;
if (!strcmp(commands[i].name, "logfile")) commands[i].closure = &opt->lfilename;
if (!strcmp(commands[i].name, "login")) commands[i].closure = &opt->ftp_acc;
if (!strcmp(commands[i].name, "netrc")) commands[i].closure = &opt->netrc;
if (!strcmp(commands[i].name, "noclobber")) commands[i].closure = &opt->noclobber;
if (!strcmp(commands[i].name, "noparent")) commands[i].closure = &opt->no_parent;
if (!strcmp(commands[i].name, "noproxy")) commands[i].closure = &opt->no_proxy;
if (!strcmp(commands[i].name, "numtries")) commands[i].closure = &opt->ntry;
if (!strcmp(commands[i].name, "outputdocument")) commands[i].closure = &opt->output_document;
if (!strcmp(commands[i].name, "pagerequisites")) commands[i].closure = &opt->page_requisites;
if (!strcmp(commands[i].name, "passiveftp")) commands[i].closure = &opt->ftp_pasv;
if (!strcmp(commands[i].name, "passwd")) commands[i].closure = &opt->ftp_pass;
if (!strcmp(commands[i].name, "postdata")) commands[i].closure = &opt->post_data;
if (!strcmp(commands[i].name, "postfile")) commands[i].closure = &opt->post_file_name;
if (!strcmp(commands[i].name, "progress")) commands[i].closure = &opt->progress_type;
if (!strcmp(commands[i].name, "proxypasswd")) commands[i].closure = &opt->proxy_passwd;
if (!strcmp(commands[i].name, "proxyuser")) commands[i].closure = &opt->proxy_user;
if (!strcmp(commands[i].name, "quiet")) commands[i].closure = &opt->quiet;
if (!strcmp(commands[i].name, "quota")) commands[i].closure = &opt->quota;
if (!strcmp(commands[i].name, "randomwait")) commands[i].closure = &opt->random_wait;
if (!strcmp(commands[i].name, "readtimeout")) commands[i].closure = &opt->read_timeout;
if (!strcmp(commands[i].name, "reclevel")) commands[i].closure = &opt->reclevel;
if (!strcmp(commands[i].name, "referer")) commands[i].closure = &opt->referer;
if (!strcmp(commands[i].name, "reject")) commands[i].closure = &opt->rejects;
if (!strcmp(commands[i].name, "relativeonly")) commands[i].closure = &opt->relative_only;
if (!strcmp(commands[i].name, "removelisting")) commands[i].closure = &opt->remove_listing;
if (!strcmp(commands[i].name, "retrsymlinks")) commands[i].closure = &opt->retr_symlinks;
if (!strcmp(commands[i].name, "retryconnrefused")) commands[i].closure = &opt->retry_connrefused;
if (!strcmp(commands[i].name, "robots")) commands[i].closure = &opt->use_robots;
if (!strcmp(commands[i].name, "savecookies")) commands[i].closure = &opt->cookies_output;
if (!strcmp(commands[i].name, "saveheaders")) commands[i].closure = &opt->save_headers;
if (!strcmp(commands[i].name, "serverresponse")) commands[i].closure = &opt->server_response;
if (!strcmp(commands[i].name, "spanhosts")) commands[i].closure = &opt->spanhost;
if (!strcmp(commands[i].name, "spider")) commands[i].closure = &opt->spider;
#ifdef HAVE_SSL
if (!strcmp(commands[i].name, "sslcadir")) commands[i].closure = &opt->sslcadir;
if (!strcmp(commands[i].name, "sslcafile")) commands[i].closure = &opt->sslcafile;
if (!strcmp(commands[i].name, "sslcertfile")) commands[i].closure = &opt->sslcertfile;
if (!strcmp(commands[i].name, "sslcertkey")) commands[i].closure = &opt->sslcertkey;
if (!strcmp(commands[i].name, "sslcerttype")) commands[i].closure = &opt->sslcerttype;
if (!strcmp(commands[i].name, "sslcheckcert")) commands[i].closure = &opt->sslcheckcert;
if (!strcmp(commands[i].name, "sslprotocol")) commands[i].closure = &opt->sslprotocol;
#endif /* HAVE_SSL */
if (!strcmp(commands[i].name, "strictcomments")) commands[i].closure = &opt->strict_comments;
if (!strcmp(commands[i].name, "timestamping")) commands[i].closure = &opt->timestamping;
if (!strcmp(commands[i].name, "tries")) commands[i].closure = &opt->ntry;
if (!strcmp(commands[i].name, "useproxy")) commands[i].closure = &opt->use_proxy;
if (!strcmp(commands[i].name, "verbose")) commands[i].closure = &opt->verbose;
if (!strcmp(commands[i].name, "wait")) commands[i].closure = &opt->wait;
if (!strcmp(commands[i].name, "waitretry")) commands[i].closure = &opt->waitretry;
}
/* Most of the default values are 0. Just reset everything, and
fill in the non-zero values. Note that initializing pointers to
NULL this way is technically illegal, but porting Wget to a
machine where NULL is not all-zero bit pattern will be the least
of the implementors' worries. */
memset (opt, 0, sizeof (struct options));
opt->cookies = 1;
opt->verbose = -1;
opt->ntry = 20;
opt->reclevel = 5;
opt->add_hostdir = 1;
opt->ftp_pass = 1;
opt->ftp_acc = xstrdup ("anonymous");
opt->ftp_pass = xstrdup ("-wget@");
opt->netrc = 1;
opt->ftp_glob = 1;
opt->htmlify = 1;
opt->http_keep_alive = 1;
opt->use_proxy = 1;
tmp = getenv ("no_proxy");
if (tmp)
opt->no_proxy = sepstring (tmp);
opt->allow_cache = 1;
opt->read_timeout = 900;
opt->use_robots = 1;
opt->remove_listing = 1;
opt->dot_bytes = 1024;
opt->dot_spacing = 10;
opt->dots_in_line = 50;
opt->dns_cache = 1;
/* The default for file name restriction defaults to the OS type. */
#if !defined(WINDOWS) && !defined(__CYGWIN__)
opt->restrict_files_os = restrict_unix;
#else
opt->restrict_files_os = restrict_windows;
#endif
opt->restrict_files_ctrl = 1;
}
/* Return the user's home directory (strdup-ed), or NULL if none is
found. */
char *
home_dir (void)
{
char *home = getenv ("HOME");
if (!home)
{
#ifndef WINDOWS
/* If HOME is not defined, try getting it from the password
file. */
struct passwd *pwd = getpwuid (getuid ());
if (!pwd || !pwd->pw_dir)
return NULL;
home = pwd->pw_dir;
#else /* WINDOWS */
home = "C:\\";
/* #### Maybe I should grab home_dir from registry, but the best
that I could get from there is user's Start menu. It sucks! */
#endif /* WINDOWS */
}
return home ? xstrdup (home) : NULL;
}
/* Return the path to the user's .wgetrc. This is either the value of
`WGETRC' environment variable, or `$HOME/.wgetrc'.
If the `WGETRC' variable exists but the file does not exist, the
function will exit(). */
static char *
wgetrc_file_name (void)
{
char *env, *home;
char *file = NULL;
/* Try the environment. */
env = getenv ("WGETRC");
if (env && *env)
{
if (!file_exists_p (env))
{
fprintf (stderr, _("%s: WGETRC points to %s, which doesn't exist.\n"),
exec_name, env);
ExitThread (1);
}
return xstrdup (env);
}
#ifndef WINDOWS
/* If that failed, try $HOME/.wgetrc. */
home = home_dir ();
if (home)
{
file = (char *)xmalloc (strlen (home) + 1 + strlen (".wgetrc") + 1);
sprintf (file, "%s/.wgetrc", home);
}
FREE_MAYBE (home);
#else /* WINDOWS */
/* Under Windows, "home" is (for the purposes of this function) the
directory where `wget.exe' resides, and `wget.ini' will be used
as file name. SYSTEM_WGETRC should not be defined under WINDOWS.
It is not as trivial as I assumed, because on 95 argv[0] is full
path, but on NT you get what you typed in command line. --dbudor */
home = ws_mypath ();
if (home)
{
file = (char *)xmalloc (strlen (home) + strlen ("wget.ini") + 1);
sprintf (file, "%swget.ini", home);
}
#endif /* WINDOWS */
if (!file)
return NULL;
if (!file_exists_p (file))
{
xfree (file);
return NULL;
}
return file;
}
static int parse_line PARAMS ((const char *, char **, char **, int *));
static int setval_internal PARAMS ((int, const char *, const char *));
/* Initialize variables from a wgetrc file. */
static void
run_wgetrc (const char *file)
{
FILE *fp;
char *line;
int ln;
fp = fopen (file, "rb");
if (!fp)
{
fprintf (stderr, _("%s: Cannot read %s (%s).\n"), exec_name,
file, strerror (errno));
return;
}
enable_tilde_expansion = 1;
ln = 1;
while ((line = read_whole_line (fp)))
{
char *com, *val;
int comind, status;
/* Parse the line. */
status = parse_line (line, &com, &val, &comind);
xfree (line);
/* If everything is OK, set the value. */
if (status == 1)
{
if (!setval_internal (comind, com, val))
fprintf (stderr, _("%s: Error in %s at line %d.\n"), exec_name,
file, ln);
xfree (com);
xfree (val);
}
else if (status == 0)
fprintf (stderr, _("%s: Error in %s at line %d.\n"), exec_name,
file, ln);
++ln;
}
enable_tilde_expansion = 0;
fclose (fp);
}
/* Initialize the defaults and run the system wgetrc and user's own
wgetrc. */
void
initialize (void)
{
char *file;
/* Load the hard-coded defaults. */
defaults ();
/* If SYSTEM_WGETRC is defined, use it. */
#ifdef SYSTEM_WGETRC
if (file_exists_p (SYSTEM_WGETRC))
run_wgetrc (SYSTEM_WGETRC);
#endif
/* Override it with your own, if one exists. */
file = wgetrc_file_name ();
if (!file)
return;
/* #### We should canonicalize `file' and SYSTEM_WGETRC with
something like realpath() before comparing them with `strcmp' */
#ifdef SYSTEM_WGETRC
if (!strcmp (file, SYSTEM_WGETRC))
{
fprintf (stderr, _("\
%s: Warning: Both system and user wgetrc point to `%s'.\n"),
exec_name, file);
}
else
#endif
run_wgetrc (file);
xfree (file);
return;
}
/* Remove dashes and underscores from S, modifying S in the
process. */
static void
dehyphen (char *s)
{
char *t = s; /* t - tortoise */
char *h = s; /* h - hare */
while (*h)
if (*h == '_' || *h == '-')
++h;
else
*t++ = *h++;
*t = '\0';
}
/* Parse the line pointed by line, with the syntax:
<sp>* command <sp>* = <sp>* value <sp>*
Uses malloc to allocate space for command and value.
If the line is invalid, data is freed and 0 is returned.
Return values:
1 - success
0 - error
-1 - empty
In case of success, *COM and *VAL point to freshly allocated
strings, and *COMIND points to com's index. In case of error or
empty line, those values are unaffected. */
static int
parse_line (const char *line, char **com, char **val, int *comind)
{
const char *p;
const char *end = line + strlen (line);
const char *cmdstart, *cmdend;
const char *valstart, *valend;
char *cmdcopy;
int ind;
/* Skip leading and trailing whitespace. */
while (*line && ISSPACE (*line))
++line;
while (end > line && ISSPACE (end[-1]))
--end;
/* Skip empty lines and comments. */
if (!*line || *line == '#')
return -1;
p = line;
cmdstart = p;
while (p < end && (ISALPHA (*p) || *p == '_' || *p == '-'))
++p;
cmdend = p;
/* Skip '=', as well as any space before or after it. */
while (p < end && ISSPACE (*p))
++p;
if (p == end || *p != '=')
return 0;
++p;
while (p < end && ISSPACE (*p))
++p;
valstart = p;
valend = end;
/* The line now known to be syntactically correct. Check whether
the command is valid. */
BOUNDED_TO_ALLOCA (cmdstart, cmdend, cmdcopy);
dehyphen (cmdcopy);
ind = findcmd (cmdcopy);
if (ind == -1)
return 0;
/* The command is valid. Now fill in the values and report success
to the caller. */
*comind = ind;
*com = strdupdelim (cmdstart, cmdend);
*val = strdupdelim (valstart, valend);
return 1;
}
/* Run commands[comind].action. */
static int
setval_internal (int comind, const char *com, const char *val)
{
assert (0 <= comind && comind < countof (commands));
return ((*commands[comind].action) (com, val, commands[comind].closure));
}
/* Run command COM with value VAL. If running the command produces an
error, report the error and exit.
This is intended to be called from main() with commands not
provided by the user, therefore it aborts when an unknown command
is encountered. Once the COMIND's are exported to init.h, this
function will be changed to accept COMIND directly. */
void
setoptval (const char *com, const char *val)
{
if (!setval_internal (findcmd (com), com, val))
exit (2);
}
/* Parse OPT into command and value and run it. For example,
run_command("foo=bar") is equivalent to setoptval("foo", "bar").
This is used by the `--execute' flag in main.c. */
void
run_command (const char *opt)
{
char *com, *val;
int comind;
int status = parse_line (opt, &com, &val, &comind);
if (status == 1)
{
if (!setval_internal (comind, com, val))
exit (2);
xfree (com);
xfree (val);
}
else if (status == 0)
{
fprintf (stderr, _("%s: Invalid --execute command `%s'\n"),
exec_name, opt);
exit (2);
}
}
/* Generic helper functions, for use with `commands'. */
#define CMP1(p, c0) (TOLOWER((p)[0]) == (c0) && (p)[1] == '\0')
#define CMP2(p, c0, c1) (TOLOWER((p)[0]) == (c0) \
&& TOLOWER((p)[1]) == (c1) \
&& (p)[2] == '\0')
#define CMP3(p, c0, c1, c2) (TOLOWER((p)[0]) == (c0) \
&& TOLOWER((p)[1]) == (c1) \
&& TOLOWER((p)[2]) == (c2) \
&& (p)[3] == '\0')
/* Store the boolean value from VAL to CLOSURE. COM is ignored,
except for error messages. */
static int
cmd_boolean (const char *com, const char *val, void *closure)
{
int bool_value;
if (CMP2 (val, 'o', 'n') || CMP3 (val, 'y', 'e', 's') || CMP1 (val, '1'))
/* "on", "yes" and "1" mean true. */
bool_value = 1;
else if (CMP3 (val, 'o', 'f', 'f') || CMP2 (val, 'n', 'o') || CMP1 (val, '0'))
/* "off", "no" and "0" mean false. */
bool_value = 0;
else
{
fprintf (stderr,
_("%s: %s: Invalid boolean `%s', use `on' or `off'.\n"),
exec_name, com, val);
return 0;
}
*(int *)closure = bool_value;
return 1;
}
/* Store the lockable_boolean {2, 1, 0, -1} value from VAL to CLOSURE.
COM is ignored, except for error messages. Values 2 and -1
indicate that once defined, the value may not be changed by
successive wgetrc files or command-line arguments.
Values: 2 - Enable a particular option for good ("always")
1 - Enable an option ("on")
0 - Disable an option ("off")
-1 - Disable an option for good ("never") */
static int
cmd_lockable_boolean (const char *com, const char *val, void *closure)
{
int lockable_boolean_value;
int oldval = *(int *)closure;
/*
* If a config file said "always" or "never", don't allow command line
* arguments to override the config file.
*/
if (oldval == -1 || oldval == 2)
return 1;
if (0 == strcasecmp (val, "always") || CMP1 (val, '2'))
lockable_boolean_value = 2;
else if (CMP2 (val, 'o', 'n') || CMP3 (val, 'y', 'e', 's') || CMP1 (val, '1'))
lockable_boolean_value = 1;
else if (CMP3 (val, 'o', 'f', 'f') || CMP2 (val, 'n', 'o') || CMP1 (val, '0'))
lockable_boolean_value = 0;
else if (0 == strcasecmp (val, "never") || CMP2 (val, '-', '1'))
lockable_boolean_value = -1;
else
{
fprintf (stderr,
_("%s: %s: Invalid boolean `%s', use always, on, off, or never.\n"),
exec_name, com, val);
return 0;
}
*(int *)closure = lockable_boolean_value;
return 1;
}
static int simple_atoi PARAMS ((const char *, const char *, int *));
/* Set the non-negative integer value from VAL to CLOSURE. With
incorrect specification, the number remains unchanged. */
static int
cmd_number (const char *com, const char *val, void *closure)
{
if (!simple_atoi (val, val + strlen (val), closure))
{
fprintf (stderr, _("%s: %s: Invalid number `%s'.\n"),
exec_name, com, val);
return 0;
}
return 1;
}
/* Similar to cmd_number(), only accepts `inf' as a synonym for 0. */
static int
cmd_number_inf (const char *com, const char *val, void *closure)
{
if (!strcasecmp (val, "inf"))
{
*(int *)closure = 0;
return 1;
}
return cmd_number (com, val, closure);
}
/* Copy (strdup) the string at COM to a new location and place a
pointer to *CLOSURE. */
static int
cmd_string (const char *com, const char *val, void *closure)
{
char **pstring = (char **)closure;
FREE_MAYBE (*pstring);
*pstring = xstrdup (val);
return 1;
}
#ifndef WINDOWS
# define ISSEP(c) ((c) == '/')
#else
# define ISSEP(c) ((c) == '/' || (c) == '\\')
#endif
/* Like the above, but handles tilde-expansion when reading a user's
`.wgetrc'. In that case, and if VAL begins with `~', the tilde
gets expanded to the user's home directory. */
static int
cmd_file (const char *com, const char *val, void *closure)
{
char **pstring = (char **)closure;
FREE_MAYBE (*pstring);
/* #### If VAL is empty, perhaps should set *CLOSURE to NULL. */
if (!enable_tilde_expansion || !(*val == '~' && ISSEP (val[1])))
{
noexpand:
*pstring = xstrdup (val);
}
else
{
char *result;
int homelen;
char *home = home_dir ();
if (!home)
goto noexpand;
homelen = strlen (home);
while (homelen && ISSEP (home[homelen - 1]))
home[--homelen] = '\0';
/* Skip the leading "~/". */
for (++val; ISSEP (*val); val++)
;
result = xmalloc (homelen + 1 + strlen (val) + 1);
memcpy (result, home, homelen);
result[homelen] = '/';
strcpy (result + homelen + 1, val);
*pstring = result;
}
#ifdef WINDOWS
/* Convert "\" to "/". */
{
char *s;
for (s = *pstring; *s; s++)
if (*s == '\\')
*s = '/';
}
#endif
return 1;
}
/* Like cmd_file, but strips trailing '/' characters. */
static int
cmd_directory (const char *com, const char *val, void *closure)
{
char *s, *t;
/* Call cmd_file() for tilde expansion and separator
canonicalization (backslash -> slash under Windows). These
things should perhaps be in a separate function. */
if (!cmd_file (com, val, closure))
return 0;
s = *(char **)closure;
t = s + strlen (s);
while (t > s && *--t == '/')
*t = '\0';
return 1;
}
/* Split VAL by space to a vector of values, and append those values
to vector pointed to by the CLOSURE argument. If VAL is empty, the
CLOSURE vector is cleared instead. */
static int
cmd_vector (const char *com, const char *val, void *closure)
{
char ***pvec = (char ***)closure;
if (*val)
*pvec = merge_vecs (*pvec, sepstring (val));
else
{
free_vec (*pvec);
*pvec = NULL;
}
return 1;
}
static int
cmd_directory_vector (const char *com, const char *val, void *closure)
{
char ***pvec = (char ***)closure;
if (*val)
{
/* Strip the trailing slashes from directories. */
char **t, **seps;
seps = sepstring (val);
for (t = seps; t && *t; t++)
{
int len = strlen (*t);
/* Skip degenerate case of root directory. */
if (len > 1)
{
if ((*t)[len - 1] == '/')
(*t)[len - 1] = '\0';
}
}
*pvec = merge_vecs (*pvec, seps);
}
else
{
free_vec (*pvec);
*pvec = NULL;
}
return 1;
}
static int simple_atof PARAMS ((const char *, const char *, double *));
/* Enginge for cmd_bytes and cmd_bytes_large: converts a string such
as "100k" or "2.5G" to a floating point number. */
static int
parse_bytes_helper (const char *val, double *result)
{
double number, mult;
const char *end = val + strlen (val);
/* Check for "inf". */
if (0 == strcmp (val, "inf"))
{
*result = 0;
return 1;
}
/* Strip trailing whitespace. */
while (val < end && ISSPACE (end[-1]))
--end;
if (val == end)
return 0;
switch (TOLOWER (end[-1]))
{
case 'k':
--end, mult = 1024.0;
break;
case 'm':
--end, mult = 1048576.0;
break;
case 'g':
--end, mult = 1073741824.0;
break;
case 't':
--end, mult = 1099511627776.0;
break;
default:
/* Not a recognized suffix: assume it's a digit. (If not,
simple_atof will raise an error.) */
mult = 1;
}
/* Skip leading and trailing whitespace. */
while (val < end && ISSPACE (*val))
++val;
while (val < end && ISSPACE (end[-1]))
--end;
if (val == end)
return 0;
if (!simple_atof (val, end, &number))
return 0;
*result = number * mult;
return 1;
}
/* Parse VAL as a number and set its value to CLOSURE (which should
point to a long int).
By default, the value is assumed to be in bytes. If "K", "M", or
"G" are appended, the value is multiplied with 1<<10, 1<<20, or
1<<30, respectively. Floating point values are allowed and are
cast to integer before use. The idea is to be able to use things
like 1.5k instead of "1536".
The string "inf" is returned as 0.
In case of error, 0 is returned and memory pointed to by CLOSURE
remains unmodified. */
static int
cmd_bytes (const char *com, const char *val, void *closure)
{
double byte_value;
if (!parse_bytes_helper (val, &byte_value))
{
fprintf (stderr, _("%s: %s: Invalid byte value `%s'\n"),
exec_name, com, val);
return 0;
}
*(long *)closure = (long)byte_value;
return 1;
}
/* Like cmd_bytes, but CLOSURE is interpreted as a pointer to
LARGE_INT. It works by converting the string to double, therefore
working with values up to 2^53-1 without loss of precision. This
value (8192 TB) is large enough to serve for a while. */
static int
cmd_bytes_large (const char *com, const char *val, void *closure)
{
double byte_value;
if (!parse_bytes_helper (val, &byte_value))
{
fprintf (stderr, _("%s: %s: Invalid byte value `%s'\n"),
exec_name, com, val);
return 0;
}
*(LARGE_INT *)closure = (LARGE_INT)byte_value;
return 1;
}
/* Store the value of VAL to *OUT. The value is a time period, by
default expressed in seconds, but also accepting suffixes "m", "h",
"d", and "w" for minutes, hours, days, and weeks respectively. */
static int
cmd_time (const char *com, const char *val, void *closure)
{
double number, mult;
const char *end = val + strlen (val);
/* Strip trailing whitespace. */
while (val < end && ISSPACE (end[-1]))
--end;
if (val == end)
{
err:
fprintf (stderr, _("%s: %s: Invalid time period `%s'\n"),
exec_name, com, val);
return 0;
}
switch (TOLOWER (end[-1]))
{
case 's':
--end, mult = 1; /* seconds */
break;
case 'm':
--end, mult = 60; /* minutes */
break;
case 'h':
--end, mult = 3600; /* hours */
break;
case 'd':
--end, mult = 86400.0; /* days */
break;
case 'w':
--end, mult = 604800.0; /* weeks */
break;
default:
/* Not a recognized suffix: assume it belongs to the number.
(If not, atof simple_atof will raise an error.) */
mult = 1;
}
/* Skip leading and trailing whitespace. */
while (val < end && ISSPACE (*val))
++val;
while (val < end && ISSPACE (end[-1]))
--end;
if (val == end)
goto err;
if (!simple_atof (val, end, &number))
goto err;
*(double *)closure = number * mult;
return 1;
}
/* Specialized helper functions, used by `commands' to handle some
options specially. */
static int check_user_specified_header PARAMS ((const char *));
static int
cmd_spec_dirstruct (const char *com, const char *val, void *closure)
{
if (!cmd_boolean (com, val, &WGET_OPTIONS->dirstruct))
return 0;
/* Since dirstruct behaviour is explicitly changed, no_dirstruct
must be affected inversely. */
if (WGET_OPTIONS->dirstruct)
WGET_OPTIONS->no_dirstruct = 0;
else
WGET_OPTIONS->no_dirstruct = 1;
return 1;
}
static int
cmd_spec_header (const char *com, const char *val, void *closure)
{
if (!*val)
{
/* Empty header means reset headers. */
FREE_MAYBE (WGET_OPTIONS->user_header);
WGET_OPTIONS->user_header = NULL;
}
else
{
int i;
if (!check_user_specified_header (val))
{
fprintf (stderr, _("%s: %s: Invalid header `%s'.\n"),
exec_name, com, val);
return 0;
}
i = WGET_OPTIONS->user_header ? strlen (WGET_OPTIONS->user_header) : 0;
WGET_OPTIONS->user_header = (char *)xrealloc (WGET_OPTIONS->user_header, i + strlen (val)
+ 2 + 1);
strcpy (WGET_OPTIONS->user_header + i, val);
i += strlen (val);
WGET_OPTIONS->user_header[i++] = '\r';
WGET_OPTIONS->user_header[i++] = '\n';
WGET_OPTIONS->user_header[i] = '\0';
}
return 1;
}
static int
cmd_spec_htmlify (const char *com, const char *val, void *closure)
{
int flag = cmd_boolean (com, val, &WGET_OPTIONS->htmlify);
if (flag && !WGET_OPTIONS->htmlify)
WGET_OPTIONS->remove_listing = 0;
return flag;
}
/* Set the "mirror" mode. It means: recursive download, timestamping,
no limit on max. recursion depth, and don't remove listings. */
static int
cmd_spec_mirror (const char *com, const char *val, void *closure)
{
int mirror;
if (!cmd_boolean (com, val, &mirror))
return 0;
if (mirror)
{
WGET_OPTIONS->recursive = 1;
if (!WGET_OPTIONS->no_dirstruct)
WGET_OPTIONS->dirstruct = 1;
WGET_OPTIONS->timestamping = 1;
WGET_OPTIONS->reclevel = INFINITE_RECURSION;
WGET_OPTIONS->remove_listing = 0;
}
return 1;
}
/* Set progress.type to VAL, but verify that it's a valid progress
implementation before that. */
static int
cmd_spec_progress (const char *com, const char *val, void *closure)
{
/* Don't call set_progress_implementation here. It will be called
in main() when it becomes clear what the log output is. */
WGET_OPTIONS->progress_type = xstrdup ("dot");
return 1;
}
/* Set WGET_OPTIONS->recursive to VAL as with cmd_boolean. If WGET_OPTIONS->recursive is
set to true, also set WGET_OPTIONS->dirstruct to 1, unless WGET_OPTIONS->no_dirstruct
is specified. */
static int
cmd_spec_recursive (const char *com, const char *val, void *closure)
{
if (!cmd_boolean (com, val, &WGET_OPTIONS->recursive))
return 0;
else
{
if (WGET_OPTIONS->recursive && !WGET_OPTIONS->no_dirstruct)
WGET_OPTIONS->dirstruct = 1;
}
return 1;
}
static int
cmd_spec_restrict_file_names (const char *com, const char *val, void *closure)
{
int restrict_os = WGET_OPTIONS->restrict_files_os;
int restrict_ctrl = WGET_OPTIONS->restrict_files_ctrl;
const char *end = strchr (val, ',');
if (!end)
end = val + strlen (val);
#define VAL_IS(string_literal) BOUNDED_EQUAL (val, end, string_literal)
if (VAL_IS ("unix"))
restrict_os = restrict_unix;
else if (VAL_IS ("windows"))
restrict_os = restrict_windows;
else if (VAL_IS ("nocontrol"))
restrict_ctrl = 0;
else
{
err:
fprintf (stderr,
_("%s: %s: Invalid restriction `%s', use `unix' or `windows'.\n"),
exec_name, com, val);
return 0;
}
#undef VAL_IS
if (*end)
{
if (!strcmp (end + 1, "nocontrol"))
restrict_ctrl = 0;
else
goto err;
}
WGET_OPTIONS->restrict_files_os = restrict_os;
WGET_OPTIONS->restrict_files_ctrl = restrict_ctrl;
return 1;
}
/* Set all three timeout values. */
static int
cmd_spec_timeout (const char *com, const char *val, void *closure)
{
double value;
if (!cmd_time (com, val, &value))
return 0;
WGET_OPTIONS->read_timeout = value;
WGET_OPTIONS->connect_timeout = value;
WGET_OPTIONS->dns_timeout = value;
return 1;
}
static int
cmd_spec_useragent (const char *com, const char *val, void *closure)
{
/* Just check for empty string and newline, so we don't throw total
junk to the server. */
if (!*val || strchr (val, '\n'))
{
fprintf (stderr, _("%s: %s: Invalid value `%s'.\n"),
exec_name, com, val);
return 0;
}
WGET_OPTIONS->useragent = xstrdup (val);
return 1;
}
/* Miscellaneous useful routines. */
/* A very simple atoi clone, more portable than strtol and friends,
but reports errors, unlike atoi. Returns 1 on success, 0 on
failure. In case of success, stores result to *DEST. */
static int
simple_atoi (const char *beg, const char *end, int *dest)
{
int result = 0;
const char *p;
if (beg == end)
return 0;
for (p = beg; p < end && ISDIGIT (*p); p++)
result = (10 * result) + (*p - '0');
if (p != end)
return 0;
*dest = result;
return 1;
}
/* Trivial atof, with error reporting. Handles "<digits>[.<digits>]",
doesn't handle exponential notation. Returns 1 on success, 0 on
failure. In case of success, stores its result to *DEST. */
static int
simple_atof (const char *beg, const char *end, double *dest)
{
double result = 0;
int seen_dot = 0;
int seen_digit = 0;
double divider = 1;
const char *p;
for (p = beg; p < end; p++)
{
char ch = *p;
if (ISDIGIT (ch))
{
if (!seen_dot)
result = (10 * result) + (ch - '0');
else
result += (ch - '0') / (divider *= 10);
seen_digit = 1;
}
else if (ch == '.')
{
if (!seen_dot)
seen_dot = 1;
else
return 0;
}
else
return 0;
}
if (!seen_digit)
return 0;
*dest = result;
return 1;
}
static int
check_user_specified_header (const char *s)
{
const char *p;
for (p = s; *p && *p != ':' && !ISSPACE (*p); p++);
/* The header MUST contain `:' preceded by at least one
non-whitespace character. */
if (*p != ':' || p == s)
return 0;
/* The header MUST NOT contain newlines. */
if (strchr (s, '\n'))
return 0;
return 1;
}
void cleanup_html_url PARAMS ((void));
void res_cleanup PARAMS ((void));
void downloaded_files_free PARAMS ((void));
void http_cleanup PARAMS ((void));
/* Free the memory allocated by global variables. */
void
cleanup (void)
{
/* Free external resources, close files, etc. */
if (WGET_OPTIONS->dfp)
fclose (WGET_OPTIONS->dfp);
/* We're exiting anyway so there's no real need to call free()
hundreds of times. Skipping the frees will make Wget exit
faster.
However, when detecting leaks, it's crucial to free() everything
because then you can find the real leaks, i.e. the allocated
memory which grows with the size of the program. */
#ifdef DEBUG_MALLOC
convert_cleanup ();
res_cleanup ();
http_cleanup ();
cleanup_html_url ();
downloaded_files_free ();
host_cleanup ();
cookie_jar_delete (WGET_THREAD->cookies.wget_cookie_jar);
{
extern acc_t *netrc_list;
free_netrc (netrc_list);
}
FREE_MAYBE (WGET_OPTIONS->lfilename);
FREE_MAYBE (WGET_OPTIONS->dir_prefix);
FREE_MAYBE (WGET_OPTIONS->input_filename);
FREE_MAYBE (WGET_OPTIONS->output_document);
free_vec (WGET_OPTIONS->accepts);
free_vec (WGET_OPTIONS->rejects);
free_vec (WGET_OPTIONS->excludes);
free_vec (WGET_OPTIONS->includes);
free_vec (WGET_OPTIONS->domains);
free_vec (WGET_OPTIONS->follow_tags);
free_vec (WGET_OPTIONS->ignore_tags);
FREE_MAYBE (WGET_OPTIONS->progress_type);
xfree (WGET_OPTIONS->ftp_acc);
FREE_MAYBE (WGET_OPTIONS->ftp_pass);
FREE_MAYBE (WGET_OPTIONS->ftp_proxy);
FREE_MAYBE (WGET_OPTIONS->https_proxy);
FREE_MAYBE (WGET_OPTIONS->http_proxy);
free_vec (WGET_OPTIONS->no_proxy);
FREE_MAYBE (WGET_OPTIONS->useragent);
FREE_MAYBE (WGET_OPTIONS->referer);
FREE_MAYBE (WGET_OPTIONS->http_user);
FREE_MAYBE (WGET_OPTIONS->http_passwd);
FREE_MAYBE (WGET_OPTIONS->user_header);
#ifdef HAVE_SSL
FREE_MAYBE (WGET_OPTIONS->sslcertkey);
FREE_MAYBE (WGET_OPTIONS->sslcertfile);
#endif /* HAVE_SSL */
FREE_MAYBE (WGET_OPTIONS->bind_address);
FREE_MAYBE (WGET_OPTIONS->cookies_input);
FREE_MAYBE (WGET_OPTIONS->cookies_output);
#endif
} Powered by
GeSHi Syntax Highlighting software.
Author of all (other) material unless otherwise specified:
Loren Segal. Copyright 2005.