diff --git a/SLS b/SLS index 32a5c8ef041e5d981347d7c5a1c50fe99a26b1ab..8b75394a8c551b128a3616760b71ce5f2287116d 100755 --- a/SLS +++ b/SLS @@ -2,7 +2,7 @@ # # find or create screen session # -# $Id: SLS,v 1.3 2012/12/14 13:35:38 gonter Exp $ +# $Id: SLS,v 1.4 2022/04/15 15:46:06 gonter Exp $ # =pod @@ -93,12 +93,14 @@ if (@PARS) print ">>> $cmd_title\n"; system ($cmd_title) if ($doit); - my $cmd_screen= "screen -S '$wanted'"; - print ">>> $cmd_screen\n"; + my @cmd_screen= ('screen', '-S', $wanted); + my $rc_wanted= ".screenrc-$wanted"; + push (@cmd_screen, '-c', $rc_wanted) if (-f $rc_wanted); + print ">>> ", join(' ', @cmd_screen), "\n"; if ($doit) { if (!$dir_changed && $wanted =~ /notes/i) { &chdir ("common/Notes"); $dir_changed= 1; } - system ($cmd_screen); + system (@cmd_screen); } } elsif ($cnt == 1)