#!/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}";

while($ligne=<STDIN>){
    print GROS $ligne;
    if ($ligne=~ m/(error)|(^!)|(=====)/oi or ($ligne=~ m/warning/oi and $ligne !~ m/(reference)|(citation)/oi ))
    { 
	print PETIT $ligne; 
	print $ligne; 
    };
    if ($ligne=~ m/(error)|(^!)/oi or ($ligne=~ m/warning/oi and $ligne !~ m/(reference)|(citation)/oi ))
    { 
	print MINUS $ligne; 
    };
};

close GROS;
close PETIT;
close MINUS;