lib/PXElator/screen.pm

package screen;

use warnings;
use strict;
use autodie;

use File::Slurp;

use log;
use server;

our $debug = server::debug;

my $screenrc = '/tmp/screenrc';

sub screen_daemon {
        my $daemon = shift;
        my $run = "sudo perl -I$server::base_dir/lib/PXElator -I$server::base_dir/lib -M$daemon -e " . $daemon . "::start";
        warn "screen_daemon $daemon $run\n";
qq|

split

screen -t $daemon $run
logfile $log::dir/pxelator.$daemon.log
log on

focus down
|}

write_file $screenrc, qq|

autodetach off
altscreen off
defscrollback 10000
startup_message off

sessionname PXElator

|
. screen_daemon('dhcpd')
. screen_daemon('tftpd')
#. screen_daemon('httpd')
. qq|remove|;
;

warn "screenrc $screenrc ", -s $screenrc if $debug;

sub start {

        my $screen="screen -R PXElator -c $screenrc";
        warn $screen;

        chdir $server::base_dir;

        if ( defined $ENV{DISPLAY} ) {
                exec "xterm -fg yellow -e $screen";
        } else {
                exec $screen;
        }

}

1;
1	dpavlin	49	package screen;
2
3			use warnings;
4			use strict;
5			use autodie;
6
7			use File::Slurp;
8
9			use log;
10			use server;
11
12	dpavlin	67	our $debug = server::debug;
13
14	dpavlin	49	my $screenrc = '/tmp/screenrc';
15
16			sub screen_daemon {
17			my $daemon = shift;
18			my $run = "sudo perl -I$server::base_dir/lib/PXElator -I$server::base_dir/lib -M$daemon -e " . $daemon . "::start";
19	dpavlin	95	warn "screen_daemon $daemon $run\n";
20	dpavlin	49	qq\|
21
22			split
23
24			screen -t $daemon $run
25			logfile $log::dir/pxelator.$daemon.log
26			log on
27
28			focus down
29			\|}
30
31			write_file $screenrc, qq\|
32
33			autodetach off
34			altscreen off
35			defscrollback 10000
36			startup_message off
37
38			sessionname PXElator
39
40			\|
41			. screen_daemon('dhcpd')
42			. screen_daemon('tftpd')
43	dpavlin	53	#. screen_daemon('httpd')
44	dpavlin	49	. qq\|remove\|;
45			;
46
47	dpavlin	95	warn "screenrc $screenrc ", -s $screenrc if $debug;
48	dpavlin	49
49			sub start {
50
51			my $screen="screen -R PXElator -c $screenrc";
52			warn $screen;
53
54			chdir $server::base_dir;
55
56			if ( defined $ENV{DISPLAY} ) {
57	dpavlin	90	exec "xterm -fg yellow -e $screen";
58	dpavlin	49	} else {
59			exec $screen;
60			}
61
62			}
63
64			1;