/[pxelator]/lib/PXElator/screen.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /lib/PXElator/screen.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 90 by dpavlin, Fri Jul 31 18:26:37 2009 UTC revision 126 by dpavlin, Mon Aug 3 15:06:36 2009 UTC
# Line 16  my $screenrc = '/tmp/screenrc'; Line 16  my $screenrc = '/tmp/screenrc';
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
23    
24  screen -t $daemon $run  screen -t $daemon $run
25  logfile $log::dir/pxelator.$daemon.log  logfile $log::dir/$daemon.log
26  log on  log on
27    
28  focus down  focus down
# Line 40  sessionname PXElator Line 40  sessionname PXElator
40  |  |
41  . screen_daemon('dhcpd')  . screen_daemon('dhcpd')
42  . screen_daemon('tftpd')  . screen_daemon('tftpd')
43    . screen_daemon('dnsd')
44  #. screen_daemon('httpd')  #. screen_daemon('httpd')
45  . qq|remove|;  . qq|remove|;
46  ;  ;
47    
48  warn "screenrc $screenrc ", -s $screenrc;  warn "screenrc $screenrc ", -s $screenrc if $debug;
49    
50  sub start {  sub start {
51    
Legend:
Removed from v.90  
changed lines
  Added in v.126
  ViewVC Help
Powered by ViewVC 1.1.26