christoph/failnix
1
Fork 0
Code Releases Activity

invoke runner without screen + add log file

Browse Source
This commit is contained in:
Christoph Urlacher
2026-04-18 11:36:47 +02:00
parent 959c9a8bee
commit b141ba1e38
1 changed files with 15 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
scripts/deploy.pl
View File

@ -34,6 +34,7 @@ my $remote_root = '/home/lab/smchurla/Documents/failnix';
my $remote_db_conf = "$remote_root/db.conf"; my $remote_db_conf = "$remote_root/db.conf";
my $remote_builds_dir = "$remote_root/builds"; my $remote_builds_dir = "$remote_root/builds";
my $remote_runner = "$remote_root/scripts/runner.pl"; my $remote_runner = "$remote_root/scripts/runner.pl";
my $remote_log = "$remote_root/runner.log";
# The mars db is bound to local port 3306 over SSH. # The mars db is bound to local port 3306 over SSH.
# - This requires using the configured 'mars' # - This requires using the configured 'mars'
@ -111,15 +112,22 @@ foreach (@experiments) {
} }
# Kill old screen session (don't check success as a session might not exist) # Kill old screen session (don't check success as a session might not exist)
say "Killing previous screen session with name $screen_name"; # say "Killing previous screen session with name $screen_name";
$ssh->system( "screen", "-XS", $screen_name, "quit" ); # $ssh->system( "screen", "-XS", $screen_name, "quit" );
# Start new screen session # Start new screen session
my $invoke_runner = "perl " . shell_quote($remote_runner); # my $invoke_runner =
say # "cd " . shell_quote($remote_root) . " && perl " . shell_quote($remote_runner);
"Starting new screen session with name $screen_name and command $invoke_runner"; # say
remote( $ssh, "screen", "-dmS", $screen_name, "sh", "-lc", # "Starting new screen session with name $screen_name and command $invoke_runner";
"exec $invoke_runner" ); # remote( $ssh, "screen", "-dmS", $screen_name, "sh", "-lc",
# "exec $invoke_runner" );
remote( $ssh,
"nohup sh -c "
. shell_quote("cd $remote_root && perl $remote_runner") . " >"
. shell_quote($remote_log)
. " 2>&1 < /dev/null &" );
say "Started remote runner for ", scalar(@experiments), " experiments"; say "Started remote runner for ", scalar(@experiments), " experiments";