sjero.net Git - wget/blob - src/init.c

   1 /* Reading/parsing the initialization file.
   2    Copyright (C) 1996-2005 Free Software Foundation, Inc.
   3
   4 This file is part of GNU Wget.
   5
   6 GNU Wget is free software; you can redistribute it and/or modify
   7 it under the terms of the GNU General Public License as published by
   8 the Free Software Foundation; either version 2 of the License, or
   9 (at your option) any later version.
  10
  11 GNU Wget is distributed in the hope that it will be useful,
  12 but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 GNU General Public License for more details.
  15
  16 You should have received a copy of the GNU General Public License
  17 along with Wget; if not, write to the Free Software Foundation, Inc.,
  18 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
  19
  20 In addition, as a special exception, the Free Software Foundation
  21 gives permission to link the code of its release of Wget with the
  22 OpenSSL project's "OpenSSL" library (or with modified versions of it
  23 that use the same license as the "OpenSSL" library), and distribute
  24 the linked executables.  You must obey the GNU General Public License
  25 in all respects for all of the code used other than "OpenSSL".  If you
  26 modify this file, you may extend this exception to your version of the
  27 file, but you are not obligated to do so.  If you do not wish to do
  28 so, delete this exception statement from your version.  */
  29
  30 #include <config.h>
  31
  32 #include <stdio.h>
  33 #include <stdlib.h>
  34 #ifdef HAVE_UNISTD_H
  35 # include <unistd.h>
  36 #endif
  37 #include <string.h>
  38 #include <errno.h>
  39
  40 #ifdef HAVE_PWD_H
  41 # include <pwd.h>
  42 #endif
  43 #include <assert.h>
  44
  45 #include "wget.h"
  46 #include "utils.h"
  47 #include "init.h"
  48 #include "host.h"
  49 #include "netrc.h"
  50 #include "progress.h"
  51 #include "recur.h"              /* for INFINITE_RECURSION */
  52 #include "convert.h"            /* for convert_cleanup */
  53 #include "res.h"                /* for res_cleanup */
  54 #include "http.h"               /* for http_cleanup */
  55 #include "retr.h"               /* for output_stream */
  56
  57 /* We want tilde expansion enabled only when reading `.wgetrc' lines;
  58    otherwise, it will be performed by the shell.  This variable will
  59    be set by the wgetrc-reading function.  */
  60
  61 static bool enable_tilde_expansion;
  62
  63
  64 #define CMD_DECLARE(func) static bool func (const char *, const char *, void *)
  65
  66 CMD_DECLARE (cmd_boolean);
  67 CMD_DECLARE (cmd_bytes);
  68 CMD_DECLARE (cmd_bytes_sum);
  69 #ifdef HAVE_SSL
  70 CMD_DECLARE (cmd_cert_type);
  71 #endif
  72 CMD_DECLARE (cmd_directory_vector);
  73 CMD_DECLARE (cmd_number);
  74 CMD_DECLARE (cmd_number_inf);
  75 CMD_DECLARE (cmd_string);
  76 CMD_DECLARE (cmd_file);
  77 CMD_DECLARE (cmd_directory);
  78 CMD_DECLARE (cmd_time);
  79 CMD_DECLARE (cmd_vector);
  80
  81 CMD_DECLARE (cmd_spec_dirstruct);
  82 CMD_DECLARE (cmd_spec_header);
  83 CMD_DECLARE (cmd_spec_htmlify);
  84 CMD_DECLARE (cmd_spec_mirror);
  85 CMD_DECLARE (cmd_spec_prefer_family);
  86 CMD_DECLARE (cmd_spec_progress);
  87 CMD_DECLARE (cmd_spec_recursive);
  88 CMD_DECLARE (cmd_spec_restrict_file_names);
  89 #ifdef HAVE_SSL
  90 CMD_DECLARE (cmd_spec_secure_protocol);
  91 #endif
  92 CMD_DECLARE (cmd_spec_timeout);
  93 CMD_DECLARE (cmd_spec_useragent);
  94 CMD_DECLARE (cmd_spec_verbose);
  95
  96 /* List of recognized commands, each consisting of name, place and
  97    function.  When adding a new command, simply add it to the list,
  98    but be sure to keep the list sorted alphabetically, as
  99    command_by_name depends on it.  Also, be sure to add any entries
 100    that allocate memory (e.g. cmd_string and cmd_vector) to the
 101    cleanup() function below. */
 102
 103 static struct {
 104   const char *name;
 105   void *place;
 106   bool (*action) (const char *, const char *, void *);
 107 } commands[] = {
 108   { "accept",           &opt.accepts,           cmd_vector },
 109   { "addhostdir",       &opt.add_hostdir,       cmd_boolean },
 110   { "alwaysrest",       &opt.always_rest,       cmd_boolean }, /* deprecated */
 111   { "background",       &opt.background,        cmd_boolean },
 112   { "backupconverted",  &opt.backup_converted,  cmd_boolean },
 113   { "backups",          &opt.backups,           cmd_number },
 114   { "base",             &opt.base_href,         cmd_string },
 115   { "bindaddress",      &opt.bind_address,      cmd_string },
 116 #ifdef HAVE_SSL
 117   { "cacertificate",    &opt.ca_cert,           cmd_file },
 118 #endif
 119   { "cache",            &opt.allow_cache,       cmd_boolean },
 120 #ifdef HAVE_SSL
 121   { "cadirectory",      &opt.ca_directory,      cmd_directory },
 122   { "certificate",      &opt.cert_file,         cmd_file },
 123   { "certificatetype",  &opt.cert_type,         cmd_cert_type },
 124   { "checkcertificate", &opt.check_cert,        cmd_boolean },
 125 #endif
 126   { "connecttimeout",   &opt.connect_timeout,   cmd_time },
 127   { "continue",         &opt.always_rest,       cmd_boolean },
 128   { "convertlinks",     &opt.convert_links,     cmd_boolean },
 129   { "contentdisposition", &opt.content_disposition, cmd_boolean },
 130   { "cookies",          &opt.cookies,           cmd_boolean },
 131   { "cutdirs",          &opt.cut_dirs,          cmd_number },
 132 #ifdef ENABLE_DEBUG
 133   { "debug",            &opt.debug,             cmd_boolean },
 134 #endif
 135   { "deleteafter",      &opt.delete_after,      cmd_boolean },
 136   { "dirprefix",        &opt.dir_prefix,        cmd_directory },
 137   { "dirstruct",        NULL,                   cmd_spec_dirstruct },
 138   { "dnscache",         &opt.dns_cache,         cmd_boolean },
 139   { "dnstimeout",       &opt.dns_timeout,       cmd_time },
 140   { "domains",          &opt.domains,           cmd_vector },
 141   { "dotbytes",         &opt.dot_bytes,         cmd_bytes },
 142   { "dotsinline",       &opt.dots_in_line,      cmd_number },
 143   { "dotspacing",       &opt.dot_spacing,       cmd_number },
 144   { "dotstyle",         &opt.dot_style,         cmd_string },
 145 #ifdef HAVE_SSL
 146   { "egdfile",          &opt.egd_file,          cmd_file },
 147 #endif
 148   { "excludedirectories", &opt.excludes,        cmd_directory_vector },
 149   { "excludedomains",   &opt.exclude_domains,   cmd_vector },
 150   { "followftp",        &opt.follow_ftp,        cmd_boolean },
 151   { "followtags",       &opt.follow_tags,       cmd_vector },
 152   { "forcehtml",        &opt.force_html,        cmd_boolean },
 153   { "ftppasswd",        &opt.ftp_passwd,        cmd_string }, /* deprecated */
 154   { "ftppassword",      &opt.ftp_passwd,        cmd_string },
 155   { "ftpproxy",         &opt.ftp_proxy,         cmd_string },
 156   { "ftpuser",          &opt.ftp_user,          cmd_string },
 157   { "glob",             &opt.ftp_glob,          cmd_boolean },
 158   { "header",           NULL,                   cmd_spec_header },
 159   { "htmlextension",    &opt.html_extension,    cmd_boolean },
 160   { "htmlify",          NULL,                   cmd_spec_htmlify },
 161   { "httpkeepalive",    &opt.http_keep_alive,   cmd_boolean },
 162   { "httppasswd",       &opt.http_passwd,       cmd_string }, /* deprecated */
 163   { "httppassword",     &opt.http_passwd,       cmd_string },
 164   { "httpproxy",        &opt.http_proxy,        cmd_string },
 165   { "httpsproxy",       &opt.https_proxy,       cmd_string },
 166   { "httpuser",         &opt.http_user,         cmd_string },
 167   { "ignorecase",       &opt.ignore_case,       cmd_boolean },
 168   { "ignorelength",     &opt.ignore_length,     cmd_boolean },
 169   { "ignoretags",       &opt.ignore_tags,       cmd_vector },
 170   { "includedirectories", &opt.includes,        cmd_directory_vector },
 171 #ifdef ENABLE_IPV6
 172   { "inet4only",        &opt.ipv4_only,         cmd_boolean },
 173   { "inet6only",        &opt.ipv6_only,         cmd_boolean },
 174 #endif
 175   { "input",            &opt.input_filename,    cmd_file },
 176   { "keepsessioncookies", &opt.keep_session_cookies, cmd_boolean },
 177   { "limitrate",        &opt.limit_rate,        cmd_bytes },
 178   { "loadcookies",      &opt.cookies_input,     cmd_file },
 179   { "logfile",          &opt.lfilename,         cmd_file },
 180   { "login",            &opt.ftp_user,          cmd_string },/* deprecated*/
 181   { "mirror",           NULL,                   cmd_spec_mirror },
 182   { "netrc",            &opt.netrc,             cmd_boolean },
 183   { "noclobber",        &opt.noclobber,         cmd_boolean },
 184   { "noparent",         &opt.no_parent,         cmd_boolean },
 185   { "noproxy",          &opt.no_proxy,          cmd_vector },
 186   { "numtries",         &opt.ntry,              cmd_number_inf },/* deprecated*/
 187   { "outputdocument",   &opt.output_document,   cmd_file },
 188   { "pagerequisites",   &opt.page_requisites,   cmd_boolean },
 189   { "passiveftp",       &opt.ftp_pasv,          cmd_boolean },
 190   { "passwd",           &opt.ftp_passwd,        cmd_string },/* deprecated*/
 191   { "password",         &opt.passwd,            cmd_string },
 192   { "postdata",         &opt.post_data,         cmd_string },
 193   { "postfile",         &opt.post_file_name,    cmd_file },
 194   { "preferfamily",     NULL,                   cmd_spec_prefer_family },
 195   { "preservepermissions", &opt.preserve_perm,  cmd_boolean },
 196 #ifdef HAVE_SSL
 197   { "privatekey",       &opt.private_key,       cmd_file },
 198   { "privatekeytype",   &opt.private_key_type,  cmd_cert_type },
 199 #endif
 200   { "progress",         &opt.progress_type,     cmd_spec_progress },
 201   { "protocoldirectories", &opt.protocol_directories, cmd_boolean },
 202   { "proxypasswd",      &opt.proxy_passwd,      cmd_string }, /* deprecated */
 203   { "proxypassword",    &opt.proxy_passwd,      cmd_string },
 204   { "proxyuser",        &opt.proxy_user,        cmd_string },
 205   { "quiet",            &opt.quiet,             cmd_boolean },
 206   { "quota",            &opt.quota,             cmd_bytes_sum },
 207 #ifdef HAVE_SSL
 208   { "randomfile",       &opt.random_file,       cmd_file },
 209 #endif
 210   { "randomwait",       &opt.random_wait,       cmd_boolean },
 211   { "readtimeout",      &opt.read_timeout,      cmd_time },
 212   { "reclevel",         &opt.reclevel,          cmd_number_inf },
 213   { "recursive",        NULL,                   cmd_spec_recursive },
 214   { "referer",          &opt.referer,           cmd_string },
 215   { "reject",           &opt.rejects,           cmd_vector },
 216   { "relativeonly",     &opt.relative_only,     cmd_boolean },
 217   { "removelisting",    &opt.remove_listing,    cmd_boolean },
 218   { "restrictfilenames", NULL,                  cmd_spec_restrict_file_names },
 219   { "retrsymlinks",     &opt.retr_symlinks,     cmd_boolean },
 220   { "retryconnrefused", &opt.retry_connrefused, cmd_boolean },
 221   { "robots",           &opt.use_robots,        cmd_boolean },
 222   { "savecookies",      &opt.cookies_output,    cmd_file },
 223   { "saveheaders",      &opt.save_headers,      cmd_boolean },
 224 #ifdef HAVE_SSL
 225   { "secureprotocol",   &opt.secure_protocol,   cmd_spec_secure_protocol },
 226 #endif
 227   { "serverresponse",   &opt.server_response,   cmd_boolean },
 228   { "spanhosts",        &opt.spanhost,          cmd_boolean },
 229   { "spider",           &opt.spider,            cmd_boolean },
 230   { "strictcomments",   &opt.strict_comments,   cmd_boolean },
 231   { "timeout",          NULL,                   cmd_spec_timeout },
 232   { "timestamping",     &opt.timestamping,      cmd_boolean },
 233   { "tries",            &opt.ntry,              cmd_number_inf },
 234   { "useproxy",         &opt.use_proxy,         cmd_boolean },
 235   { "user",             &opt.user,              cmd_string },
 236   { "useragent",        NULL,                   cmd_spec_useragent },
 237   { "verbose",          NULL,                   cmd_spec_verbose },
 238   { "wait",             &opt.wait,              cmd_time },
 239   { "waitretry",        &opt.waitretry,         cmd_time }
 240 };
 241
 242 /* Look up CMDNAME in the commands[] and return its position in the
 243    array.  If CMDNAME is not found, return -1.  */
 244
 245 static int
 246 command_by_name (const char *cmdname)
 247 {
 248   /* Use binary search for speed.  Wget has ~100 commands, which
 249      guarantees a worst case performance of 7 string comparisons.  */
 250   int lo = 0, hi = countof (commands) - 1;
 251
 252   while (lo <= hi)
 253     {
 254       int mid = (lo + hi) >> 1;
 255       int cmp = strcasecmp (cmdname, commands[mid].name);
 256       if (cmp < 0)
 257         hi = mid - 1;
 258       else if (cmp > 0)
 259         lo = mid + 1;
 260       else
 261         return mid;
 262     }
 263   return -1;
 264 }
 265 \f
 266 /* Reset the variables to default values.  */
 267 static void
 268 defaults (void)
 269 {
 270   char *tmp;
 271
 272   /* Most of the default values are 0 (and 0.0, NULL, and false).
 273      Just reset everything, and fill in the non-zero values.  Note
 274      that initializing pointers to NULL this way is technically
 275      illegal, but porting Wget to a machine where NULL is not all-zero
 276      bit pattern will be the least of the implementors' worries.  */
 277   xzero (opt);
 278
 279   opt.cookies = true;
 280   opt.verbose = -1;
 281   opt.ntry = 20;
 282   opt.reclevel = 5;
 283   opt.add_hostdir = true;
 284   opt.netrc = true;
 285   opt.ftp_glob = true;
 286   opt.htmlify = true;
 287   opt.http_keep_alive = true;
 288   opt.use_proxy = true;
 289   tmp = getenv ("no_proxy");
 290   if (tmp)
 291     opt.no_proxy = sepstring (tmp);
 292   opt.allow_cache = true;
 293
 294   opt.read_timeout = 900;
 295   opt.use_robots = true;
 296
 297   opt.remove_listing = true;
 298
 299   opt.dot_bytes = 1024;
 300   opt.dot_spacing = 10;
 301   opt.dots_in_line = 50;
 302
 303   opt.dns_cache = true;
 304   opt.ftp_pasv = true;
 305
 306 #ifdef HAVE_SSL
 307   opt.check_cert = true;
 308 #endif
 309
 310   /* The default for file name restriction defaults to the OS type. */
 311 #if !defined(WINDOWS) && !defined(__CYGWIN__)
 312   opt.restrict_files_os = restrict_unix;
 313 #else
 314   opt.restrict_files_os = restrict_windows;
 315 #endif
 316   opt.restrict_files_ctrl = true;
 317
 318   opt.content_disposition = true;
 319 }
 320 \f
 321 /* Return the user's home directory (strdup-ed), or NULL if none is
 322    found.  */
 323 char *
 324 home_dir (void)
 325 {
 326   char *home = getenv ("HOME");
 327
 328   if (!home)
 329     {
 330 #ifndef WINDOWS
 331       /* If HOME is not defined, try getting it from the password
 332          file.  */
 333       struct passwd *pwd = getpwuid (getuid ());
 334       if (!pwd || !pwd->pw_dir)
 335         return NULL;
 336       home = pwd->pw_dir;
 337 #else  /* WINDOWS */
 338       /* Under Windows, if $HOME isn't defined, use the directory where
 339          `wget.exe' resides.  */
 340       home = ws_mypath ();
 341 #endif /* WINDOWS */
 342     }
 343
 344   return home ? xstrdup (home) : NULL;
 345 }
 346
 347 /* Return the path to the user's .wgetrc.  This is either the value of
 348    `WGETRC' environment variable, or `$HOME/.wgetrc'.
 349
 350    If the `WGETRC' variable exists but the file does not exist, the
 351    function will exit().  */
 352 static char *
 353 wgetrc_file_name (void)
 354 {
 355   char *env, *home;
 356   char *file = NULL;
 357
 358   /* Try the environment.  */
 359   env = getenv ("WGETRC");
 360   if (env && *env)
 361     {
 362       if (!file_exists_p (env))
 363         {
 364           fprintf (stderr, _("%s: WGETRC points to %s, which doesn't exist.\n"),
 365                    exec_name, env);
 366           exit (1);
 367         }
 368       return xstrdup (env);
 369     }
 370
 371   /* If that failed, try $HOME/.wgetrc.  */
 372   home = home_dir ();
 373   if (home)
 374     file = aprintf ("%s/.wgetrc", home);
 375   xfree_null (home);
 376
 377 #ifdef WINDOWS
 378   /* Under Windows, if we still haven't found .wgetrc, look for the file
 379      `wget.ini' in the directory where `wget.exe' resides; we do this for
 380      backward compatibility with previous versions of Wget.
 381      SYSTEM_WGETRC should not be defined under WINDOWS.  */
 382   if (!file || !file_exists_p (file))
 383     {
 384       xfree_null (file);
 385       file = NULL;
 386       home = ws_mypath ();
 387       if (home)
 388         file = aprintf ("%s/wget.ini", home);
 389     }
 390 #endif /* WINDOWS */
 391
 392   if (!file)
 393     return NULL;
 394   if (!file_exists_p (file))
 395     {
 396       xfree (file);
 397       return NULL;
 398     }
 399   return file;
 400 }
 401
 402 /* Return values of parse_line. */
 403 enum parse_line {
 404   line_ok,
 405   line_empty,
 406   line_syntax_error,
 407   line_unknown_command
 408 };
 409
 410 static enum parse_line parse_line (const char *, char **, char **, int *);
 411 static bool setval_internal (int, const char *, const char *);
 412
 413 /* Initialize variables from a wgetrc file.  Returns zero (failure) if
 414    there were errors in the file.  */
 415
 416 static bool
 417 run_wgetrc (const char *file)
 418 {
 419   FILE *fp;
 420   char *line;
 421   int ln;
 422   int errcnt = 0;
 423
 424   fp = fopen (file, "rb");
 425   if (!fp)
 426     {
 427       fprintf (stderr, _("%s: Cannot read %s (%s).\n"), exec_name,
 428                file, strerror (errno));
 429       return true;                      /* not a fatal error */
 430     }
 431   enable_tilde_expansion = true;
 432   ln = 1;
 433   while ((line = read_whole_line (fp)) != NULL)
 434     {
 435       char *com = NULL, *val = NULL;
 436       int comind;
 437
 438       /* Parse the line.  */
 439       switch (parse_line (line, &com, &val, &comind))
 440         {
 441         case line_ok:
 442           /* If everything is OK, set the value.  */
 443           if (!setval_internal (comind, com, val))
 444             {
 445               fprintf (stderr, _("%s: Error in %s at line %d.\n"),
 446                        exec_name, file, ln);
 447               ++errcnt;
 448             }
 449           break;
 450         case line_syntax_error:
 451           fprintf (stderr, _("%s: Syntax error in %s at line %d.\n"),
 452                    exec_name, file, ln);
 453           ++errcnt;
 454           break;
 455         case line_unknown_command:
 456           fprintf (stderr, _("%s: Unknown command `%s' in %s at line %d.\n"),
 457                    exec_name, com, file, ln);
 458           ++errcnt;
 459           break;
 460         case line_empty:
 461           break;
 462         default:
 463           abort ();
 464         }
 465       xfree_null (com);
 466       xfree_null (val);
 467       xfree (line);
 468       ++ln;
 469     }
 470   enable_tilde_expansion = false;
 471   fclose (fp);
 472
 473   return errcnt == 0;
 474 }
 475
 476 /* Initialize the defaults and run the system wgetrc and user's own
 477    wgetrc.  */
 478 void
 479 initialize (void)
 480 {
 481   char *file;
 482   int ok = true;
 483
 484   /* Load the hard-coded defaults.  */
 485   defaults ();
 486
 487   /* If SYSTEM_WGETRC is defined, use it.  */
 488 #ifdef SYSTEM_WGETRC
 489   if (file_exists_p (SYSTEM_WGETRC))
 490     ok &= run_wgetrc (SYSTEM_WGETRC);
 491 #endif
 492   /* Override it with your own, if one exists.  */
 493   file = wgetrc_file_name ();
 494   if (!file)
 495     return;
 496   /* #### We should canonicalize `file' and SYSTEM_WGETRC with
 497      something like realpath() before comparing them with `strcmp'  */
 498 #ifdef SYSTEM_WGETRC
 499   if (!strcmp (file, SYSTEM_WGETRC))
 500     {
 501       fprintf (stderr, _("\
 502 %s: Warning: Both system and user wgetrc point to `%s'.\n"),
 503                exec_name, file);
 504     }
 505   else
 506 #endif
 507     ok &= run_wgetrc (file);
 508
 509   /* If there were errors processing either `.wgetrc', abort. */
 510   if (!ok)
 511     exit (2);
 512
 513   xfree (file);
 514   return;
 515 }
 516 \f
 517 /* Remove dashes and underscores from S, modifying S in the
 518    process. */
 519
 520 static void
 521 dehyphen (char *s)
 522 {
 523   char *t = s;                  /* t - tortoise */
 524   char *h = s;                  /* h - hare     */
 525   while (*h)
 526     if (*h == '_' || *h == '-')
 527       ++h;
 528     else
 529       *t++ = *h++;
 530   *t = '\0';
 531 }
 532
 533 /* Parse the line pointed by line, with the syntax:
 534    <sp>* command <sp>* = <sp>* value <sp>*
 535    Uses malloc to allocate space for command and value.
 536
 537    Returns one of line_ok, line_empty, line_syntax_error, or
 538    line_unknown_command.
 539
 540    In case of line_ok, *COM and *VAL point to freshly allocated
 541    strings, and *COMIND points to com's index.  In case of error or
 542    empty line, their values are unmodified.  */
 543
 544 static enum parse_line
 545 parse_line (const char *line, char **com, char **val, int *comind)
 546 {
 547   const char *p;
 548   const char *end = line + strlen (line);
 549   const char *cmdstart, *cmdend;
 550   const char *valstart, *valend;
 551
 552   char *cmdcopy;
 553   int ind;
 554
 555   /* Skip leading and trailing whitespace.  */
 556   while (*line && ISSPACE (*line))
 557     ++line;
 558   while (end > line && ISSPACE (end[-1]))
 559     --end;
 560
 561   /* Skip empty lines and comments.  */
 562   if (!*line || *line == '#')
 563     return line_empty;
 564
 565   p = line;
 566
 567   cmdstart = p;
 568   while (p < end && (ISALNUM (*p) || *p == '_' || *p == '-'))
 569     ++p;
 570   cmdend = p;
 571
 572   /* Skip '=', as well as any space before or after it. */
 573   while (p < end && ISSPACE (*p))
 574     ++p;
 575   if (p == end || *p != '=')
 576     return line_syntax_error;
 577   ++p;
 578   while (p < end && ISSPACE (*p))
 579     ++p;
 580
 581   valstart = p;
 582   valend   = end;
 583
 584   /* The syntax is valid (even though the command might not be).  Fill
 585      in the command name and value.  */
 586   *com = strdupdelim (cmdstart, cmdend);
 587   *val = strdupdelim (valstart, valend);
 588
 589   /* The line now known to be syntactically correct.  Check whether
 590      the command is valid.  */
 591   BOUNDED_TO_ALLOCA (cmdstart, cmdend, cmdcopy);
 592   dehyphen (cmdcopy);
 593   ind = command_by_name (cmdcopy);
 594   if (ind == -1)
 595     return line_unknown_command;
 596
 597   /* Report success to the caller. */
 598   *comind = ind;
 599   return line_ok;
 600 }
 601
 602 /* Run commands[comind].action. */
 603
 604 static bool
 605 setval_internal (int comind, const char *com, const char *val)
 606 {
 607   assert (0 <= comind && comind < countof (commands));
 608   DEBUGP (("Setting %s (%s) to %s\n", com, commands[comind].name, val));
 609   return commands[comind].action (com, val, commands[comind].place);
 610 }
 611
 612 /* Run command COM with value VAL.  If running the command produces an
 613    error, report the error and exit.
 614
 615    This is intended to be called from main() to modify Wget's behavior
 616    through command-line switches.  Since COM is hard-coded in main(),
 617    it is not canonicalized, and this aborts when COM is not found.
 618
 619    If COMIND's are exported to init.h, this function will be changed
 620    to accept COMIND directly.  */
 621
 622 void
 623 setoptval (const char *com, const char *val, const char *optname)
 624 {
 625   /* Prepend "--" to OPTNAME. */
 626   char *dd_optname = (char *) alloca (2 + strlen (optname) + 1);
 627   dd_optname[0] = '-';
 628   dd_optname[1] = '-';
 629   strcpy (dd_optname + 2, optname);
 630
 631   assert (val != NULL);
 632   if (!setval_internal (command_by_name (com), dd_optname, val))
 633     exit (2);
 634 }
 635
 636 /* Parse OPT into command and value and run it.  For example,
 637    run_command("foo=bar") is equivalent to setoptval("foo", "bar").
 638    This is used by the `--execute' flag in main.c.  */
 639
 640 void
 641 run_command (const char *opt)
 642 {
 643   char *com, *val;
 644   int comind;
 645   switch (parse_line (opt, &com, &val, &comind))
 646     {
 647     case line_ok:
 648       if (!setval_internal (comind, com, val))
 649         exit (2);
 650       xfree (com);
 651       xfree (val);
 652       break;
 653     default:
 654       fprintf (stderr, _("%s: Invalid --execute command `%s'\n"),
 655                exec_name, opt);
 656       exit (2);
 657     }
 658 }
 659 \f
 660 /* Generic helper functions, for use with `commands'. */
 661
 662 /* Forward declarations: */
 663 struct decode_item {
 664   const char *name;
 665   int code;
 666 };
 667 static bool decode_string (const char *, const struct decode_item *, int, int *);
 668 static bool simple_atoi (const char *, const char *, int *);
 669 static bool simple_atof (const char *, const char *, double *);
 670
 671 #define CMP1(p, c0) (TOLOWER((p)[0]) == (c0) && (p)[1] == '\0')
 672
 673 #define CMP2(p, c0, c1) (TOLOWER((p)[0]) == (c0)        \
 674                          && TOLOWER((p)[1]) == (c1)     \
 675                          && (p)[2] == '\0')
 676
 677 #define CMP3(p, c0, c1, c2) (TOLOWER((p)[0]) == (c0)    \
 678                      && TOLOWER((p)[1]) == (c1)         \
 679                      && TOLOWER((p)[2]) == (c2)         \
 680                      && (p)[3] == '\0')
 681
 682
 683 /* Store the boolean value from VAL to PLACE.  COM is ignored,
 684    except for error messages.  */
 685 static bool
 686 cmd_boolean (const char *com, const char *val, void *place)
 687 {
 688   bool value;
 689
 690   if (CMP2 (val, 'o', 'n') || CMP3 (val, 'y', 'e', 's') || CMP1 (val, '1'))
 691     /* "on", "yes" and "1" mean true. */
 692     value = true;
 693   else if (CMP3 (val, 'o', 'f', 'f') || CMP2 (val, 'n', 'o') || CMP1 (val, '0'))
 694     /* "off", "no" and "0" mean false. */
 695     value = false;
 696   else
 697     {
 698       fprintf (stderr,
 699                _("%s: %s: Invalid boolean `%s'; use `on' or `off'.\n"),
 700                exec_name, com, val);
 701       return false;
 702     }
 703
 704   *(bool *) place = value;
 705   return true;
 706 }
 707
 708 /* Set the non-negative integer value from VAL to PLACE.  With
 709    incorrect specification, the number remains unchanged.  */
 710 static bool
 711 cmd_number (const char *com, const char *val, void *place)
 712 {
 713   if (!simple_atoi (val, val + strlen (val), place)
 714       || *(int *) place < 0)
 715     {
 716       fprintf (stderr, _("%s: %s: Invalid number `%s'.\n"),
 717                exec_name, com, val);
 718       return false;
 719     }
 720   return true;
 721 }
 722
 723 /* Similar to cmd_number(), only accepts `inf' as a synonym for 0.  */
 724 static bool
 725 cmd_number_inf (const char *com, const char *val, void *place)
 726 {
 727   if (!strcasecmp (val, "inf"))
 728     {
 729       *(int *) place = 0;
 730       return true;
 731     }
 732   return cmd_number (com, val, place);
 733 }
 734
 735 /* Copy (strdup) the string at COM to a new location and place a
 736    pointer to *PLACE.  */
 737 static bool
 738 cmd_string (const char *com, const char *val, void *place)
 739 {
 740   char **pstring = (char **)place;
 741
 742   xfree_null (*pstring);
 743   *pstring = xstrdup (val);
 744   return true;
 745 }
 746
 747 #ifndef WINDOWS
 748 # define ISSEP(c) ((c) == '/')
 749 #else
 750 # define ISSEP(c) ((c) == '/' || (c) == '\\')
 751 #endif
 752
 753 /* Like the above, but handles tilde-expansion when reading a user's
 754    `.wgetrc'.  In that case, and if VAL begins with `~', the tilde
 755    gets expanded to the user's home directory.  */
 756 static bool
 757 cmd_file (const char *com, const char *val, void *place)
 758 {
 759   char **pstring = (char **)place;
 760
 761   xfree_null (*pstring);
 762
 763   /* #### If VAL is empty, perhaps should set *PLACE to NULL.  */
 764
 765   if (!enable_tilde_expansion || !(*val == '~' && ISSEP (val[1])))
 766     {
 767     noexpand:
 768       *pstring = xstrdup (val);
 769     }
 770   else
 771     {
 772       int homelen;
 773       char *home = home_dir ();
 774       if (!home)
 775         goto noexpand;
 776
 777       homelen = strlen (home);
 778       while (homelen && ISSEP (home[homelen - 1]))
 779         home[--homelen] = '\0';
 780
 781       /* Skip the leading "~/". */
 782       for (++val; ISSEP (*val); val++)
 783         ;
 784
 785       *pstring = concat_strings (home, "/", val, (char *) 0);
 786     }
 787
 788 #ifdef WINDOWS
 789   /* Convert "\" to "/". */
 790   {
 791     char *s;
 792     for (s = *pstring; *s; s++)
 793       if (*s == '\\')
 794         *s = '/';
 795   }
 796 #endif
 797   return true;
 798 }
 799
 800 /* Like cmd_file, but strips trailing '/' characters.  */
 801 static bool
 802 cmd_directory (const char *com, const char *val, void *place)
 803 {
 804   char *s, *t;
 805
 806   /* Call cmd_file() for tilde expansion and separator
 807      canonicalization (backslash -> slash under Windows).  These
 808      things should perhaps be in a separate function.  */
 809   if (!cmd_file (com, val, place))
 810     return false;
 811
 812   s = *(char **)place;
 813   t = s + strlen (s);
 814   while (t > s && *--t == '/')
 815     *t = '\0';
 816
 817   return true;
 818 }
 819
 820 /* Split VAL by space to a vector of values, and append those values
 821    to vector pointed to by the PLACE argument.  If VAL is empty, the
 822    PLACE vector is cleared instead.  */
 823
 824 static bool
 825 cmd_vector (const char *com, const char *val, void *place)
 826 {
 827   char ***pvec = (char ***)place;
 828
 829   if (*val)
 830     *pvec = merge_vecs (*pvec, sepstring (val));
 831   else
 832     {
 833       free_vec (*pvec);
 834       *pvec = NULL;
 835     }
 836   return true;
 837 }
 838
 839 static bool
 840 cmd_directory_vector (const char *com, const char *val, void *place)
 841 {
 842   char ***pvec = (char ***)place;
 843
 844   if (*val)
 845     {
 846       /* Strip the trailing slashes from directories.  */
 847       char **t, **seps;
 848
 849       seps = sepstring (val);
 850       for (t = seps; t && *t; t++)
 851         {
 852           int len = strlen (*t);
 853           /* Skip degenerate case of root directory.  */
 854           if (len > 1)
 855             {
 856               if ((*t)[len - 1] == '/')
 857                 (*t)[len - 1] = '\0';
 858             }
 859         }
 860       *pvec = merge_vecs (*pvec, seps);
 861     }
 862   else
 863     {
 864       free_vec (*pvec);
 865       *pvec = NULL;
 866     }
 867   return true;
 868 }
 869
 870 /* Engine for cmd_bytes and cmd_bytes_sum: converts a string such as
 871    "100k" or "2.5G" to a floating point number.  */
 872
 873 static bool
 874 parse_bytes_helper (const char *val, double *result)
 875 {
 876   double number, mult;
 877   const char *end = val + strlen (val);
 878
 879   /* Check for "inf".  */
 880   if (0 == strcmp (val, "inf"))
 881     {
 882       *result = 0;
 883       return true;
 884     }
 885
 886   /* Strip trailing whitespace.  */
 887   while (val < end && ISSPACE (end[-1]))
 888     --end;
 889   if (val == end)
 890     return false;
 891
 892   switch (TOLOWER (end[-1]))
 893     {
 894     case 'k':
 895       --end, mult = 1024.0;
 896       break;
 897     case 'm':
 898       --end, mult = 1048576.0;
 899       break;
 900     case 'g':
 901       --end, mult = 1073741824.0;
 902       break;
 903     case 't':
 904       --end, mult = 1099511627776.0;
 905       break;
 906     default:
 907       /* Not a recognized suffix: assume it's a digit.  (If not,
 908          simple_atof will raise an error.)  */
 909       mult = 1;
 910     }
 911
 912   /* Skip leading and trailing whitespace. */
 913   while (val < end && ISSPACE (*val))
 914     ++val;
 915   while (val < end && ISSPACE (end[-1]))
 916     --end;
 917   if (val == end)
 918     return false;
 919
 920   if (!simple_atof (val, end, &number) || number < 0)
 921     return false;
 922
 923   *result = number * mult;
 924   return true;
 925 }
 926
 927 /* Parse VAL as a number and set its value to PLACE (which should
 928    point to a wgint).
 929
 930    By default, the value is assumed to be in bytes.  If "K", "M", or
 931    "G" are appended, the value is multiplied with 1<<10, 1<<20, or
 932    1<<30, respectively.  Floating point values are allowed and are
 933    cast to integer before use.  The idea is to be able to use things
 934    like 1.5k instead of "1536".
 935
 936    The string "inf" is returned as 0.
 937
 938    In case of error, false is returned and memory pointed to by PLACE
 939    remains unmodified.  */
 940
 941 static bool
 942 cmd_bytes (const char *com, const char *val, void *place)
 943 {
 944   double byte_value;
 945   if (!parse_bytes_helper (val, &byte_value))
 946     {
 947       fprintf (stderr, _("%s: %s: Invalid byte value `%s'\n"),
 948                exec_name, com, val);
 949       return false;
 950     }
 951   *(wgint *)place = (wgint)byte_value;
 952   return true;
 953 }
 954
 955 /* Like cmd_bytes, but PLACE is interpreted as a pointer to
 956    SIZE_SUM.  It works by converting the string to double, therefore
 957    working with values up to 2^53-1 without loss of precision.  This
 958    value (8192 TB) is large enough to serve for a while.  */
 959
 960 static bool
 961 cmd_bytes_sum (const char *com, const char *val, void *place)
 962 {
 963   double byte_value;
 964   if (!parse_bytes_helper (val, &byte_value))
 965     {
 966       fprintf (stderr, _("%s: %s: Invalid byte value `%s'\n"),
 967                exec_name, com, val);
 968       return false;
 969     }
 970   *(SUM_SIZE_INT *) place = (SUM_SIZE_INT) byte_value;
 971   return true;
 972 }
 973
 974 /* Store the value of VAL to *OUT.  The value is a time period, by
 975    default expressed in seconds, but also accepting suffixes "m", "h",
 976    "d", and "w" for minutes, hours, days, and weeks respectively.  */
 977
 978 static bool
 979 cmd_time (const char *com, const char *val, void *place)
 980 {
 981   double number, mult;
 982   const char *end = val + strlen (val);
 983
 984   /* Strip trailing whitespace.  */
 985   while (val < end && ISSPACE (end[-1]))
 986     --end;
 987
 988   if (val == end)
 989     {
 990     err:
 991       fprintf (stderr, _("%s: %s: Invalid time period `%s'\n"),
 992                exec_name, com, val);
 993       return false;
 994     }
 995
 996   switch (TOLOWER (end[-1]))
 997     {
 998     case 's':
 999       --end, mult = 1;          /* seconds */
1000       break;
1001     case 'm':
1002       --end, mult = 60;         /* minutes */
1003       break;
1004     case 'h':
1005       --end, mult = 3600;       /* hours */
1006       break;
1007     case 'd':
1008       --end, mult = 86400.0;    /* days */
1009       break;
1010     case 'w':
1011       --end, mult = 604800.0;   /* weeks */
1012       break;
1013     default:
1014       /* Not a recognized suffix: assume it belongs to the number.
1015          (If not, simple_atof will raise an error.)  */
1016       mult = 1;
1017     }
1018
1019   /* Skip leading and trailing whitespace. */
1020   while (val < end && ISSPACE (*val))
1021     ++val;
1022   while (val < end && ISSPACE (end[-1]))
1023     --end;
1024   if (val == end)
1025     goto err;
1026
1027   if (!simple_atof (val, end, &number))
1028     goto err;
1029
1030   *(double *)place = number * mult;
1031   return true;
1032 }
1033
1034 #ifdef HAVE_SSL
1035 static bool
1036 cmd_cert_type (const char *com, const char *val, void *place)
1037 {
1038   static const struct decode_item choices[] = {
1039     { "pem", keyfile_pem },
1040     { "der", keyfile_asn1 },
1041     { "asn1", keyfile_asn1 },
1042   };
1043   int ok = decode_string (val, choices, countof (choices), place);
1044   if (!ok)
1045     fprintf (stderr, _("%s: %s: Invalid value `%s'.\n"), exec_name, com, val);
1046   return ok;
1047 }
1048 #endif
1049 \f
1050 /* Specialized helper functions, used by `commands' to handle some
1051    options specially.  */
1052
1053 static bool check_user_specified_header (const char *);
1054
1055 static bool
1056 cmd_spec_dirstruct (const char *com, const char *val, void *place_ignored)
1057 {
1058   if (!cmd_boolean (com, val, &opt.dirstruct))
1059     return false;
1060   /* Since dirstruct behaviour is explicitly changed, no_dirstruct
1061      must be affected inversely.  */
1062   if (opt.dirstruct)
1063     opt.no_dirstruct = false;
1064   else
1065     opt.no_dirstruct = true;
1066   return true;
1067 }
1068
1069 static bool
1070 cmd_spec_header (const char *com, const char *val, void *place_ignored)
1071 {
1072   /* Empty value means reset the list of headers. */
1073   if (*val == '\0')
1074     {
1075       free_vec (opt.user_headers);
1076       opt.user_headers = NULL;
1077       return true;
1078     }
1079
1080   if (!check_user_specified_header (val))
1081     {
1082       fprintf (stderr, _("%s: %s: Invalid header `%s'.\n"),
1083                exec_name, com, val);
1084       return false;
1085     }
1086   opt.user_headers = vec_append (opt.user_headers, val);
1087   return true;
1088 }
1089
1090 static bool
1091 cmd_spec_htmlify (const char *com, const char *val, void *place_ignored)
1092 {
1093   int flag = cmd_boolean (com, val, &opt.htmlify);
1094   if (flag && !opt.htmlify)
1095     opt.remove_listing = false;
1096   return flag;
1097 }
1098
1099 /* Set the "mirror" mode.  It means: recursive download, timestamping,
1100    no limit on max. recursion depth, and don't remove listings.  */
1101
1102 static bool
1103 cmd_spec_mirror (const char *com, const char *val, void *place_ignored)
1104 {
1105   int mirror;
1106
1107   if (!cmd_boolean (com, val, &mirror))
1108     return false;
1109   if (mirror)
1110     {
1111       opt.recursive = true;
1112       if (!opt.no_dirstruct)
1113         opt.dirstruct = true;
1114       opt.timestamping = true;
1115       opt.reclevel = INFINITE_RECURSION;
1116       opt.remove_listing = false;
1117     }
1118   return true;
1119 }
1120
1121 /* Validate --prefer-family and set the choice.  Allowed values are
1122    "IPv4", "IPv6", and "none".  */
1123
1124 static bool
1125 cmd_spec_prefer_family (const char *com, const char *val, void *place_ignored)
1126 {
1127   static const struct decode_item choices[] = {
1128     { "IPv4", prefer_ipv4 },
1129     { "IPv6", prefer_ipv6 },
1130     { "none", prefer_none },
1131   };
1132   int ok = decode_string (val, choices, countof (choices),
1133                           (int *) &opt.prefer_family);
1134   if (!ok)
1135     fprintf (stderr, _("%s: %s: Invalid value `%s'.\n"), exec_name, com, val);
1136   return ok;
1137 }
1138
1139 /* Set progress.type to VAL, but verify that it's a valid progress
1140    implementation before that.  */
1141
1142 static bool
1143 cmd_spec_progress (const char *com, const char *val, void *place_ignored)
1144 {
1145   if (!valid_progress_implementation_p (val))
1146     {
1147       fprintf (stderr, _("%s: %s: Invalid progress type `%s'.\n"),
1148                exec_name, com, val);
1149       return false;
1150     }
1151   xfree_null (opt.progress_type);
1152
1153   /* Don't call set_progress_implementation here.  It will be called
1154      in main() when it becomes clear what the log output is.  */
1155   opt.progress_type = xstrdup (val);
1156   return true;
1157 }
1158
1159 /* Set opt.recursive to VAL as with cmd_boolean.  If opt.recursive is
1160    set to true, also set opt.dirstruct to true, unless opt.no_dirstruct
1161    is specified.  */
1162
1163 static bool
1164 cmd_spec_recursive (const char *com, const char *val, void *place_ignored)
1165 {
1166   if (!cmd_boolean (com, val, &opt.recursive))
1167     return false;
1168   else
1169     {
1170       if (opt.recursive && !opt.no_dirstruct)
1171         opt.dirstruct = true;
1172     }
1173   return true;
1174 }
1175
1176 static bool
1177 cmd_spec_restrict_file_names (const char *com, const char *val, void *place_ignored)
1178 {
1179   int restrict_os = opt.restrict_files_os;
1180   int restrict_ctrl = opt.restrict_files_ctrl;
1181
1182   const char *end = strchr (val, ',');
1183   if (!end)
1184     end = val + strlen (val);
1185
1186 #define VAL_IS(string_literal) BOUNDED_EQUAL (val, end, string_literal)
1187
1188   if (VAL_IS ("unix"))
1189     restrict_os = restrict_unix;
1190   else if (VAL_IS ("windows"))
1191     restrict_os = restrict_windows;
1192   else if (VAL_IS ("nocontrol"))
1193     restrict_ctrl = 0;
1194   else
1195     {
1196     err:
1197       fprintf (stderr,
1198                _("%s: %s: Invalid restriction `%s', use `unix' or `windows'.\n"),
1199                exec_name, com, val);
1200       return false;
1201     }
1202
1203 #undef VAL_IS
1204
1205   if (*end)
1206     {
1207       if (!strcmp (end + 1, "nocontrol"))
1208         restrict_ctrl = false;
1209       else
1210         goto err;
1211     }
1212
1213   opt.restrict_files_os = restrict_os;
1214   opt.restrict_files_ctrl = restrict_ctrl;
1215   return true;
1216 }
1217
1218 #ifdef HAVE_SSL
1219 static bool
1220 cmd_spec_secure_protocol (const char *com, const char *val, void *place)
1221 {
1222   static const struct decode_item choices[] = {
1223     { "auto", secure_protocol_auto },
1224     { "sslv2", secure_protocol_sslv2 },
1225     { "sslv3", secure_protocol_sslv3 },
1226     { "tlsv1", secure_protocol_tlsv1 },
1227   };
1228   int ok = decode_string (val, choices, countof (choices), place);
1229   if (!ok)
1230     fprintf (stderr, _("%s: %s: Invalid value `%s'.\n"), exec_name, com, val);
1231   return ok;
1232 }
1233 #endif
1234
1235 /* Set all three timeout values. */
1236
1237 static bool
1238 cmd_spec_timeout (const char *com, const char *val, void *place_ignored)
1239 {
1240   double value;
1241   if (!cmd_time (com, val, &value))
1242     return false;
1243   opt.read_timeout = value;
1244   opt.connect_timeout = value;
1245   opt.dns_timeout = value;
1246   return true;
1247 }
1248
1249 static bool
1250 cmd_spec_useragent (const char *com, const char *val, void *place_ignored)
1251 {
1252   /* Disallow embedded newlines.  */
1253   if (strchr (val, '\n'))
1254     {
1255       fprintf (stderr, _("%s: %s: Invalid value `%s'.\n"),
1256                exec_name, com, val);
1257       return false;
1258     }
1259   xfree_null (opt.useragent);
1260   opt.useragent = xstrdup (val);
1261   return true;
1262 }
1263
1264 /* The "verbose" option cannot be cmd_boolean because the variable is
1265    not bool -- it's of type int (-1 means uninitialized because of
1266    some random hackery for disallowing -q -v).  */
1267
1268 static bool
1269 cmd_spec_verbose (const char *com, const char *val, void *place_ignored)
1270 {
1271   bool flag;
1272   if (cmd_boolean (com, val, &flag))
1273     {
1274       opt.verbose = flag;
1275       return true;
1276     }
1277   return false;
1278 }
1279 \f
1280 /* Miscellaneous useful routines.  */
1281
1282 /* A very simple atoi clone, more useful than atoi because it works on
1283    delimited strings, and has error reportage.  Returns true on success,
1284    false on failure.  If successful, stores result to *DEST.  */
1285
1286 static bool
1287 simple_atoi (const char *beg, const char *end, int *dest)
1288 {
1289   int result = 0;
1290   bool negative = false;
1291   const char *p = beg;
1292
1293   while (p < end && ISSPACE (*p))
1294     ++p;
1295   if (p < end && (*p == '-' || *p == '+'))
1296     {
1297       negative = (*p == '-');
1298       ++p;
1299     }
1300   if (p == end)
1301     return false;
1302
1303   /* Read negative numbers in a separate loop because the most
1304      negative integer cannot be represented as a positive number.  */
1305
1306   if (!negative)
1307     for (; p < end && ISDIGIT (*p); p++)
1308       {
1309         int next = (10 * result) + (*p - '0');
1310         if (next < result)
1311           return false;         /* overflow */
1312         result = next;
1313       }
1314   else
1315     for (; p < end && ISDIGIT (*p); p++)
1316       {
1317         int next = (10 * result) - (*p - '0');
1318         if (next > result)
1319           return false;         /* underflow */
1320         result = next;
1321       }
1322
1323   if (p != end)
1324     return false;
1325
1326   *dest = result;
1327   return true;
1328 }
1329
1330 /* Trivial atof, with error reporting.  Handles "<digits>[.<digits>]",
1331    doesn't handle exponential notation.  Returns true on success,
1332    false on failure.  In case of success, stores its result to
1333    *DEST.  */
1334
1335 static bool
1336 simple_atof (const char *beg, const char *end, double *dest)
1337 {
1338   double result = 0;
1339
1340   bool negative = false;
1341   bool seen_dot = false;
1342   bool seen_digit = false;
1343   double divider = 1;
1344
1345   const char *p = beg;
1346
1347   while (p < end && ISSPACE (*p))
1348     ++p;
1349   if (p < end && (*p == '-' || *p == '+'))
1350     {
1351       negative = (*p == '-');
1352       ++p;
1353     }
1354
1355   for (; p < end; p++)
1356     {
1357       char ch = *p;
1358       if (ISDIGIT (ch))
1359         {
1360           if (!seen_dot)
1361             result = (10 * result) + (ch - '0');
1362           else
1363             result += (ch - '0') / (divider *= 10);
1364           seen_digit = true;
1365         }
1366       else if (ch == '.')
1367         {
1368           if (!seen_dot)
1369             seen_dot = true;
1370           else
1371             return false;
1372         }
1373       else
1374         return false;
1375     }
1376   if (!seen_digit)
1377     return false;
1378   if (negative)
1379     result = -result;
1380
1381   *dest = result;
1382   return true;
1383 }
1384
1385 /* Verify that the user-specified header in S is valid.  It must
1386    contain a colon preceded by non-white-space characters and must not
1387    contain newlines.  */
1388
1389 static bool
1390 check_user_specified_header (const char *s)
1391 {
1392   const char *p;
1393
1394   for (p = s; *p && *p != ':' && !ISSPACE (*p); p++)
1395     ;
1396   /* The header MUST contain `:' preceded by at least one
1397      non-whitespace character.  */
1398   if (*p != ':' || p == s)
1399     return false;
1400   /* The header MUST NOT contain newlines.  */
1401   if (strchr (s, '\n'))
1402     return false;
1403   return true;
1404 }
1405
1406 /* Decode VAL into a number, according to ITEMS. */
1407
1408 static bool
1409 decode_string (const char *val, const struct decode_item *items, int itemcount,
1410                int *place)
1411 {
1412   int i;
1413   for (i = 0; i < itemcount; i++)
1414     if (0 == strcasecmp (val, items[i].name))
1415       {
1416         *place = items[i].code;
1417         return true;
1418       }
1419   return false;
1420 }
1421
1422 \f
1423 void cleanup_html_url (void);
1424
1425
1426 /* Free the memory allocated by global variables.  */
1427 void
1428 cleanup (void)
1429 {
1430   /* Free external resources, close files, etc. */
1431
1432   if (output_stream)
1433     fclose (output_stream);
1434   /* No need to check for error because Wget flushes its output (and
1435      checks for errors) after any data arrives.  */
1436
1437   /* We're exiting anyway so there's no real need to call free()
1438      hundreds of times.  Skipping the frees will make Wget exit
1439      faster.
1440
1441      However, when detecting leaks, it's crucial to free() everything
1442      because then you can find the real leaks, i.e. the allocated
1443      memory which grows with the size of the program.  */
1444
1445 #ifdef DEBUG_MALLOC
1446   convert_cleanup ();
1447   res_cleanup ();
1448   http_cleanup ();
1449   cleanup_html_url ();
1450   host_cleanup ();
1451   log_cleanup ();
1452
1453   {
1454     extern acc_t *netrc_list;
1455     free_netrc (netrc_list);
1456   }
1457   xfree_null (opt.lfilename);
1458   xfree_null (opt.dir_prefix);
1459   xfree_null (opt.input_filename);
1460   xfree_null (opt.output_document);
1461   free_vec (opt.accepts);
1462   free_vec (opt.rejects);
1463   free_vec (opt.excludes);
1464   free_vec (opt.includes);
1465   free_vec (opt.domains);
1466   free_vec (opt.follow_tags);
1467   free_vec (opt.ignore_tags);
1468   xfree_null (opt.progress_type);
1469   xfree_null (opt.ftp_user);
1470   xfree_null (opt.ftp_passwd);
1471   xfree_null (opt.ftp_proxy);
1472   xfree_null (opt.https_proxy);
1473   xfree_null (opt.http_proxy);
1474   free_vec (opt.no_proxy);
1475   xfree_null (opt.useragent);
1476   xfree_null (opt.referer);
1477   xfree_null (opt.http_user);
1478   xfree_null (opt.http_passwd);
1479   free_vec (opt.user_headers);
1480 # ifdef HAVE_SSL
1481   xfree_null (opt.cert_file);
1482   xfree_null (opt.private_key);
1483   xfree_null (opt.ca_directory);
1484   xfree_null (opt.ca_cert);
1485   xfree_null (opt.random_file);
1486   xfree_null (opt.egd_file);
1487 # endif
1488   xfree_null (opt.bind_address);
1489   xfree_null (opt.cookies_input);
1490   xfree_null (opt.cookies_output);
1491   xfree_null (opt.user);
1492   xfree_null (opt.passwd);
1493 #endif /* DEBUG_MALLOC */
1494 }