1/*************************************************************************** 2 * _ _ ____ _ 3 * Project ___| | | | _ \| | 4 * / __| | | | |_) | | 5 * | (__| |_| | _ <| |___ 6 * \___|\___/|_| \_\_____| 7 * 8 * Copyright (C) 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 * SPDX-License-Identifier: curl 22 * 23 ***************************************************************************/ 24#include "test.h" 25 26#include "memdebug.h" 27 28int test(char *URL) 29{ 30 CURLcode ret = CURLE_OK; 31 CURL *curl = NULL; 32 curl_off_t retry_after; 33 char *follow_url = NULL; 34 35 curl_global_init(CURL_GLOBAL_ALL); 36 curl = curl_easy_init(); 37 38 if(curl) { 39 curl_easy_setopt(curl, CURLOPT_URL, URL); 40 ret = curl_easy_perform(curl); 41 if(ret) { 42 fprintf(stderr, "%s:%d curl_easy_perform() failed with code %d (%s)\n", 43 __FILE__, __LINE__, ret, curl_easy_strerror(ret)); 44 goto test_cleanup; 45 } 46 curl_easy_getinfo(curl, CURLINFO_REDIRECT_URL, &follow_url); 47 curl_easy_getinfo(curl, CURLINFO_RETRY_AFTER, &retry_after); 48 printf("Retry-After %" CURL_FORMAT_CURL_OFF_T "\n", retry_after); 49 curl_easy_setopt(curl, CURLOPT_URL, follow_url); 50 ret = curl_easy_perform(curl); 51 if(ret) { 52 fprintf(stderr, "%s:%d curl_easy_perform() failed with code %d (%s)\n", 53 __FILE__, __LINE__, ret, curl_easy_strerror(ret)); 54 goto test_cleanup; 55 } 56 57 curl_easy_reset(curl); 58 curl_easy_getinfo(curl, CURLINFO_RETRY_AFTER, &retry_after); 59 printf("Retry-After %" CURL_FORMAT_CURL_OFF_T "\n", retry_after); 60 } 61 62test_cleanup: 63 curl_easy_cleanup(curl); 64 curl_global_cleanup(); 65 66 return ret; 67} 68