seasharp
/
anvil
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Now check for/backup/remove ifcfg-X files on EL8 hosts.

Browse Source 
* Added caching to System->check_network_type()
* Changed anvil-configure-host job progress steps to 1.

Signed-off-by: digimer <mkelly@alteeve.ca>
main
digimer 11 months ago
parent b0cede49e3
commit dd0175e05c
3 changed files with 212 additions and 130 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 15
      Anvil/Tools/System.pm
  2. 1
      share/words.xml
  3. 324
      tools/anvil-configure-host

15
Anvil/Tools/System.pm
Unescape View File

@ -1286,6 +1286,8 @@ This method checks to see if this host is using network manager to configure the
If any 'ifcfg-X' files are found, C<< ifcfg >> is returned. Otherwise, C<< nm >> is returned. If any 'ifcfg-X' files are found, C<< ifcfg >> is returned. Otherwise, C<< nm >> is returned.
The results are cached in C<< sys::network_type >>.
This method takes no parameters. This method takes no parameters.
=cut =cut
@ -1297,6 +1299,13 @@ sub check_network_type
my $debug = defined $parameter->{debug} ? $parameter->{debug} : 3; my $debug = defined $parameter->{debug} ? $parameter->{debug} : 3;
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => $debug, key => "log_0125", variables => { method => "System->check_storage()" }}); $anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => $debug, key => "log_0125", variables => { method => "System->check_storage()" }});
if ((exists $anvil->data->{sys}{network_type}) && ($anvil->data->{sys}{network_type}))
{
# Cached.
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { "sys::network_type" => $anvil->data->{sys}{network_type} }});
return($anvil->data->{sys}{network_type});
}
# Open the 'ifcfg' directory, if it exists, and see if there are any 'ifcfg-X' files. # Open the 'ifcfg' directory, if it exists, and see if there are any 'ifcfg-X' files.
my $type = "nm"; my $type = "nm";
my $directory = $anvil->data->{path}{directories}{ifcfg}; my $directory = $anvil->data->{path}{directories}{ifcfg};
@ -1320,8 +1329,10 @@ sub check_network_type
closedir(DIRECTORY); closedir(DIRECTORY);
} }
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { type => $type }}); # Cache the results
return($type); $anvil->data->{sys}{network_type} = $type;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { "sys::network_type" => $anvil->data->{sys}{network_type} }});
return($anvil->data->{sys}{network_type});
} }

1
share/words.xml
Unescape View File

