ccc

   1 #!/usr/bin/env perl
   2
   3 #=======================================================================
   4 # ccc
   5 # File ID: 39f48fea-5d37-11df-a444-90e6ba3022ac
   6 # Mer oversiktlig cvs stat
   7 #=======================================================================
   8
   9 use strict;
  10 use warnings;
  11
  12 my ($FileLine, $WorkLine, $RepLine) =
  13    (       "",        "",       "");
  14
  15 open(FP, "cvs -n stat 2>/dev/null |") || die("Cannot open cvs pipe");
  16
  17 while (<FP>) {
  18     chomp;
  19     if (/^\?/) {
  20         print "$_\n";
  21     } else {
  22         if (/^File: /) {
  23             $FileLine = $_;
  24         }
  25         if (/^\s+Working/) {
  26             $WorkLine = $_;
  27         }
  28         if (/^\s+Repository/) {
  29             $RepLine = $_;
  30             unless ($FileLine =~ /Up-to-date$/) {
  31                 print "----\n$FileLine\n$WorkLine\n$RepLine\n";
  32                 $FileLine = "";
  33                 $RepLine = "";
  34                 $WorkLine = "";
  35             }
  36         }
  37     }
  38 }
  39
  40 #### End of file ccc ####