/[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 61 by dpavlin, Thu Jul 30 15:47:23 2009 UTC revision 126 by dpavlin, Mon Aug 3 15:06:36 2009 UTC
# Line 9  use File::Slurp; Line 9  use File::Slurp;
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 {
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 38  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    
# Line 52  sub start { Line 55  sub start {
55          chdir $server::base_dir;          chdir $server::base_dir;
56    
57          if ( defined $ENV{DISPLAY} ) {          if ( defined $ENV{DISPLAY} ) {
58                  exec "xterm -e $screen";                  exec "xterm -fg yellow -e $screen";
59          } else {          } else {
60                  exec $screen;                  exec $screen;
61          }          }
Legend:
Removed from v.61  
changed lines
  Added in v.126
  ViewVC Help
Powered by ViewVC 1.1.26