1/***************************************************************************
2 * _ _ ____ _
3 * Project ___| | | | _ \| |
4 * / __| | | | |_) | |
5 * | (__| |_| | _ <| |___
6 * \___|\___/|_| \_\_____|
7 *
8 * Copyright (C) 2020 - 2021, Nicolas Sterchele, <nicolas@sterchelen.net>
9 *
10 * This software is licensed as described in the file COPYING, which
11 * you should have received as part of this distribution. The terms
12 * are also available at https://curl.se/docs/copyright.html.
13 *
14 * You may opt to use, copy, modify, merge, publish, distribute and/or sell
15 * copies of the Software, and permit persons to whom the Software is
16 * furnished to do so, under the terms of the COPYING file.
17 *
18 * This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
19 * KIND, either express or implied.
20 *
21 ***************************************************************************/
22#include "test.h"
23
24#include "memdebug.h"
25
26int test(char *URL)
27{
28 CURLcode ret = CURLE_OK;
29 CURL *curl = NULL;
30 curl_off_t retry_after;
31 char *follow_url = NULL;
32
33 curl_global_init(CURL_GLOBAL_ALL);
34 curl = curl_easy_init();
35
36 if(curl) {
37 curl_easy_setopt(curl, CURLOPT_URL, URL);
38 ret = curl_easy_perform(curl);
39 if(ret) {
40 fprintf(stderr, "%s:%d curl_easy_perform() failed with code %d (%s)\n",
41 __FILE__, __LINE__, ret, curl_easy_strerror(ret));
42 goto test_cleanup;
43 }
44 curl_easy_getinfo(curl, CURLINFO_REDIRECT_URL, &follow_url);
45 curl_easy_getinfo(curl, CURLINFO_RETRY_AFTER, &retry_after);
46 printf("Retry-After %" CURL_FORMAT_CURL_OFF_T "\n", retry_after);
47 curl_easy_setopt(curl, CURLOPT_URL, follow_url);
48 ret = curl_easy_perform(curl);
49 if(ret) {
50 fprintf(stderr, "%s:%d curl_easy_perform() failed with code %d (%s)\n",
51 __FILE__, __LINE__, ret, curl_easy_strerror(ret));
52 goto test_cleanup;
53 }
54
55 curl_easy_reset(curl);
56 curl_easy_getinfo(curl, CURLINFO_RETRY_AFTER, &retry_after);
57 printf("Retry-After %" CURL_FORMAT_CURL_OFF_T "\n", retry_after);
58 }
59
60test_cleanup:
61 curl_easy_cleanup(curl);
62 curl_global_cleanup();
63
64 return ret;
65}
66
67