--- lib/PXElator/kvm.pm 2009/07/31 16:47:15 80 +++ lib/PXElator/kvm.pm 2009/07/31 18:16:14 88 @@ -4,49 +4,32 @@ use strict; use autodie; -use File::Slurp; - use server; -our $debug = server::debug; - -my $interfaces = read_file '/etc/network/interfaces'; - -if ( $interfaces !~ m{tap0.*$server::ip}s ) { - - system "sudo apt-get install vde2"; - - $interfaces .= qq{ - -iface tap0 inet static - address $server::ip - netmask $server::netmask - vde2-switch - - - }; - - write_file '/etc/network/interfaces', $interfaces; - -} - -if ( grep /tap0/, read_file '/proc/net/dev' ) { - warn "tap0 started"; -} else { - system "sudo ifup tap0"; -} - our $memory_size = 512; 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 start_fork { qw/monitor/ } sub monitor { exec "xterm -e nc $server::ip 10000"; } +sub actions { qw/reset/ } + +sub reset { + my $sock = IO::Socket::INET->new( $server::ip .':10000' ); + print $sock "system_reset\n"; + close $sock; +} + +use network; + sub start { + warn 'tap ', network::tap(); + my $kvm = qq| vdeq kvm -m $memory_size -net nic,vlan=1,macaddr=$mac -net vde,vlan=1,sock=/var/run/vde2/tap0.ctl