9 |
use log; |
use log; |
10 |
use server; |
use server; |
11 |
|
|
12 |
|
our $debug = server::debug; |
13 |
|
|
14 |
my $screenrc = '/tmp/screenrc'; |
my $screenrc = '/tmp/screenrc'; |
15 |
|
|
16 |
sub screen_daemon { |
sub screen_daemon { |
40 |
| |
| |
41 |
. screen_daemon('dhcpd') |
. screen_daemon('dhcpd') |
42 |
. screen_daemon('tftpd') |
. screen_daemon('tftpd') |
43 |
. screen_daemon('httpd') |
#. screen_daemon('httpd') |
44 |
. qq|remove|; |
. qq|remove|; |
45 |
; |
; |
46 |
|
|
47 |
print "screenrc $screenrc ", -s $screenrc; |
warn "screenrc $screenrc ", -s $screenrc; |
48 |
|
|
49 |
sub start { |
sub start { |
50 |
|
|