#! @PERL@ -w
# @configure_input@
# @(#)$CVSHeader: mkamm/scripts/cvsweb-converters/commitlog2cvsweb-check.pl.in,v 1.6 2004/08/20 17:00:17 martin Exp $
# Helper script for testing the parser of commitlog2cvsweb with debuglevel 3

require 5.003 ;
use strict ;
use integer ;

my ( $err, $strange, $off ) = ( 0, 0, 0 ) ;

while (<>) {
    if ( $. == 1 && /==>/ ) {
	$off++ ;
	print ;
	next ;
    }
    if (/commit messages/) {
	$off++ ;
	print ;
	next ;
    }
    if ( ( $. + $off ) % 2 ) {
	if ( !/^found commit/ ) {
	    print "CHECK $.: $_" ;
	    $err++ ;
	}
    } else {
	if ( !/^(ACC|IMP|NEW|not|too)/ ) {
	    print "CHECK $.: $_" ;
	    $err++ ;
	}
	$strange++ if /\Q???/ ;
    }
}

print "CHECK (EOF): $strange strange records?\n" if $strange ;

exit $err > 1 ? 1 : 0 ;

__END__;

# Local Variables:
# mode: perl
# End:
#EOF#