#!/usr/bin/perl 


$gros_log=$ENV{LOG_GROS};
$petit_log=$ENV{LOG_PETIT};
$minus_log=$ENV{LOG_MINUS};

open GROS,">> ${gros_log}";
open PETIT,">> ${petit_log}";
open MINUS,"| sort -u >> ${minus_log}";

my $vu_warning=0;
while($ligne=<STDIN>){
    print GROS $ligne;
    if ( $vu_warning==1 or $ligne =~ m/(warning)|(error)|(^!)|(\*\*)|(doing)/oi)
    { 
	if ($vu_warning==0 and $ligne=~/(warning)|(error)/oi)
	{
	    $vu_warning=1
	    };
	print PETIT $ligne; 
	print $ligne; 
    };
    if ($vu_warning==1 or $ligne=~ m/(warning)|(error)|(^!)/oi)
    { 
	print MINUS $ligne; 
    };
};

close GROS;
close PETIT;
close MINUS;