]> sjero.net Git - wget/blob - src/main.c
[svn] Initial revision
[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   -m,  --mirror                turn on options suitable for mirroring.\n\
177   -nr, --dont-remove-listing   don\'t remove `.listing\' files.\n\
178 \n"), _("\
179 Recursive accept/reject:\n\
180   -A,  --accept=LIST                list of accepted extensions.\n\
181   -R,  --reject=LIST                list of rejected extensions.\n\
182   -D,  --domains=LIST               list of accepted domains.\n\
183        --exclude-domains=LIST       comma-separated list of rejected domains.\n\
184   -L,  --relative                   follow relative links only.\n\
185        --follow-ftp                 follow FTP links from HTML documents.\n\
186   -H,  --span-hosts                 go to foreign hosts when recursive.\n\
187   -I,  --include-directories=LIST   list of allowed directories.\n\
188   -X,  --exclude-directories=LIST   list of excluded directories.\n\
189   -nh, --no-host-lookup             don\'t DNS-lookup hosts.\n\
190   -np, --no-parent                  don\'t ascend to the parent directory.\n\
191 \n"), _("Mail bug reports and suggestions to <bug-wget@gnu.org>.\n"));
192 }
193 \f
194 int
195 main (int argc, char *const *argv)
196 {
197   char **url, **t;
198   int i, c, nurl, status, append_to_log;
199
200   static struct option long_options[] =
201   {
202     { "background", no_argument, NULL, 'b' },
203     { "continue", no_argument, NULL, 'c' },
204     { "convert-links", no_argument, NULL, 'k' },
205     { "debug", no_argument, NULL, 'd' },
206     { "dont-remove-listing", no_argument, NULL, 21 },
207     { "email-address", no_argument, NULL, 'E' }, /* undocumented (debug) */
208     { "follow-ftp", no_argument, NULL, 14 },
209     { "force-directories", no_argument, NULL, 'x' },
210     { "force-hier", no_argument, NULL, 'x' }, /* obsolete */
211     { "force-html", no_argument, NULL, 'F'},
212     { "help", no_argument, NULL, 'h' },
213     { "ignore-length", no_argument, NULL, 10 },
214     { "mirror", no_argument, NULL, 'm' },
215     { "no-clobber", no_argument, NULL, 13 },
216     { "no-directories", no_argument, NULL, 19 },
217     { "no-host-directories", no_argument, NULL, 20 },
218     { "no-host-lookup", no_argument, NULL, 22 },
219     { "no-parent", no_argument, NULL, 5 },
220     { "non-verbose", no_argument, NULL, 18 },
221     { "passive-ftp", no_argument, NULL, 11 },
222     { "quiet", no_argument, NULL, 'q' },
223     { "recursive", no_argument, NULL, 'r' },
224     { "relative", no_argument, NULL, 'L' },
225     { "retr-symlinks", no_argument, NULL, 9 },
226     { "save-headers", no_argument, NULL, 's' },
227     { "server-response", no_argument, NULL, 'S' },
228     { "span-hosts", no_argument, NULL, 'H' },
229     { "spider", no_argument, NULL, 4 },
230     { "timestamping", no_argument, NULL, 'N' },
231     { "verbose", no_argument, NULL, 'v' },
232     { "version", no_argument, NULL, 'V' },
233
234     { "accept", required_argument, NULL, 'A' },
235     { "append-output", required_argument, NULL, 'a' },
236     { "backups", required_argument, NULL, 23 }, /* undocumented */
237     { "base", required_argument, NULL, 'B' },
238     { "cache", required_argument, NULL, 'C' },
239     { "cut-dirs", required_argument, NULL, 17 },
240     { "delete-after", no_argument, NULL, 8 },
241     { "directory-prefix", required_argument, NULL, 'P' },
242     { "domains", required_argument, NULL, 'D' },
243     { "dot-style", required_argument, NULL, 6 },
244     { "execute", required_argument, NULL, 'e' },
245     { "exclude-directories", required_argument, NULL, 'X' },
246     { "exclude-domains", required_argument, NULL, 12 },
247     { "glob", required_argument, NULL, 'g' },
248     { "header", required_argument, NULL, 3 },
249     { "htmlify", required_argument, NULL, 7 },
250     { "http-passwd", required_argument, NULL, 2 },
251     { "http-user", required_argument, NULL, 1 },
252     { "include-directories", required_argument, NULL, 'I' },
253     { "input-file", required_argument, NULL, 'i' },
254     { "level", required_argument, NULL, 'l' },
255     { "no", required_argument, NULL, 'n' },
256     { "output-document", required_argument, NULL, 'O' },
257     { "output-file", required_argument, NULL, 'o' },
258     { "proxy", required_argument, NULL, 'Y' },
259     { "proxy-passwd", required_argument, NULL, 16 },
260     { "proxy-user", required_argument, NULL, 15 },
261     { "quota", required_argument, NULL, 'Q' },
262     { "reject", required_argument, NULL, 'R' },
263     { "timeout", required_argument, NULL, 'T' },
264     { "tries", required_argument, NULL, 't' },
265     { "user-agent", required_argument, NULL, 'U' },
266     { "use-proxy", required_argument, NULL, 'Y' },
267     { "wait", required_argument, NULL, 'w' },
268     { 0, 0, 0, 0 }
269   };
270
271   i18n_initialize ();
272
273   append_to_log = 0;
274
275   /* Construct the name of the executable, without the directory part.  */
276   exec_name = strrchr (argv[0], PATH_SEPARATOR);
277   if (!exec_name)
278     exec_name = argv[0];
279   else
280     ++exec_name;
281
282 #ifdef WINDOWS
283   windows_main_junk (&argc, (char **) argv, (char **) &exec_name);
284 #endif
285
286   initialize ();
287
288   while ((c = getopt_long (argc, argv, "\
289 hVqvdksxmNWrHSLcFbEY:g:T:U:O:l:n:i:o:a:t:D:A:R:P:B:e:Q:X:I:w:",
290                            long_options, (int *)0)) != EOF)
291     {
292       switch (c)
293         {
294           /* Options without arguments: */
295         case 4:
296           setval ("spider", "on");
297           break;
298         case 5:
299           setval ("noparent", "on");
300           break;
301         case 8:
302           setval ("deleteafter", "on");
303           break;
304         case 9:
305           setval ("retrsymlinks", "on");
306           break;
307         case 10:
308           setval ("ignorelength", "on");
309           break;
310         case 11:
311           setval ("passiveftp", "on");
312           break;
313         case 13:
314           setval ("noclobber", "on");
315           break;
316         case 14:
317           setval ("followftp", "on");
318           break;
319         case 17:
320           setval ("cutdirs", optarg);
321           break;
322         case 18:
323           setval ("verbose", "off");
324           break;
325         case 19:
326           setval ("dirstruct", "off");
327           break;
328         case 20:
329           setval ("addhostdir", "off");
330           break;
331         case 21:
332           setval ("removelisting", "off");
333           break;
334         case 22:
335           setval ("simplehostcheck", "on");
336           break;
337         case 'b':
338           setval ("background", "on");
339           break;
340         case 'c':
341           setval ("continue", "on");
342           break;
343         case 'd':
344 #ifdef DEBUG
345           setval ("debug", "on");
346 #else  /* not DEBUG */
347           fprintf (stderr, _("%s: debug support not compiled in.\n"),
348                    exec_name);
349 #endif /* not DEBUG */
350           break;
351         case 'E':
352           /* For debugging purposes.  */
353           printf ("%s\n", ftp_getaddress ());
354           exit (0);
355           break;
356         case 'F':
357           setval ("forcehtml", "on");
358           break;
359         case 'H':
360           setval ("spanhosts", "on");
361           break;
362         case 'h':
363           print_help ();
364 #ifdef WINDOWS
365           ws_help (exec_name);
366 #endif
367           exit (0);
368           break;
369         case 'k':
370           setval ("convertlinks", "on");
371           break;
372         case 'L':
373           setval ("relativeonly", "on");
374           break;
375         case 'm':
376           setval ("mirror", "on");
377           break;
378         case 'N':
379           setval ("timestamping", "on");
380           break;
381         case 'S':
382           setval ("serverresponse", "on");
383           break;
384         case 's':
385           setval ("saveheaders", "on");
386           break;
387         case 'q':
388           setval ("quiet", "on");
389           break;
390         case 'r':
391           setval ("recursive", "on");
392           break;
393         case 'V':
394           printf ("GNU Wget %s\n\n", version_string);
395           printf ("%s", _("\
396 Copyright (C) 1995, 1996, 1997, 1998 Free Software Foundation, Inc.\n\
397 This program is distributed in the hope that it will be useful,\n\
398 but WITHOUT ANY WARRANTY; without even the implied warranty of\n\
399 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the\n\
400 GNU General Public License for more details.\n"));
401           printf (_("\nWritten by Hrvoje Niksic <hniksic@srce.hr>.\n"));
402           exit (0);
403           break;
404         case 'v':
405           setval ("verbose", "on");
406           break;
407         case 'x':
408           setval ("dirstruct", "on");
409           break;
410
411           /* Options accepting an argument: */
412         case 1:
413           setval ("httpuser", optarg);
414           break;
415         case 2:
416           setval ("httppasswd", optarg);
417           break;
418         case 3:
419           setval ("header", optarg);
420           break;
421         case 6:
422           setval ("dotstyle", optarg);
423           break;
424         case 7:
425           setval ("htmlify", optarg);
426           break;
427         case 12:
428           setval ("excludedomains", optarg);
429           break;
430         case 15:
431           setval ("proxyuser", optarg);
432           break;
433         case 16:
434           setval ("proxypasswd", optarg);
435           break;
436         case 23:
437           setval ("backups", optarg);
438           break;
439         case 'A':
440           setval ("accept", optarg);
441           break;
442         case 'a':
443           setval ("logfile", optarg);
444           append_to_log = 1;
445           break;
446         case 'B':
447           setval ("base", optarg);
448           break;
449         case 'C':
450           setval ("cache", optarg);
451           break;
452         case 'D':
453           setval ("domains", optarg);
454           break;
455         case 'e':
456           {
457             char *com, *val;
458             if (parse_line (optarg, &com, &val))
459               {
460                 if (!setval (com, val))
461                   exit (1);
462               }
463             else
464               {
465                 fprintf (stderr, _("%s: %s: invalid command\n"), exec_name,
466                          optarg);
467                 exit (1);
468               }
469             free (com);
470             free (val);
471           }
472           break;
473         case 'g':
474           setval ("glob", optarg);
475           break;
476         case 'I':
477           setval ("includedirectories", optarg);
478           break;
479         case 'i':
480           setval ("input", optarg);
481           break;
482         case 'l':
483           setval ("reclevel", optarg);
484           break;
485         case 'n':
486           {
487             /* #### The n? options are utter crock!  */
488             char *p;
489
490             for (p = optarg; *p; p++)
491               switch (*p)
492                 {
493                 case 'v':
494                   setval ("verbose", "off");
495                   break;
496                 case 'h':
497                   setval ("simplehostcheck", "on");
498                   break;
499                 case 'H':
500                   setval ("addhostdir", "off");
501                   break;
502                 case 'd':
503                   setval ("dirstruct", "off");
504                   break;
505                 case 'c':
506                   setval ("noclobber", "on");
507                   break;
508                 case 'r':
509                   setval ("removelisting", "off");
510                   break;
511                 case 'p':
512                   setval ("noparent", "on");
513                   break;
514                 default:
515                   printf (_("%s: illegal option -- `-n%c'\n"), exec_name, *p);
516                   print_usage ();
517                   printf ("\n");
518                   printf (_("Try `%s --help\' for more options.\n"), exec_name);
519                   exit (1);
520                 }
521             break;
522           }
523         case 'O':
524           setval ("outputdocument", optarg);
525           break;
526         case 'o':
527           setval ("logfile", optarg);
528           break;
529         case 'P':
530           setval ("dirprefix", optarg);
531           break;
532         case 'Q':
533           setval ("quota", optarg);
534           break;
535         case 'R':
536           setval ("reject", optarg);
537           break;
538         case 'T':
539           setval ("timeout", optarg);
540           break;
541         case 't':
542           setval ("tries", optarg);
543           break;
544         case 'U':
545           setval ("useragent", optarg);
546           break;
547         case 'w':
548           setval ("wait", optarg);
549           break;
550         case 'X':
551           setval ("excludedirectories", optarg);
552           break;
553         case 'Y':
554           setval ("useproxy", optarg);
555           break;
556
557         case '?':
558           print_usage ();
559           printf ("\n");
560           printf (_("Try `%s --help' for more options.\n"), exec_name);
561           exit (0);
562           break;
563         }
564     }
565   if (opt.verbose == -1)
566     opt.verbose = !opt.quiet;
567
568   /* Sanity checks.  */
569   if (opt.verbose && opt.quiet)
570     {
571       printf (_("Can't be verbose and quiet at the same time.\n"));
572       print_usage ();
573       exit (1);
574     }
575   if (opt.timestamping && opt.noclobber)
576     {
577       printf (_("\
578 Can't timestamp and not clobber old files at the same time.\n"));
579       print_usage ();
580       exit (1);
581     }
582   nurl = argc - optind;
583   if (!nurl && !opt.input_filename)
584     {
585       /* No URL specified.  */
586       printf (_("%s: missing URL\n"), exec_name);
587       print_usage ();
588       printf ("\n");
589       /* #### Something nicer should be printed here -- similar to the
590          pre-1.5 `--help' page.  */
591       printf (_("Try `%s --help' for more options.\n"), exec_name);
592       exit (1);
593     }
594
595   if (opt.background)
596     fork_to_background ();
597
598   /* Allocate basic pointer.  */
599   url = ALLOCA_ARRAY (char *, nurl + 1);
600   /* Fill in the arguments.  */
601   for (i = 0; i < nurl; i++, optind++)
602     {
603       char *irix4_cc_needs_this;
604       STRDUP_ALLOCA (irix4_cc_needs_this, argv[optind]);
605       url[i] = irix4_cc_needs_this;
606     }
607   url[i] = NULL;
608
609   /* Change the title of console window on Windows.  #### I think this
610      statement should belong to retrieve_url().  --hniksic.  */
611 #ifdef WINDOWS
612   ws_changetitle (*url, nurl);
613 #endif
614
615   /* Initialize logging.  */
616   log_init (opt.lfilename, append_to_log);
617
618   DEBUGP (("DEBUG output created by Wget %s on %s.\n\n", version_string,
619            OS_TYPE));
620   /* Open the output filename if necessary.  */
621   if (opt.output_document)
622     {
623       if (HYPHENP (opt.output_document))
624         opt.dfp = stdout;
625       else
626         {
627           opt.dfp = fopen (opt.output_document, "wb");
628           if (opt.dfp == NULL)
629             {
630               perror (opt.output_document);
631               exit (1);
632             }
633         }
634     }
635
636 #ifdef WINDOWS
637   ws_startup ();
638 #endif
639
640   /* Setup the signal handler to redirect output when hangup is
641      received.  */
642 #ifdef HAVE_SIGNAL
643   if (signal(SIGHUP, SIG_IGN) != SIG_IGN)
644     signal(SIGHUP, redirect_output_signal);
645   /* ...and do the same for SIGUSR1.  */
646   signal (SIGUSR1, redirect_output_signal);
647   /* Writing to a closed socket normally signals SIGPIPE, and the
648      process exits.  What we want is to ignore SIGPIPE and just check
649      for the return value of write().  */
650   signal (SIGPIPE, SIG_IGN);
651 #endif /* HAVE_SIGNAL */
652
653   status = RETROK;              /* initialize it, just-in-case */
654   recursive_reset ();
655   /* Retrieve the URLs from argument list.  */
656   for (t = url; *t; t++)
657     {
658       char *filename, *new_file;
659       int dt;
660
661       status = retrieve_url (*t, &filename, &new_file, NULL, &dt);
662       if (opt.recursive && status == RETROK && (dt & TEXTHTML))
663         status = recursive_retrieve (filename, new_file ? new_file : *t);
664       FREE_MAYBE (new_file);
665       FREE_MAYBE (filename);
666     }
667
668   /* And then from the input file, if any.  */
669   if (opt.input_filename)
670     {
671       int count;
672       status = retrieve_from_file (opt.input_filename, opt.force_html, &count);
673       if (!count)
674         logprintf (LOG_NOTQUIET, _("No URLs found in %s.\n"),
675                    opt.input_filename);
676     }
677   /* Print the downloaded sum.  */
678   if (opt.recursive
679       || nurl > 1
680       || (opt.input_filename && opt.downloaded != 0))
681     {
682       logprintf (LOG_NOTQUIET,
683                  _("\nFINISHED --%s--\nDownloaded: %s bytes in %d files\n"),
684                  time_str (NULL), legible (opt.downloaded), opt.numurls);
685       /* Print quota warning, if exceeded.  */
686       if (opt.quota && opt.downloaded > opt.quota)
687         logprintf (LOG_NOTQUIET,
688                    _("Download quota (%s bytes) EXCEEDED!\n"),
689                    legible (opt.quota));
690     }
691   if (opt.convert_links)
692     {
693       convert_all_links ();
694     }
695   log_close ();
696   cleanup ();
697   if (status == RETROK)
698     return 0;
699   else
700     return 1;
701 }
702 \f
703 /* Hangup signal handler.  When wget receives SIGHUP or SIGUSR1, it
704    will proceed operation as usual, trying to write into a log file.
705    If that is impossible, the output will be turned off.  */
706
707 #ifdef HAVE_SIGNAL
708 static RETSIGTYPE
709 redirect_output_signal (int sig)
710 {
711   char tmp[100];
712   signal (sig, redirect_output_signal);
713   /* Please note that the double `%' in `%%s' is intentional, because
714      redirect_output passes tmp through printf.  */
715   sprintf (tmp, _("%s received, redirecting output to `%%s'.\n"),
716            (sig == SIGHUP ? "SIGHUP" :
717             (sig == SIGUSR1 ? "SIGUSR1" :
718              "WTF?!")));
719   redirect_output (tmp);
720 }
721 #endif /* HAVE_SIGNAL */