* Re-enabled writing of the network.json and network.xml files.

Signed-off-by: Digimer <digimer@alteeve.ca>

tools/anvil-update-states

@@ -623,66 +623,6 @@ ORDER BY
 	$network_xml .= "</network>\n";
 	$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { network_xml => $network_xml }});
 	
-die; 
-
-	# Write out the XML file and JSON file.
-	   $query        = "
-SELECT 
-    network_interface_mac_address, 
-    network_interface_name, 
-    network_interface_speed, 
-    network_interface_mtu, 
-    network_interface_link_state, 
-    network_interface_operational, 
-    network_interface_duplex, 
-    network_interface_medium, 
-    network_interface_bond_uuid, 
-    network_interface_bridge_uuid 
-FROM 
-    network_interfaces 
-WHERE 
-    network_interface_host_uuid = ".$anvil->data->{sys}{use_db_fh}->quote($anvil->Get->host_uuid)." 
-ORDER BY 
-    modified_date DESC
-;";
-	$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 3, key => "log_0124", variables => { query => $query }});
-	$results = $anvil->Database->query({query => $query, source => $THIS_FILE, line => __LINE__});
-	$count   = @{$results};
-	$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { 
-		results => $results, 
-		count   => $count,
-	}});
-	foreach my $row (@{$results})
-	{
-		my $network_interface_mac_address =         $row->[0];
-		my $network_interface_name        =         $row->[1];
-		my $network_interface_speed       =         $row->[2];
-		my $network_interface_mtu         =         $row->[3];
-		my $network_interface_link_state  =         $row->[4];
-		my $network_interface_operational =         $row->[5];
-		my $network_interface_duplex      =         $row->[6];
-		my $network_interface_medium      =         $row->[7];
-		my $network_interface_bond_uuid   = defined $row->[8] ? $row->[8] : 'NULL';
-		my $network_interface_bridge_uuid = defined $row->[9] ? $row->[9] : 'NULL';
-		$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { 
-			network_interface_mac_address => $network_interface_mac_address,
-			network_interface_name        => $network_interface_name,
-			network_interface_speed       => $network_interface_speed,
-			network_interface_mtu         => $network_interface_mtu,
-			network_interface_link_state  => $network_interface_link_state,
-			network_interface_operational => $network_interface_operational,
-			network_interface_duplex      => $network_interface_duplex,
-			network_interface_medium      => $network_interface_medium,
-			network_interface_bond_uuid   => $network_interface_bond_uuid,
-			network_interface_bridge_uuid => $network_interface_bridge_uuid,
-			order                         => $order,
-		}});
-		$network_json .= "	{ \"name\":\"$network_interface_name\", \"mac\":\"$network_interface_mac_address\", \"link\":\"$network_interface_link_state\", \"speed\":\"$network_interface_speed\", \"mtu\":\"$network_interface_mtu\", \"duplex\":\"$network_interface_duplex\", \"state\":\"$network_interface_operational\", \"media\":\"$network_interface_medium\", \"bond\":\"$network_interface_bond_uuid\", \"bridge\":\"$network_interface_bridge_uuid\", \"order\":\"$order\" },\n";
-		$network_xml .= "	<interface name=\"$network_interface_name\" mac=\"$network_interface_mac_address\" link=\"$network_interface_link_state\" speed=\"$network_interface_speed\" mtu=\"$network_interface_mtu\" duplex=\"$network_interface_duplex\" state=\"$network_interface_operational\" media=\"$network_interface_medium\" bond=\"$network_interface_bond_uuid\" bridge=\"$network_interface_bridge_uuid\" order=\"$order\" />\n";
-		$order++;
-	}
-	
-	### TODO: Set the 'status/network.json' name into 'anvil.conf'
 	# Write the JSON file.
 	my $output_json = $anvil->data->{path}{directories}{html}."/status/network.json";
 	$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { output_xml => $output_json }});