2 Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003,
3 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
5 This file is part of GNU Wget.
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 (at
10 your option) any later version.
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.
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/>.
20 Additional permission under GNU GPL version 3 section 7
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. */
37 #endif /* HAVE_UNISTD_H */
56 /* Total size of downloaded files. Used to enforce quota. */
57 SUM_SIZE_INT total_downloaded_bytes;
59 /* Total download time in seconds. */
60 double total_download_time;
62 /* If non-NULL, the stream to which output should be written. This
63 stream is initialized when `-O' is used. */
66 /* Whether output_document is a regular file we can manipulate,
67 i.e. not `-' or a device file. */
68 bool output_stream_regular;
77 limit_bandwidth_reset (void)
82 /* Limit the bandwidth by pausing the download for an amount of time.
83 BYTES is the number of bytes received from the network, and TIMER
84 is the timer that started at the beginning of download. */
87 limit_bandwidth (wgint bytes, struct ptimer *timer)
89 double delta_t = ptimer_read (timer) - limit_data.chunk_start;
92 limit_data.chunk_bytes += bytes;
94 /* Calculate the amount of time we expect downloading the chunk
95 should take. If in reality it took less time, sleep to
96 compensate for the difference. */
97 expected = (double) limit_data.chunk_bytes / opt.limit_rate;
99 if (expected > delta_t)
101 double slp = expected - delta_t + limit_data.sleep_adjust;
105 DEBUGP (("deferring a %.2f ms sleep (%s/%.2f).\n",
106 slp * 1000, number_to_static_string (limit_data.chunk_bytes),
110 DEBUGP (("\nsleeping %.2f ms for %s bytes, adjust %.2f ms\n",
111 slp * 1000, number_to_static_string (limit_data.chunk_bytes),
112 limit_data.sleep_adjust));
114 t0 = ptimer_read (timer);
116 t1 = ptimer_measure (timer);
118 /* Due to scheduling, we probably slept slightly longer (or
119 shorter) than desired. Calculate the difference between the
120 desired and the actual sleep, and adjust the next sleep by
122 limit_data.sleep_adjust = slp - (t1 - t0);
123 /* If sleep_adjust is very large, it's likely due to suspension
124 and not clock inaccuracy. Don't enforce those. */
125 if (limit_data.sleep_adjust > 0.5)
126 limit_data.sleep_adjust = 0.5;
127 else if (limit_data.sleep_adjust < -0.5)
128 limit_data.sleep_adjust = -0.5;
131 limit_data.chunk_bytes = 0;
132 limit_data.chunk_start = ptimer_read (timer);
136 # define MIN(i, j) ((i) <= (j) ? (i) : (j))
139 /* Write data in BUF to OUT. However, if *SKIP is non-zero, skip that
140 amount of data and decrease SKIP. Increment *TOTAL by the amount
144 write_data (FILE *out, const char *buf, int bufsize, wgint *skip,
163 fwrite (buf, 1, bufsize, out);
166 /* Immediately flush the downloaded data. This should not hinder
167 performance: fast downloads will arrive in large 16K chunks
168 (which stdio would write out immediately anyway), and slow
169 downloads wouldn't be limited by disk speed. */
171 return !ferror (out);
174 /* Read the contents of file descriptor FD until it the connection
175 terminates or a read error occurs. The data is read in portions of
176 up to 16K and written to OUT as it arrives. If opt.verbose is set,
177 the progress is shown.
179 TOREAD is the amount of data expected to arrive, normally only used
180 by the progress gauge.
182 STARTPOS is the position from which the download starts, used by
183 the progress gauge. If QTYREAD is non-NULL, the value it points to
184 is incremented by the amount of data read from the network. If
185 QTYWRITTEN is non-NULL, the value it points to is incremented by
186 the amount of data written to disk. The time it took to download
187 the data is stored to ELAPSED.
189 The function exits and returns the amount of data read. In case of
190 error while reading data, -1 is returned. In case of error while
191 writing data, -2 is returned. */
194 fd_read_body (int fd, FILE *out, wgint toread, wgint startpos,
195 wgint *qtyread, wgint *qtywritten, double *elapsed, int flags)
199 static char dlbuf[16384];
200 int dlbufsize = sizeof (dlbuf);
202 struct ptimer *timer = NULL;
203 double last_successful_read_tm = 0;
205 /* The progress gauge, set according to the user preferences. */
206 void *progress = NULL;
208 /* Non-zero if the progress gauge is interactive, i.e. if it can
209 continually update the display. When true, smaller timeout
210 values are used so that the gauge can update the display when
211 data arrives slowly. */
212 bool progress_interactive = false;
214 bool exact = !!(flags & rb_read_exactly);
217 /* How much data we've read/written. */
219 wgint sum_written = 0;
221 if (flags & rb_skip_startpos)
226 /* If we're skipping STARTPOS bytes, pass 0 as the INITIAL
227 argument to progress_create because the indicator doesn't
228 (yet) know about "skipping" data. */
229 progress = progress_create (skip ? 0 : startpos, startpos + toread);
230 progress_interactive = progress_interactive_p (progress);
234 limit_bandwidth_reset ();
236 /* A timer is needed for tracking progress, for throttling, and for
237 tracking elapsed time. If either of these are requested, start
239 if (progress || opt.limit_rate || elapsed)
241 timer = ptimer_new ();
242 last_successful_read_tm = 0;
245 /* Use a smaller buffer for low requested bandwidths. For example,
246 with --limit-rate=2k, it doesn't make sense to slurp in 16K of
247 data and then sleep for 8s. With buffer size equal to the limit,
248 we never have to sleep for more than one second. */
249 if (opt.limit_rate && opt.limit_rate < dlbufsize)
250 dlbufsize = opt.limit_rate;
252 /* Read from FD while there is data to read. Normally toread==0
253 means that it is unknown how much data is to arrive. However, if
254 EXACT is set, then toread==0 means what it says: that no data
256 while (!exact || (sum_read < toread))
258 int rdsize = exact ? MIN (toread - sum_read, dlbufsize) : dlbufsize;
259 double tmout = opt.read_timeout;
260 if (progress_interactive)
262 /* For interactive progress gauges, always specify a ~1s
263 timeout, so that the gauge can be updated regularly even
264 when the data arrives very slowly or stalls. */
266 if (opt.read_timeout)
269 waittm = ptimer_read (timer) - last_successful_read_tm;
270 if (waittm + tmout > opt.read_timeout)
272 /* Don't let total idle time exceed read timeout. */
273 tmout = opt.read_timeout - waittm;
276 /* We've already exceeded the timeout. */
277 ret = -1, errno = ETIMEDOUT;
283 ret = fd_read (fd, dlbuf, rdsize, tmout);
285 if (progress_interactive && ret < 0 && errno == ETIMEDOUT)
286 ret = 0; /* interactive timeout, handled above */
288 break; /* EOF or read error */
290 if (progress || opt.limit_rate)
292 ptimer_measure (timer);
294 last_successful_read_tm = ptimer_read (timer);
300 if (!write_data (out, dlbuf, ret, &skip, &sum_written))
308 limit_bandwidth (ret, timer);
311 progress_update (progress, ret, ptimer_read (timer));
313 if (toread > 0 && !opt.quiet)
314 ws_percenttitle (100.0 *
315 (startpos + sum_read) / (startpos + toread));
323 progress_finish (progress, ptimer_read (timer));
326 *elapsed = ptimer_read (timer);
328 ptimer_destroy (timer);
331 *qtyread += sum_read;
333 *qtywritten += sum_written;
338 /* Read a hunk of data from FD, up until a terminator. The hunk is
339 limited by whatever the TERMINATOR callback chooses as its
340 terminator. For example, if terminator stops at newline, the hunk
341 will consist of a line of data; if terminator stops at two
342 newlines, it can be used to read the head of an HTTP response.
343 Upon determining the boundary, the function returns the data (up to
344 the terminator) in malloc-allocated storage.
346 In case of read error, NULL is returned. In case of EOF and no
347 data read, NULL is returned and errno set to 0. In case of having
348 read some data, but encountering EOF before seeing the terminator,
349 the data that has been read is returned, but it will (obviously)
350 not contain the terminator.
352 The TERMINATOR function is called with three arguments: the
353 beginning of the data read so far, the beginning of the current
354 block of peeked-at data, and the length of the current block.
355 Depending on its needs, the function is free to choose whether to
356 analyze all data or just the newly arrived data. If TERMINATOR
357 returns NULL, it means that the terminator has not been seen.
358 Otherwise it should return a pointer to the charactre immediately
359 following the terminator.
361 The idea is to be able to read a line of input, or otherwise a hunk
362 of text, such as the head of an HTTP request, without crossing the
363 boundary, so that the next call to fd_read etc. reads the data
364 after the hunk. To achieve that, this function does the following:
366 1. Peek at incoming data.
368 2. Determine whether the peeked data, along with the previously
369 read data, includes the terminator.
371 2a. If yes, read the data until the end of the terminator, and
374 2b. If no, read the peeked data and goto 1.
376 The function is careful to assume as little as possible about the
377 implementation of peeking. For example, every peek is followed by
378 a read. If the read returns a different amount of data, the
379 process is retried until all data arrives safely.
381 SIZEHINT is the buffer size sufficient to hold all the data in the
382 typical case (it is used as the initial buffer size). MAXSIZE is
383 the maximum amount of memory this function is allowed to allocate,
384 or 0 if no upper limit is to be enforced.
386 This function should be used as a building block for other
387 functions -- see fd_read_line as a simple example. */
390 fd_read_hunk (int fd, hunk_terminator_t terminator, long sizehint, long maxsize)
392 long bufsize = sizehint;
393 char *hunk = xmalloc (bufsize);
394 int tail = 0; /* tail position in HUNK */
396 assert (!maxsize || maxsize >= bufsize);
401 int pklen, rdlen, remain;
403 /* First, peek at the available data. */
405 pklen = fd_peek (fd, hunk + tail, bufsize - 1 - tail, -1);
411 end = terminator (hunk, hunk + tail, pklen);
414 /* The data contains the terminator: we'll drain the data up
415 to the end of the terminator. */
416 remain = end - (hunk + tail);
417 assert (remain >= 0);
420 /* No more data needs to be read. */
424 if (bufsize - 1 < tail + remain)
426 bufsize = tail + remain + 1;
427 hunk = xrealloc (hunk, bufsize);
431 /* No terminator: simply read the data we know is (or should
435 /* Now, read the data. Note that we make no assumptions about
436 how much data we'll get. (Some TCP stacks are notorious for
437 read returning less data than the previous MSG_PEEK.) */
439 rdlen = fd_read (fd, hunk + tail, remain, 0);
452 /* EOF without anything having been read */
458 /* EOF seen: return the data we've read. */
461 if (end && rdlen == remain)
462 /* The terminator was seen and the remaining data drained --
463 we got what we came for. */
466 /* Keep looping until all the data arrives. */
468 if (tail == bufsize - 1)
470 /* Double the buffer size, but refuse to allocate more than
472 if (maxsize && bufsize >= maxsize)
479 if (maxsize && bufsize > maxsize)
481 hunk = xrealloc (hunk, bufsize);
487 line_terminator (const char *start, const char *peeked, int peeklen)
489 const char *p = memchr (peeked, '\n', peeklen);
491 /* p+1 because the line must include '\n' */
496 /* The maximum size of the single line we agree to accept. This is
497 not meant to impose an arbitrary limit, but to protect the user
498 from Wget slurping up available memory upon encountering malicious
499 or buggy server output. Define it to 0 to remove the limit. */
500 #define FD_READ_LINE_MAX 4096
502 /* Read one line from FD and return it. The line is allocated using
503 malloc, but is never larger than FD_READ_LINE_MAX.
505 If an error occurs, or if no data can be read, NULL is returned.
506 In the former case errno indicates the error condition, and in the
507 latter case, errno is NULL. */
510 fd_read_line (int fd)
512 return fd_read_hunk (fd, line_terminator, 128, FD_READ_LINE_MAX);
515 /* Return a printed representation of the download rate, along with
516 the units appropriate for the download speed. */
519 retr_rate (wgint bytes, double secs)
522 static const char *rate_names[] = {"B/s", "KB/s", "MB/s", "GB/s" };
525 double dlrate = calc_rate (bytes, secs, &units);
526 /* Use more digits for smaller numbers (regardless of unit used),
527 e.g. "1022", "247", "12.5", "2.38". */
528 sprintf (res, "%.*f %s",
529 dlrate >= 99.95 ? 0 : dlrate >= 9.995 ? 1 : 2,
530 dlrate, rate_names[units]);
535 /* Calculate the download rate and trim it as appropriate for the
536 speed. Appropriate means that if rate is greater than 1K/s,
537 kilobytes are used, and if rate is greater than 1MB/s, megabytes
540 UNITS is zero for B/s, one for KB/s, two for MB/s, and three for
544 calc_rate (wgint bytes, double secs, int *units)
552 /* If elapsed time is exactly zero, it means we're under the
553 resolution of the timer. This can easily happen on systems
554 that use time() for the timer. Since the interval lies between
555 0 and the timer's resolution, assume half the resolution. */
556 secs = ptimer_resolution () / 2.0;
558 dlrate = bytes / secs;
561 else if (dlrate < 1024.0 * 1024.0)
562 *units = 1, dlrate /= 1024.0;
563 else if (dlrate < 1024.0 * 1024.0 * 1024.0)
564 *units = 2, dlrate /= (1024.0 * 1024.0);
566 /* Maybe someone will need this, one day. */
567 *units = 3, dlrate /= (1024.0 * 1024.0 * 1024.0);
573 #define SUSPEND_POST_DATA do { \
574 post_data_suspended = true; \
575 saved_post_data = opt.post_data; \
576 saved_post_file_name = opt.post_file_name; \
577 opt.post_data = NULL; \
578 opt.post_file_name = NULL; \
581 #define RESTORE_POST_DATA do { \
582 if (post_data_suspended) \
584 opt.post_data = saved_post_data; \
585 opt.post_file_name = saved_post_file_name; \
586 post_data_suspended = false; \
590 static char *getproxy (struct url *);
592 /* Retrieve the given URL. Decides which loop to call -- HTTP, FTP,
595 /* #### This function should be rewritten so it doesn't return from
599 retrieve_url (const char *origurl, char **file, char **newloc,
600 const char *refurl, int *dt, bool recursive, struct iri *iri)
604 bool location_changed;
606 char *mynewloc, *proxy;
607 struct url *u, *proxy_url;
608 int up_error_code; /* url parse error code */
610 int redirection_count = 0;
612 bool post_data_suspended = false;
613 char *saved_post_data = NULL;
614 char *saved_post_file_name = NULL;
616 /* If dt is NULL, use local storage. */
622 url = xstrdup (origurl);
629 u = url_parse (url, &up_error_code, iri, true);
632 char *error = url_error (url, up_error_code);
633 logprintf (LOG_NOTQUIET, "%s: %s.\n", url, error);
639 DEBUGP (("[IRI Retrieving %s with %s (UTF-8=%d)\n", quote_n (0, url),
640 iri->uri_encoding ? quote_n (1, iri->uri_encoding) : "None",
644 refurl = opt.referer;
653 proxy = getproxy (u);
656 struct iri *pi = iri_new ();
657 set_uri_encoding (pi, opt.locale, true);
658 pi->utf8_encode = false;
660 /* Parse the proxy URL. */
661 proxy_url = url_parse (proxy, &up_error_code, NULL, true);
664 char *error = url_error (proxy, up_error_code);
665 logprintf (LOG_NOTQUIET, _("Error parsing proxy URL %s: %s.\n"),
672 if (proxy_url->scheme != SCHEME_HTTP && proxy_url->scheme != u->scheme)
674 logprintf (LOG_NOTQUIET, _("Error in proxy URL %s: Must be HTTP.\n"), proxy);
675 url_free (proxy_url);
682 if (u->scheme == SCHEME_HTTP
684 || u->scheme == SCHEME_HTTPS
686 || (proxy_url && proxy_url->scheme == SCHEME_HTTP))
688 result = http_loop (u, &mynewloc, &local_file, refurl, dt, proxy_url, iri);
690 else if (u->scheme == SCHEME_FTP)
692 /* If this is a redirection, temporarily turn off opt.ftp_glob
693 and opt.recursive, both being undesirable when following
695 bool oldrec = recursive, glob = opt.ftp_glob;
696 if (redirection_count)
697 oldrec = glob = false;
699 result = ftp_loop (u, dt, proxy_url, recursive, glob);
702 /* There is a possibility of having HTTP being redirected to
703 FTP. In these cases we must decide whether the text is HTML
704 according to the suffix. The HTML suffixes are `.html',
705 `.htm' and a few others, case-insensitive. */
706 if (redirection_count && local_file && u->scheme == SCHEME_FTP)
708 if (has_html_suffix_p (local_file))
715 url_free (proxy_url);
719 location_changed = (result == NEWLOCATION);
720 if (location_changed)
722 char *construced_newloc;
723 struct url *newloc_parsed;
725 assert (mynewloc != NULL);
730 /* The HTTP specs only allow absolute URLs to appear in
731 redirects, but a ton of boneheaded webservers and CGIs out
732 there break the rules and use relative URLs, and popular
733 browsers are lenient about this, so wget should be too. */
734 construced_newloc = uri_merge (url, mynewloc);
736 mynewloc = construced_newloc;
738 /* Reset UTF-8 encoding state, keep the URI encoding and reset
739 the content encoding. */
740 iri->utf8_encode = opt.enable_iri;
741 set_content_encoding (iri, NULL);
742 xfree_null (iri->orig_url);
744 /* Now, see if this new location makes sense. */
745 newloc_parsed = url_parse (mynewloc, &up_error_code, iri, true);
748 char *error = url_error (mynewloc, up_error_code);
749 logprintf (LOG_NOTQUIET, "%s: %s.\n", escnonprint_uri (mynewloc),
759 /* Now mynewloc will become newloc_parsed->url, because if the
760 Location contained relative paths like .././something, we
761 don't want that propagating as url. */
763 mynewloc = xstrdup (newloc_parsed->url);
765 /* Check for max. number of redirections. */
766 if (++redirection_count > opt.max_redirect)
768 logprintf (LOG_NOTQUIET, _("%d redirections exceeded.\n"),
770 url_free (newloc_parsed);
783 /* If we're being redirected from POST, we don't want to POST
784 again. Many requests answer POST with a redirection to an
785 index page; that redirection is clearly a GET. We "suspend"
786 POST data for the duration of the redirections, and restore
787 it when we're done. */
788 if (!post_data_suspended)
794 /* Try to not encode in UTF-8 if fetching failed */
795 if (!(*dt & RETROKF) && iri->utf8_encode)
797 iri->utf8_encode = false;
798 DEBUGP (("[IRI fallbacking to non-utf8 for %s\n", quote (url)));
802 if (local_file && *dt & RETROKF)
804 register_download (u->url, local_file);
805 if (redirection_count && 0 != strcmp (origurl, u->url))
806 register_redirection (origurl, u->url);
808 register_html (u->url, local_file);
811 register_download (u->url, local_file);
812 if (redirection_count && 0 != strcmp (origurl, u->url))
813 register_redirection (origurl, u->url);
815 register_html (u->url, local_file);
817 register_css (u->url, local_file);
822 *file = local_file ? local_file : NULL;
824 xfree_null (local_file);
828 if (redirection_count)
847 /* Find the URLs in the file and call retrieve_url() for each of them.
848 If HTML is true, treat the file as HTML, and construct the URLs
851 If opt.recursive is set, call retrieve_tree() for each file. */
854 retrieve_from_file (const char *file, bool html, int *count)
857 struct urlpos *url_list, *cur_url;
858 struct iri *iri = iri_new();
860 char *input_file = NULL;
861 const char *url = file;
863 status = RETROK; /* Suppose everything is OK. */
864 *count = 0; /* Reset the URL count. */
866 /* sXXXav : Assume filename and links in the file are in the locale */
867 set_uri_encoding (iri, opt.locale, true);
868 set_content_encoding (iri, opt.locale);
870 if (url_has_scheme (url))
876 opt.base_href = xstrdup (url);
878 status = retrieve_url (url, &input_file, NULL, NULL, &dt, false, iri);
879 if (status != RETROK)
885 /* If we have a found a content encoding, use it */
886 if (iri->content_encoding)
887 set_uri_encoding (iri, iri->content_encoding, false);
890 input_file = (char *) file;
892 url_list = (html ? get_urls_html (input_file, NULL, NULL, iri)
893 : get_urls_file (input_file));
895 for (cur_url = url_list; cur_url; cur_url = cur_url->next, ++*count)
897 char *filename = NULL, *new_file = NULL;
900 if (cur_url->ignore_when_downloading)
903 if (opt.quota && total_downloaded_bytes > opt.quota)
909 /* Reset UTF-8 encode status */
910 iri->utf8_encode = opt.enable_iri;
911 xfree_null (iri->orig_url);
912 iri->orig_url = NULL;
914 if ((opt.recursive || opt.page_requisites)
915 && (cur_url->url->scheme != SCHEME_FTP || getproxy (cur_url->url)))
917 int old_follow_ftp = opt.follow_ftp;
919 /* Turn opt.follow_ftp on in case of recursive FTP retrieval */
920 if (cur_url->url->scheme == SCHEME_FTP)
923 status = retrieve_tree (cur_url->url->url, iri);
925 opt.follow_ftp = old_follow_ftp;
928 status = retrieve_url (cur_url->url->url, &filename, &new_file, NULL,
929 &dt, opt.recursive, iri);
931 if (filename && opt.delete_after && file_exists_p (filename))
934 Removing file due to --delete-after in retrieve_from_file():\n"));
935 logprintf (LOG_VERBOSE, _("Removing %s.\n"), filename);
936 if (unlink (filename))
937 logprintf (LOG_NOTQUIET, "unlink: %s\n", strerror (errno));
941 xfree_null (new_file);
942 xfree_null (filename);
945 /* Free the linked list of URL-s. */
946 free_urlpos (url_list);
953 /* Print `giving up', or `retrying', depending on the impending
954 action. N1 and N2 are the attempt number and the attempt limit. */
956 printwhat (int n1, int n2)
958 logputs (LOG_VERBOSE, (n1 == n2) ? _("Giving up.\n\n") : _("Retrying.\n\n"));
961 /* If opt.wait or opt.waitretry are specified, and if certain
962 conditions are met, sleep the appropriate number of seconds. See
963 the documentation of --wait and --waitretry for more information.
965 COUNT is the count of current retrieval, beginning with 1. */
968 sleep_between_retrievals (int count)
970 static bool first_retrieval = true;
974 /* Don't sleep before the very first retrieval. */
975 first_retrieval = false;
979 if (opt.waitretry && count > 1)
981 /* If opt.waitretry is specified and this is a retry, wait for
982 COUNT-1 number of seconds, or for opt.waitretry seconds. */
983 if (count <= opt.waitretry)
986 xsleep (opt.waitretry);
990 if (!opt.random_wait || count > 1)
991 /* If random-wait is not specified, or if we are sleeping
992 between retries of the same download, sleep the fixed
997 /* Sleep a random amount of time averaging in opt.wait
998 seconds. The sleeping amount ranges from 0.5*opt.wait to
1000 double waitsecs = (0.5 + random_float ()) * opt.wait;
1001 DEBUGP (("sleep_between_retrievals: avg=%f,sleep=%f\n",
1002 opt.wait, waitsecs));
1008 /* Free the linked list of urlpos. */
1010 free_urlpos (struct urlpos *l)
1014 struct urlpos *next = l->next;
1017 xfree_null (l->local_name);
1023 /* Rotate FNAME opt.backups times */
1025 rotate_backups(const char *fname)
1027 int maxlen = strlen (fname) + 1 + numdigit (opt.backups) + 1;
1028 char *from = (char *)alloca (maxlen);
1029 char *to = (char *)alloca (maxlen);
1033 if (stat (fname, &sb) == 0)
1034 if (S_ISREG (sb.st_mode) == 0)
1037 for (i = opt.backups; i > 1; i--)
1039 sprintf (from, "%s.%d", fname, i - 1);
1040 sprintf (to, "%s.%d", fname, i);
1044 sprintf (to, "%s.%d", fname, 1);
1048 static bool no_proxy_match (const char *, const char **);
1050 /* Return the URL of the proxy appropriate for url U. */
1053 getproxy (struct url *u)
1056 char *rewritten_url;
1057 static char rewritten_storage[1024];
1061 if (no_proxy_match (u->host, (const char **)opt.no_proxy))
1067 proxy = opt.http_proxy ? opt.http_proxy : getenv ("http_proxy");
1071 proxy = opt.https_proxy ? opt.https_proxy : getenv ("https_proxy");
1075 proxy = opt.ftp_proxy ? opt.ftp_proxy : getenv ("ftp_proxy");
1077 case SCHEME_INVALID:
1080 if (!proxy || !*proxy)
1083 /* Handle shorthands. `rewritten_storage' is a kludge to allow
1084 getproxy() to return static storage. */
1085 rewritten_url = rewrite_shorthand_url (proxy);
1088 strncpy (rewritten_storage, rewritten_url, sizeof (rewritten_storage));
1089 rewritten_storage[sizeof (rewritten_storage) - 1] = '\0';
1090 proxy = rewritten_storage;
1096 /* Returns true if URL would be downloaded through a proxy. */
1099 url_uses_proxy (const char *url)
1103 struct iri *i = iri_new();
1104 /* url was given in the command line, so use locale as encoding */
1105 set_uri_encoding (i, opt.locale, true);
1106 u= url_parse (url, NULL, i, false);
1109 ret = getproxy (u) != NULL;
1114 /* Should a host be accessed through proxy, concerning no_proxy? */
1116 no_proxy_match (const char *host, const char **no_proxy)
1121 return sufmatch (no_proxy, host);