christoph/failnix
1
Fork 0
Code Releases Activity

fix screen old session termination bug + db.conf rewriting bug

Browse Source
This commit is contained in:
Christoph Urlacher
2026-04-17 22:13:31 +02:00
parent 0d168bf759
commit a10f04c83e
2 changed files with 14 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
scripts/deploy.pl
View File

@ -105,16 +105,19 @@ foreach (@db_names) { say " - $_"; }
# Create dbs for new experiments
say 'Creating databases...';
foreach (@experiments) {
say "Creating database $db_prefix\_$_...";
say " - Creating database $db_prefix\_$_...";
$dbh->do("create database `$db_prefix\_$_`")
or die "Failed to create database: " . $dbh->errstr;
}
# Kill old screen session
remote( $ssh, "screen", "-S", $screen_name, "-X", "quit" );
# 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 = "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" );