initial commit of file from CVS for e-smith-dnscache on Wed 12 Jul 08:51:05 BST 2023

This commit is contained in:
Brian Read
2023-07-12 08:51:05 +01:00
parent 6b9c45bdb1
commit 985fd9f0ab
46 changed files with 1461 additions and 2 deletions

View File

@@ -0,0 +1,22 @@
{
my %props;
my $forwarder = $DB->get_value_and_delete('DNSPrimaryIP') ||
$DB->get_prop_and_delete('named', 'Forwarder1');
return "" unless defined $forwarder;
$props{'Forwarder'} = $forwarder;
$forwarder = $DB->get_value_and_delete('DNSSecondaryIP') ||
$DB->get_prop_and_delete('named', 'Forwarder2');;
if (defined $forwarder)
{
warn "DNS forwarder $forwarder deleted - support provided for only one";
}
my $dnscache = $DB->get('dnscache') || $DB->new_record('dnscache', { type => 'service' } );
$dnscache->merge_props(%props);
}