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

   1 /* Command line parsing.
   2    Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
   3    2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
   4
   5 This file is part of GNU Wget.
   6
   7 GNU Wget is free software; you can redistribute it and/or modify
   8 it under the terms of the GNU General Public License as published by
   9 the Free Software Foundation; either version 3 of the License, or
  10 (at your option) any later version.
  11
  12 GNU Wget is distributed in the hope that it will be useful,
  13 but WITHOUT ANY WARRANTY; without even the implied warranty of
  14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15 GNU General Public License for more details.
  16
  17 You should have received a copy of the GNU General Public License
  18 along with Wget.  If not, see <http://www.gnu.org/licenses/>.
  19
  20 Additional permission under GNU GPL version 3 section 7
  21
  22 If you modify this program, or any covered work, by linking or
  23 combining it with the OpenSSL project's OpenSSL library (or a
  24 modified version of that library), containing parts covered by the
  25 terms of the OpenSSL or SSLeay licenses, the Free Software Foundation
  26 grants you additional permission to convey the resulting work.
  27 Corresponding Source for a non-source form of such a combination
  28 shall include the source code for the parts of OpenSSL used as well
  29 as that of the covered work.  */
  30
  31 #include "wget.h"
  32
  33 #include <stdio.h>
  34 #include <stdlib.h>
  35 #ifdef HAVE_UNISTD_H
  36 # include <unistd.h>
  37 #endif /* HAVE_UNISTD_H */
  38 #include <string.h>
  39 #include <signal.h>
  40 #ifdef ENABLE_NLS
  41 # include <locale.h>
  42 #endif
  43 #include <assert.h>
  44 #include <errno.h>
  45 #include <time.h>
  46
  47 #include "exits.h"
  48 #include "utils.h"
  49 #include "init.h"
  50 #include "retr.h"
  51 #include "recur.h"
  52 #include "host.h"
  53 #include "url.h"
  54 #include "progress.h"           /* for progress_handle_sigwinch */
  55 #include "convert.h"
  56 #include "spider.h"
  57 #include "http.h"               /* for save_cookies */
  58
  59 #include <getopt.h>
  60 #include <getpass.h>
  61 #include <quote.h>
  62
  63 #ifdef __VMS
  64 #include "vms.h"
  65 #endif /* __VMS */
  66
  67 #ifndef PATH_SEPARATOR
  68 # define PATH_SEPARATOR '/'
  69 #endif
  70
  71 struct options opt;
  72
  73 /* defined in version.c */
  74 extern char *version_string;
  75 extern char *compilation_string;
  76 extern char *system_getrc;
  77 extern char *link_string;
  78 /* defined in build_info.c */
  79 extern const char *compiled_features[];
  80 /* Used for --version output in print_version */
  81 #define MAX_CHARS_PER_LINE      72
  82 #define TABULATION              4
  83
  84 #if defined(SIGHUP) || defined(SIGUSR1)
  85 static void redirect_output_signal (int);
  86 #endif
  87
  88 const char *exec_name;
  89
  90 /* Number of successfully downloaded URLs */
  91 int numurls = 0;
  92 \f
  93 #ifndef TESTING
  94 /* Initialize I18N/L10N.  That amounts to invoking setlocale, and
  95    setting up gettext's message catalog using bindtextdomain and
  96    textdomain.  Does nothing if NLS is disabled or missing.  */
  97
  98 static void
  99 i18n_initialize (void)
 100 {
 101   /* ENABLE_NLS implies existence of functions invoked here.  */
 102 #ifdef ENABLE_NLS
 103   /* Set the current locale.  */
 104   setlocale (LC_ALL, "");
 105   /* Set the text message domain.  */
 106   bindtextdomain ("wget", LOCALEDIR);
 107   textdomain ("wget");
 108 #endif /* ENABLE_NLS */
 109 }
 110 \f
 111 /* Definition of command-line options. */
 112
 113 static void print_help (void);
 114 static void print_version (void);
 115
 116 #ifdef HAVE_SSL
 117 # define IF_SSL(x) x
 118 #else
 119 # define IF_SSL(x) NULL
 120 #endif
 121
 122 #ifdef ENABLE_DEBUG
 123 # define WHEN_DEBUG(x) x
 124 #else
 125 # define WHEN_DEBUG(x) NULL
 126 #endif
 127
 128 struct cmdline_option {
 129   const char *long_name;
 130   char short_name;
 131   enum {
 132     OPT_VALUE,
 133     OPT_BOOLEAN,
 134     OPT_FUNCALL,
 135     /* Non-standard options that have to be handled specially in
 136        main().  */
 137     OPT__APPEND_OUTPUT,
 138     OPT__CLOBBER,
 139     OPT__DONT_REMOVE_LISTING,
 140     OPT__EXECUTE,
 141     OPT__NO,
 142     OPT__PARENT
 143   } type;
 144   const void *data;             /* for standard options */
 145   int argtype;                  /* for non-standard options */
 146 };
 147
 148 static struct cmdline_option option_data[] =
 149   {
 150     { "accept", 'A', OPT_VALUE, "accept", -1 },
 151     { "adjust-extension", 'E', OPT_BOOLEAN, "adjustextension", -1 },
 152     { "append-output", 'a', OPT__APPEND_OUTPUT, NULL, required_argument },
 153     { "ask-password", 0, OPT_BOOLEAN, "askpassword", -1 },
 154     { "auth-no-challenge", 0, OPT_BOOLEAN, "authnochallenge", -1 },
 155     { "background", 'b', OPT_BOOLEAN, "background", -1 },
 156     { "backup-converted", 'K', OPT_BOOLEAN, "backupconverted", -1 },
 157     { "backups", 0, OPT_BOOLEAN, "backups", -1 },
 158     { "base", 'B', OPT_VALUE, "base", -1 },
 159     { "bind-address", 0, OPT_VALUE, "bindaddress", -1 },
 160     { IF_SSL ("ca-certificate"), 0, OPT_VALUE, "cacertificate", -1 },
 161     { IF_SSL ("ca-directory"), 0, OPT_VALUE, "cadirectory", -1 },
 162     { "cache", 0, OPT_BOOLEAN, "cache", -1 },
 163     { IF_SSL ("certificate"), 0, OPT_VALUE, "certificate", -1 },
 164     { IF_SSL ("certificate-type"), 0, OPT_VALUE, "certificatetype", -1 },
 165     { IF_SSL ("check-certificate"), 0, OPT_BOOLEAN, "checkcertificate", -1 },
 166     { "clobber", 0, OPT__CLOBBER, NULL, optional_argument },
 167     { "connect-timeout", 0, OPT_VALUE, "connecttimeout", -1 },
 168     { "continue", 'c', OPT_BOOLEAN, "continue", -1 },
 169     { "convert-links", 'k', OPT_BOOLEAN, "convertlinks", -1 },
 170     { "content-disposition", 0, OPT_BOOLEAN, "contentdisposition", -1 },
 171     { "cookies", 0, OPT_BOOLEAN, "cookies", -1 },
 172     { "cut-dirs", 0, OPT_VALUE, "cutdirs", -1 },
 173     { WHEN_DEBUG ("debug"), 'd', OPT_BOOLEAN, "debug", -1 },
 174     { "default-page", 0, OPT_VALUE, "defaultpage", -1 },
 175     { "delete-after", 0, OPT_BOOLEAN, "deleteafter", -1 },
 176     { "directories", 0, OPT_BOOLEAN, "dirstruct", -1 },
 177     { "directory-prefix", 'P', OPT_VALUE, "dirprefix", -1 },
 178     { "dns-cache", 0, OPT_BOOLEAN, "dnscache", -1 },
 179     { "dns-timeout", 0, OPT_VALUE, "dnstimeout", -1 },
 180     { "domains", 'D', OPT_VALUE, "domains", -1 },
 181     { "dont-remove-listing", 0, OPT__DONT_REMOVE_LISTING, NULL, no_argument },
 182     { "dot-style", 0, OPT_VALUE, "dotstyle", -1 }, /* deprecated */
 183     { "egd-file", 0, OPT_VALUE, "egdfile", -1 },
 184     { "exclude-directories", 'X', OPT_VALUE, "excludedirectories", -1 },
 185     { "exclude-domains", 0, OPT_VALUE, "excludedomains", -1 },
 186     { "execute", 'e', OPT__EXECUTE, NULL, required_argument },
 187     { "follow-ftp", 0, OPT_BOOLEAN, "followftp", -1 },
 188     { "follow-tags", 0, OPT_VALUE, "followtags", -1 },
 189     { "force-directories", 'x', OPT_BOOLEAN, "dirstruct", -1 },
 190     { "force-html", 'F', OPT_BOOLEAN, "forcehtml", -1 },
 191     { "ftp-password", 0, OPT_VALUE, "ftppassword", -1 },
 192 #ifdef __VMS
 193     { "ftp-stmlf", 0, OPT_BOOLEAN, "ftpstmlf", -1 },
 194 #endif /* def __VMS */
 195     { "ftp-user", 0, OPT_VALUE, "ftpuser", -1 },
 196     { "glob", 0, OPT_BOOLEAN, "glob", -1 },
 197     { "header", 0, OPT_VALUE, "header", -1 },
 198     { "help", 'h', OPT_FUNCALL, (void *)print_help, no_argument },
 199     { "host-directories", 0, OPT_BOOLEAN, "addhostdir", -1 },
 200     { "html-extension", 'E', OPT_BOOLEAN, "adjustextension", -1 }, /* deprecated */
 201     { "htmlify", 0, OPT_BOOLEAN, "htmlify", -1 },
 202     { "http-keep-alive", 0, OPT_BOOLEAN, "httpkeepalive", -1 },
 203     { "http-passwd", 0, OPT_VALUE, "httppassword", -1 }, /* deprecated */
 204     { "http-password", 0, OPT_VALUE, "httppassword", -1 },
 205     { "http-user", 0, OPT_VALUE, "httpuser", -1 },
 206     { "ignore-case", 0, OPT_BOOLEAN, "ignorecase", -1 },
 207     { "ignore-length", 0, OPT_BOOLEAN, "ignorelength", -1 },
 208     { "ignore-tags", 0, OPT_VALUE, "ignoretags", -1 },
 209     { "include-directories", 'I', OPT_VALUE, "includedirectories", -1 },
 210 #ifdef ENABLE_IPV6
 211     { "inet4-only", '4', OPT_BOOLEAN, "inet4only", -1 },
 212     { "inet6-only", '6', OPT_BOOLEAN, "inet6only", -1 },
 213 #endif
 214     { "input-file", 'i', OPT_VALUE, "input", -1 },
 215     { "iri", 0, OPT_BOOLEAN, "iri", -1 },
 216     { "keep-session-cookies", 0, OPT_BOOLEAN, "keepsessioncookies", -1 },
 217     { "level", 'l', OPT_VALUE, "reclevel", -1 },
 218     { "limit-rate", 0, OPT_VALUE, "limitrate", -1 },
 219     { "load-cookies", 0, OPT_VALUE, "loadcookies", -1 },
 220     { "local-encoding", 0, OPT_VALUE, "localencoding", -1 },
 221     { "max-redirect", 0, OPT_VALUE, "maxredirect", -1 },
 222     { "mirror", 'm', OPT_BOOLEAN, "mirror", -1 },
 223     { "no", 'n', OPT__NO, NULL, required_argument },
 224     { "no-clobber", 0, OPT_BOOLEAN, "noclobber", -1 },
 225     { "no-parent", 0, OPT_BOOLEAN, "noparent", -1 },
 226     { "output-document", 'O', OPT_VALUE, "outputdocument", -1 },
 227     { "output-file", 'o', OPT_VALUE, "logfile", -1 },
 228     { "page-requisites", 'p', OPT_BOOLEAN, "pagerequisites", -1 },
 229     { "parent", 0, OPT__PARENT, NULL, optional_argument },
 230     { "passive-ftp", 0, OPT_BOOLEAN, "passiveftp", -1 },
 231     { "password", 0, OPT_VALUE, "password", -1 },
 232     { "post-data", 0, OPT_VALUE, "postdata", -1 },
 233     { "post-file", 0, OPT_VALUE, "postfile", -1 },
 234     { "prefer-family", 0, OPT_VALUE, "preferfamily", -1 },
 235     { "preserve-permissions", 0, OPT_BOOLEAN, "preservepermissions", -1 }, /* deprecated */
 236     { IF_SSL ("private-key"), 0, OPT_VALUE, "privatekey", -1 },
 237     { IF_SSL ("private-key-type"), 0, OPT_VALUE, "privatekeytype", -1 },
 238     { "progress", 0, OPT_VALUE, "progress", -1 },
 239     { "protocol-directories", 0, OPT_BOOLEAN, "protocoldirectories", -1 },
 240     { "proxy", 0, OPT_BOOLEAN, "useproxy", -1 },
 241     { "proxy__compat", 'Y', OPT_VALUE, "useproxy", -1 }, /* back-compatible */
 242     { "proxy-passwd", 0, OPT_VALUE, "proxypassword", -1 }, /* deprecated */
 243     { "proxy-password", 0, OPT_VALUE, "proxypassword", -1 },
 244     { "proxy-user", 0, OPT_VALUE, "proxyuser", -1 },
 245     { "quiet", 'q', OPT_BOOLEAN, "quiet", -1 },
 246     { "quota", 'Q', OPT_VALUE, "quota", -1 },
 247     { "random-file", 0, OPT_VALUE, "randomfile", -1 },
 248     { "random-wait", 0, OPT_BOOLEAN, "randomwait", -1 },
 249     { "read-timeout", 0, OPT_VALUE, "readtimeout", -1 },
 250     { "recursive", 'r', OPT_BOOLEAN, "recursive", -1 },
 251     { "referer", 0, OPT_VALUE, "referer", -1 },
 252     { "reject", 'R', OPT_VALUE, "reject", -1 },
 253     { "relative", 'L', OPT_BOOLEAN, "relativeonly", -1 },
 254     { "remote-encoding", 0, OPT_VALUE, "remoteencoding", -1 },
 255     { "remove-listing", 0, OPT_BOOLEAN, "removelisting", -1 },
 256     { "restrict-file-names", 0, OPT_BOOLEAN, "restrictfilenames", -1 },
 257     { "retr-symlinks", 0, OPT_BOOLEAN, "retrsymlinks", -1 },
 258     { "retry-connrefused", 0, OPT_BOOLEAN, "retryconnrefused", -1 },
 259     { "save-cookies", 0, OPT_VALUE, "savecookies", -1 },
 260     { "save-headers", 0, OPT_BOOLEAN, "saveheaders", -1 },
 261     { IF_SSL ("secure-protocol"), 0, OPT_VALUE, "secureprotocol", -1 },
 262     { "server-response", 'S', OPT_BOOLEAN, "serverresponse", -1 },
 263     { "span-hosts", 'H', OPT_BOOLEAN, "spanhosts", -1 },
 264     { "spider", 0, OPT_BOOLEAN, "spider", -1 },
 265     { "strict-comments", 0, OPT_BOOLEAN, "strictcomments", -1 },
 266     { "timeout", 'T', OPT_VALUE, "timeout", -1 },
 267     { "timestamping", 'N', OPT_BOOLEAN, "timestamping", -1 },
 268     { "tries", 't', OPT_VALUE, "tries", -1 },
 269     { "unlink", 0, OPT_BOOLEAN, "unlink", -1 },
 270     { "trust-server-names", 0, OPT_BOOLEAN, "trustservernames", -1 },
 271     { "use-server-timestamps", 0, OPT_BOOLEAN, "useservertimestamps", -1 },
 272     { "user", 0, OPT_VALUE, "user", -1 },
 273     { "user-agent", 'U', OPT_VALUE, "useragent", -1 },
 274     { "verbose", 'v', OPT_BOOLEAN, "verbose", -1 },
 275     { "verbose", 0, OPT_BOOLEAN, "verbose", -1 },
 276     { "version", 'V', OPT_FUNCALL, (void *) print_version, no_argument },
 277     { "wait", 'w', OPT_VALUE, "wait", -1 },
 278     { "waitretry", 0, OPT_VALUE, "waitretry", -1 },
 279 #ifdef USE_WATT32
 280     { "wdebug", 0, OPT_BOOLEAN, "wdebug", -1 },
 281 #endif
 282   };
 283
 284 #undef WHEN_DEBUG
 285 #undef IF_SSL
 286
 287 /* Return a string that contains S with "no-" prepended.  The string
 288    is NUL-terminated and allocated off static storage at Wget
 289    startup.  */
 290
 291 static char *
 292 no_prefix (const char *s)
 293 {
 294   static char buffer[1024];
 295   static char *p = buffer;
 296
 297   char *cp = p;
 298   int size = 3 + strlen (s) + 1;  /* "no-STRING\0" */
 299   if (p + size >= buffer + sizeof (buffer))
 300     abort ();
 301
 302   cp[0] = 'n', cp[1] = 'o', cp[2] = '-';
 303   strcpy (cp + 3, s);
 304   p += size;
 305   return cp;
 306 }
 307
 308 /* The arguments that that main passes to getopt_long. */
 309 static struct option long_options[2 * countof (option_data) + 1];
 310 static char short_options[128];
 311
 312 /* Mapping between short option chars and option_data indices. */
 313 static unsigned char optmap[96];
 314
 315 /* Marker for `--no-FOO' values in long_options.  */
 316 #define BOOLEAN_NEG_MARKER 1024
 317
 318 /* Initialize the long_options array used by getopt_long from the data
 319    in option_data.  */
 320
 321 static void
 322 init_switches (void)
 323 {
 324   char *p = short_options;
 325   size_t i, o = 0;
 326   for (i = 0; i < countof (option_data); i++)
 327     {
 328       struct cmdline_option *opt = &option_data[i];
 329       struct option *longopt;
 330
 331       if (!opt->long_name)
 332         /* The option is disabled. */
 333         continue;
 334
 335       longopt = &long_options[o++];
 336       longopt->name = opt->long_name;
 337       longopt->val = i;
 338       if (opt->short_name)
 339         {
 340           *p++ = opt->short_name;
 341           optmap[opt->short_name - 32] = longopt - long_options;
 342         }
 343       switch (opt->type)
 344         {
 345         case OPT_VALUE:
 346           longopt->has_arg = required_argument;
 347           if (opt->short_name)
 348             *p++ = ':';
 349           break;
 350         case OPT_BOOLEAN:
 351           /* Specify an optional argument for long options, so that
 352              --option=off works the same as --no-option, for
 353              compatibility with pre-1.10 Wget.  However, don't specify
 354              optional arguments short-option booleans because they
 355              prevent combining of short options.  */
 356           longopt->has_arg = optional_argument;
 357           /* For Boolean options, add the "--no-FOO" variant, which is
 358              identical to "--foo", except it has opposite meaning and
 359              it doesn't allow an argument.  */
 360           longopt = &long_options[o++];
 361           longopt->name = no_prefix (opt->long_name);
 362           longopt->has_arg = no_argument;
 363           /* Mask the value so we'll be able to recognize that we're
 364              dealing with the false value.  */
 365           longopt->val = i | BOOLEAN_NEG_MARKER;
 366           break;
 367         default:
 368           assert (opt->argtype != -1);
 369           longopt->has_arg = opt->argtype;
 370           if (opt->short_name)
 371             {
 372               if (longopt->has_arg == required_argument)
 373                 *p++ = ':';
 374               /* Don't handle optional_argument */
 375             }
 376         }
 377     }
 378   /* Terminate short_options. */
 379   *p = '\0';
 380   /* No need for xzero(long_options[o]) because its storage is static
 381      and it will be zeroed by default.  */
 382   assert (o <= countof (long_options));
 383 }
 384
 385 /* Print the usage message.  */
 386 static void
 387 print_usage (int error)
 388 {
 389   fprintf (error ? stderr : stdout, _("Usage: %s [OPTION]... [URL]...\n"),
 390            exec_name);
 391 }
 392
 393 /* Print the help message, describing all the available options.  If
 394    you add an option, be sure to update this list.  */
 395 static void
 396 print_help (void)
 397 {
 398   /* We split the help text this way to ease translation of individual
 399      entries.  */
 400   static const char *help[] = {
 401     "\n",
 402     N_("\
 403 Mandatory arguments to long options are mandatory for short options too.\n\n"),
 404     N_("\
 405 Startup:\n"),
 406     N_("\
 407   -V,  --version           display the version of Wget and exit.\n"),
 408     N_("\
 409   -h,  --help              print this help.\n"),
 410     N_("\
 411   -b,  --background        go to background after startup.\n"),
 412     N_("\
 413   -e,  --execute=COMMAND   execute a `.wgetrc'-style command.\n"),
 414     "\n",
 415
 416     N_("\
 417 Logging and input file:\n"),
 418     N_("\
 419   -o,  --output-file=FILE    log messages to FILE.\n"),
 420     N_("\
 421   -a,  --append-output=FILE  append messages to FILE.\n"),
 422 #ifdef ENABLE_DEBUG
 423     N_("\
 424   -d,  --debug               print lots of debugging information.\n"),
 425 #endif
 426 #ifdef USE_WATT32
 427     N_("\
 428        --wdebug              print Watt-32 debug output.\n"),
 429 #endif
 430     N_("\
 431   -q,  --quiet               quiet (no output).\n"),
 432     N_("\
 433   -v,  --verbose             be verbose (this is the default).\n"),
 434     N_("\
 435   -nv, --no-verbose          turn off verboseness, without being quiet.\n"),
 436     N_("\
 437   -i,  --input-file=FILE     download URLs found in local or external FILE.\n"),
 438     N_("\
 439   -F,  --force-html          treat input file as HTML.\n"),
 440     N_("\
 441   -B,  --base=URL            resolves HTML input-file links (-i -F)\n\
 442                              relative to URL.\n"),
 443     "\n",
 444
 445     N_("\
 446 Download:\n"),
 447     N_("\
 448   -t,  --tries=NUMBER            set number of retries to NUMBER (0 unlimits).\n"),
 449     N_("\
 450        --retry-connrefused       retry even if connection is refused.\n"),
 451     N_("\
 452   -O,  --output-document=FILE    write documents to FILE.\n"),
 453     N_("\
 454   -nc, --no-clobber              skip downloads that would download to\n\
 455                                  existing files.\n"),
 456     N_("\
 457   -c,  --continue                resume getting a partially-downloaded file.\n"),
 458     N_("\
 459        --progress=TYPE           select progress gauge type.\n"),
 460     N_("\
 461   -N,  --timestamping            don't re-retrieve files unless newer than\n\
 462                                  local.\n"),
 463     N_("\
 464   --no-use-server-timestamps     don't set the local file's timestamp by\n\
 465                                  the one on the server.\n"),
 466     N_("\
 467   -S,  --server-response         print server response.\n"),
 468     N_("\
 469        --spider                  don't download anything.\n"),
 470     N_("\
 471   -T,  --timeout=SECONDS         set all timeout values to SECONDS.\n"),
 472     N_("\
 473        --dns-timeout=SECS        set the DNS lookup timeout to SECS.\n"),
 474     N_("\
 475        --connect-timeout=SECS    set the connect timeout to SECS.\n"),
 476     N_("\
 477        --read-timeout=SECS       set the read timeout to SECS.\n"),
 478     N_("\
 479   -w,  --wait=SECONDS            wait SECONDS between retrievals.\n"),
 480     N_("\
 481        --waitretry=SECONDS       wait 1..SECONDS between retries of a retrieval.\n"),
 482     N_("\
 483        --random-wait             wait from 0.5*WAIT...1.5*WAIT secs between retrievals.\n"),
 484     N_("\
 485        --no-proxy                explicitly turn off proxy.\n"),
 486     N_("\
 487   -Q,  --quota=NUMBER            set retrieval quota to NUMBER.\n"),
 488     N_("\
 489        --bind-address=ADDRESS    bind to ADDRESS (hostname or IP) on local host.\n"),
 490     N_("\
 491        --limit-rate=RATE         limit download rate to RATE.\n"),
 492     N_("\
 493        --no-dns-cache            disable caching DNS lookups.\n"),
 494     N_("\
 495        --restrict-file-names=OS  restrict chars in file names to ones OS allows.\n"),
 496     N_("\
 497        --ignore-case             ignore case when matching files/directories.\n"),
 498 #ifdef ENABLE_IPV6
 499     N_("\
 500   -4,  --inet4-only              connect only to IPv4 addresses.\n"),
 501     N_("\
 502   -6,  --inet6-only              connect only to IPv6 addresses.\n"),
 503     N_("\
 504        --prefer-family=FAMILY    connect first to addresses of specified family,\n\
 505                                  one of IPv6, IPv4, or none.\n"),
 506 #endif
 507     N_("\
 508        --user=USER               set both ftp and http user to USER.\n"),
 509     N_("\
 510        --password=PASS           set both ftp and http password to PASS.\n"),
 511     N_("\
 512        --ask-password            prompt for passwords.\n"),
 513     N_("\
 514        --no-iri                  turn off IRI support.\n"),
 515     N_("\
 516        --local-encoding=ENC      use ENC as the local encoding for IRIs.\n"),
 517     N_("\
 518        --remote-encoding=ENC     use ENC as the default remote encoding.\n"),
 519     N_("\
 520        --unlink                  remove file before clobber.\n"),
 521     "\n",
 522
 523     N_("\
 524 Directories:\n"),
 525     N_("\
 526   -nd, --no-directories           don't create directories.\n"),
 527     N_("\
 528   -x,  --force-directories        force creation of directories.\n"),
 529     N_("\
 530   -nH, --no-host-directories      don't create host directories.\n"),
 531     N_("\
 532        --protocol-directories     use protocol name in directories.\n"),
 533     N_("\
 534   -P,  --directory-prefix=PREFIX  save files to PREFIX/...\n"),
 535     N_("\
 536        --cut-dirs=NUMBER          ignore NUMBER remote directory components.\n"),
 537     "\n",
 538
 539     N_("\
 540 HTTP options:\n"),
 541     N_("\
 542        --http-user=USER        set http user to USER.\n"),
 543     N_("\
 544        --http-password=PASS    set http password to PASS.\n"),
 545     N_("\
 546        --no-cache              disallow server-cached data.\n"),
 547     N_ ("\
 548        --default-page=NAME     Change the default page name (normally\n\
 549                                this is `index.html'.).\n"),
 550     N_("\
 551   -E,  --adjust-extension      save HTML/CSS documents with proper extensions.\n"),
 552     N_("\
 553        --ignore-length         ignore `Content-Length' header field.\n"),
 554     N_("\
 555        --header=STRING         insert STRING among the headers.\n"),
 556     N_("\
 557        --max-redirect          maximum redirections allowed per page.\n"),
 558     N_("\
 559        --proxy-user=USER       set USER as proxy username.\n"),
 560     N_("\
 561        --proxy-password=PASS   set PASS as proxy password.\n"),
 562     N_("\
 563        --referer=URL           include `Referer: URL' header in HTTP request.\n"),
 564     N_("\
 565        --save-headers          save the HTTP headers to file.\n"),
 566     N_("\
 567   -U,  --user-agent=AGENT      identify as AGENT instead of Wget/VERSION.\n"),
 568     N_("\
 569        --no-http-keep-alive    disable HTTP keep-alive (persistent connections).\n"),
 570     N_("\
 571        --no-cookies            don't use cookies.\n"),
 572     N_("\
 573        --load-cookies=FILE     load cookies from FILE before session.\n"),
 574     N_("\
 575        --save-cookies=FILE     save cookies to FILE after session.\n"),
 576     N_("\
 577        --keep-session-cookies  load and save session (non-permanent) cookies.\n"),
 578     N_("\
 579        --post-data=STRING      use the POST method; send STRING as the data.\n"),
 580     N_("\
 581        --post-file=FILE        use the POST method; send contents of FILE.\n"),
 582     N_("\
 583        --content-disposition   honor the Content-Disposition header when\n\
 584                                choosing local file names (EXPERIMENTAL).\n"),
 585     N_("\
 586        --auth-no-challenge     send Basic HTTP authentication information\n\
 587                                without first waiting for the server's\n\
 588                                challenge.\n"),
 589     "\n",
 590
 591 #ifdef HAVE_SSL
 592     N_("\
 593 HTTPS (SSL/TLS) options:\n"),
 594     N_("\
 595        --secure-protocol=PR     choose secure protocol, one of auto, SSLv2,\n\
 596                                 SSLv3, and TLSv1.\n"),
 597     N_("\
 598        --no-check-certificate   don't validate the server's certificate.\n"),
 599     N_("\
 600        --certificate=FILE       client certificate file.\n"),
 601     N_("\
 602        --certificate-type=TYPE  client certificate type, PEM or DER.\n"),
 603     N_("\
 604        --private-key=FILE       private key file.\n"),
 605     N_("\
 606        --private-key-type=TYPE  private key type, PEM or DER.\n"),
 607     N_("\
 608        --ca-certificate=FILE    file with the bundle of CA's.\n"),
 609     N_("\
 610        --ca-directory=DIR       directory where hash list of CA's is stored.\n"),
 611     N_("\
 612        --random-file=FILE       file with random data for seeding the SSL PRNG.\n"),
 613     N_("\
 614        --egd-file=FILE          file naming the EGD socket with random data.\n"),
 615     "\n",
 616 #endif /* HAVE_SSL */
 617
 618     N_("\
 619 FTP options:\n"),
 620 #ifdef __VMS
 621     N_("\
 622        --ftp-stmlf             Use Stream_LF format for all binary FTP files.\n"),
 623 #endif /* def __VMS */
 624     N_("\
 625        --ftp-user=USER         set ftp user to USER.\n"),
 626     N_("\
 627        --ftp-password=PASS     set ftp password to PASS.\n"),
 628     N_("\
 629        --no-remove-listing     don't remove `.listing' files.\n"),
 630     N_("\
 631        --no-glob               turn off FTP file name globbing.\n"),
 632     N_("\
 633        --no-passive-ftp        disable the \"passive\" transfer mode.\n"),
 634     N_("\
 635        --retr-symlinks         when recursing, get linked-to files (not dir).\n"),
 636     "\n",
 637
 638     N_("\
 639 Recursive download:\n"),
 640     N_("\
 641   -r,  --recursive          specify recursive download.\n"),
 642     N_("\
 643   -l,  --level=NUMBER       maximum recursion depth (inf or 0 for infinite).\n"),
 644     N_("\
 645        --delete-after       delete files locally after downloading them.\n"),
 646     N_("\
 647   -k,  --convert-links      make links in downloaded HTML or CSS point to\n\
 648                             local files.\n"),
 649 #ifdef __VMS
 650     N_("\
 651   -K,  --backup-converted   before converting file X, back up as X_orig.\n"),
 652 #else /* def __VMS */
 653     N_("\
 654   -K,  --backup-converted   before converting file X, back up as X.orig.\n"),
 655 #endif /* def __VMS [else] */
 656     N_("\
 657   -m,  --mirror             shortcut for -N -r -l inf --no-remove-listing.\n"),
 658     N_("\
 659   -p,  --page-requisites    get all images, etc. needed to display HTML page.\n"),
 660     N_("\
 661        --strict-comments    turn on strict (SGML) handling of HTML comments.\n"),
 662     "\n",
 663
 664     N_("\
 665 Recursive accept/reject:\n"),
 666     N_("\
 667   -A,  --accept=LIST               comma-separated list of accepted extensions.\n"),
 668     N_("\
 669   -R,  --reject=LIST               comma-separated list of rejected extensions.\n"),
 670     N_("\
 671   -D,  --domains=LIST              comma-separated list of accepted domains.\n"),
 672     N_("\
 673        --exclude-domains=LIST      comma-separated list of rejected domains.\n"),
 674     N_("\
 675        --follow-ftp                follow FTP links from HTML documents.\n"),
 676     N_("\
 677        --follow-tags=LIST          comma-separated list of followed HTML tags.\n"),
 678     N_("\
 679        --ignore-tags=LIST          comma-separated list of ignored HTML tags.\n"),
 680     N_("\
 681   -H,  --span-hosts                go to foreign hosts when recursive.\n"),
 682     N_("\
 683   -L,  --relative                  follow relative links only.\n"),
 684     N_("\
 685   -I,  --include-directories=LIST  list of allowed directories.\n"),
 686     N_("\
 687   --trust-server-names             use the name specified by the redirection\n\
 688                                    url last component.\n"),
 689     N_("\
 690   -X,  --exclude-directories=LIST  list of excluded directories.\n"),
 691     N_("\
 692   -np, --no-parent                 don't ascend to the parent directory.\n"),
 693     "\n",
 694
 695     N_("Mail bug reports and suggestions to <bug-wget@gnu.org>.\n")
 696   };
 697
 698   size_t i;
 699
 700   printf (_("GNU Wget %s, a non-interactive network retriever.\n"),
 701           version_string);
 702   print_usage (0);
 703
 704   for (i = 0; i < countof (help); i++)
 705     fputs (_(help[i]), stdout);
 706
 707   exit (0);
 708 }
 709
 710 /* Return a human-readable printed representation of INTERVAL,
 711    measured in seconds.  */
 712
 713 static char *
 714 secs_to_human_time (double interval)
 715 {
 716   static char buf[32];
 717   int secs = (int) (interval + 0.5);
 718   int hours, mins, days;
 719
 720   days = secs / 86400, secs %= 86400;
 721   hours = secs / 3600, secs %= 3600;
 722   mins = secs / 60, secs %= 60;
 723
 724   if (days)
 725     sprintf (buf, "%dd %dh %dm %ds", days, hours, mins, secs);
 726   else if (hours)
 727     sprintf (buf, "%dh %dm %ds", hours, mins, secs);
 728   else if (mins)
 729     sprintf (buf, "%dm %ds", mins, secs);
 730   else
 731     sprintf (buf, "%ss", print_decimal (interval));
 732
 733   return buf;
 734 }
 735
 736 static char *
 737 prompt_for_password (void)
 738 {
 739   if (opt.user)
 740     printf (_("Password for user %s: "), quote (opt.user));
 741   else
 742     printf (_("Password: "));
 743   return getpass("");
 744 }
 745
 746 /* Function that prints the line argument while limiting it
 747    to at most line_length. prefix is printed on the first line
 748    and an appropriate number of spaces are added on subsequent
 749    lines.*/
 750 static void
 751 format_and_print_line (const char *prefix, const char *line,
 752                        int line_length)
 753 {
 754   int remaining_chars;
 755   char *line_dup, *token;
 756
 757   assert (prefix != NULL);
 758   assert (line != NULL);
 759
 760   line_dup = xstrdup (line);
 761
 762   if (line_length <= 0)
 763     line_length = MAX_CHARS_PER_LINE - TABULATION;
 764
 765   printf ("%s", prefix);
 766   remaining_chars = line_length;
 767   /* We break on spaces. */
 768   token = strtok (line_dup, " ");
 769   while (token != NULL)
 770     {
 771       /* If however a token is much larger than the maximum
 772          line length, all bets are off and we simply print the
 773          token on the next line. */
 774       if (remaining_chars <= strlen (token))
 775         {
 776           printf ("\n%*c", TABULATION, ' ');
 777           remaining_chars = line_length - TABULATION;
 778         }
 779       printf ("%s ", token);
 780       remaining_chars -= strlen (token) + 1;  /* account for " " */
 781       token = strtok (NULL, " ");
 782     }
 783
 784   printf ("\n");
 785
 786   xfree (line_dup);
 787 }
 788
 789 static void
 790 print_version (void)
 791 {
 792   const char *wgetrc_title  = _("Wgetrc: ");
 793   const char *locale_title  = _("Locale: ");
 794   const char *compile_title = _("Compile: ");
 795   const char *link_title    = _("Link: ");
 796   char *env_wgetrc, *user_wgetrc;
 797   int i;
 798
 799   printf (_("GNU Wget %s built on %s.\n\n"), version_string, OS_TYPE);
 800
 801   for (i = 0; compiled_features[i] != NULL; )
 802     {
 803       int line_length = MAX_CHARS_PER_LINE;
 804       while ((line_length > 0) && (compiled_features[i] != NULL))
 805         {
 806           printf ("%s ", compiled_features[i]);
 807           line_length -= strlen (compiled_features[i]) + 2;
 808           i++;
 809         }
 810       printf ("\n");
 811     }
 812   printf ("\n");
 813
 814   /* Handle the case when $WGETRC is unset and $HOME/.wgetrc is
 815      absent. */
 816   printf ("%s\n", wgetrc_title);
 817   env_wgetrc = wgetrc_env_file_name ();
 818   if (env_wgetrc && *env_wgetrc)
 819     {
 820       printf (_("    %s (env)\n"), env_wgetrc);
 821       xfree (env_wgetrc);
 822     }
 823   user_wgetrc = wgetrc_user_file_name ();
 824   if (user_wgetrc)
 825     {
 826       printf (_("    %s (user)\n"), user_wgetrc);
 827       xfree (user_wgetrc);
 828     }
 829 #ifdef SYSTEM_WGETRC
 830   printf (_("    %s (system)\n"), SYSTEM_WGETRC);
 831 #endif
 832
 833 #ifdef ENABLE_NLS
 834   format_and_print_line (locale_title,
 835                         LOCALEDIR,
 836                         MAX_CHARS_PER_LINE);
 837 #endif /* def ENABLE_NLS */
 838
 839   if (compilation_string != NULL)
 840     format_and_print_line (compile_title,
 841                            compilation_string,
 842                            MAX_CHARS_PER_LINE);
 843
 844   if (link_string != NULL)
 845     format_and_print_line (link_title,
 846                            link_string,
 847                            MAX_CHARS_PER_LINE);
 848
 849   printf ("\n");
 850   /* TRANSLATORS: When available, an actual copyright character
 851      (cirle-c) should be used in preference to "(C)". */
 852   fputs (_("\
 853 Copyright (C) 2009 Free Software Foundation, Inc.\n"), stdout);
 854   fputs (_("\
 855 License GPLv3+: GNU GPL version 3 or later\n\
 856 <http://www.gnu.org/licenses/gpl.html>.\n\
 857 This is free software: you are free to change and redistribute it.\n\
 858 There is NO WARRANTY, to the extent permitted by law.\n"), stdout);
 859   /* TRANSLATORS: When available, please use the proper diacritics for
 860      names such as this one. See en_US.po for reference. */
 861   fputs (_("\nOriginally written by Hrvoje Niksic <hniksic@xemacs.org>.\n"),
 862          stdout);
 863   fputs (_("Please send bug reports and questions to <bug-wget@gnu.org>.\n"),
 864          stdout);
 865   exit (0);
 866 }
 867
 868 char *program_name; /* Needed by lib/error.c. */
 869
 870 int
 871 main (int argc, char **argv)
 872 {
 873   char **url, **t;
 874   int i, ret, longindex;
 875   int nurl, status;
 876   bool append_to_log = false;
 877
 878   program_name = argv[0];
 879
 880   i18n_initialize ();
 881
 882   /* Construct the name of the executable, without the directory part.  */
 883 #ifdef __VMS
 884   /* On VMS, lose the "dev:[dir]" prefix and the ".EXE;nnn" suffix. */
 885   exec_name = vms_basename (argv[0]);
 886 #else /* def __VMS */
 887   exec_name = strrchr (argv[0], PATH_SEPARATOR);
 888   if (!exec_name)
 889     exec_name = argv[0];
 890   else
 891     ++exec_name;
 892 #endif /* def __VMS [else] */
 893
 894 #ifdef WINDOWS
 895   /* Drop extension (typically .EXE) from executable filename. */
 896   windows_main ((char **) &exec_name);
 897 #endif
 898
 899   /* Set option defaults; read the system wgetrc and ~/.wgetrc.  */
 900   initialize ();
 901
 902   init_switches ();
 903   longindex = -1;
 904   while ((ret = getopt_long (argc, argv,
 905                              short_options, long_options, &longindex)) != -1)
 906     {
 907       int val;
 908       struct cmdline_option *opt;
 909
 910       /* If LONGINDEX is unchanged, it means RET is referring a short
 911          option.  */
 912       if (longindex == -1)
 913         {
 914           if (ret == '?')
 915             {
 916               print_usage (0);
 917               printf ("\n");
 918               printf (_("Try `%s --help' for more options.\n"), exec_name);
 919               exit (2);
 920             }
 921           /* Find the short option character in the mapping.  */
 922           longindex = optmap[ret - 32];
 923         }
 924       val = long_options[longindex].val;
 925
 926       /* Use the retrieved value to locate the option in the
 927          option_data array, and to see if we're dealing with the
 928          negated "--no-FOO" variant of the boolean option "--foo".  */
 929       opt = &option_data[val & ~BOOLEAN_NEG_MARKER];
 930       switch (opt->type)
 931         {
 932         case OPT_VALUE:
 933           setoptval (opt->data, optarg, opt->long_name);
 934           break;
 935         case OPT_BOOLEAN:
 936           if (optarg)
 937             /* The user has specified a value -- use it. */
 938             setoptval (opt->data, optarg, opt->long_name);
 939           else
 940             {
 941               /* NEG is true for `--no-FOO' style boolean options. */
 942               bool neg = !!(val & BOOLEAN_NEG_MARKER);
 943               setoptval (opt->data, neg ? "0" : "1", opt->long_name);
 944             }
 945           break;
 946         case OPT_FUNCALL:
 947           {
 948             void (*func) (void) = (void (*) (void)) opt->data;
 949             func ();
 950           }
 951           break;
 952         case OPT__APPEND_OUTPUT:
 953           setoptval ("logfile", optarg, opt->long_name);
 954           append_to_log = true;
 955           break;
 956         case OPT__EXECUTE:
 957           run_command (optarg);
 958           break;
 959         case OPT__NO:
 960           {
 961             /* We support real --no-FOO flags now, but keep these
 962                short options for convenience and backward
 963                compatibility.  */
 964             char *p;
 965             for (p = optarg; *p; p++)
 966               switch (*p)
 967                 {
 968                 case 'v':
 969                   setoptval ("verbose", "0", opt->long_name);
 970                   break;
 971                 case 'H':
 972                   setoptval ("addhostdir", "0", opt->long_name);
 973                   break;
 974                 case 'd':
 975                   setoptval ("dirstruct", "0", opt->long_name);
 976                   break;
 977                 case 'c':
 978                   setoptval ("noclobber", "1", opt->long_name);
 979                   break;
 980                 case 'p':
 981                   setoptval ("noparent", "1", opt->long_name);
 982                   break;
 983                 default:
 984                   fprintf (stderr, _("%s: illegal option -- `-n%c'\n"),
 985                            exec_name, *p);
 986                   print_usage (1);
 987                   fprintf (stderr, "\n");
 988                   fprintf (stderr, _("Try `%s --help' for more options.\n"),
 989                            exec_name);
 990                   exit (1);
 991                 }
 992             break;
 993           }
 994         case OPT__PARENT:
 995         case OPT__CLOBBER:
 996           {
 997             /* The wgetrc commands are named noparent and noclobber,
 998                so we must revert the meaning of the cmdline options
 999                before passing the value to setoptval.  */
1000             bool flag = true;
1001             if (optarg)
1002               flag = (*optarg == '1' || c_tolower (*optarg) == 'y'
1003                       || (c_tolower (optarg[0]) == 'o'
1004                           && c_tolower (optarg[1]) == 'n'));
1005             setoptval (opt->type == OPT__PARENT ? "noparent" : "noclobber",
1006                        flag ? "0" : "1", opt->long_name);
1007             break;
1008           }
1009         case OPT__DONT_REMOVE_LISTING:
1010           setoptval ("removelisting", "0", opt->long_name);
1011           break;
1012         }
1013
1014       longindex = -1;
1015     }
1016
1017   nurl = argc - optind;
1018
1019   /* All user options have now been processed, so it's now safe to do
1020      interoption dependency checks. */
1021
1022   if (opt.reclevel == 0)
1023       opt.reclevel = INFINITE_RECURSION; /* see recur.h for commentary */
1024
1025   if (opt.spider || opt.delete_after)
1026       opt.no_dirstruct = true;
1027
1028   if (opt.page_requisites && !opt.recursive)
1029     {
1030       /* Don't set opt.recursive here because it would confuse the FTP
1031          code.  Instead, call retrieve_tree below when either
1032          page_requisites or recursive is requested.  */
1033       opt.reclevel = 0;
1034       if (!opt.no_dirstruct)
1035         opt.dirstruct = 1;      /* normally handled by cmd_spec_recursive() */
1036     }
1037
1038   if (opt.verbose == -1)
1039     opt.verbose = !opt.quiet;
1040
1041   /* Sanity checks.  */
1042   if (opt.verbose && opt.quiet)
1043     {
1044       fprintf (stderr, _("Can't be verbose and quiet at the same time.\n"));
1045       print_usage (1);
1046       exit (1);
1047     }
1048   if (opt.timestamping && opt.noclobber)
1049     {
1050       fprintf (stderr, _("\
1051 Can't timestamp and not clobber old files at the same time.\n"));
1052       print_usage (1);
1053       exit (1);
1054     }
1055 #ifdef ENABLE_IPV6
1056   if (opt.ipv4_only && opt.ipv6_only)
1057     {
1058       fprintf (stderr,
1059                _("Cannot specify both --inet4-only and --inet6-only.\n"));
1060       print_usage (1);
1061       exit (1);
1062     }
1063 #endif
1064   if (opt.output_document)
1065     {
1066       if (opt.convert_links
1067           && (nurl > 1 || opt.page_requisites || opt.recursive))
1068         {
1069           fputs (_("\
1070 Cannot specify both -k and -O if multiple URLs are given, or in combination\n\
1071 with -p or -r. See the manual for details.\n\n"), stderr);
1072           print_usage (1);
1073           exit (1);
1074         }
1075       if (opt.page_requisites
1076           || opt.recursive)
1077         {
1078           logprintf (LOG_NOTQUIET, "%s", _("\
1079 WARNING: combining -O with -r or -p will mean that all downloaded content\n\
1080 will be placed in the single file you specified.\n\n"));
1081         }
1082       if (opt.timestamping)
1083         {
1084           logprintf (LOG_NOTQUIET, "%s", _("\
1085 WARNING: timestamping does nothing in combination with -O. See the manual\n\
1086 for details.\n\n"));
1087           opt.timestamping = false;
1088         }
1089       if (opt.noclobber && file_exists_p(opt.output_document))
1090            {
1091               /* Check if output file exists; if it does, exit. */
1092               logprintf (LOG_VERBOSE,
1093                          _("File `%s' already there; not retrieving.\n"),
1094                          opt.output_document);
1095               exit(1);
1096            }
1097     }
1098
1099   if (opt.ask_passwd && opt.passwd)
1100     {
1101       fprintf (stderr,
1102                _("Cannot specify both --ask-password and --password.\n"));
1103       print_usage (1);
1104       exit (1);
1105     }
1106
1107   if (!nurl && !opt.input_filename)
1108     {
1109       /* No URL specified.  */
1110       fprintf (stderr, _("%s: missing URL\n"), exec_name);
1111       print_usage (1);
1112       printf ("\n");
1113       /* #### Something nicer should be printed here -- similar to the
1114          pre-1.5 `--help' page.  */
1115       fprintf (stderr, _("Try `%s --help' for more options.\n"), exec_name);
1116       exit (1);
1117     }
1118
1119 #ifdef ENABLE_IRI
1120   if (opt.enable_iri)
1121     {
1122       if (opt.locale && !check_encoding_name (opt.locale))
1123         opt.locale = NULL;
1124
1125       if (!opt.locale)
1126         opt.locale = find_locale ();
1127
1128       if (opt.encoding_remote && !check_encoding_name (opt.encoding_remote))
1129         opt.encoding_remote = NULL;
1130     }
1131 #else
1132   if (opt.enable_iri || opt.locale || opt.encoding_remote)
1133     {
1134       /* sXXXav : be more specific... */
1135       fprintf (stderr, _("This version does not have support for IRIs\n"));
1136       exit(1);
1137     }
1138 #endif
1139
1140   if (opt.ask_passwd)
1141     {
1142       opt.passwd = prompt_for_password ();
1143
1144       if (opt.passwd == NULL || opt.passwd[0] == '\0')
1145         exit (1);
1146     }
1147
1148 #ifdef USE_WATT32
1149   if (opt.wdebug)
1150      dbug_init();
1151   sock_init();
1152 #else
1153   if (opt.background)
1154     fork_to_background ();
1155 #endif
1156
1157   /* Initialize progress.  Have to do this after the options are
1158      processed so we know where the log file is.  */
1159   if (opt.verbose)
1160     set_progress_implementation (opt.progress_type);
1161
1162   /* Fill in the arguments.  */
1163   url = alloca_array (char *, nurl + 1);
1164   for (i = 0; i < nurl; i++, optind++)
1165     {
1166       char *rewritten = rewrite_shorthand_url (argv[optind]);
1167       if (rewritten)
1168         url[i] = rewritten;
1169       else
1170         url[i] = xstrdup (argv[optind]);
1171     }
1172   url[i] = NULL;
1173
1174   /* Initialize logging.  */
1175   log_init (opt.lfilename, append_to_log);
1176
1177   DEBUGP (("DEBUG output created by Wget %s on %s.\n\n",
1178            version_string, OS_TYPE));
1179
1180   /* Open the output filename if necessary.  */
1181
1182 /* 2005-04-17 SMS.
1183    Note that having the output_stream ("-O") file opened here for an FTP
1184    URL rather than in getftp() (ftp.c) (and the http equivalent) rather
1185    limits the ability in VMS to open the file differently for ASCII
1186    versus binary FTP there.  (Of course, doing it here allows a open
1187    failure to be detected immediately, without first connecting to the
1188    server.)
1189 */
1190   if (opt.output_document)
1191     {
1192       if (HYPHENP (opt.output_document))
1193         {
1194 #ifdef WINDOWS
1195           FILE *result;
1196           result = freopen ("CONOUT$", "wb", stdout);
1197           if (result == NULL)
1198             {
1199               logputs (LOG_NOTQUIET, _("\
1200 WARNING: Can't reopen standard output in binary mode;\n\
1201          downloaded file may contain inappropriate line endings.\n"));
1202             }
1203 #endif
1204           output_stream = stdout;
1205         }
1206       else
1207         {
1208           struct_fstat st;
1209
1210 #ifdef __VMS
1211 /* Common fopen() optional arguments:
1212    sequential access only, access callback function.
1213 */
1214 # define FOPEN_OPT_ARGS , "fop=sqo", "acc", acc_cb, &open_id
1215           int open_id = 7;
1216 #else /* def __VMS */
1217 # define FOPEN_OPT_ARGS
1218 #endif /* def __VMS [else] */
1219
1220           output_stream = fopen (opt.output_document,
1221                                  opt.always_rest ? "ab" : "wb"
1222                                  FOPEN_OPT_ARGS);
1223           if (output_stream == NULL)
1224             {
1225               perror (opt.output_document);
1226               exit (1);
1227             }
1228           if (fstat (fileno (output_stream), &st) == 0 && S_ISREG (st.st_mode))
1229             output_stream_regular = true;
1230         }
1231       if (!output_stream_regular && opt.convert_links)
1232         {
1233           fprintf (stderr, _("-k can be used together with -O only if \
1234 outputting to a regular file.\n"));
1235           print_usage (1);
1236           exit(1);
1237         }
1238     }
1239
1240 #ifdef __VMS
1241   /* Set global ODS5 flag according to the specified destination (if
1242      any), otherwise according to the current default device.
1243   */
1244   if (output_stream == NULL)
1245     set_ods5_dest( "SYS$DISK");
1246   else if (output_stream != stdout)
1247     set_ods5_dest( opt.output_document);
1248 #endif /* def __VMS */
1249
1250 #ifdef WINDOWS
1251   ws_startup ();
1252 #endif
1253
1254 #ifdef SIGHUP
1255   /* Setup the signal handler to redirect output when hangup is
1256      received.  */
1257   if (signal(SIGHUP, SIG_IGN) != SIG_IGN)
1258     signal(SIGHUP, redirect_output_signal);
1259 #endif
1260   /* ...and do the same for SIGUSR1.  */
1261 #ifdef SIGUSR1
1262   signal (SIGUSR1, redirect_output_signal);
1263 #endif
1264 #ifdef SIGPIPE
1265   /* Writing to a closed socket normally signals SIGPIPE, and the
1266      process exits.  What we want is to ignore SIGPIPE and just check
1267      for the return value of write().  */
1268   signal (SIGPIPE, SIG_IGN);
1269 #endif
1270 #ifdef SIGWINCH
1271   signal (SIGWINCH, progress_handle_sigwinch);
1272 #endif
1273
1274   status = RETROK;              /* initialize it, just-in-case */
1275   /* Retrieve the URLs from argument list.  */
1276   for (t = url; *t; t++)
1277     {
1278       char *filename = NULL, *redirected_URL = NULL;
1279       int dt, url_err;
1280       /* Need to do a new struct iri every time, because
1281        * retrieve_url may modify it in some circumstances,
1282        * currently. */
1283       struct iri *iri = iri_new ();
1284       struct url *url_parsed;
1285
1286       set_uri_encoding (iri, opt.locale, true);
1287       url_parsed = url_parse (*t, &url_err, iri, true);
1288
1289       if (!url_parsed)
1290         {
1291           char *error = url_error (*t, url_err);
1292           logprintf (LOG_NOTQUIET, "%s: %s.\n",*t, error);
1293           xfree (error);
1294           status = URLERROR;
1295         }
1296       else
1297         {
1298           if ((opt.recursive || opt.page_requisites)
1299               && (url_scheme (*t) != SCHEME_FTP || url_uses_proxy (url_parsed)))
1300             {
1301               int old_follow_ftp = opt.follow_ftp;
1302
1303               /* Turn opt.follow_ftp on in case of recursive FTP retrieval */
1304               if (url_scheme (*t) == SCHEME_FTP)
1305                 opt.follow_ftp = 1;
1306
1307               status = retrieve_tree (url_parsed, NULL);
1308
1309               opt.follow_ftp = old_follow_ftp;
1310             }
1311           else
1312           {
1313             status = retrieve_url (url_parsed, *t, &filename, &redirected_URL,
1314                                    NULL, &dt, opt.recursive, iri, true);
1315           }
1316
1317           if (opt.delete_after && file_exists_p(filename))
1318             {
1319               DEBUGP (("Removing file due to --delete-after in main():\n"));
1320               logprintf (LOG_VERBOSE, _("Removing %s.\n"), filename);
1321               if (unlink (filename))
1322                 logprintf (LOG_NOTQUIET, "unlink: %s\n", strerror (errno));
1323             }
1324           xfree_null (redirected_URL);
1325           xfree_null (filename);
1326           url_free (url_parsed);
1327         }
1328       iri_free (iri);
1329     }
1330
1331   /* And then from the input file, if any.  */
1332   if (opt.input_filename)
1333     {
1334       int count;
1335       status = retrieve_from_file (opt.input_filename, opt.force_html, &count);
1336       if (!count)
1337         logprintf (LOG_NOTQUIET, _("No URLs found in %s.\n"),
1338                    opt.input_filename);
1339     }
1340
1341   /* Print broken links. */
1342   if (opt.recursive && opt.spider)
1343     print_broken_links ();
1344
1345   /* Print the downloaded sum.  */
1346   if ((opt.recursive || opt.page_requisites
1347        || nurl > 1
1348        || (opt.input_filename && total_downloaded_bytes != 0))
1349       &&
1350       total_downloaded_bytes != 0)
1351     {
1352       logprintf (LOG_NOTQUIET,
1353                  _("FINISHED --%s--\nDownloaded: %d files, %s in %s (%s)\n"),
1354                  datetime_str (time (NULL)),
1355                  numurls,
1356                  human_readable (total_downloaded_bytes),
1357                  secs_to_human_time (total_download_time),
1358                  retr_rate (total_downloaded_bytes, total_download_time));
1359       /* Print quota warning, if exceeded.  */
1360       if (opt.quota && total_downloaded_bytes > opt.quota)
1361         logprintf (LOG_NOTQUIET,
1362                    _("Download quota of %s EXCEEDED!\n"),
1363                    human_readable (opt.quota));
1364     }
1365
1366   if (opt.cookies_output)
1367     save_cookies ();
1368
1369   if (opt.convert_links && !opt.delete_after)
1370     convert_all_links ();
1371
1372   log_close ();
1373   for (i = 0; i < nurl; i++)
1374     xfree (url[i]);
1375   cleanup ();
1376
1377   return get_exit_status ();
1378 }
1379 #endif /* TESTING */
1380 \f
1381 #if defined(SIGHUP) || defined(SIGUSR1)
1382
1383 /* So the signal_name check doesn't blow when only one is available. */
1384 #ifndef SIGHUP
1385 # define SIGHUP -1
1386 #endif
1387 #ifndef SIGUSR1
1388 # define SIGUSR1 -1
1389 #endif
1390
1391 /* Hangup signal handler.  When wget receives SIGHUP or SIGUSR1, it
1392    will proceed operation as usual, trying to write into a log file.
1393    If that is impossible, the output will be turned off.  */
1394
1395 static void
1396 redirect_output_signal (int sig)
1397 {
1398   const char *signal_name = (sig == SIGHUP ? "SIGHUP" :
1399                              (sig == SIGUSR1 ? "SIGUSR1" :
1400                               "WTF?!"));
1401   log_request_redirect_output (signal_name);
1402   progress_schedule_redirect ();
1403   signal (sig, redirect_output_signal);
1404 }
1405 #endif
1406
1407 /*
1408  * vim: et ts=2 sw=2
1409  */