Allow curl program and options to be specified in DDCLIENT_CURL env var

Use this for testing.
rrthomas · Jul 10, 2023 · ba6fab3 · ba6fab3
1 parent 0990da3
commit ba6fab3
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 1 deletion.
diff --git a/ddclient.in b/ddclient.in
@@ -2094,7 +2094,7 @@ sub curl_cmd {
     my @params = @_;
     my $tmpfile;
     my $tfh;
-    my $system_curl = quotemeta(subst_var('@CURL@', 'curl'));
+    my $system_curl = $ENV{DDCLIENT_CURL} // quotemeta(subst_var('@CURL@', 'curl'));
     my %curl_codes = (  ## Subset of error codes from https://curl.haxx.se/docs/manpage.html
          2 => "Failed to initialize. (Most likely a bug in ddclient, please open issue at https://github.com/ddclient/ddclient)",
          3 => "URL malformed. The syntax was not correct",

diff --git a/t/geturl_connectivity.pl.in b/t/geturl_connectivity.pl.in
@@ -18,6 +18,9 @@ my $http_daemon_supports_ipv6 = eval {
     HTTP::Daemon->VERSION(6.12);
 };
 
+# Our test http server's certs can't be validated.
+$ENV{DDCLIENT_CURL} = "@CURL@ --insecure";
+
 # To aid in debugging, uncomment the following lines. (They are normally left commented to avoid
 # accidentally interfering with the Test Anything Protocol messages written by Test::More.)
 #STDOUT->autoflush(1);