* Fixed a minor bug in Template->get() where a bad template name being passed would call Words->string() without proper arguments and generate error messages.

* Fixed a bad template name in main.html.

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

Anvil/Tools/Template.pm

@@ -227,12 +227,17 @@ sub get
 		}
 		$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { template => $template }});
 		
+		# Insert variables if I found something.
 		# Now that I have the skin, inject my variables. We'll use Words->string() to do this for us.
-		$template = $anvil->Words->string({
+		if (($template_found) && ($template))
-			debug     => $debug, 
+		{
-			string    => $template,
+			$template = $anvil->Words->string({
-			variables => $variables,
+				debug     => $debug, 
-		});
+				string    => $template,
+				variables => $variables,
+			});
+			$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { template => $template }});
+		}
 		
 		# If we failed to read the template, then load an error message.
 		$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { 

Anvil/Tools/Words.pm

@@ -207,7 +207,7 @@ sub key
 		}
 	}
 	
-	if ($string eq "#!not_found!#")
+	if ($string eq "#!not_found!")
 	{
 		$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 0, priority => "err", raw => "[ Error ] - Failed to find the string key: [".$key."]!!"});
 	}
@@ -480,7 +480,7 @@ Parameters;
 
 This is the specific file to read the string from. It should generally not be needed as string keys should not be reused. However, if it happens, this is a way to specify which file's version you want.
 
-=head3 key (required)
+=head3 key (optional, required without 'string' set)
 
 This is the key to return the string for.
 
@@ -492,7 +492,7 @@ This is the ISO code for the language you wish to read the string from. For exam
 
 When no language is passed, 'C<< defaults::languages::output >>' is used. 
 
-=head3 string (optional)
+=head3 string (optional, required if no 'key')
 
 If this is passed, it is treated as a raw string that needs variables inserted. When this is used, the 'C<< key >>' parameter is ignored.
 

cgi-bin/striker

@@ -1045,7 +1045,7 @@ sub configure_striker
 	{
 		# Sanity check step1.
 		my $sane = sanity_check_step1($anvil);
-		$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { sane => $sane }});
+		$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { sane => $sane }});
 		if ($sane)
 		{
 			# Step 1 was sane, show step 2.
@@ -1061,7 +1061,7 @@ sub configure_striker
 	{
 		# Sanity check step1.
 		my $sane = sanity_check_step2($anvil);
-		$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { sane => $sane }});
+		$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { sane => $sane }});
 		if ($sane)
 		{
 			# Step 2 was sane, show step 3.
@@ -1087,7 +1087,7 @@ sub configure_striker
 			job_description => "job_0002", 
 			job_progress    => 0,
 		});
-		$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { job_uuid => $job_uuid }});
+		$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { job_uuid => $job_uuid }});
 		
 		# Set maintenance mode.
 		$anvil->System->maintenance_mode({set => 1});
@@ -1700,7 +1700,6 @@ ORDER BY
 		class         => $dns_class,
 		extra         => "",
 	}});
-	$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 1, list => { say_dns => $say_dns }});
 	
 	# Which interface gets the route?
 	my $default_dg_iface = defined $anvil->data->{cgi}{dg_iface}{value} ? $anvil->data->{cgi}{dg_iface}{value} : "ifn_link1";
@@ -1711,14 +1710,16 @@ ORDER BY
 		selected => $default_dg_iface,
 		class    => $anvil->data->{cgi}{dg_iface}{alert} ? "input_alert" : "input_clear",
 	});
-	$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 1, list => { dg_iface_select => $dg_iface_select }});
 	
-	my $dg_iface_class = $anvil->data->{cgi}{dg_iface}{alert} ? "input_alert" : "input_clear";
+	### NOTE: I'll likely want this for choosing which interface to use as the default gateway when 2+ 
-	my $say_dg_iface   = $anvil->Template->get({debug => 1, file => "main.html", name => "input_select_form", variables => {
+	###       IFNs are used.
-		field       => "#!string!striker_0039!#",
+# 	my $dg_iface_class = $anvil->data->{cgi}{dg_iface}{alert} ? "input_alert" : "input_clear";
-		description => "#!string!striker_0040!#",
+# 	my $say_dg_iface   = $anvil->Template->get({file => "main.html", name => "input_select_form", variables => {
-		'select'    => "",
+# 		field       => "#!string!striker_0039!#",
-	}});
+# 		description => "#!string!striker_0040!#",
+# 		'select'    => "",
+# 	}});
+# 	$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 1, list => { say_dg_iface => $say_dg_iface }});
 	
 	# Hostname
 	my $say_default_hostname = $anvil->data->{cgi}{prefix}{value}."-striker0".$anvil->data->{cgi}{sequence}{value}.".".$anvil->data->{cgi}{domain}{value};
@@ -2557,7 +2558,7 @@ sub get_network_details
 				speed   => $data->{interface}{$interface}{speed},
 				'state' => $data->{interface}{$interface}{'state'},
 			};
-			$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { 
+			$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { 
 				"interfaces::${interface}::bond"   => $anvil->data->{interfaces}{$interface}{bond}, 
 				"interfaces::${interface}::bridge" => $anvil->data->{interfaces}{$interface}{bridge}, 
 				"interfaces::${interface}::duplex" => $anvil->data->{interfaces}{$interface}{duplex}, 
@@ -2610,7 +2611,7 @@ sub get_network_details
 		{
 			foreach my $address (sort {$a cmp $b} keys %{$data->{ip}})
 			{
-				$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { address => $address }});
+				$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { address => $address }});
 				$anvil->data->{ip}{$address} = {
 					on              => $data->{ip}{$address}{on}, 
 					subnet          => $data->{ip}{$address}{subnet}, 
@@ -2618,7 +2619,7 @@ sub get_network_details
 					default_gateway => $data->{ip}{$address}{default_gateway}, 
 					dns             => $data->{ip}{$address}{dns}, 
 				};
-				$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { 
+				$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { 
 					"ip::${address}::on"              => $anvil->data->{ip}{$address}{on}, 
 					"ip::${address}::subnet"          => $anvil->data->{ip}{$address}{subnet}, 
 					"ip::${address}::gateway"         => $anvil->data->{ip}{$address}{gateway}, 

html/skins/alteeve/main.html

@@ -118,6 +118,11 @@
 						<input type="number" name="#!variable!name!#" id="#!variable!id!#" value="#!variable!value!#" placeholder="#!variable!field!#" class="#!variable!class!#" #!variable!extra!#>
 <!-- end input_number_form -->
 
+<!-- start input_select_form -->
+						#!variable!description!#<br />
+						<input type="select" name="#!variable!name!#" id="#!variable!id!#" #!variable!extra!#>#!variable!options!#</select>
+<!-- end input_select_form -->
+
 <!-- start input_text_form -->
 						#!variable!description!#<br />
 						<input type="text" name="#!variable!name!#" id="#!variable!id!#" value="#!variable!value!#" placeholder="#!variable!field!#" class="#!variable!class!#" #!variable!extra!#>
@@ -194,11 +199,6 @@
 <a href="#!variable!url!#"><img src="#!data!skin::url!#/images/refresh_on.png" class="top_icon"></a>
 <!-- end refresh_button_on -->
 
-<!-- start select_form -->
-						#!variable!description!#<br />
-						<input type="select" name="#!variable!name!#" id="#!variable!id!#" #!variable!extra!#>#!variable!options!#</select>
-<!-- end select_form -->
-
 <!-- start striker_button_off -->
 <img src="#!data!skin::url!#/images/striker_icon_off.png" class="top_icon">
 <!-- end striker_button_off -->