--- lib/PXElator/screen.pm	2009/07/30 00:08:21	49
+++ lib/PXElator/screen.pm	2009/08/03 15:06:36	126
@@ -9,18 +9,20 @@
 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 "# $daemon $run\n";
+	warn "screen_daemon $daemon $run\n";
 qq|
 
 split
 
 screen -t $daemon $run
-logfile $log::dir/pxelator.$daemon.log
+logfile $log::dir/$daemon.log
 log on
 
 focus down
@@ -38,11 +40,12 @@
 |
 . screen_daemon('dhcpd')
 . screen_daemon('tftpd')
-. screen_daemon('httpd')
+. screen_daemon('dnsd')
+#. screen_daemon('httpd')
 . qq|remove|;
 ;
 
-print "screenrc $screenrc ", -s $screenrc;
+warn "screenrc $screenrc ", -s $screenrc if $debug;
 
 sub start {
 
@@ -52,7 +55,7 @@
 	chdir $server::base_dir;
 
 	if ( defined $ENV{DISPLAY} ) {
-		exec "xterm -e $screen";
+		exec "xterm -fg yellow -e $screen";
 	} else {
 		exec $screen;
 	}