74 |
my $name = client::conf( $ip, 'hostname' ); |
my $name = client::conf( $ip, 'hostname' ); |
75 |
$name ||= $nr; |
$name ||= $nr; |
76 |
|
|
77 |
|
my $kvm_bin = client::conf( $ip => 'kvm.bin' ) || 'kvm'; |
78 |
my $boot = client::conf( $ip, 'kvm.boot' ) || 'n'; # network by default |
my $boot = client::conf( $ip, 'kvm.boot' ) || 'n'; # network by default |
79 |
|
|
80 |
my $kvm = qq| |
my $kvm = qq| |
81 |
kvm |
$kvm_bin |
82 |
-name "$name" |
-name "$name" |
83 |
-m $memory_size -net nic,macaddr=$mac |
-m $memory_size -net nic,macaddr=$mac |
84 |
-net tap,ifname=$ifname,script=no |
-net tap,ifname=$ifname,script=no |
99 |
|
|
100 |
sub nr_from_mac { |
sub nr_from_mac { |
101 |
my $mac = shift; |
my $mac = shift; |
102 |
$mac =~ s{^.+:([0-9a-f]{2})$}{hex($1)}e; |
$mac =~ s<^.+:([0-9a-f]{2})$><hex($1)>e; |
103 |
$mac; |
$mac; |
104 |
} |
} |
105 |
|
|