9 use Data::Dump qw/dump/;
11 our $memory_size = 512;
13 # AC = private, AD = multicast, AE = local
15 sub nr { $ENV{nr} || 0 };
20 return join( $del, $server::ip, $port );
23 sub fork_if_active { qw/monitor serial/ }
28 x11::xterm( 'monitor ' . nr() => 'nc ' . port(10000,' ') );
32 my $nr = $ENV{nr} || 0;
33 x11::xterm( 'serial ' . nr() => 'nc ' . port(11000,' ') );
36 sub actions { qw/reset activate/ }
39 my $sock = IO::Socket::INET->new( port(10000,':') );
40 print $sock "system_reset\n";
45 system "xdotool windowactivate `xdotool search --class kvm`"
49 my $nr = $ENV{nr} || 0;
51 my $mac = sprintf('AC:DE:48:00:00:%02x', $nr);
52 my $mon = port(10000,':');
53 my $ser = port(11000,':');
55 my $ifname = 'kvm' . $nr;
57 warn "# kvm start $nr $mac $mon $ser $ifname";
59 # system "ifconfig $ifname down";
60 # system "brctl delif virtual $ifname";
61 # system "tunctl -d $ifname";
63 my $ifconfig = `/sbin/ifconfig $ifname`;
65 # FIXME tunctl -u $server::user
66 system "tunctl -t $ifname"
67 unless $ifconfig =~ m{$ifname};
68 system "ifconfig $ifname up"
69 unless $ifconfig =~ m{UP};
70 system "brctl addif virtual $ifname"
71 unless `brctl show` =~ m{$ifname};
73 my $name = client::conf( client::ip_from_mac $mac, 'hostname' );
79 -m $memory_size -net nic,macaddr=$mac
80 -net tap,ifname=$ifname,script=no
82 -monitor tcp:$mon,server,nowait
83 -serial tcp:$ser,server,nowait
85 # -runas $server::user
95 $mac =~ s{^.+:([0-9a-f]{2})$}{hex($1)}e;
100 my @kvms = glob "$server::conf/mac/AC:DE:48:00:00:*";
101 my $nr = nr_from_mac( pop @kvms );