46 |
my $mac = sprintf('AC:DE:48:00:00:%02x', $nr); |
my $mac = sprintf('AC:DE:48:00:00:%02x', $nr); |
47 |
my $mon = port(':'); |
my $mon = port(':'); |
48 |
|
|
49 |
|
my $ifname = 'kvm0'; |
50 |
|
|
51 |
|
# system "ifconfig $ifname down"; |
52 |
|
# system "brctl delif virtual $ifname"; |
53 |
|
# system "tunctl -d $ifname"; |
54 |
|
|
55 |
|
system "tunctl -t $ifname"; # -u $server::user |
56 |
|
system "ifconfig $ifname up"; |
57 |
|
system "brctl addif virtual $ifname"; |
58 |
|
|
59 |
my $kvm = qq| |
my $kvm = qq| |
60 |
vdeq kvm -m $memory_size -net nic,vlan=1,macaddr=$mac |
kvm -m $memory_size -net nic,macaddr=$mac |
61 |
-net vde,vlan=1,sock=/var/run/vde2/tap0.ctl |
-net tap,ifname=$ifname,script=no |
62 |
-boot n |
-boot n |
63 |
-monitor tcp:$mon,server,nowait |
-monitor tcp:$mon,server,nowait |
64 |
|; |
|; |
65 |
|
# -runas $server::user |
66 |
$kvm =~ s{\s+}{ }gs; |
$kvm =~ s{\s+}{ }gs; |
67 |
|
|
68 |
warn $kvm; |
warn $kvm; |