#!/usr/bin/perl print $_[1]; $username = `whoami`; chomp $username; mkdir ("/scratch/$username"); mkdir ("/scratch/$username\/orxonox"); open(SVN_CO, "svn co https://svn.orxonox.net/orxonox/trunk /scratch/$username\/orxonox/trunk |"); while(){ print $_; } chdir("/scratch/$username\/orxonox/trunk"); print "executing autogen.sh"; open( AUTOGEN , "./autogen.sh |"); while(){ print $_; } print "executing configure for tardis"; open(CONFIGURE, "./configure --with-tardis |"); while(){ printf $_; } open(MAKE, "make -j3|"); while() { print $_; }