[svn:mod_parrot] r396 - mod_parrot/trunk/build/lib/Generator

[jhorwitz@xxxxxxxxxxxx]

Author: jhorwitz
Date: Fri Jul 25 21:33:29 2008
New Revision: 396

Modified:
   mod_parrot/trunk/build/lib/Generator/ApacheConstants.pm

Log:
actually emit config constants to ap_constants.pir


Modified: mod_parrot/trunk/build/lib/Generator/ApacheConstants.pm
==============================================================================
--- mod_parrot/trunk/build/lib/Generator/ApacheConstants.pm     (original)
+++ mod_parrot/trunk/build/lib/Generator/ApacheConstants.pm     Fri Jul 25 
21:33:29 2008
@@ -32,7 +32,8 @@
     $self->generate_source(
         $self->to_string($constants{'handler'}),
         $self->to_string($constants{'http'}),
-        $self->to_string($constants{'log'})
+        $self->to_string($constants{'log'}),
+        $self->to_string($constants{'config'}),
     );
 }
 
@@ -96,7 +97,7 @@
             }
         }
     }
-    close HTTP_LOG_H;
+    close HTTP_CONFIG_H;
 
     return %constants;
 }
@@ -116,7 +117,7 @@
 
 sub generate_source
 {
-    my ($self, $handler, $http, $log) = @_;
+    my ($self, $handler, $http, $log, $config) = @_;
 
     my $template;
     {
@@ -127,6 +128,7 @@
     $template =~ s/%%HANDLER%%/$handler/;
     $template =~ s/%%HTTP%%/$http/;
     $template =~ s/%%LOG%%/$log/;
+    $template =~ s/%%CONFIG%%/$config/;
 
     $self->write_file('pir', 'ap_constants.pir', $template);
 }
@@ -148,6 +150,9 @@
     # Log Severities
 %%LOG%%
 
+    # Apache Config
+%%CONFIG%%
+
     set_root_global [ 'Apache'; 'Constants' ], 'ap_constants', ap_constants
 .end