9 use Data::Dump qw/dump/;
11 our $memory_size = 512;
13 # AC = private, AD = multicast, AE = local
19 my $port = 10000 + $nr;
20 return join( $del, $server::ip, $port );
23 sub fork_if_active { qw/monitor/ }
28 x11::xterm( "monitor $nr" => 'nc ' . port(' ') );
31 sub actions { qw/reset activate/ }
34 my $sock = IO::Socket::INET->new( port(':') );
35 print $sock "system_reset\n";
40 system "xdotool windowactivate `xdotool search --class kvm`"
46 my $mac = sprintf('AC:DE:48:00:00:%02x', $nr);
51 # system "ifconfig $ifname down";
52 # system "brctl delif virtual $ifname";
53 # system "tunctl -d $ifname";
55 system "tunctl -t $ifname"; # -u $server::user
56 system "ifconfig $ifname up";
57 system "brctl addif virtual $ifname";
60 kvm -m $memory_size -net nic,macaddr=$mac
61 -net tap,ifname=$ifname,script=no
63 -monitor tcp:$mon,server,nowait
65 # -runas $server::user