File Coverage

blib/lib/Apache/StrReplace.pm

Criterion	Covered	Total	%
statement	13	45	28.8
branch	2	12	16.6
condition	1	7	14.2
subroutine	5	6	83.3
pod	0	1	0.0
total	21	71	29.5

package Apache::StrReplace;

use strict;
use warnings;
use vars qw(@ISA);

$Apache::StrReplace::VERSION = '0.03';

BEGIN {

  if ( exists $ENV{'MOD_PERL_API_VERSION'} && $ENV{'MOD_PERL_API_VERSION'} eq 2 ) {
    require Apache2::Filter;
    push @ISA, 'Apache2::Filter';
    require Apache2::Response;
    require Apache2::Const;
    require Apache2::RequestRec;
    require Apache2::RequestUtil;
    Apache2::Const->import(qw(OK DECLINED));
  } elsif ( exists $ENV{'MOD_PERL'} ) {
    require Apache::Filter;
    push @ISA, 'Apache::Filter';
    require Apache::Response;
    require Apache::Const;
    require Apache::RequestRec;
    require Apache::RequestUtil;
    Apache::Const->import(qw(OK DECLINED));
  }
}

use constant BUFF_LEN => 1024;

sub handler {
  my $f = shift;

  my $search  = $f->r->dir_config('StrReplaceSearch');
  my $replace = $f->r->dir_config('StrReplaceReplace');
  my $ctype   = $f->r->dir_config('StrReplaceContentType') || 'text/html';
  my $option  = $f->r->dir_config('StrReplaceOption') || 'g';
  $option = 'g' if $option!~/^[egimosx]+$/;

  unless ($f->r->content_type =~/$ctype/) {
    return DECLINED();
  }

  unless ( $f->ctx ) {
    $f->ctx( { body => '' } );
  }

  while ($f->read(my $buffer, BUFF_LEN)) {
    $f->ctx->{'body'}.= $buffer;
  }

  unless ($f->seen_eos) {
    return OK();
  }

  eval '$f->ctx->{body}=~s/$search/'."$replace/$option;";

  $f->r->set_content_length( length( $f->ctx->{'body'} ) );

  $f->print( $f->ctx->{'body'} );

  OK();
}

1;
__END__