ccc

#!/usr/bin/env perl

#=======================================================================
# ccc
# File ID: 39f48fea-5d37-11df-a444-90e6ba3022ac
# Mer oversiktlig cvs stat
#=======================================================================

use strict;
use warnings;

my ($FileLine, $WorkLine, $RepLine) =
   (       "",        "",       "");

open(FP, "cvs -n stat 2>/dev/null |") || die("Cannot open cvs pipe");

while (<FP>) {
    chomp;
    if (/^\?/) {
        print "$_\n";
    } else {
        if (/^File: /) {
            $FileLine = $_;
        }
        if (/^\s+Working/) {
            $WorkLine = $_;
        }
        if (/^\s+Repository/) {
            $RepLine = $_;
            unless ($FileLine =~ /Up-to-date$/) {
                print "----\n$FileLine\n$WorkLine\n$RepLine\n";
                $FileLine = "";
                $RepLine = "";
                $WorkLine = "";
            }
        }
    }
}

#### End of file ccc ####