diff options
| -rw-r--r-- | lib/Apache/Inject/Handler.pm | 44 | ||||
| -rwxr-xr-x | t/SMOKE | 2 |
2 files changed, 23 insertions, 23 deletions
diff --git a/lib/Apache/Inject/Handler.pm b/lib/Apache/Inject/Handler.pm index 6c1a282..794eb2f 100644 --- a/lib/Apache/Inject/Handler.pm +++ b/lib/Apache/Inject/Handler.pm @@ -28,6 +28,28 @@ my $doc = qr{ \z }xmsi; +sub handler { + my $r = shift; + + return DECLINED if not $r->content_type eq 'text/html'; + + my $content = ${$r->slurp_filename}; + return DECLINED if not $content =~ /$doc/; + + if (not $r->document_root) { + $r->warn('Inject: Declining request due to empty document root'); + return DECLINED; + } + + print $+{head} if $+{head}; + inject($r, "InjectHead"); + print $+{body} if $+{body}; + inject($r, "InjectFoot"); + print $+{rest} if $+{rest}; + + return OK; +} + sub inject { my ($r, $var) = @_; @@ -56,26 +78,4 @@ sub inject { close $fh; } -sub handler { - my $r = shift; - - return DECLINED if not $r->content_type eq 'text/html'; - - my $content = ${$r->slurp_filename}; - return DECLINED if not $content =~ /$doc/; - - if (not $r->document_root) { - $r->warn('Inject: Declining request due to empty document root'); - return DECLINED; - } - - print $+{head} if $+{head}; - inject($r, "InjectHead"); - print $+{body} if $+{body}; - inject($r, "InjectFoot"); - print $+{rest} if $+{rest}; - - return OK; -} - 1; @@ -1,6 +1,6 @@ #!/usr/local/bin/perl # WARNING: this file is generated, do not edit -# generated on Sat Apr 24 01:01:16 2021 +# generated on Sat Apr 24 14:48:36 2021 # 01: /usr/local/lib/perl5/site_perl/mach/5.32/Apache/TestConfig.pm:1003 # 02: /usr/local/lib/perl5/site_perl/mach/5.32/Apache/TestConfig.pm:1095 # 03: /usr/local/lib/perl5/site_perl/mach/5.32/Apache/TestSmoke.pm:775 |