16 |
sub screen_daemon { |
sub screen_daemon { |
17 |
my $daemon = shift; |
my $daemon = shift; |
18 |
my $run = "sudo perl -I$server::base_dir/lib/PXElator -I$server::base_dir/lib -M$daemon -e " . $daemon . "::start"; |
my $run = "sudo perl -I$server::base_dir/lib/PXElator -I$server::base_dir/lib -M$daemon -e " . $daemon . "::start"; |
19 |
warn "# $daemon $run\n"; |
warn "screen_daemon $daemon $run\n"; |
20 |
qq| |
qq| |
21 |
|
|
22 |
split |
split |
44 |
. qq|remove|; |
. qq|remove|; |
45 |
; |
; |
46 |
|
|
47 |
warn "screenrc $screenrc ", -s $screenrc; |
warn "screenrc $screenrc ", -s $screenrc if $debug; |
48 |
|
|
49 |
sub start { |
sub start { |
50 |
|
|