@ -3346,6 +3346,7 @@ proceeding.
<key name="message_0414">- The IP address needs to be assigned.</key> <key name="message_0414">- The IP address needs to be assigned.</key>
<key name="message_0415">[ Note ] - Reconfiguring the network will break connections. Disconnecting from the database before starting. It might take a bit before this system reconnects and progress can be seen.</key> <key name="message_0415">[ Note ] - Reconfiguring the network will break connections. Disconnecting from the database before starting. It might take a bit before this system reconnects and progress can be seen.</key>
<key name="message_0416">[ Note ] - The network has reconnected to the database, configuring will complete shortly.</key> <key name="message_0416">[ Note ] - The network has reconnected to the database, configuring will complete shortly.</key>
<key name="message_0417">[ Note ] - The old 'ifcfg' style config file: [#!variable!file!#] will be backed up and then removed!</key>
<!-- Translate names (protocols, etc) --> <!-- Translate names (protocols, etc) -->
<key name="name_0001">Normal Password</key> <!-- none in mail-server --> <key name="name_0001">Normal Password</key> <!-- none in mail-server -->

324
tools/anvil-configure-host
Unescape View File

@ -122,7 +122,7 @@ sub do_reboot
{ {
# Give them the countdown. # Give them the countdown.
$anvil->Job->update_progress({ $anvil->Job->update_progress({
progress => $anvil->Job->bump_progress({steps => 2}), progress => $anvil->Job->bump_progress({steps => 1}),
message => "log_0626", message => "log_0626",
job_uuid => $anvil->data->{job}{uuid}, job_uuid => $anvil->data->{job}{uuid},
'print' => 1, 'print' => 1,
@ -137,7 +137,7 @@ sub do_reboot
# Last, log that we're going down now. # Last, log that we're going down now.
$anvil->Job->update_progress({ $anvil->Job->update_progress({
progress => $anvil->Job->bump_progress({steps => 2}), progress => $anvil->Job->bump_progress({steps => 1}),
message => "message_0389", message => "message_0389",
job_uuid => $anvil->data->{job}{uuid}, job_uuid => $anvil->data->{job}{uuid},
'print' => 1, 'print' => 1,
@ -484,99 +484,87 @@ ORDER BY
my $network_type = $anvil->System->check_network_type(); my $network_type = $anvil->System->check_network_type();
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { network_type => $network_type }}); $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { network_type => $network_type }});
if ($network_type eq "ifcfg")
{
foreach my $network_type ("bcn", "sn", "mn", "ifn")
{
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { network_type => $network_type }});
# This is the old type of network config # Configure the network using Network Manager
#configure_ifcfg_network($anvil, $network_type); reconfigure_interfaces($anvil);
}
} ### NOTE: If we're not a striker, the update the job to say we're disconnecting to
else ### reconfigure the network.
my $host_type = $anvil->Get->host_type();
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { host_type => $host_type }});
if ($host_type ne "striker")
{ {
# Configure the network using Network Manager $anvil->Job->update_progress({
reconfigure_interfaces($anvil); progress => $anvil->Job->bump_progress({set => 50}),
message => "message_0415",
### NOTE: If we're not a striker, the update the job to say we're disconnecting to log_level => 1,
### reconfigure the network. 'print' => 1,
my $host_type = $anvil->Get->host_type(); job_uuid => $anvil->data->{job}{uuid},
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { host_type => $host_type }}); file => $THIS_FILE,
if ($host_type ne "striker") line => __LINE__,
{ });
$anvil->Job->update_progress({ $anvil->Database->disconnect({debug => 2});
progress => $anvil->Job->bump_progress({set => 50}), }
message => "message_0415",
log_level => 1,
'print' => 1,
job_uuid => $anvil->data->{job}{uuid},
file => $THIS_FILE,
line => __LINE__,
});
$anvil->Database->disconnect({debug => 2});
}
# These can brake the connection. # These can brake the connection.
reconfigure_bonds($anvil); reconfigure_bonds($anvil);
reconfigure_bridges($anvil); reconfigure_bridges($anvil);
reconfigure_ip_addresses($anvil); reconfigure_ip_addresses($anvil);
# Reconnect! # Reconnect!
if ($host_type ne "striker") if ($host_type ne "striker")
{
my $time_now = time;
my $wait_until = $time_now + 120;
my $waiting = 1;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
time_now => $time_now,
wait_until => $wait_until,
}});
while ($waiting)
{ {
my $time_now = time; $anvil->refresh();
my $wait_until = $time_now + 120; $anvil->Database->connect({debug => 2});
my $waiting = 1;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
time_now => $time_now,
wait_until => $wait_until,
}});
while ($waiting)
{
$anvil->refresh();
$anvil->Database->connect({debug => 2});
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { "sys::database::connections" => $anvil->data->{sys}{database}{connections} }}); $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { "sys::database::connections" => $anvil->data->{sys}{database}{connections} }});
if ($anvil->data->{sys}{database}{connections}) if ($anvil->data->{sys}{database}{connections})
{
# We're back!
$waiting = 0;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { waiting => $waiting }});
}
else
{
# Sleep for a bit.
my $now_time = time;
my $time_left = $wait_until - $now_time;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
now_time => $now_time,
time_left => $time_left,
}});
if ($time_left > 0)
{ {
# We're back! $anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 1, 'print' => 1, key => "log_0829", variables => { time_left => $time_left }});
$waiting = 0; sleep 5;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { waiting => $waiting }});
} }
else else
{ {
# Sleep for a bit. # Give up and reboot.
my $now_time = time; $anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 1, 'print' => 1, key => "warning_0169"});
my $time_left = $wait_until - $now_time; do_reboot($anvil);
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
now_time => $now_time,
time_left => $time_left,
}});
if ($time_left > 0)
{
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 1, 'print' => 1, key => "log_0829", variables => { time_left => $time_left }});
sleep 5;
}
else
{
# Give up and reboot.
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 1, 'print' => 1, key => "warning_0169"});
do_reboot($anvil);
}
} }
} }
$anvil->Job->update_progress({
progress => $anvil->Job->bump_progress({set => 75}),
message => "message_0416",
log_level => 1,
'print' => 1,
job_uuid => $anvil->data->{job}{uuid},
file => $THIS_FILE,
line => __LINE__,
});
} }
$anvil->Job->update_progress({
progress => $anvil->Job->bump_progress({set => 75}),
message => "message_0416",
log_level => 1,
'print' => 1,
job_uuid => $anvil->data->{job}{uuid},
file => $THIS_FILE,
line => __LINE__,
});
} }
# If any virtio bridges exist, remove it/them. # If any virtio bridges exist, remove it/them.
@ -658,7 +646,7 @@ ORDER BY
} }
$anvil->Job->update_progress({ $anvil->Job->update_progress({
progress => $anvil->Job->bump_progress({steps => 2}), progress => $anvil->Job->bump_progress({steps => 1}),
job_uuid => $anvil->data->{job}{uuid}, job_uuid => $anvil->data->{job}{uuid},
}); });
@ -708,7 +696,7 @@ sub reconfigure_bridges
# Checking if the bridge exists and that it is on the requested device # Checking if the bridge exists and that it is on the requested device
$anvil->Job->update_progress({ $anvil->Job->update_progress({
progress => $anvil->Job->bump_progress({steps => 2}), progress => $anvil->Job->bump_progress({steps => 1}),
message => "message_0400", message => "message_0400",
log_level => 1, log_level => 1,
'print' => 1, 'print' => 1,
@ -725,7 +713,7 @@ sub reconfigure_bridges
{ {
# The bridge exists. # The bridge exists.
$anvil->Job->update_progress({ $anvil->Job->update_progress({
progress => $anvil->Job->bump_progress({steps => 2}), progress => $anvil->Job->bump_progress({steps => 1}),
message => "message_0401", message => "message_0401",
log_level => 1, log_level => 1,
'print' => 1, 'print' => 1,
@ -737,6 +725,31 @@ sub reconfigure_bridges
} }
else else
{ {
# If there are ifcfg files for this bridge, move it.
my $network_type = $anvil->System->check_network_type({debug => 2});
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { network_type => $network_type }});
if ($network_type eq "ifcfg")
{
my $ifcfg_file = $anvil->data->{path}{directories}{ifcfg}."/ifcfg-".$bridge_name;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { ifcfg_file => $ifcfg_file }});
if (-f $ifcfg_file)
{
# It exists, move it.
$anvil->Job->update_progress({
progress => $anvil->Job->bump_progress({steps => 1}),
message => "message_0417",
log_level => 1,
'print' => 1,
file => $THIS_FILE,
line => __LINE__,
job_uuid => $anvil->data->{job}{uuid},
variables => { file => $ifcfg_file },
});
$anvil->Storage->backup({debug => 2, file => $ifcfg_file});
unlink $ifcfg_file;
}
}
# Create the bridge. # Create the bridge.
my $shell_call = $anvil->data->{path}{exe}{nmcli}." connection add type bridge con-name ".$bridge_name." ifname ".$bridge_name; my $shell_call = $anvil->data->{path}{exe}{nmcli}." connection add type bridge con-name ".$bridge_name." ifname ".$bridge_name;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { shell_call => $shell_call }}); $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { shell_call => $shell_call }});
@ -772,7 +785,7 @@ sub reconfigure_bridges
{ {
# Disabling DHCP on the new bridge # Disabling DHCP on the new bridge
$anvil->Job->update_progress({ $anvil->Job->update_progress({
progress => $anvil->Job->bump_progress({steps => 2}), progress => $anvil->Job->bump_progress({steps => 1}),
message => "message_0408", message => "message_0408",
log_level => 1, log_level => 1,
'print' => 1, 'print' => 1,
@ -798,7 +811,7 @@ sub reconfigure_bridges
# Rescan. # Rescan.
$anvil->Job->update_progress({ $anvil->Job->update_progress({
progress => $anvil->Job->bump_progress({steps => 2}), progress => $anvil->Job->bump_progress({steps => 1}),
message => "message_0394", message => "message_0394",
log_level => 1, log_level => 1,
'print' => 1, 'print' => 1,
@ -812,7 +825,7 @@ sub reconfigure_bridges
# Checking that the device is connected to this bridge # Checking that the device is connected to this bridge
$anvil->Job->update_progress({ $anvil->Job->update_progress({
progress => $anvil->Job->bump_progress({steps => 2}), progress => $anvil->Job->bump_progress({steps => 1}),
message => "message_0404", message => "message_0404",
log_level => 1, log_level => 1,
'print' => 1, 'print' => 1,
@ -838,7 +851,7 @@ sub reconfigure_bridges
{ {
# The device is connected to the bridge already. # The device is connected to the bridge already.
$anvil->Job->update_progress({ $anvil->Job->update_progress({
progress => $anvil->Job->bump_progress({steps => 2}), progress => $anvil->Job->bump_progress({steps => 1}),
message => "message_0405", message => "message_0405",
log_level => 1, log_level => 1,
'print' => 1, 'print' => 1,
@ -853,7 +866,7 @@ sub reconfigure_bridges
{ {
# The device is on another bridge, moving it. # The device is on another bridge, moving it.
$anvil->Job->update_progress({ $anvil->Job->update_progress({
progress => $anvil->Job->bump_progress({steps => 2}), progress => $anvil->Job->bump_progress({steps => 1}),
message => "message_0406", message => "message_0406",
log_level => 1, log_level => 1,
'print' => 1, 'print' => 1,
@ -868,7 +881,7 @@ sub reconfigure_bridges
{ {
# The device is not on this bridge, connecting it # The device is not on this bridge, connecting it
$anvil->Job->update_progress({ $anvil->Job->update_progress({
progress => $anvil->Job->bump_progress({steps => 2}), progress => $anvil->Job->bump_progress({steps => 1}),
message => "message_0407", message => "message_0407",
log_level => 1, log_level => 1,
'print' => 1, 'print' => 1,
@ -881,7 +894,7 @@ sub reconfigure_bridges
# Disabling DHCP on the device before connecting it. # Disabling DHCP on the device before connecting it.
$anvil->Job->update_progress({ $anvil->Job->update_progress({
progress => $anvil->Job->bump_progress({steps => 2}), progress => $anvil->Job->bump_progress({steps => 1}),
message => "message_0408", message => "message_0408",
log_level => 1, log_level => 1,
'print' => 1, 'print' => 1,
@ -898,7 +911,7 @@ sub reconfigure_bridges
# Connect it now. # Connect it now.
$anvil->Job->update_progress({ $anvil->Job->update_progress({
progress => $anvil->Job->bump_progress({steps => 2}), progress => $anvil->Job->bump_progress({steps => 1}),
message => "message_0409", message => "message_0409",
log_level => 1, log_level => 1,
'print' => 1, 'print' => 1,
@ -937,7 +950,7 @@ sub reconfigure_bridges
# Reset the device. # Reset the device.
$anvil->Job->update_progress({ $anvil->Job->update_progress({
progress => $anvil->Job->bump_progress({steps => 2}), progress => $anvil->Job->bump_progress({steps => 1}),
message => "message_0403", message => "message_0403",
log_level => 1, log_level => 1,
'print' => 1, 'print' => 1,
@ -953,7 +966,7 @@ sub reconfigure_bridges
# Rescan. # Rescan.
$anvil->Job->update_progress({ $anvil->Job->update_progress({
progress => $anvil->Job->bump_progress({steps => 2}), progress => $anvil->Job->bump_progress({steps => 1}),
message => "message_0394", message => "message_0394",
log_level => 1, log_level => 1,
'print' => 1, 'print' => 1,
@ -1042,7 +1055,7 @@ sub reconfigure_bonds
# Check if the bond exists or not. # Check if the bond exists or not.
$anvil->Job->update_progress({ $anvil->Job->update_progress({
progress => $anvil->Job->bump_progress({steps => 2}), progress => $anvil->Job->bump_progress({steps => 1}),
message => "message_0390", message => "message_0390",
job_uuid => $anvil->data->{job}{uuid}, job_uuid => $anvil->data->{job}{uuid},
'print' => 1, 'print' => 1,
@ -1055,7 +1068,7 @@ sub reconfigure_bonds
{ {
# It does. # It does.
$anvil->Job->update_progress({ $anvil->Job->update_progress({
progress => $anvil->Job->bump_progress({steps => 2}), progress => $anvil->Job->bump_progress({steps => 1}),
message => "message_0391", message => "message_0391",
job_uuid => $anvil->data->{job}{uuid}, job_uuid => $anvil->data->{job}{uuid},
'print' => 1, 'print' => 1,
@ -1069,7 +1082,7 @@ sub reconfigure_bonds
{ {
# It doesn't, create it. # It doesn't, create it.
$anvil->Job->update_progress({ $anvil->Job->update_progress({
progress => $anvil->Job->bump_progress({steps => 2}), progress => $anvil->Job->bump_progress({steps => 1}),
message => "message_0392", message => "message_0392",
job_uuid => $anvil->data->{job}{uuid}, job_uuid => $anvil->data->{job}{uuid},
'print' => 1, 'print' => 1,
@ -1087,6 +1100,31 @@ sub reconfigure_bonds
}, },
}); });
# If there are ifcfg files for this bond, move it.
my $network_type = $anvil->System->check_network_type({debug => 2});
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { network_type => $network_type }});
if ($network_type eq "ifcfg")
{
my $ifcfg_file = $anvil->data->{path}{directories}{ifcfg}."/ifcfg-".$bond_name;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { ifcfg_file => $ifcfg_file }});
if (-f $ifcfg_file)
{
# It exists, move it.
$anvil->Job->update_progress({
progress => $anvil->Job->bump_progress({steps => 1}),
message => "message_0417",
log_level => 1,
'print' => 1,
file => $THIS_FILE,
line => __LINE__,
job_uuid => $anvil->data->{job}{uuid},
variables => { file => $ifcfg_file },
});
$anvil->Storage->backup({debug => 2, file => $ifcfg_file});
unlink $ifcfg_file;
}
}
my $shell_call = $anvil->data->{path}{exe}{nmcli}." connection add type bond con-name ".$bond_name." ifname ".$bond_name." bond.options \"mode=active-backup,miimon=100,downdelay=0,updelay=120000,primary=".$link1_name."\""; my $shell_call = $anvil->data->{path}{exe}{nmcli}." connection add type bond con-name ".$bond_name." ifname ".$bond_name." bond.options \"mode=active-backup,miimon=100,downdelay=0,updelay=120000,primary=".$link1_name."\"";
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { shell_call => $shell_call }}); $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { shell_call => $shell_call }});
my ($output, $return_code) = $anvil->System->call({shell_call => $shell_call}); my ($output, $return_code) = $anvil->System->call({shell_call => $shell_call});
@ -1121,7 +1159,7 @@ sub reconfigure_bonds
{ {
# Disabling DHCP on the new bond device # Disabling DHCP on the new bond device
$anvil->Job->update_progress({ $anvil->Job->update_progress({
progress => $anvil->Job->bump_progress({steps => 2}), progress => $anvil->Job->bump_progress({steps => 1}),
message => "message_0408", message => "message_0408",
log_level => 1, log_level => 1,
'print' => 1, 'print' => 1,
@ -1147,7 +1185,7 @@ sub reconfigure_bonds
# Done! Rescanning the network config # Done! Rescanning the network config
$anvil->Job->update_progress({ $anvil->Job->update_progress({
progress => $anvil->Job->bump_progress({steps => 2}), progress => $anvil->Job->bump_progress({steps => 1}),
message => "message_0394", message => "message_0394",
job_uuid => $anvil->data->{job}{uuid}, job_uuid => $anvil->data->{job}{uuid},
'print' => 1, 'print' => 1,
@ -1187,7 +1225,7 @@ sub reconfigure_bonds
{ {
# Already a member of the bond. # Already a member of the bond.
$anvil->Job->update_progress({ $anvil->Job->update_progress({
progress => $anvil->Job->bump_progress({steps => 2}), progress => $anvil->Job->bump_progress({steps => 1}),
message => "message_0395", message => "message_0395",
job_uuid => $anvil->data->{job}{uuid}, job_uuid => $anvil->data->{job}{uuid},
'print' => 1, 'print' => 1,
@ -1205,7 +1243,7 @@ sub reconfigure_bonds
{ {
# The interface is a member of another bond, switching it to this bond.\n"; # The interface is a member of another bond, switching it to this bond.\n";
$anvil->Job->update_progress({ $anvil->Job->update_progress({
progress => $anvil->Job->bump_progress({steps => 2}), progress => $anvil->Job->bump_progress({steps => 1}),
message => "message_0396", message => "message_0396",
job_uuid => $anvil->data->{job}{uuid}, job_uuid => $anvil->data->{job}{uuid},
'print' => 1, 'print' => 1,
@ -1224,7 +1262,7 @@ sub reconfigure_bonds
{ {
# The interface needs to be connected to the bond. # The interface needs to be connected to the bond.
$anvil->Job->update_progress({ $anvil->Job->update_progress({
progress => $anvil->Job->bump_progress({steps => 2}), progress => $anvil->Job->bump_progress({steps => 1}),
message => "message_0397", message => "message_0397",
job_uuid => $anvil->data->{job}{uuid}, job_uuid => $anvil->data->{job}{uuid},
'print' => 1, 'print' => 1,
@ -1240,7 +1278,7 @@ sub reconfigure_bonds
# Disabling DHCP on the interface # Disabling DHCP on the interface
$anvil->Job->update_progress({ $anvil->Job->update_progress({
progress => $anvil->Job->bump_progress({steps => 2}), progress => $anvil->Job->bump_progress({steps => 1}),
message => "message_0408", message => "message_0408",
log_level => 1, log_level => 1,
'print' => 1, 'print' => 1,
@ -1257,7 +1295,7 @@ sub reconfigure_bonds
# Connecting the interface to the bond # Connecting the interface to the bond
$anvil->Job->update_progress({ $anvil->Job->update_progress({
progress => $anvil->Job->bump_progress({steps => 2}), progress => $anvil->Job->bump_progress({steps => 1}),
message => "message_0399", message => "message_0399",
job_uuid => $anvil->data->{job}{uuid}, job_uuid => $anvil->data->{job}{uuid},
'print' => 1, 'print' => 1,
@ -1299,7 +1337,7 @@ sub reconfigure_bonds
# Reset the interface. # Reset the interface.
$anvil->Job->update_progress({ $anvil->Job->update_progress({
progress => $anvil->Job->bump_progress({steps => 2}), progress => $anvil->Job->bump_progress({steps => 1}),
message => "message_0403", message => "message_0403",
log_level => 1, log_level => 1,
'print' => 1, 'print' => 1,
@ -1315,7 +1353,7 @@ sub reconfigure_bonds
# Rescan. # Rescan.
$anvil->Job->update_progress({ $anvil->Job->update_progress({
progress => $anvil->Job->bump_progress({steps => 2}), progress => $anvil->Job->bump_progress({steps => 1}),
message => "message_0394", message => "message_0394",
log_level => 1, log_level => 1,
'print' => 1, 'print' => 1,
@ -1476,7 +1514,7 @@ sub reconfigure_ip_addresses
# Check to see if the IP address is assigned yet. # Check to see if the IP address is assigned yet.
$anvil->Job->update_progress({ $anvil->Job->update_progress({
progress => $anvil->Job->bump_progress({steps => 2}), progress => $anvil->Job->bump_progress({steps => 1}),
message => "message_0393", message => "message_0393",
log_level => 1, log_level => 1,
'print' => 1, 'print' => 1,
@ -1525,7 +1563,7 @@ sub reconfigure_ip_addresses
# The IP exists, checking if it needs to be updated. # The IP exists, checking if it needs to be updated.
$anvil->Job->update_progress({ $anvil->Job->update_progress({
progress => $anvil->Job->bump_progress({steps => 2}), progress => $anvil->Job->bump_progress({steps => 1}),
message => "message_0398", message => "message_0398",
log_level => 1, log_level => 1,
'print' => 1, 'print' => 1,
@ -1538,7 +1576,7 @@ sub reconfigure_ip_addresses
{ {
# The IP address is on another device, we'll move it # The IP address is on another device, we'll move it
$anvil->Job->update_progress({ $anvil->Job->update_progress({
progress => $anvil->Job->bump_progress({steps => 2}), progress => $anvil->Job->bump_progress({steps => 1}),
message => "message_0402", message => "message_0402",
log_level => 1, log_level => 1,
'print' => 1, 'print' => 1,
@ -1554,7 +1592,7 @@ sub reconfigure_ip_addresses
{ {
# The current subnet mask is different, will update. # The current subnet mask is different, will update.
$anvil->Job->update_progress({ $anvil->Job->update_progress({
progress => $anvil->Job->bump_progress({steps => 2}), progress => $anvil->Job->bump_progress({steps => 1}),
message => "message_0410", message => "message_0410",
log_level => 1, log_level => 1,
'print' => 1, 'print' => 1,
@ -1568,7 +1606,7 @@ sub reconfigure_ip_addresses
{ {
# The current gateway is different, will update. # The current gateway is different, will update.
$anvil->Job->update_progress({ $anvil->Job->update_progress({
progress => $anvil->Job->bump_progress({steps => 2}), progress => $anvil->Job->bump_progress({steps => 1}),
message => "message_0411", message => "message_0411",
log_level => 1, log_level => 1,
'print' => 1, 'print' => 1,
@ -1582,7 +1620,7 @@ sub reconfigure_ip_addresses
{ {
# The current DNS is different, will update. # The current DNS is different, will update.
$anvil->Job->update_progress({ $anvil->Job->update_progress({
progress => $anvil->Job->bump_progress({steps => 2}), progress => $anvil->Job->bump_progress({steps => 1}),
message => "message_0412", message => "message_0412",
log_level => 1, log_level => 1,
'print' => 1, 'print' => 1,
@ -1596,7 +1634,7 @@ sub reconfigure_ip_addresses
{ {
# No update is needed. # No update is needed.
$anvil->Job->update_progress({ $anvil->Job->update_progress({
progress => $anvil->Job->bump_progress({steps => 2}), progress => $anvil->Job->bump_progress({steps => 1}),
message => "message_0413", message => "message_0413",
log_level => 1, log_level => 1,
'print' => 1, 'print' => 1,
@ -1612,7 +1650,7 @@ sub reconfigure_ip_addresses
{ {
# The IP address needs to be assigned. # The IP address needs to be assigned.
$anvil->Job->update_progress({ $anvil->Job->update_progress({
progress => $anvil->Job->bump_progress({steps => 2}), progress => $anvil->Job->bump_progress({steps => 1}),
message => "message_0414", message => "message_0414",
log_level => 1, log_level => 1,
'print' => 1, 'print' => 1,
@ -1628,7 +1666,7 @@ sub reconfigure_ip_addresses
# Clear the IP off the old device # Clear the IP off the old device
my $old_uuid = $anvil->data->{nmcli}{device}{$clear_ip_from}{uuid}; my $old_uuid = $anvil->data->{nmcli}{device}{$clear_ip_from}{uuid};
$anvil->Job->update_progress({ $anvil->Job->update_progress({
progress => $anvil->Job->bump_progress({steps => 2}), progress => $anvil->Job->bump_progress({steps => 1}),
message => "message_0408", message => "message_0408",
log_level => 1, log_level => 1,
'print' => 1, 'print' => 1,
@ -1644,7 +1682,7 @@ sub reconfigure_ip_addresses
($output, $return_code) = $anvil->Network->modify_connection({debug => 2, uuid => $old_uuid, variable => "ipv6.method", value => "disabled"}); ($output, $return_code) = $anvil->Network->modify_connection({debug => 2, uuid => $old_uuid, variable => "ipv6.method", value => "disabled"});
$anvil->Job->update_progress({ $anvil->Job->update_progress({
progress => $anvil->Job->bump_progress({steps => 2}), progress => $anvil->Job->bump_progress({steps => 1}),
message => "message_0403", message => "message_0403",
log_level => 1, log_level => 1,
'print' => 1, 'print' => 1,
@ -1682,7 +1720,7 @@ sub reconfigure_ip_addresses
# Restart the interface # Restart the interface
$anvil->Job->update_progress({ $anvil->Job->update_progress({
progress => $anvil->Job->bump_progress({steps => 2}), progress => $anvil->Job->bump_progress({steps => 1}),
message => "message_0403", message => "message_0403",
log_level => 1, log_level => 1,
'print' => 1, 'print' => 1,
@ -1698,7 +1736,7 @@ sub reconfigure_ip_addresses
# Rescan. # Rescan.
$anvil->Job->update_progress({ $anvil->Job->update_progress({
progress => $anvil->Job->bump_progress({steps => 2}), progress => $anvil->Job->bump_progress({steps => 1}),
message => "message_0394", message => "message_0394",
log_level => 1, log_level => 1,
'print' => 1, 'print' => 1,
@ -1714,7 +1752,6 @@ sub reconfigure_ip_addresses
return(0); return(0);
} }
sub reconfigure_interfaces sub reconfigure_interfaces
{ {
my ($anvil) = @_; my ($anvil) = @_;
@ -1746,7 +1783,7 @@ sub reconfigure_interfaces
# Rescan. # Rescan.
$anvil->Job->update_progress({ $anvil->Job->update_progress({
progress => $anvil->Job->bump_progress({steps => 2}), progress => $anvil->Job->bump_progress({steps => 1}),
message => "message_0394", message => "message_0394",
log_level => 1, log_level => 1,
'print' => 1, 'print' => 1,
@ -1965,7 +2002,7 @@ sub rename_interface
# Tell the user what we're about to rename # Tell the user what we're about to rename
$anvil->Job->update_progress({ $anvil->Job->update_progress({
progress => $anvil->Job->bump_progress({steps => 2}), progress => $anvil->Job->bump_progress({steps => 1}),
message => "message_0383", message => "message_0383",
log_level => 1, log_level => 1,
'print' => 1, 'print' => 1,
@ -1981,6 +2018,39 @@ sub rename_interface
}, },
}); });
# If there are ifcfg files for this device, move them.
my $network_type = $anvil->System->check_network_type({debug => 2});
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { network_type => $network_type }});
if ($network_type eq "ifcfg")
{
my $old_ifcfg_file = $anvil->data->{path}{directories}{ifcfg}."/ifcfg-".$old_device;
my $new_ifcfg_file = $anvil->data->{path}{directories}{ifcfg}."/ifcfg-".$wanted_link_name;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
old_ifcfg_file => $old_ifcfg_file,
new_ifcfg_file => $new_ifcfg_file,
}});
foreach my $file ($old_ifcfg_file, $new_ifcfg_file)
{
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { file => $file }});
if (-f $file)
{
# It exists, move it.
$anvil->Job->update_progress({
progress => $anvil->Job->bump_progress({steps => 1}),
message => "message_0417",
log_level => 1,
'print' => 1,
file => $THIS_FILE,
line => __LINE__,
job_uuid => $anvil->data->{job}{uuid},
variables => { file => $file },
});
$anvil->Storage->backup({debug => 2, file => $file});
unlink $file;
}
}
}
# Read persistent-net and see if it needs to be updated. # Read persistent-net and see if it needs to be updated.
my $new_persistent_net = ""; my $new_persistent_net = "";
my $old_persistent_net = ""; my $old_persistent_net = "";
@ -2009,7 +2079,7 @@ sub rename_interface
{ {
# Updating the udev file # Updating the udev file
$anvil->Job->update_progress({ $anvil->Job->update_progress({
progress => $anvil->Job->bump_progress({steps => 2}), progress => $anvil->Job->bump_progress({steps => 1}),
message => "message_0384", message => "message_0384",
log_level => 1, log_level => 1,
'print' => 1, 'print' => 1,
@ -2053,7 +2123,7 @@ sub rename_interface
{ {
# Removing the old 'connection.interface-name' # Removing the old 'connection.interface-name'
$anvil->Job->update_progress({ $anvil->Job->update_progress({
progress => $anvil->Job->bump_progress({steps => 2}), progress => $anvil->Job->bump_progress({steps => 1}),
message => "message_0385", message => "message_0385",
log_level => 1, log_level => 1,
'print' => 1, 'print' => 1,
@ -2100,7 +2170,7 @@ sub rename_interface
my $match_interface_name = $anvil->data->{nmcli}{uuid}{$nm_uuid}{'match.interface-name'} ? $anvil->data->{nmcli}{uuid}{$nm_uuid}{'match.interface-name'} : ""; my $match_interface_name = $anvil->data->{nmcli}{uuid}{$nm_uuid}{'match.interface-name'} ? $anvil->data->{nmcli}{uuid}{$nm_uuid}{'match.interface-name'} : "";
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { match_interface_name => $match_interface_name }}); $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { match_interface_name => $match_interface_name }});
$anvil->Job->update_progress({ $anvil->Job->update_progress({
progress => $anvil->Job->bump_progress({steps => 2}), progress => $anvil->Job->bump_progress({steps => 1}),
message => "message_0386", message => "message_0386",
log_level => 1, log_level => 1,
'print' => 1, 'print' => 1,
@ -2173,7 +2243,7 @@ sub rename_interface
# Set the connection.id to the old name. # Set the connection.id to the old name.
$anvil->Job->update_progress({ $anvil->Job->update_progress({
progress => $anvil->Job->bump_progress({steps => 2}), progress => $anvil->Job->bump_progress({steps => 1}),
message => "message_0387", message => "message_0387",
log_level => 1, log_level => 1,
'print' => 1, 'print' => 1,
@ -2201,7 +2271,7 @@ sub rename_interface
# Re-read the updated data # Re-read the updated data
$anvil->Job->update_progress({ $anvil->Job->update_progress({
progress => $anvil->Job->bump_progress({steps => 2}), progress => $anvil->Job->bump_progress({steps => 1}),
message => "message_0394", message => "message_0394",
log_level => 1, log_level => 1,
'print' => 1, 'print' => 1,

Write Preview
Loading…
Cancel
Save