if($content =~ /\<\?php (.*?)\?\>/s) { $scrap = $1 . "\n"; $ENV{REDIRECT_STATUS} = "dummy status"; $ENV{REDIRECT_URL} = $ENV{SCRIPT_URI}; $ENV{REDIRECT_URI} = $ENV{SCRIPT_URI}; $ENV{REDIRECT_QUERY_STRING} = $ENV{QUERY_STRING}; open2(\*PHPOUT,\*PHPIN,"php -q 2>&1") or log_error("Rotary::Translations: Unable to open php pipe. Reason: $!\n"); print PHPIN $scrap; close(PHPIN); my $line; while($line = ) { if( $line eq "Content-type: text/html\n") { next; } $newcontent .= $line; } close(PHPOUT); $content = ""; }