#File:/data/custom/WebGUI/Filter::YUICSSErrors
package Filter::YUICSSErrors;
use Apache2::Filter;
use base "Apache2::Filter";
use strict;
use warnings;
use Apache2::Const -compile => qw(OK);
use constant BUFF_LEN => 1024;
sub handler {
my $f = shift;
my $leftover = $f->ctx;
while ($f->read(my $buffer, BUFF_LEN)) {
$buffer = $leftover . $buffer if defined $leftover;
$leftover = undef;
while ($buffer =~ /([^\r\n]*)([\r\n]*)/g) {
$leftover = $1, last unless $2;
my $line = $1;
my $spacing = $2;
$line =~ s//\n\n\n\n/ if $line;
if($spacing) {
$f->print($line, $spacing)
} else {
$f->print($line)
};
}
}
if ($f->seen_eos) {
if(defined $leftover) {
$leftover =~ s//\n\n\n\n/;
}
$f->print($leftover);
}
else {
$f->ctx($leftover) if defined $leftover;
}
return Apache2::Const::OK;
}
1;