DDNS: Send proper user agent.

[people/teissler/ipfire-2.x.git] / src / scripts / setddns.pl

diff --git a/src/scripts/setddns.pl b/src/scripts/setddns.pl
index 8794ca62eb89a7bc13cde709ac1f9abac96f48bf..6c4c3697f1a119fde083d090370bb8b84996a7fa 100644 (file)
--- a/src/scripts/setddns.pl
+++ b/src/scripts/setddns.pl
@@ -260,9 +260,10 @@ if ($ip ne $ipcache) {
                                $authstring = "username=$settings{'LOGIN'}&password=$settings{'PASSWORD'}";
                            }
 
+                           my $user_agent = &General::MakeUserAgent();
                            my ($out, $response) = Net::SSLeay::get_https("dns.lightningwirelabs.com", 443,
                                "/update?hostname=$settings{'HOSTDOMAIN'}&address4=$ip&$authstring",
-                               Net::SSLeay::make_headers('User-Agent' => 'IPFire')
+                               Net::SSLeay::make_headers('User-Agent' => $user_agent)
                            );
 
                            # Valid response are 'ok'   'nochange'