#!/usr/bin/perl -w

package SSIChainNG;
use Apache::OutputChain;
use strict;
use SSIParser;

use vars qw(@ISA);
@ISA = qw( Apache::OutputChain );

my $html_parser;


sub handler
{
    my $r = shift;
    if(ref tied *STDOUT ne "Apache") {
        die "Apache::SSIChain must be the last handler!\n";
    }
    $html_parser = new SSIParser('', $r);
    Apache::OutputChain::handler($r, __PACKAGE__);
}

sub PRINT {
    my $self = shift;
    my $text;

    $html_parser->text(join("", @_));
    $html_parser->output(sub { $self->[0]->print(@_); });
}

1;