prepareProject.pl

#!/opt/local/bin/perl -w

use strict;
use File::Copy;
my $projectDir;
my @projectDirectories;

main();

sub main {
  validateArgs();
  transformEachProjectDirectory();  
}

sub transformEachProjectDirectory {
  # open the project directory and read all of the
  # directories within it.
  opendir(PROJ_DIR, $projectDir);

  my @allFiles = readdir(PROJ_DIR);

  foreach my $currFile (@allFiles) {
    if (-d "$projectDir/$currFile" && $currFile !~ /^\./) {
      push(@projectDirectories, $currFile);
    }
  } 

  foreach my $currProj (@projectDirectories) {
    transformProjectDir("$projectDir/$currProj");
  }

  closedir(PROJ_DIR);
}	

sub transformProjectDir {
  my ($currProjDir) = @_;
  print "Current project Directory: $currProjDir\n";

  createTrunkDir($currProjDir);
  mkdir("$currProjDir/branches");
  mkdir("$currProjDir/tags");

  # handle the initial tag dir.
  my $initialTagDir = "$currProjDir/tags/v-0-initialImport";
  mkdir($initialTagDir);
  system("cp -r $currProjDir/trunk/* $initialTagDir");

}

sub createTrunkDir {
  my ($currProjDir) = @_;

  # build the list of files and directories that exist in the current project directory
  opendir(CURR_PROJ_DIR, $currProjDir);
  my @allFiles = readdir(CURR_PROJ_DIR);
  my $trunkDir = "$currProjDir/trunk";
  mkdir("$trunkDir");
  mkdir("$trunkDir/logs");
  mkdir("$trunkDir/data");

  # move all of the files into the trunkDir
  foreach my $currFile (@allFiles) {
    my $fullPathCurrFile = "$currProjDir/$currFile";
    if (-d $fullPathCurrFile && $currFile !~ /^\./) {
      move($fullPathCurrFile, "$trunkDir/$currFile");
    } else {
      move($fullPathCurrFile, $trunkDir);  
    }
  } 
  closedir(CURR_PROJ_DIR);
}

sub validateArgs {
  my $argSize = @ARGV;
  if ($argSize != 1) {
    print "usage: prepareProject.pl <directoryOfProjects>\n"; 
    exit(0);
  }

  $projectDir = $ARGV[0];
}