]> sjero.net Git - wget/blob - src/main.c
a70e11198802d0c07b33906d3dc295efe7f9dd26
[wget] / src / main.c
1 /* Command line parsing.
2    Copyright (C) 1995, 1996, 1997, 1998 Free Software Foundation, Inc.
3
4 This file is part of Wget.
5
6 This program 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 This program 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 this program; if not, write to the Free Software
18 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
19
20 #include <config.h>
21
22 #include <stdio.h>
23 #include <stdlib.h>
24 #include <ctype.h>
25 #ifdef HAVE_UNISTD_H
26 # include <unistd.h>
27 #endif /* HAVE_UNISTD_H */
28 #include <sys/types.h>
29 #ifdef HAVE_STRING_H
30 # include <string.h>
31 #else
32 # include <strings.h>
33 #endif /* HAVE_STRING_H */
34 #ifdef HAVE_SIGNAL_H
35 # include <signal.h>
36 #endif
37 #ifdef HAVE_NLS
38 #ifdef HAVE_LOCALE_H
39 # include <locale.h>
40 #endif /* HAVE_LOCALE_H */
41 #endif /* HAVE_NLS */
42
43 #define OPTIONS_DEFINED_HERE    /* for options.h */
44
45 #include "wget.h"
46 #include "utils.h"
47 #include "getopt.h"
48 #include "init.h"
49 #include "retr.h"
50 #include "recur.h"
51 #include "host.h"
52
53 #ifndef PATH_SEPARATOR
54 # define PATH_SEPARATOR '/'
55 #endif
56
57 extern char *version_string;
58
59 #ifndef errno
60 extern int errno;
61 #endif
62
63 struct options opt;
64
65 /* From log.c.  */
66 void log_init PARAMS ((const char *, int));
67 void log_close PARAMS ((void));
68 void redirect_output PARAMS ((const char *));
69
70 static RETSIGTYPE redirect_output_signal PARAMS ((int));
71
72 const char *exec_name;
73 \f
74 /* Initialize I18N.  The initialization amounts to invoking
75    setlocale(), bindtextdomain() and textdomain().
76    Does nothing if NLS is disabled or missing.  */
77 static void
78 i18n_initialize (void)
79 {
80   /* If HAVE_NLS is defined, assume the existence of the three
81      functions invoked here.  */
82 #ifdef HAVE_NLS
83   /* Set the current locale.  */
84   /* Here we use LC_MESSAGES instead of LC_ALL, for two reasons.
85      First, message catalogs are all of I18N Wget uses anyway.
86      Second, setting LC_ALL has a dangerous potential of messing
87      things up.  For example, when in a foreign locale, Solaris
88      strptime() fails to handle international dates correctly, which
89      makes http_atotm() malfunction.  */
90   setlocale (LC_MESSAGES, "");
91   /* Set the text message domain.  */
92   bindtextdomain ("wget", LOCALEDIR);
93   textdomain ("wget");
94 #endif /* HAVE_NLS */
95 }
96 \f
97 /* Print the usage message.  */
98 static void
99 print_usage (void)
100 {
101   printf (_("Usage: %s [OPTION]... [URL]...\n"), exec_name);
102 }
103
104 /* Print the help message, describing all the available options.  If
105    you add an option, be sure to update this list.  */
106 static void
107 print_help (void)
108 {
109   printf (_("GNU Wget %s, a non-interactive network retriever.\n"),
110           version_string);
111   print_usage ();
112   /* Had to split this in parts, so the #@@#%# Ultrix compiler and cpp
113      don't bitch.  Also, it makes translation much easier.  */
114   printf ("%s%s%s%s%s%s%s%s%s%s", _("\
115 \n\
116 Mandatory arguments to long options are mandatory for short options too.\n\
117 \n"), _("\
118 Startup:\n\
119   -V,  --version           display the version of Wget and exit.\n\
120   -h,  --help              print this help.\n\
121   -b,  --background        go to background after startup.\n\
122   -e,  --execute=COMMAND   execute a `.wgetrc\' command.\n\
123 \n"), _("\
124 Logging and input file:\n\
125   -o,  --output-file=FILE     log messages to FILE.\n\
126   -a,  --append-output=FILE   append messages to FILE.\n\
127   -d,  --debug                print debug output.\n\
128   -q,  --quiet                quiet (no output).\n\
129   -v,  --verbose              be verbose (this is the default).\n\
130   -nv, --non-verbose          turn off verboseness, without being quiet.\n\
131   -i,  --input-file=FILE      read URL-s from file.\n\
132   -F,  --force-html           treat input file as HTML.\n\
133 \n"), _("\
134 Download:\n\
135   -t,  --tries=NUMBER           set number of retries to NUMBER (0 unlimits).\n\
136   -O   --output-document=FILE   write documents to FILE.\n\
137   -nc, --no-clobber             don\'t clobber existing files.\n\
138   -c,  --continue               restart getting an existing file.\n\
139        --dot-style=STYLE        set retrieval display style.\n\
140   -N,  --timestamping           don\'t retrieve files if older than local.\n\
141   -S,  --server-response        print server response.\n\
142        --spider                 don\'t download anything.\n\
143   -T,  --timeout=SECONDS        set the read timeout to SECONDS.\n\
144   -w,  --wait=SECONDS           wait SECONDS between retrievals.\n\
145   -Y,  --proxy=on/off           turn proxy on or off.\n\
146   -Q,  --quota=NUMBER           set retrieval quota to NUMBER.\n\
147 \n"),  _("\
148 Directories:\n\
149   -nd  --no-directories            don\'t create directories.\n\
150   -x,  --force-directories         force creation of directories.\n\
151   -nH, --no-host-directories       don\'t create host directories.\n\
152   -P,  --directory-prefix=PREFIX   save files to PREFIX/...\n\
153        --cut-dirs=NUMBER           ignore NUMBER remote directory components.\n\
154 \n"), _("\
155 HTTP options:\n\
156        --http-user=USER      set http user to USER.\n\
157        --http-passwd=PASS    set http password to PASS.\n\
158   -C,  --cache=on/off        (dis)allow server-cached data (normally allowed).\n\
159        --ignore-length       ignore `Content-Length\' header field.\n\
160        --header=STRING       insert STRING among the headers.\n\
161        --proxy-user=USER     set USER as proxy username.\n\
162        --proxy-passwd=PASS   set PASS as proxy password.\n\
163   -s,  --save-headers        save the HTTP headers to file.\n\
164   -U,  --user-agent=AGENT    identify as AGENT instead of Wget/VERSION.\n\
165 \n"), _("\
166 FTP options:\n\
167        --retr-symlinks   retrieve FTP symbolic links.\n\
168   -g,  --glob=on/off     turn file name globbing on or off.\n\
169        --passive-ftp     use the \"passive\" transfer mode.\n\
170 \n"), _("\
171 Recursive retrieval:\n\
172   -r,  --recursive             recursive web-suck -- use with care!.\n\
173   -l,  --level=NUMBER          maximum recursion depth (0 to unlimit).\n\
174        --delete-after          delete downloaded files.\n\
175   -k,  --convert-links         convert non-relative links to relative.\n\
176   -K,  --backup-converted      before converting file X, back up as X.orig.\n\
177   -m,  --mirror                turn on options suitable for mirroring.\n\
178   -nr, --dont-remove-listing   don\'t remove `.listing\' files.\n\
179 \n"), _("\
180 Recursive accept/reject:\n\
181   -A,  --accept=LIST                list of accepted extensions.\n\
182   -R,  --reject=LIST                list of rejected extensions.\n\
183   -D,  --domains=LIST               list of accepted domains.\n\
184        --exclude-domains=LIST       comma-separated list of rejected domains.\n\
185   -L,  --relative                   follow relative links only.\n\
186        --follow-ftp                 follow FTP links from HTML documents.\n\
187   -H,  --span-hosts                 go to foreign hosts when recursive.\n\
188   -I,  --include-directories=LIST   list of allowed directories.\n\
189   -X,  --exclude-directories=LIST   list of excluded directories.\n\
190   -nh, --no-host-lookup             don\'t DNS-lookup hosts.\n\
191   -np, --no-parent                  don\'t ascend to the parent directory.\n\
192 \n"), _("Mail bug reports and suggestions to <bug-wget@gnu.org>.\n"));
193 }
194 \f
195 int
196 main (int argc, char *const *argv)
197 {
198   char **url, **t;
199   int i, c, nurl, status, append_to_log;
200
201   static struct option long_options[] =
202   {
203     { "background", no_argument, NULL, 'b' },
204     { "continue", no_argument, NULL, 'c' },
205     { "convert-links", no_argument, NULL, 'k' },
206     { "backup-converted", no_argument, NULL, 'K' },
207     { "debug", no_argument, NULL, 'd' },
208     { "dont-remove-listing", no_argument, NULL, 21 },
209     { "email-address", no_argument, NULL, 'E' }, /* undocumented (debug) */
210     { "follow-ftp", no_argument, NULL, 14 },
211     { "force-directories", no_argument, NULL, 'x' },
212     { "force-hier", no_argument, NULL, 'x' }, /* obsolete */
213     { "force-html", no_argument, NULL, 'F'},
214     { "help", no_argument, NULL, 'h' },
215     { "ignore-length", no_argument, NULL, 10 },
216     { "mirror", no_argument, NULL, 'm' },
217     { "no-clobber", no_argument, NULL, 13 },
218     { "no-directories", no_argument, NULL, 19 },
219     { "no-host-directories", no_argument, NULL, 20 },
220     { "no-host-lookup", no_argument, NULL, 22 },
221     { "no-parent", no_argument, NULL, 5 },
222     { "non-verbose", no_argument, NULL, 18 },
223     { "passive-ftp", no_argument, NULL, 11 },
224     { "quiet", no_argument, NULL, 'q' },
225     { "recursive", no_argument, NULL, 'r' },
226     { "relative", no_argument, NULL, 'L' },
227     { "retr-symlinks", no_argument, NULL, 9 },
228     { "save-headers", no_argument, NULL, 's' },
229     { "server-response", no_argument, NULL, 'S' },
230     { "span-hosts", no_argument, NULL, 'H' },
231     { "spider", no_argument, NULL, 4 },
232     { "timestamping", no_argument, NULL, 'N' },
233     { "verbose", no_argument, NULL, 'v' },
234     { "version", no_argument, NULL, 'V' },
235
236     { "accept", required_argument, NULL, 'A' },
237     { "append-output", required_argument, NULL, 'a' },
238     { "backups", required_argument, NULL, 23 }, /* undocumented */
239     { "base", required_argument, NULL, 'B' },
240     { "cache", required_argument, NULL, 'C' },
241     { "cut-dirs", required_argument, NULL, 17 },
242     { "delete-after", no_argument, NULL, 8 },
243     { "directory-prefix", required_argument, NULL, 'P' },
244     { "domains", required_argument, NULL, 'D' },
245     { "dot-style", required_argument, NULL, 6 },
246     { "execute", required_argument, NULL, 'e' },
247     { "exclude-directories", required_argument, NULL, 'X' },
248     { "exclude-domains", required_argument, NULL, 12 },
249     { "glob", required_argument, NULL, 'g' },
250     { "header", required_argument, NULL, 3 },
251     { "htmlify", required_argument, NULL, 7 },
252     { "http-passwd", required_argument, NULL, 2 },
253     { "http-user", required_argument, NULL, 1 },
254     { "include-directories", required_argument, NULL, 'I' },
255     { "input-file", required_argument, NULL, 'i' },
256     { "level", required_argument, NULL, 'l' },
257     { "no", required_argument, NULL, 'n' },
258     { "output-document", required_argument, NULL, 'O' },
259     { "output-file", required_argument, NULL, 'o' },
260     { "proxy", required_argument, NULL, 'Y' },
261     { "proxy-passwd", required_argument, NULL, 16 },
262     { "proxy-user", required_argument, NULL, 15 },
263     { "quota", required_argument, NULL, 'Q' },
264     { "reject", required_argument, NULL, 'R' },
265     { "timeout", required_argument, NULL, 'T' },
266     { "tries", required_argument, NULL, 't' },
267     { "user-agent", required_argument, NULL, 'U' },
268     { "referer", required_argument, NULL, 129 },
269     { "use-proxy", required_argument, NULL, 'Y' },
270     { "wait", required_argument, NULL, 'w' },
271     { 0, 0, 0, 0 }
272   };
273
274   i18n_initialize ();
275
276   append_to_log = 0;
277
278   /* Construct the name of the executable, without the directory part.  */
279   exec_name = strrchr (argv[0], PATH_SEPARATOR);
280   if (!exec_name)
281     exec_name = argv[0];
282   else
283     ++exec_name;
284
285 #ifdef WINDOWS
286   windows_main_junk (&argc, (char **) argv, (char **) &exec_name);
287 #endif
288
289   initialize ();
290
291   while ((c = getopt_long (argc, argv, "\
292 hVqvdkKsxmNWrHSLcFbEY:g:T:U:O:l:n:i:o:a:t:D:A:R:P:B:e:Q:X:I:w:",
293                            long_options, (int *)0)) != EOF)
294     {
295       switch (c)
296         {
297           /* Options without arguments: */
298         case 4:
299           setval ("spider", "on");
300           break;
301         case 5:
302           setval ("noparent", "on");
303           break;
304         case 8:
305           setval ("deleteafter", "on");
306           break;
307         case 9:
308           setval ("retrsymlinks", "on");
309           break;
310         case 10:
311           setval ("ignorelength", "on");
312           break;
313         case 11:
314           setval ("passiveftp", "on");
315           break;
316         case 13:
317           setval ("noclobber", "on");
318           break;
319         case 14:
320           setval ("followftp", "on");
321           break;
322         case 17:
323           setval ("cutdirs", optarg);
324           break;
325         case 18:
326           setval ("verbose", "off");
327           break;
328         case 19:
329           setval ("dirstruct", "off");
330           break;
331         case 20:
332           setval ("addhostdir", "off");
333           break;
334         case 21:
335           setval ("removelisting", "off");
336           break;
337         case 22:
338           setval ("simplehostcheck", "on");
339           break;
340         case 'b':
341           setval ("background", "on");
342           break;
343         case 'c':
344           setval ("continue", "on");
345           break;
346         case 'd':
347 #ifdef DEBUG
348           setval ("debug", "on");
349 #else  /* not DEBUG */
350           fprintf (stderr, _("%s: debug support not compiled in.\n"),
351                    exec_name);
352 #endif /* not DEBUG */
353           break;
354         case 'E':
355           /* For debugging purposes.  */
356           printf ("%s\n", ftp_getaddress ());
357           exit (0);
358           break;
359         case 'F':
360           setval ("forcehtml", "on");
361           break;
362         case 'H':
363           setval ("spanhosts", "on");
364           break;
365         case 'h':
366           print_help ();
367 #ifdef WINDOWS
368           ws_help (exec_name);
369 #endif
370           exit (0);
371           break;
372         case 'k':
373           setval ("convertlinks", "on");
374           break;
375         case 'K':
376           setval ("backupconverted", "on");
377           break;
378         case 'L':
379           setval ("relativeonly", "on");
380           break;
381         case 'm':
382           setval ("mirror", "on");
383           break;
384         case 'N':
385           setval ("timestamping", "on");
386           break;
387         case 'S':
388           setval ("serverresponse", "on");
389           break;
390         case 's':
391           setval ("saveheaders", "on");
392           break;
393         case 'q':
394           setval ("quiet", "on");
395           break;
396         case 'r':
397           setval ("recursive", "on");
398           break;
399         case 'V':
400           printf ("GNU Wget %s\n\n", version_string);
401           printf ("%s", _("\
402 Copyright (C) 1995, 1996, 1997, 1998 Free Software Foundation, Inc.\n\
403 This program is distributed in the hope that it will be useful,\n\
404 but WITHOUT ANY WARRANTY; without even the implied warranty of\n\
405 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the\n\
406 GNU General Public License for more details.\n"));
407           printf (_("\nWritten by Hrvoje Niksic <hniksic@srce.hr>.\n"));
408           exit (0);
409           break;
410         case 'v':
411           setval ("verbose", "on");
412           break;
413         case 'x':
414           setval ("dirstruct", "on");
415           break;
416
417           /* Options accepting an argument: */
418         case 1:
419           setval ("httpuser", optarg);
420           break;
421         case 2:
422           setval ("httppasswd", optarg);
423           break;
424         case 3:
425           setval ("header", optarg);
426           break;
427         case 6:
428           setval ("dotstyle", optarg);
429           break;
430         case 7:
431           setval ("htmlify", optarg);
432           break;
433         case 12:
434           setval ("excludedomains", optarg);
435           break;
436         case 15:
437           setval ("proxyuser", optarg);
438           break;
439         case 16:
440           setval ("proxypasswd", optarg);
441           break;
442         case 23:
443           setval ("backups", optarg);
444           break;
445         case 'A':
446           setval ("accept", optarg);
447           break;
448         case 'a':
449           setval ("logfile", optarg);
450           append_to_log = 1;
451           break;
452         case 'B':
453           setval ("base", optarg);
454           break;
455         case 'C':
456           setval ("cache", optarg);
457           break;
458         case 'D':
459           setval ("domains", optarg);
460           break;
461         case 'e':
462           {
463             char *com, *val;
464             if (parse_line (optarg, &com, &val))
465               {
466                 if (!setval (com, val))
467                   exit (1);
468               }
469             else
470               {
471                 fprintf (stderr, _("%s: %s: invalid command\n"), exec_name,
472                          optarg);
473                 exit (1);
474               }
475             free (com);
476             free (val);
477           }
478           break;
479         case 'g':
480           setval ("glob", optarg);
481           break;
482         case 'I':
483           setval ("includedirectories", optarg);
484           break;
485         case 'i':
486           setval ("input", optarg);
487           break;
488         case 'l':
489           setval ("reclevel", optarg);
490           break;
491         case 'n':
492           {
493             /* #### The n? options are utter crock!  */
494             char *p;
495
496             for (p = optarg; *p; p++)
497               switch (*p)
498                 {
499                 case 'v':
500                   setval ("verbose", "off");
501                   break;
502                 case 'h':
503                   setval ("simplehostcheck", "on");
504                   break;
505                 case 'H':
506                   setval ("addhostdir", "off");
507                   break;
508                 case 'd':
509                   setval ("dirstruct", "off");
510                   break;
511                 case 'c':
512                   setval ("noclobber", "on");
513                   break;
514                 case 'r':
515                   setval ("removelisting", "off");
516                   break;
517                 case 'p':
518                   setval ("noparent", "on");
519                   break;
520                 default:
521                   printf (_("%s: illegal option -- `-n%c'\n"), exec_name, *p);
522                   print_usage ();
523                   printf ("\n");
524                   printf (_("Try `%s --help\' for more options.\n"), exec_name);
525                   exit (1);
526                 }
527             break;
528           }
529         case 'O':
530           setval ("outputdocument", optarg);
531           break;
532         case 'o':
533           setval ("logfile", optarg);
534           break;
535         case 'P':
536           setval ("dirprefix", optarg);
537           break;
538         case 'Q':
539           setval ("quota", optarg);
540           break;
541         case 'R':
542           setval ("reject", optarg);
543           break;
544         case 'T':
545           setval ("timeout", optarg);
546           break;
547         case 't':
548           setval ("tries", optarg);
549           break;
550         case 'U':
551           setval ("useragent", optarg);
552           break;
553         case 129:
554           setval ("referer", optarg);
555           break;
556         case 'w':
557           setval ("wait", optarg);
558           break;
559         case 'X':
560           setval ("excludedirectories", optarg);
561           break;
562         case 'Y':
563           setval ("useproxy", optarg);
564           break;
565
566         case '?':
567           print_usage ();
568           printf ("\n");
569           printf (_("Try `%s --help' for more options.\n"), exec_name);
570           exit (0);
571           break;
572         }
573     }
574   if (opt.verbose == -1)
575     opt.verbose = !opt.quiet;
576
577   /* Sanity checks.  */
578   if (opt.verbose && opt.quiet)
579     {
580       printf (_("Can't be verbose and quiet at the same time.\n"));
581       print_usage ();
582       exit (1);
583     }
584   if (opt.timestamping && opt.noclobber)
585     {
586       printf (_("\
587 Can't timestamp and not clobber old files at the same time.\n"));
588       print_usage ();
589       exit (1);
590     }
591   nurl = argc - optind;
592   if (!nurl && !opt.input_filename)
593     {
594       /* No URL specified.  */
595       printf (_("%s: missing URL\n"), exec_name);
596       print_usage ();
597       printf ("\n");
598       /* #### Something nicer should be printed here -- similar to the
599          pre-1.5 `--help' page.  */
600       printf (_("Try `%s --help' for more options.\n"), exec_name);
601       exit (1);
602     }
603
604   if (opt.background)
605     fork_to_background ();
606
607   /* Allocate basic pointer.  */
608   url = ALLOCA_ARRAY (char *, nurl + 1);
609   /* Fill in the arguments.  */
610   for (i = 0; i < nurl; i++, optind++)
611     {
612       char *irix4_cc_needs_this;
613       STRDUP_ALLOCA (irix4_cc_needs_this, argv[optind]);
614       url[i] = irix4_cc_needs_this;
615     }
616   url[i] = NULL;
617
618   /* Change the title of console window on Windows.  #### I think this
619      statement should belong to retrieve_url().  --hniksic.  */
620 #ifdef WINDOWS
621   ws_changetitle (*url, nurl);
622 #endif
623
624   /* Initialize logging.  */
625   log_init (opt.lfilename, append_to_log);
626
627   DEBUGP (("DEBUG output created by Wget %s on %s.\n\n", version_string,
628            OS_TYPE));
629   /* Open the output filename if necessary.  */
630   if (opt.output_document)
631     {
632       if (HYPHENP (opt.output_document))
633         opt.dfp = stdout;
634       else
635         {
636           opt.dfp = fopen (opt.output_document, "wb");
637           if (opt.dfp == NULL)
638             {
639               perror (opt.output_document);
640               exit (1);
641             }
642         }
643     }
644
645 #ifdef WINDOWS
646   ws_startup ();
647 #endif
648
649   /* Setup the signal handler to redirect output when hangup is
650      received.  */
651 #ifdef HAVE_SIGNAL
652   if (signal(SIGHUP, SIG_IGN) != SIG_IGN)
653     signal(SIGHUP, redirect_output_signal);
654   /* ...and do the same for SIGUSR1.  */
655   signal (SIGUSR1, redirect_output_signal);
656   /* Writing to a closed socket normally signals SIGPIPE, and the
657      process exits.  What we want is to ignore SIGPIPE and just check
658      for the return value of write().  */
659   signal (SIGPIPE, SIG_IGN);
660 #endif /* HAVE_SIGNAL */
661
662   status = RETROK;              /* initialize it, just-in-case */
663   recursive_reset ();
664   /* Retrieve the URLs from argument list.  */
665   for (t = url; *t; t++)
666     {
667       char *filename, *new_file;
668       int dt;
669
670       status = retrieve_url (*t, &filename, &new_file, NULL, &dt);
671       if (opt.recursive && status == RETROK && (dt & TEXTHTML))
672         status = recursive_retrieve (filename, new_file ? new_file : *t);
673       FREE_MAYBE (new_file);
674       FREE_MAYBE (filename);
675     }
676
677   /* And then from the input file, if any.  */
678   if (opt.input_filename)
679     {
680       int count;
681       status = retrieve_from_file (opt.input_filename, opt.force_html, &count);
682       if (!count)
683         logprintf (LOG_NOTQUIET, _("No URLs found in %s.\n"),
684                    opt.input_filename);
685     }
686   /* Print the downloaded sum.  */
687   if (opt.recursive
688       || nurl > 1
689       || (opt.input_filename && opt.downloaded != 0))
690     {
691       logprintf (LOG_NOTQUIET,
692                  _("\nFINISHED --%s--\nDownloaded: %s bytes in %d files\n"),
693                  time_str (NULL), legible (opt.downloaded), opt.numurls);
694       /* Print quota warning, if exceeded.  */
695       if (opt.quota && opt.downloaded > opt.quota)
696         logprintf (LOG_NOTQUIET,
697                    _("Download quota (%s bytes) EXCEEDED!\n"),
698                    legible (opt.quota));
699     }
700   if (opt.convert_links)
701     {
702       convert_all_links ();
703     }
704   log_close ();
705   cleanup ();
706   if (status == RETROK)
707     return 0;
708   else
709     return 1;
710 }
711 \f
712 /* Hangup signal handler.  When wget receives SIGHUP or SIGUSR1, it
713    will proceed operation as usual, trying to write into a log file.
714    If that is impossible, the output will be turned off.  */
715
716 #ifdef HAVE_SIGNAL
717 static RETSIGTYPE
718 redirect_output_signal (int sig)
719 {
720   char tmp[100];
721   signal (sig, redirect_output_signal);
722   /* Please note that the double `%' in `%%s' is intentional, because
723      redirect_output passes tmp through printf.  */
724   sprintf (tmp, _("%s received, redirecting output to `%%s'.\n"),
725            (sig == SIGHUP ? "SIGHUP" :
726             (sig == SIGUSR1 ? "SIGUSR1" :
727              "WTF?!")));
728   redirect_output (tmp);
729 }
730 #endif /* HAVE_SIGNAL */