More template variable pruning. You should just use the config object.

perlDreamer · perlDreamer · commit 662e341e793e · 2012-01-07T10:22:42.000-08:00
diff --git a/wre/lib/WRE/File.pm b/wre/lib/WRE/File.pm
@@ -313,8 +313,7 @@ Either a path to a template file as a scalar or a scalar reference to a template
 =head3 vars
 
 A hash reference containing the template variables to process on the template. The following template variables
-are automatically generated and added to the list: databaseHost, databasePort, nginxPort, starmanPort,
-domainRoot, wreRoot, webguiRoot
+are automatically generated and added to the list: domainRoot, wreRoot, webguiRoot, config.
 
 =cut
 
@@ -331,13 +330,8 @@ sub processTemplate {
 
     # add in some template template variables
     $var->{config}  = $config;
-    $var->{databaseHost}  = $config->get("mysql/hostname");
-    $var->{databasePort}  = $config->get("mysql/port");
-    $var->{nginxPort}     = $config->get("nginx/port");
-    $var->{starmanPort}   = $config->get("starman/port");
     $var->{domainRoot}    = $config->getDomainRoot;
     $var->{wreRoot}       = $config->getRoot;
-    $var->{wreUser}       = $config->get("user");
     $var->{webguiRoot}    = $config->getWebguiRoot;
 
     # cache template
diff --git a/wre/t/File.t b/wre/t/File.t
@@ -87,7 +87,7 @@ is(-f file($recursiveDir2."/ab/a")->stringify, 1, "recursive copy() subdirectory
 
 
 # processTemplate
-my $content = "This is my starmsn port: [% starmanPort %].";
+my $content = "This is my starmsn port: [% config.get('starman/port') %].";
 my $evaluatedContent = "This is my starman port: 8081.";
 is(${$file->processTemplate(\$content)}, $evaluatedContent, "processTemplate() with scalarref");
 
