29 |
} |
} |
30 |
|
|
31 |
sub serial { |
sub serial { |
|
my $nr = $ENV{nr} || 0; |
|
32 |
x11::xterm( 'serial ' . nr() => 'nc ' . port(11000,' ') ); |
x11::xterm( 'serial ' . nr() => 'nc ' . port(11000,' ') ); |
33 |
} |
} |
34 |
|
|
69 |
system "brctl addif virtual $ifname" |
system "brctl addif virtual $ifname" |
70 |
unless `brctl show` =~ m{$ifname}; |
unless `brctl show` =~ m{$ifname}; |
71 |
|
|
72 |
|
my $name = client::conf( client::ip_from_mac $mac, 'hostname' ); |
73 |
|
$name ||= $nr; |
74 |
|
|
75 |
my $kvm = qq| |
my $kvm = qq| |
76 |
kvm -m $memory_size -net nic,macaddr=$mac |
kvm |
77 |
|
-name "$name" |
78 |
|
-m $memory_size -net nic,macaddr=$mac |
79 |
-net tap,ifname=$ifname,script=no |
-net tap,ifname=$ifname,script=no |
80 |
-boot n |
-boot n |
81 |
-monitor tcp:$mon,server,nowait |
-monitor tcp:$mon,server,nowait |
82 |
-serial tcp:$ser,server,nowait |
-serial tcp:$ser,server,nowait |
83 |
|; |
|; |
84 |
|
|
85 |
|
$kvm .= ' -vnc ' . port(0,':') unless $ENV{DISPLAY}; |
86 |
|
|
87 |
# -runas $server::user |
# -runas $server::user |
88 |
$kvm =~ s{\s+}{ }gs; |
$kvm =~ s{\s+}{ }gs; |
89 |
|
|