#!/usr/bin/perl
#
# Loop through cvs log output and report files where the head and
# tagname are different

use strict;

my $tagName = shift(@ARGV);
my $headVersion;
my $name;
my $tagVersion;

while ( <> ) {
    chop;
    if ( m|^Working file: (.*)$| ) {
        $name = $1;
        $headVersion = "";
        $tagVersion = "";
    } elsif ( m|head: ([\d\.]+)$| ) {
        $headVersion = $1;
    } elsif ( m|${tagName}: ([\d\.]+)$| ) {
        $tagVersion = $1;

        if ( $headVersion eq "" ) {
            die "head not found";
        } elsif ( $headVersion ne $tagVersion ) {
            print "file $name is newer: $headVersion vs. $tagVersion\n";
        }
    }
}