smeserver-base/root/etc/e-smith/db/configuration/migrate/20DHCPServer

57 lines
1.6 KiB
Plaintext

{
# Make sure that dhcpd service is sanely set up, using
# legacy values if they are available
my $dhcpd = $DB->get('dhcpd');
my $status = 'enabled';
my $old = $DB->get('DHCPServer');
if (defined $old)
{
$status = $old->value;
$old->delete;
}
# Define the dhcpd service unless it is already
# defined. Make it enabled, unless $DHCPServer
# told us otherwise.
$dhcpd ||= $DB->new_record('dhcpd', {
type => 'service',
status => $status,
});
my $oldstart = '0.0.0.65';
$old = $DB->get('DHCPServerStart');
if (defined $old)
{
$oldstart = $old->value;
$old->delete;
}
my $oldend = '0.0.0.250';
$old = $DB->get('DHCPServerEnd');
if (defined $old)
{
$oldend = $old->value;
$old->delete;
}
my $start = $dhcpd->prop('start') || $oldstart;
my $end = $dhcpd->prop('end') || $oldend;
$start = esmith::util::IPquadToAddr($start);
$end = esmith::util::IPquadToAddr($end);
my $netmask = esmith::util::IPquadToAddr($LocalNetmask);
my $localnet = esmith::util::IPquadToAddr($LocalIP) & $netmask;
# AND-out the host bits from the start and end ips.
# And, OR our local network with our start and end host values.
$start = $localnet | ($start & ~$netmask);
$end = $localnet | ($end & ~$netmask);
# Make sure that $start is less than $end (might not be if netmask has changed
if ($start > $end)
{
my $temp = $start;
$start = $end;
$end = $temp;
}
# Now save new values
$dhcpd->merge_props(start => esmith::util::IPaddrToQuad($start),
end => esmith::util::IPaddrToQuad($end));
}