diff --git a/Anvil/Tools/System.pm b/Anvil/Tools/System.pm index c2e8cadb..c207b884 100644 --- a/Anvil/Tools/System.pm +++ b/Anvil/Tools/System.pm @@ -878,16 +878,18 @@ sub get_ips my $ip_route = $anvil->System->call({debug => $debug, shell_call => $anvil->data->{path}{exe}{ip}." route show"}); foreach my $line (split/\n/, $ip_route) { + $line = $anvil->Words->clean_spaces({ string => $line }); $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { line => $line }}); - if ($line =~ /default via (.*?) dev (.*?) proto static metric (\d+)/i) + if ($line =~ /default via (.*?) dev (.*?) proto .*? metric (\d+)/i) { my $this_ip = $1; my $this_interface = $2; my $metric = $3; $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { - this_ip => $this_ip, - this_interface => $this_interface, - metric => $metric, + 's1:this_ip' => $this_ip, + 's2:this_interface' => $this_interface, + 's3:metric' => $metric, + 's4:lowest_metric' => $lowest_metric, }}); if ($metric < $lowest_metric) diff --git a/cgi-bin/striker b/cgi-bin/striker index ce3a38d9..9ce1175f 100755 --- a/cgi-bin/striker +++ b/cgi-bin/striker @@ -1427,7 +1427,7 @@ ORDER BY # Get the list of current IPs so that we can warn the user if committing the changes will require # reconnecting. - $anvil->System->get_ips; + $anvil->System->get_ips({debug => 2}); my $matched_ip = 0; my $server_ip = $ENV{SERVER_ADDR}; $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { server_ip => $server_ip }}); diff --git a/html/skins/alteeve/pxe.txt b/html/skins/alteeve/pxe.txt index 6cbda5f7..4c6c42a1 100644 --- a/html/skins/alteeve/pxe.txt +++ b/html/skins/alteeve/pxe.txt @@ -72,6 +72,7 @@ selinux --permissive %packages @^minimal-environment +alteeve-el8-repo %end @@ -102,16 +103,6 @@ rsync -av /tmp /mnt/sysimage/root/install_logs/ rsync -av /run/install /mnt/sysimage/root/install_logs/run/ rsync -av /var/log /mnt/sysimage/root/install_logs/var/ -### NOTE: This is only useful in the Alteeve labs. Replace with your own repo, or remove. -echo "Adding local repo" -cat > /mnt/sysimage/etc/yum.repos.d/rhel8.repo << EOF -[rhel8-repo] -name=RHEL 8 Repo on local network -baseurl=http://10.255.100.30/repo/ -enabled=1 -gpgcheck=0 -EOF - %end diff --git a/notes b/notes index 466041de..2f3f3e57 100644 --- a/notes +++ b/notes @@ -216,35 +216,223 @@ hosts: 10.41.20.2 m3-a02n02.sn 10.255.20.2 m3-a02n02.ifn -10.1.20.3 m3-a02dr01.bcn m3-a02dr01 m3-a02dr01.alteeve.com -10.41.20.3 m3-a02dr01.sn -10.255.20.3 m3-a02dr01.ifn +10.1.22.1 m3-a02dr01.bcn m3-a02dr01 m3-a02dr01.alteeve.com +10.41.22.1 m3-a02dr01.sn +10.255.22.1 m3-a02dr01.ifn ==== -Example Link config: -==== -==== - -Example Bonding config: -==== -BRIDGE_UUID="e7a8f977-560d-4a94-95cd-a1218f0fe890" -DEVICE="ifn1_bond1" -NAME="IFN 1 - Bond 1" -UUID="a59d138e-6c40-4366-b859-fcadafe577f4" -BONDING_OPTS="mode=active-backup primary=ifn1_link1 updelay=120000 downdelay=0 miimon=100 primary_reselect=better" +### Interface files +# +# Note: Insert the HWADDR's and update the IPs! +# +### BCN ####################################################################### +UUID=$(uuidgen) +cat > /etc/sysconfig/network-scripts/ifcfg-BCN_1_-_Link_1 << EOF +# Back-Channel Network 1 - Link 1 +HWADDR="" +UUID="${UUID}" +NAME="BCN 1 - Link 1" +DEVICE="bcn1_link1" +TYPE="Ethernet" +BOOTPROTO="none" +IPV6INIT="no" +ONBOOT="yes" +USERCTL="no" +MTU="1500" +NM_CONTROLLED="yes" +SLAVE="yes" +MASTER="bcn1_bond1" +ZONE="BCN1" +EOF + +UUID=$(uuidgen) +cat > /etc/sysconfig/network-scripts/ifcfg-BCN_1_-_Link_2 << EOF +# Back-Channel Network 1 - Link 2 +HWADDR="" +UUID="${UUID}" +NAME="BCN 1 - Link 2" +DEVICE="bcn1_link2" +TYPE="Ethernet" +BOOTPROTO="none" +IPV6INIT="no" +ONBOOT="yes" +USERCTL="no" +MTU="1500" +NM_CONTROLLED="yes" +SLAVE="yes" +MASTER="bcn1_bond1" +ZONE="BCN1" +EOF + +UUID=$(uuidgen) +cat > /etc/sysconfig/network-scripts/ifcfg-BCN_1_-_Bond_1 << EOF +# Back-Channel Network 1 - Bond 1 +UUID="${UUID}" +NAME="BCN 1 - Bond 1" +DEVICE="bcn1_bond1" +BRIDGE="bcn1_bridge1" +BONDING_OPTS="mode=active-backup primary=bcn1_link1 updelay=120000 downdelay=0 miimon=100 primary_reselect=better" +TYPE="Bond" +BONDING_MASTER="yes" +BOOTPROTO="none" +IPV6INIT="no" +ONBOOT="yes" +ZONE="BCN1" +EOF + +UUID=$(uuidgen) +cat > /etc/sysconfig/network-scripts/ifcfg-BCN_1_-_Bridge_1 << EOF +# Back-Channel Network 1 - Bridge 1 +UUID="${UUID}" +STP="yes" +BRIDGING_OPTS="priority=32768" +TYPE="Bridge" +BROWSER_ONLY="no" +NAME="BCN 1 - Bridge 1" +DEVICE="bcn1_bridge1" +ONBOOT="yes" +BOOTPROTO="none" +IPADDR="10.20.10.1" +PREFIX="16" +DEFROUTE="no" +ZONE="BCN1" +EOF + +### SN ######################################################################## +UUID=$(uuidgen) +cat > /etc/sysconfig/network-scripts/ifcfg-SN_1_-_Link_1 << EOF +# Storage Network 1 - Link 1 +HWADDR="" +UUID="${UUID}" +NAME="SN 1 - Link 1" +DEVICE="sn1_link1" +TYPE="Ethernet" +BOOTPROTO="none" +IPV6INIT="no" +ONBOOT="yes" +USERCTL="no" +MTU="1500" +NM_CONTROLLED="yes" +SLAVE="yes" +MASTER="sn1_bond1" +ZONE="SN1" +EOF + +UUID=$(uuidgen) +cat > /etc/sysconfig/network-scripts/ifcfg-SN_1_-_Link_2 << EOF +# Storage Network 1 - Link 2 +HWADDR="" +UUID="${UUID}" +NAME="SN 1 - Link 2" +DEVICE="sn1_link2" +TYPE="Ethernet" +BOOTPROTO="none" +IPV6INIT="no" +ONBOOT="yes" +USERCTL="no" +MTU="1500" +NM_CONTROLLED="yes" +SLAVE="yes" +MASTER="sn1_bond1" +ZONE="SN1" +EOF + +UUID=$(uuidgen) +cat > /etc/sysconfig/network-scripts/ifcfg-SN_1_-_Bond_1 << EOF +# Storage Network 1 - Bond 1 +UUID="${UUID}" +NAME="SN 1 - Bond 1" +DEVICE="sn1_bond1" +BONDING_OPTS="mode=active-backup primary=sn1_link1 updelay=120000 downdelay=0 miimon=100 primary_reselect=better" TYPE="Bond" BONDING_MASTER="yes" BOOTPROTO="none" IPV6INIT="no" ONBOOT="yes" +IPADDR="10.41.10.1" +PREFIX="16" DEFROUTE="no" +ZONE="SN1" +EOF + +### IFN ####################################################################### +UUID=$(uuidgen) +cat > /etc/sysconfig/network-scripts/ifcfg-IFN_1_-_Link_1 << EOF +# Internet-Facing Network 1 - Link 1 +HWADDR="" +UUID="${UUID}" +NAME="IFN 1 - Link 1" +DEVICE="ifn1_link1" +TYPE="Ethernet" +BOOTPROTO="none" +IPV6INIT="no" +ONBOOT="yes" +USERCTL="no" +MTU="1500" +NM_CONTROLLED="yes" +SLAVE="yes" +MASTER="ifn1_bond1" +ZONE="IFN1" +EOF + +UUID=$(uuidgen) +cat > /etc/sysconfig/network-scripts/ifcfg-IFN_1_-_Link_2 << EOF +# Internet-Facing Network 1 - Link 2 +HWADDR="" +UUID="${UUID}" +NAME="IFN 1 - Link 2" +DEVICE="ifn1_link2" +TYPE="Ethernet" +BOOTPROTO="none" +IPV6INIT="no" +ONBOOT="yes" +USERCTL="no" +MTU="1500" +NM_CONTROLLED="yes" +SLAVE="yes" +MASTER="ifn1_bond1" +ZONE="IFN1" +EOF + +UUID=$(uuidgen) +cat > /etc/sysconfig/network-scripts/ifcfg-IFN_1_-_Bond_1 << EOF +# Internet-Facing Network 1 - Bond 1 +UUID="${UUID}" +NAME="IFN 1 - Bond 1" +DEVICE="ifn1_bond1" BRIDGE="ifn1_bridge1" -ZONE=public -==== +BONDING_OPTS="mode=active-backup primary=ifn1_link1 updelay=120000 downdelay=0 miimon=100 primary_reselect=better" +TYPE="Bond" +BONDING_MASTER="yes" +BOOTPROTO="none" +IPV6INIT="no" +ONBOOT="yes" +MTU="1500" +ZONE="IFN1" +EOF + +UUID=$(uuidgen) +cat > /etc/sysconfig/network-scripts/ifcfg-IFN_1_-_Bridge_1 << EOF +# Internet-Facing Network 1 - Bridge 1 +UUID="${UUID}" +STP="yes" +BRIDGING_OPTS="priority=32768" +TYPE="Bridge" +BROWSER_ONLY="no" +NAME="IFN 1 - Bridge 1" +DEVICE="ifn1_bridge1" +ONBOOT="yes" +BOOTPROTO="none" +IPADDR="10.255.10.1" +PREFIX="16" +GATEWAY="10.255.255.254" +DNS1="8.8.8.8" +DNS2="8.8.4.4" +DEFROUTE="yes" +ZONE="IFN1" +EOF -Example Bridge config: -===== -===== +==== ======= virt-manager stores information in dconf-editor -> /org/virt-manager/virt-manager/connections ($HOME/.config/dconf/user) @@ -330,7 +518,7 @@ subscription-manager repos --enable rhel-8-for-x86_64-supplementary-rpms subscription-manager repos --enable rhel-8-for-x86_64-supplementary-source-rpms subscription-manager repos --enable codeready-builder-for-rhel-8-x86_64-rpms subscription-manager repos --enable codeready-builder-for-rhel-8-x86_64-source-rpms ----- +# ---- subscription-manager repos --enable codeready-builder-for-rhel-8-x86_64-source-rpms subscription-manager repos --enable rhel-8-for-x86_64-supplementary-source-rpms subscription-manager repos --enable rhel-8-for-x86_64-baseos-rpms diff --git a/tools/anvil-daemon b/tools/anvil-daemon index 2a4d0f4f..0173c335 100755 --- a/tools/anvil-daemon +++ b/tools/anvil-daemon @@ -72,7 +72,7 @@ $anvil->Log->secure({set => 1}); # Connect to the database(s). If we have no connections, we'll proceed anyway as one of the 'run_once' tasks # is to setup the database server. $anvil->Database->connect({debug => 3, check_if_configured => 1}); -$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 3, secure => 0, key => "log_0132"}); +$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 2, secure => 0, key => "log_0132"}); # If I have no databases, sleep for a second and then exit (systemd will restart us). if (not $anvil->data->{sys}{database}{connections}) @@ -117,7 +117,7 @@ $anvil->Storage->record_md5sums; # Disconnect. We'll reconnect inside the loop $anvil->Database->disconnect(); -$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 3, secure => 0, key => "log_0203"}); +$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 2, secure => 0, key => "log_0203"}); # This will prevent restarting while jobs are running. $anvil->data->{sys}{jobs_running} = 0; @@ -131,7 +131,7 @@ $anvil->data->{timing}{minute_checks} = 60; $anvil->data->{timing}{repo_update_interval} = 86400; $anvil->data->{timing}{next_minute_check} = $now_time - 1; $anvil->data->{timing}{next_repo_check} = $now_time; # We want to run on daemon startup -$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { +$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { "s1:timing::minute_checks" => $anvil->data->{timing}{minute_checks}, "s2:timing::repo_update_interval" => $anvil->data->{timing}{repo_update_interval}, "s3:now_time" => $now_time, @@ -153,7 +153,7 @@ while(1) $anvil->Get->switches; # Re-read to let switches override again. $anvil->Words->read(); $anvil->Database->connect({check_if_configured => $check_if_database_is_configured}); - $anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 3, secure => 0, key => "log_0132"}); + $anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 2, secure => 0, key => "log_0132"}); # Mark that we don't want to check the database now. $check_if_database_is_configured = 0; @@ -181,7 +181,7 @@ while(1) # Disconnect from the database(s) and sleep now. $anvil->Database->disconnect(); - sleep(1); + sleep(2); } $anvil->nice_exit({code => 0}); @@ -229,7 +229,7 @@ sub handle_periodic_tasks # Update the next check time. $anvil->data->{timing}{next_minute_check} = $now_time + $anvil->data->{timing}{minute_checks}; - $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { + $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { "s1:timing::minute_checks" => $anvil->data->{timing}{minute_checks}, "s2:timing::next_minute_check" => $anvil->data->{timing}{next_minute_check}, }}); @@ -286,11 +286,11 @@ sub handle_periodic_tasks job_description => "job_0017", job_progress => 0, }); - $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 1, list => { job_uuid => $job_uuid }}); + $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { job_uuid => $job_uuid }}); # Update the next check time. $anvil->data->{timing}{next_repo_check} = $now_time + $anvil->data->{timing}{repo_update_interval}; - $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 1, list => { + $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { "s1:timing::repo_update_interval" => $anvil->data->{timing}{repo_update_interval}, "s2:timing::next_repo_check" => $anvil->data->{timing}{next_repo_check}, }}); @@ -468,7 +468,7 @@ sub check_ssh_keys { $update_known_hosts = 1; $known_hosts_new_lines .= $test_line."\n"; - $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { + $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { 's1:update_known_hosts' => $update_known_hosts, 's2:known_hosts_new_lines' => $known_hosts_new_lines, }}); @@ -591,7 +591,7 @@ sub check_ssh_keys $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { update_authorized_keys => $update_authorized_keys }}); if ($update_authorized_keys) { - $anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 2, key => "log_0273", variables => { user => $user, file => $authorized_keys_file }}); + $anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 3, key => "log_0273", variables => { user => $user, file => $authorized_keys_file }}); if (-e $authorized_keys_file) { my $backup_file = $anvil->Storage->backup({ @@ -599,10 +599,10 @@ sub check_ssh_keys fatal => 1, file => $authorized_keys_file, }); - $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { backup_file => $backup_file }}); + $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { backup_file => $backup_file }}); if (-e $backup_file) { - $anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 2, key => "log_0154", variables => { source_file => $authorized_keys_file, target_file => $backup_file }}); + $anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 3, key => "log_0154", variables => { source_file => $authorized_keys_file, target_file => $backup_file }}); } else { @@ -618,7 +618,7 @@ sub check_ssh_keys group => $user, mode => "0644", }); - $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { failed => $failed }}); + $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { failed => $failed }}); } } @@ -758,15 +758,15 @@ sub check_install_target my $status = "unavailable"; my $output = $anvil->System->call({shell_call => $anvil->data->{path}{exe}{'striker-manage-install-target'}." --status --check --no-refresh"}); - $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { output => $output }}); + $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { output => $output }}); foreach my $line (split/\n/, $output) { - $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { line => $line }}); + $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { line => $line }}); if ($line =~ /status=(\d)/) { my $digit = $1; - $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { digit => $digit }}); + $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { digit => $digit }}); if ($digit == 0) { @@ -776,7 +776,7 @@ sub check_install_target { $status = "enabled"; } - $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { status => $status }}); + $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { status => $status }}); last; } } @@ -822,10 +822,17 @@ sub run_once sub check_firewall { my ($anvil) = @_; - + + # Don't call this if we're not configured yet. + my $configured = $anvil->System->check_if_configured({debug => 2}); + $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 1, list => { configured => $configured }}); + # Check the firewall needs to be updated. - my $output = $anvil->System->call({shell_call => $anvil->data->{path}{exe}{'anvil-manage-firewall'}}); - $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { output => $output }}); + if ($configured) + { + my $output = $anvil->System->call({shell_call => $anvil->data->{path}{exe}{'anvil-manage-firewall'}}); + $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { output => $output }}); + } return(0); } @@ -942,7 +949,7 @@ sub keep_running { # If it's not a handle, delete it. my $running = $anvil->data->{jobs}{handles}{$job_uuid}->poll(); - $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { + $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { "jobs::handles::${job_uuid}" => $anvil->data->{jobs}{handles}{$job_uuid}, running => $running, }}); @@ -966,7 +973,7 @@ sub keep_running # Update hardware state files if the system isn't configured. Running it always is too intensive. my $configured = $anvil->System->check_if_configured; - $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { configured => $configured }}); + $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { configured => $configured }}); if (not $configured) { update_state_file($anvil); @@ -1055,7 +1062,7 @@ sub run_jobs if ((not exists $anvil->data->{lost_job_count}{$job_uuid}) or (not defined $anvil->data->{lost_job_count}{$job_uuid})) { $anvil->data->{lost_job_count}{$job_uuid} = 0; - $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { "lost_job_count::${job_uuid}" => $anvil->data->{lost_job_count}{$job_uuid} }}); + $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { "lost_job_count::${job_uuid}" => $anvil->data->{lost_job_count}{$job_uuid} }}); } if ($anvil->data->{lost_job_count}{$job_uuid} > 5) { @@ -1069,7 +1076,7 @@ sub run_jobs # Clear some variables. $job_progress = 0; $job_status = "message_0056"; - $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { + $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { job_progress => $job_progress, job_status => $job_status, }}); @@ -1077,12 +1084,12 @@ sub run_jobs # Clear the job. $anvil->Job->clear({debug => 3, job_uuid => $job_uuid}); $anvil->data->{lost_job_count}{$job_uuid} = 0; - $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { "lost_job_count::${job_uuid}" => $anvil->data->{lost_job_count}{$job_uuid} }}); + $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { "lost_job_count::${job_uuid}" => $anvil->data->{lost_job_count}{$job_uuid} }}); } else { $anvil->data->{lost_job_count}{$job_uuid}++; - $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { "lost_job_count::${job_uuid}" => $anvil->data->{lost_job_count}{$job_uuid} }}); + $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { "lost_job_count::${job_uuid}" => $anvil->data->{lost_job_count}{$job_uuid} }}); } } @@ -1147,7 +1154,7 @@ sub run_jobs my $command = $job_command." --job-uuid ".$job_uuid; $anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 1, secure => 0, key => "log_0210", variables => { command => $command }}); $anvil->data->{jobs}{handles}{$job_uuid} = $anvil->System->call({ - debug => 2, + debug => 3, background => 1, stdout_file => "/tmp/anvil.job.".$job_uuid.".stdout", stderr_file => "/tmp/anvil.job.".$job_uuid.".stderr", @@ -1155,11 +1162,11 @@ sub run_jobs source => $THIS_FILE, line => __LINE__, }); - $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { "jobs::handles::${job_uuid}" => $anvil->data->{jobs}{handles}{$job_uuid} }}); + $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { "jobs::handles::${job_uuid}" => $anvil->data->{jobs}{handles}{$job_uuid} }}); # Log the PID (the job should update the database). my $pid = $anvil->data->{jobs}{handles}{$job_uuid}->pid(); - $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { pid => $pid }}); + $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { pid => $pid }}); } } diff --git a/tools/anvil-update-states b/tools/anvil-update-states index b035db22..0ef8c834 100755 --- a/tools/anvil-update-states +++ b/tools/anvil-update-states @@ -93,7 +93,7 @@ sub update_network $duplex =~ s/\n$//; $operational =~ s/\n$//; $speed =~ s/\n$//; - $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { + $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { interface => $interface, speed => $speed, mac_address => $mac_address, @@ -115,7 +115,7 @@ sub update_network { $ip_address = $anvil->data->{sys}{network}{interface}{$interface}{ip} ? $anvil->data->{sys}{network}{interface}{$interface}{ip} : ""; $subnet_mask = $anvil->data->{sys}{network}{interface}{$interface}{subnet} ? $anvil->data->{sys}{network}{interface}{$interface}{subnet} : ""; - $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { + $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { ip_address => $ip_address, subnet_mask => $subnet_mask, }}); @@ -129,7 +129,7 @@ sub update_network # It's a slave. $mac_address = $anvil->Storage->read_file({file => $mac_bond_file}); $mac_address =~ s/\n$//; - $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { mac_address => $mac_address }}); + $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { mac_address => $mac_address }}); } # If this is a virtual interface, set some fake values that don't actually exist on @@ -140,7 +140,7 @@ sub update_network # Speed is "as fast as possible", so we'll record 100 Gbps, but that is really kind of arbitrary. $speed = 100000 if ((not $speed) or ($speed eq "-1")); $duplex = "full" if not $duplex; - $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { + $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { speed => $speed, duplex => $duplex, }}); @@ -149,7 +149,7 @@ sub update_network if (not $link_state) { $speed = 0; - $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { speed => $speed }}); + $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { speed => $speed }}); } # Is this a bond interface? @@ -176,7 +176,7 @@ sub update_network $mii_polling_interval =~ s/\n$//; $up_delay =~ s/\n$//; $down_delay =~ s/\n$//; - $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { + $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { active_slave => $active_slave, bond_mode => $bond_mode, mii_polling_interval => $mii_polling_interval, @@ -271,7 +271,7 @@ sub update_network type => $type, up_delay => $up_delay, }; - $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { + $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { "network::interfaces::by_name::${interface}::active_slave" => $anvil->data->{network}{interfaces}{by_name}{$interface}{active_slave}, "network::interfaces::by_name::${interface}::bond_mode" => $anvil->data->{network}{interfaces}{by_name}{$interface}{bond_mode}, "network::interfaces::by_name::${interface}::bond_master" => $anvil->data->{network}{interfaces}{by_name}{$interface}{bond_master}, diff --git a/tools/striker-manage-install-target b/tools/striker-manage-install-target index b5c8a545..c688e104 100755 --- a/tools/striker-manage-install-target +++ b/tools/striker-manage-install-target @@ -78,7 +78,7 @@ $anvil->data->{switches}{'no-refresh'} = 0; $anvil->data->{switches}{refresh} = 0; $anvil->data->{switches}{status} = ""; $anvil->Get->switches(); -$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { +$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { 'switches::check' => $anvil->data->{switches}{check}, 'switches::disable' => $anvil->data->{switches}{disable}, 'switches::enable' => $anvil->data->{switches}{enable}, @@ -102,7 +102,7 @@ if (($< != 0) && ($> != 0)) if ($anvil->data->{switches}{status}) { my $dhcpd_running = $anvil->System->check_daemon({daemon => $anvil->data->{sys}{daemon}{dhcpd}}); - $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { dhcpd_running => $dhcpd_running }}); + $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { dhcpd_running => $dhcpd_running }}); if ($dhcpd_running) { print $anvil->Words->string({key => "message_0123"})."\n"; @@ -141,7 +141,7 @@ if ($anvil->data->{switches}{disable}) my $exit_code = 0; my $job_message = "message_0125"; my $return_code = $anvil->System->stop_daemon({daemon => $anvil->data->{sys}{daemon}{dhcpd}}); - $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { return_code => $return_code }}); + $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { return_code => $return_code }}); if ($return_code) { # non-0 means something went wrong. @@ -222,7 +222,7 @@ if ($anvil->data->{switches}{enable}) my $exit_code = 0; my $job_message = "message_0127"; my $return_code = $anvil->System->start_daemon({daemon => $anvil->data->{sys}{daemon}{dhcpd}}); - $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { return_code => $return_code }}); + $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { return_code => $return_code }}); if ($return_code) { # non-0 means something went wrong. @@ -302,10 +302,10 @@ sub check_refresh # Setup the packages directory $anvil->data->{path}{directories}{packages} = "/var/www/html/".$anvil->data->{host_os}{os_type}."/".$anvil->data->{host_os}{os_arch}."/os/Packages"; - $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { "path::directories::packages" => $anvil->data->{path}{directories}{packages} }}); + $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { "path::directories::packages" => $anvil->data->{path}{directories}{packages} }}); # Default to 'no' - $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { + $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { "switches::refresh" => $anvil->data->{switches}{refresh}, "switches::force" => $anvil->data->{switches}{force}, }}); @@ -324,13 +324,13 @@ sub check_refresh # If it's been disabled in anvil.conf, exit. $anvil->data->{'install-manifest'}{'refresh-packages'} = 1 if not defined $anvil->data->{'install-manifest'}{'refresh-packages'}; - $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { "install-manifest::refresh-packages" => $anvil->data->{'install-manifest'}{'refresh-packages'} }}); + $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { "install-manifest::refresh-packages" => $anvil->data->{'install-manifest'}{'refresh-packages'} }}); if (not $anvil->data->{'install-manifest'}{'refresh-packages'}) { # We're out. $anvil->data->{switches}{refresh} = 0; print $anvil->Words->string({key => "log_0235"})."\n"; - $anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 2, key => "log_0235"}); + $anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 3, key => "log_0235"}); return(0); } @@ -340,8 +340,8 @@ sub check_refresh # Source isn't configured, set it up $anvil->data->{switches}{refresh} = 1; print $anvil->Words->string({key => "log_0237"})."\n"; - $anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 2, key => "log_0237"}); - $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { "switches::refresh" => $anvil->data->{switches}{refresh} }}); + $anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 3, key => "log_0237"}); + $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { "switches::refresh" => $anvil->data->{switches}{refresh} }}); return(0); } @@ -351,7 +351,7 @@ sub check_refresh variable_source_uuid => $anvil->Get->host_uuid, variable_source_table => "hosts", }); - $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { + $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { unixtime => $unixtime, variable_uuid => $variable_uuid, modified_date => $modified_date, @@ -360,7 +360,7 @@ sub check_refresh if (($unixtime eq "") or ($unixtime =~ /\D/)) { $unixtime = 0; - $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { unixtime => $unixtime }}); + $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { unixtime => $unixtime }}); } ### TODO: Allow the user to set a "refresh time" that will wait until the local time is after a @@ -369,20 +369,20 @@ sub check_refresh # refresh. $anvil->data->{'install-manifest'}{'refresh-period'} = 86400 if not defined $anvil->data->{'install-manifest'}{'refresh-period'}; $anvil->data->{'install-manifest'}{'refresh-period'} =~ s/,//g; - $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { + $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { 'install-manifest::refresh-period' => $anvil->data->{'install-manifest'}{'refresh-period'}, }}); if ($anvil->data->{'install-manifest'}{'refresh-period'} =~ /\D/) { $anvil->data->{'install-manifest'}{'refresh-period'} = 86400; - $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { + $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { 'install-manifest::refresh-period' => $anvil->data->{'install-manifest'}{'refresh-period'}, }}); } my $time_now = time; my $next_scan = $unixtime + $anvil->data->{'install-manifest'}{'refresh-period'}; my $difference = ($next_scan - $time_now); - $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { + $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { 's1:time_now' => $time_now, 's2:next_scan' => $next_scan, 's3:difference' => $difference, @@ -393,7 +393,7 @@ sub check_refresh $anvil->data->{switches}{refresh} = 1; my $variables = { seconds => $anvil->Convert->add_commas({number => $anvil->data->{'install-manifest'}{'refresh-period'}}) }; print $anvil->Words->string({key => "log_0239", variables => $variables})."\n"; - $anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 2, key => "log_0239", variables => $variables}); + $anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 3, key => "log_0239", variables => $variables}); return(0); } elsif ($difference > 0) @@ -402,7 +402,7 @@ sub check_refresh $anvil->data->{switches}{refresh} = 0; my $variables = { next_refresh => $anvil->Convert->add_commas({number => $difference}) }; print $anvil->Words->string({key => "log_0236", variables => $variables})."\n"; - $anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 2, key => "log_0236", variables => $variables}); + $anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 3, key => "log_0236", variables => $variables}); } # If the refresh fails, we'll update the last unixtime to be 24 hours from now, so that we can try @@ -411,13 +411,13 @@ sub check_refresh if ($unixtime =~ /^\d+$/) { $anvil->data->{sys}{retry_time} = $unixtime + 86400; - $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { "sys::retry_time" => $anvil->data->{sys}{retry_time} }}); + $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { "sys::retry_time" => $anvil->data->{sys}{retry_time} }}); } else { # No previous time, so start with the current time $anvil->data->{sys}{retry_time} = time; - $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { "sys::retry_time" => $anvil->data->{sys}{retry_time} }}); + $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { "sys::retry_time" => $anvil->data->{sys}{retry_time} }}); } return(0); @@ -855,7 +855,7 @@ sub check_alteeve_repo ### TODO: Remove this and the check when the signed el8 repo is ready $repo_file = "/etc/yum.repos.d/alteeve-el".$anvil->data->{host_os}{version}.".repo"; $repo_url = "https://alteeve.com/an-repo/el".$anvil->data->{host_os}{version}."b/alteeve-el".$anvil->data->{host_os}{version}."b-repo-latest.noarch.rpm"; - $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { + $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { repo_file => $repo_file, repo_url => $repo_url, }}); @@ -865,7 +865,7 @@ sub check_alteeve_repo ### TODO: Update this when rhel8 is out $repo_file = "/etc/yum.repos.d/alteeve-el".$anvil->data->{host_os}{version}."b.repo"; $repo_url = "https://alteeve.com/an-repo/el".$anvil->data->{host_os}{version}."/alteeve-el".$anvil->data->{host_os}{version}."-repo-latest.noarch.rpm"; - $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { + $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { repo_file => $repo_file, repo_url => $repo_url, }}); @@ -876,7 +876,7 @@ sub check_alteeve_repo { # Install the repo my $handle = $anvil->System->call({debug => 2, shell_call => $anvil->data->{path}{exe}{rpm}." -Uvh ".$repo_url }); - $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { handle => $handle }}); + $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { handle => $handle }}); } # If it still doesn't exist, we're done. @@ -1125,6 +1125,7 @@ sub load_packages "adwaita-gtk2-theme.x86_64", "adwaita-icon-theme.noarch", "alsa-lib.x86_64", + "alteeve-el8-repo.noarch", "anvil-core.noarch", "anvil-dr.noarch", "anvil-node.noarch",