From a18efcbe320a70e325e9587fa863f377df2b0ad1 Mon Sep 17 00:00:00 2001
From: Richard Hansen <rhansen@rhansen.org>
Date: Sun, 1 Sep 2024 01:22:27 -0400
Subject: [PATCH] Force an update if a host's protocol changes

---
 ddclient.in | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ddclient.in b/ddclient.in
index 8042edd..2b1bb0a 100755
--- a/ddclient.in
+++ b/ddclient.in
@@ -583,7 +583,7 @@ our %variables = (
         'cache'               => setv(T_FILE,  0, 0, "$cachedir/$program.cache", undef),
         'pid'                 => setv(T_FILE,  0, 0, undef,                undef),
         'proxy'               => setv(T_FQDNP, 0, 0, undef,                undef),
-        'protocol'            => setv(T_PROTO, 0, 0, 'dyndns2',            undef),
+        'protocol'            => setv(T_PROTO, 0, 1, 'dyndns2',            undef),
 
         'timeout'             => setv(T_DELAY, 0, 0, interval('120s'),     interval('120s')),
         'force'               => setv(T_BOOL,  0, 0, 0,                    undef),
@@ -727,7 +727,7 @@ our %variables = (
         $self->{force_update} //= sub { return 0; };
         $self->{force_update_if_changed} //= [];
         # Eliminate duplicates and non-recap variables.
-        my %fvs = map({ ($_ => undef); } @{$self->{force_update_if_changed}});
+        my %fvs = map({ ($_ => undef); } @{$self->{force_update_if_changed}}, 'protocol');
         $self->{force_update_if_changed} =
             [grep({ $self->{variables}{$_} && $self->{variables}{$_}{recap}; } sort(keys(%fvs)))];
         return $self;