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