smeserver-base/root/etc/e-smith/db/configuration/migrate/10interfaces

168 lines
5.8 KiB
Plaintext

{
#----------------------------------------------------------------------
# copyright (C) 1999-2005 Mitel Networks Corporation
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
#
#----------------------------------------------------------------------
# Migrate old config db singletons into "interface" specifications:
#
# DHCPClient=dhi ExternalInterface=...|Configuration|DHCPHostname
# DHCPClient=(d|dh| ExternalInterface=...|Configuration|DHCPEthernetAddress
#
# EthernetDriver1=eepro100 LocalInterface=...|Name|eth0|Driver|eepro100
# EthernetDriver2=ne2k-pci ExternalInterface=...|Name|eth1|Driver|ne2k-pci
# EthernetDriver2=unknown ExternalInterface=...|Name|eth0.4094|Driver|unknown
# ExternalDHCP=off ExternalInterface=...|Configuration|static
# ExternalNetmask=255.255.255.0 ExternalInterface=...|Netmask|255.255.255.0
# GatewayIP=192.168.116.1 ExternalInterface=...|Gateway|192.168.116.1
# LocalIP=192.168.116.2 LocalInterface=...|IPAddress|192.168.116.2
# LocalNetmask=255.255.255.0 LocalInterface=...|Netmask|255.255.255.0
use esmith::util;
# No need to run this unless we have valid settings
return unless $DB->get_value("LocalIP");
my $internal = $DB->get("InternalInterface") ||
$DB->new_record("InternalInterface", {type => "interface"});
if (my $assign = $DB->get('EthernetAssign')){
$assign->delete;
}
my $diald = $DB->get("diald");
$diald->delete if $diald;
my $dhcpcd = $DB->get("dhcpcd");
$dhcpcd->delete if $dhcpcd;
my $wan = $DB->get("wan") || $DB->new_record("wan", {type => 'service'});
my $mode = $DB->get_value("SystemMode") || "servergateway";
my $bonding = $internal->prop('NICBonding') || "disabled";
my %int_props =
(
type => "interface",
Configuration => 'static',
Driver => $DB->get_value("EthernetDriver1"),
IPAddress => $DB->get_value("LocalIP"),
Netmask => $DB->get_value("LocalNetmask")
);
($int_props{Network}, $int_props{Broadcast}) =
esmith::util::computeNetworkAndBroadcast($int_props{IPAddress},
$int_props{Netmask} );
$internal->merge_props(%int_props);
my $external = $DB->get("ExternalInterface") ||
$DB->new_record("ExternalInterface", {type => 'interface'});
if ( $mode eq "serveronly" )
{
$external->merge_props(Configuration => 'disabled', Name => 'none');
$wan->merge_props(status => 'disabled');
return;
}
$wan->merge_props(status => 'enabled');
my $pppoe_status = $DB->get_prop('pppoe', 'status') || "disabled";
my $access_type = $DB->get_value('AccessType') || "unknown";
# Get the existing props
my %ext_props = $external->props;
my $second_interface = $ext_props{'Name'};
# Delete ones which may no longer apply
delete $ext_props{Driver};
delete $ext_props{Configuration};
# Set values which always apply
$ext_props{type} = "interface";
$ext_props{IPAddress} = $DB->get_value("ExternalIP");
$ext_props{Netmask} = $DB->get_value("ExternalNetmask");
$ext_props{Gateway} = $DB->get_value("GatewayIP");
if (defined $ext_props{IPAddress} && defined $ext_props{Gateway})
{
($ext_props{Network}, $ext_props{Broadcast}) =
esmith::util::computeNetworkAndBroadcast($ext_props{IPAddress},
$ext_props{Netmask} );
}
# Now determine others we need
if ($access_type eq 'dialup')
{
my $isdn = $DB->get_prop('isdn', 'status') || "disabled";
my $sync_isdn = $DB->get_prop('isdn', 'UseSyncPPP') || "no";
$ext_props{Name} = ($isdn eq "enabled" and $sync_isdn eq "yes") ?
"ippp0" : "ppp0";
# XXX FIXME - we should probably have dialup vs. isdn here
$ext_props{Configuration} = "dialup";
}
elsif ($pppoe_status eq 'enabled' )
{
$ext_props{Name} = "ppp0";
$ext_props{Configuration} = "pppoe";
my $pppoe = $DB->get('pppoe');
unless ($pppoe)
{
warn "pppoe record vanished\n";
return;
}
# Only update PhysicalInterface
# if we just switched to pppoe
# ($second_interface is the name of the real external interface)
$pppoe->set_prop("PhysicalInterface", $second_interface)
if ($second_interface ne 'ppp0');
}
else
{
$ext_props{Name} = $second_interface;
$ext_props{Driver} = $DB->get_value("EthernetDriver2");
}
my $external_dhcp = $DB->get_value("ExternalDHCP") || "off";
if ($external_dhcp eq "on")
{
my $dhcp_config = $DB->get_value("DHCPClient") || "d";
if ($dhcp_config eq "dhi")
{
# XXX FIXME - I think this should be "dhcpcd", which
# should be a new "service" type and the Hostname/MAC
# choice should be a property of that service
$ext_props{Configuration} = "DHCPHostname";
}
else
{
$ext_props{Configuration} = "DHCPEthernetAddress";
}
}
$ext_props{Configuration} ||= "static" ;
# And write back the changes to the config db
$external->merge_props(%ext_props);
}