update targets
This commit is contained in:
@ -64,8 +64,6 @@ my $ssh = Net::OpenSSH->new(
|
||||
$ssh->error and die 'SSH connection failed: ' . $ssh->error;
|
||||
say 'Connected to mars.cs.tu-dortmund.de';
|
||||
|
||||
# TODO: Abort if old experiments are still on the server => meaning they're not archived
|
||||
|
||||
# Pull changes
|
||||
# remote( $ssh, 'git', '-C', $remote_root, 'pull' ); # TODO: Requires auth
|
||||
|
||||
@ -111,18 +109,7 @@ foreach (@experiments) {
|
||||
or die "Failed to create database: " . $dbh->errstr;
|
||||
}
|
||||
|
||||
# Kill old screen session (don't check success as a session might not exist)
|
||||
# say "Killing previous screen session with name $screen_name";
|
||||
# $ssh->system( "screen", "-XS", $screen_name, "quit" );
|
||||
|
||||
# Start new screen session
|
||||
# my $invoke_runner =
|
||||
# "cd " . shell_quote($remote_root) . " && perl " . shell_quote($remote_runner);
|
||||
# say
|
||||
# "Starting new screen session with name $screen_name and command $invoke_runner";
|
||||
# remote( $ssh, "screen", "-dmS", $screen_name, "sh", "-lc",
|
||||
# "exec $invoke_runner" );
|
||||
|
||||
# Launch remote runner
|
||||
remote( $ssh,
|
||||
"nohup sh -c "
|
||||
. shell_quote("cd $remote_root && perl $remote_runner") . " >"
|
||||
|
||||
Reference in New Issue
Block a user