--- lib/PXElator/kvm.pm 2009/07/30 12:28:49 54 +++ lib/PXElator/kvm.pm 2009/07/31 16:47:15 80 @@ -8,6 +8,8 @@ use server; +our $debug = server::debug; + my $interfaces = read_file '/etc/network/interfaces'; if ( $interfaces !~ m{tap0.*$server::ip}s ) { @@ -34,7 +36,14 @@ } our $memory_size = 512; -our $mac = '52:54:00:00:00:01'; +our $mac = 'AC:DE:48:00:00:01'; # AC = private, AD = multicast, AE = local +our $monitor = 'tcp:' . $server::ip . ':10000,server,nowait'; + +sub start_options { qw/monitor/ } + +sub monitor { + exec "xterm -e nc $server::ip 10000"; +} sub start { @@ -42,10 +51,12 @@ vdeq kvm -m $memory_size -net nic,vlan=1,macaddr=$mac -net vde,vlan=1,sock=/var/run/vde2/tap0.ctl -boot n + -monitor $monitor |; $kvm =~ s{\s+}{ }gs; + warn $kvm; - system $kvm; + exec $kvm; }