DDNS: Send proper user agent.

This commit is contained in:
Michael Tremer
2013-06-12 15:22:48 +02:00
parent 5a2935b1b3
commit b2f8244ae2
2 changed files with 29 additions and 2 deletions

View File

@@ -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'