#!/usr/bin/perl -w
#
# Author: Chris Q
# Date: 12/2004
# Desc: Common CR master util 
#
# Key: [ ] - Not yet started
#      [%] - Partially complete, (known to be broken)
#      [!] - Complete, but undebugged
#      [X] - Complete
#      [?] - Thinking on it (don't know how yet)
#      [-] - Hell with it.
# ToDo:
#    [ ] - Single character switches
#    [X] - Help Link
#    [X] - Empty Variable 
#
# Bugs:
#    [ ] - 
#
# Questions:
#    [ ] - 

use Getopt::Long;
use strict;
use Data::Dumper;
use IO::File;

my ($read,$generate,$help); # option switches
GetOptions (
    "help" => \$help,        
    "read"  => \$read,
    "generate" => \$generate,
);

if (!$read && !$help && !$generate) {
  print "\nMissing Switch. Run with  -help for options.\n";
}

####################################
##           READ LOOP            ##
####################################
if ($read) {
    my $fh2 = new IO::File(";
    my $state2 = join("", @state2);
    
    foreach my $f (@state2) {
        print "File is $f\n"; # swap this with cvs co command
        `cvs co $f`;
    }
}

###################################
##          GEN LOOP             ##
###################################
if ($generate) {
    system ("clear");
    print "Building project config.\n\n";
    
    sub find {
        my ( $dir ) = @_;
        
        my $dh;
        my @theseFiles;                                                                   
        opendir $dh, $dir or return;
        
        while(my $file = readdir $dh )
        {
            next if $file =~ /^\.{1,2}$/;
            my $full_file = "$dir/$file";
            if ( -d $full_file )
            {
                push(@theseFiles,find($full_file));
            }
            else
            {
                push(@theseFiles,$full_file);
            }
        }
        closedir $dh;
        return @theseFiles;
    }

    my @files = find('.');
    
    my @noCvsDirs;
    foreach my $file (@files) {
        push(@noCvsDirs,$file) unless(($file =~ /\/CVS\//) || ($file =~ /\~/));
    }
    
    my $state = join("\n",map { s{^\./}{}; $_} @noCvsDirs);
    
    my $fh = new IO::File(">ccrConfig.cfg");
    die("Checkpoint failed for ccrConfig.cfg - $!\n") unless($fh);
    
    my $bytes = $fh->syswrite($state, length($state));
    $fh->close();
    unless($bytes == length($state)) {
        die("Checkpoint failed, incomplete write for ccrConfig.cfg\n");
    } else {
        print "Saved $bytes bytes into file: ccrConfig.cfg\n";
    }
    exit;
    
} 

###############################
##         Help Loop         ##
###############################

if ($help) {
    system ("clear");

    print "Common Code Repository Utility v1.1\n\n";
    print "|| ccrutil -generate ||\n\n";
    print "Generates a project configuration file named\n";
    print "ccrConfig.cfg to be included in your project.\n";
    print "This file contains a list of all project files\n";
    print "and related CCR includes, omitting temporary\n";
    print "files and CVS control files.\n\n";
    print "|| ccrutil -read ||\n\n";
    print "Reads in a ccrConfig.cfg file from a project,\n";
    print "and checks out any associated files.\n\n";
}