#!/usr/bin/perl -w
#
# $Revision: 1.2 $ $Date: 2012-07-26 17:11:47-04 $
# $Source: /home/vogelke/bin/RCS/check-logfile,v $
# $Host: sys7.com $
# $UUID: 4250bd25-6c4d-37cb-8f7a-6b284932af4e $
#
#<check-logfile: look for weird stuff like unbalanced preformat tags.

use strict;

my ($spre, $epre) = (0, 0);
my $ch;

while (<>) {
    chomp;

    if (/--([SE])$/) {
        $ch = $1;
        $spre++ if $ch eq 'S';
        $epre++ if $ch eq 'E';

        if (abs($spre - $epre) > 1) {
            print "$ARGV [$.] unbalanced preformat, extra $ch\n";
            ($spre, $epre) = (0, 0);
        }
    }
}

exit(0);