smeserver/smeserver-base
6
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

initial commit of file from CVS for e-smith-base on Thu 26 Oct 11:24:52 BST 2023

Browse Source
This commit is contained in:
Brian Read
2023-10-26 11:24:52 +01:00
parent bbc22988a8
commit 9510d1a360
678 changed files with 22721 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

71
root/etc/e-smith/events/actions/update-ifcfg Normal file
View File

@@ -0,0 +1,71 @@
#!/usr/bin/perl -w
use esmith::ConfigDB;
use esmith::templates;
use esmith::ethernet;
use strict;
my $c = esmith::ConfigDB->open_ro() ||
die "Couldn't open ConfigDB";
my @adapters = split(/\n/, esmith::ethernet::probeAdapters());
my @nics = ();
if (($c->get('EthernetDriver1')->value || 'unknown') eq 'dummy'){
push @adapters, "dummy\tdummy\t10:00:01:02:03:04\tFake Network Interface\tdummy0";
}
# If NIC bonding is enabled, we need to handle route-bond0 and ifcfg-bond0
if (($c->get('InternalInterface')->prop('NICBonding') || 'disabled') eq 'enabled'){
push @adapters, "bond\tbond\t10:00:01:02:03:04\tBonding virtual Interface\tbond0";
}
# Expand templates for every adapters found
foreach my $adapter (@adapters){
my (undef, undef, undef, undef, $nic) = split(/\t/, $adapter, 5);
push @nics, $nic;
esmith::templates::processTemplate({
MORE_DATA => { THIS_DEVICE => $nic },
TEMPLATE_PATH => '/etc/sysconfig/network-scripts/ifcfg-ethX',
OUTPUT_FILENAME => "/etc/sysconfig/network-scripts/ifcfg-$nic"
});
esmith::templates::processTemplate({
MORE_DATA => { THIS_DEVICE => $nic },
TEMPLATE_PATH => '/etc/sysconfig/network-scripts/route-ethX',
OUTPUT_FILENAME => "/etc/sysconfig/network-scripts/route-$nic"
});
esmith::templates::processTemplate({
MORE_DATA => { THIS_DEVICE => $nic },
TEMPLATE_PATH => '/var/lib/dhclient/dhclient.conf',
OUTPUT_FILENAME => "/var/lib/dhclient/dhclient-$nic.conf"
});
}
# Build a list of interfaces for which we want to keep the config
foreach ($c->get_all_by_prop( type => 'interface')){
push @nics, $_->prop('Name');
}
push @nics, $_ foreach (qw/ppp0 lo/);
my %dedup;
@dedup{@nics} = ();
@nics = keys %dedup;
# Now remove any ifcfg-X, route-X or dhclient-X.conf
# for NIC which have been removed
foreach my $removed (glob "/etc/sysconfig/network-scripts/ifcfg-*"){
$removed =~ m/ifcfg\-(.*)$/;
my $interface = $1;
next if (grep { $_ eq $interface } @nics);
unlink $removed;
}
foreach my $removed (glob "/etc/sysconfig/network-scripts/route-*"){
$removed =~ m/route\-(.*)$/;
my $interface = $1;
next if (grep { $_ eq $interface } @nics);
unlink $removed;
}
foreach my $removed (glob "/var/lib/dhclient/dhclient-*.conf"){
$removed =~ m/dhclient\-(.*)\.conf$/;
my $interface = $1;
next if (grep { $_ eq $interface } @nics);
unlink $removed;
}