Colony

#!/usr/bin/perl

$args = @ARGV;

if ($args < 1) {

    print "usage: ./setup.pl username [subdirectory path]\n";

    exit(0);

}

else {

    $line = $ARGV[0];

    $line2 = $ARGV[1];

    `svn checkout svn+ssh://$line\@roboclub8.frc.ri.cmu.edu/home/svn/colony/$line2`;

}