#!/usr/bin/perl

$/="\r"; # Mac text file 
open (GR, "/Users/jamie/Desktop/GreatRenaming.csv");

while (<GR>) {
    chomp;
    my($oldpackage, $classname, $newpackage, $newdir) = split(',', $_);

    #print "$oldpackage|$classname|$newpackage|$newdir\n";
    
    $oldpackage =~ s/\./\//g; # dots to slashes;
    $newpackage =~ s/\./\//g; # dots to slashes;
    
    $oldpath = 'src/' . $oldpackage . '/' . $classname . '.java';
    $newpathbase = $newdir . $newpackage . '/';
    $newpath = $newpathbase . $classname . '.java';
    
    $temppath = $newpath . "-REFACTORED";

    $move_cmd = "mv $newpath $temppath\n" .
	"svn revert $oldpath\n" .
	"svn mv $oldpath $newpath\n" .
	"mv $temppath $newpath\n\n";
    push(@moves, $move_cmd);

    if (!-d $newpathbase && !$dirs_added{$newpathbase}) {
	print "mkdir -p $newpathbase\n";
	print "svn add $newpathbase\n\n";
	$dirs_added{$newpathbase} = 1;
    }
}
close (GR);

print @moves;