/[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 109 by dpavlin, Sun Aug 2 01:23:05 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 42  sessionname PXElator Line 44  sessionname PXElator
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    
# Line 52  sub start { Line 54  sub start {
54          chdir $server::base_dir;          chdir $server::base_dir;
55    
56          if ( defined $ENV{DISPLAY} ) {          if ( defined $ENV{DISPLAY} ) {
57                  exec "xterm -e $screen";                  exec "xterm -fg yellow -e $screen";
58          } else {          } else {
59                  exec $screen;                  exec $screen;
60          }          }
Legend:
Removed from v.61  
changed lines
  Added in v.109
  ViewVC Help
Powered by ViewVC 1.1.26