configure kvm.bin so we can call qemu-system-i386 if needed

[pxelator] / lib / PXElator / kvm.pm

diff --git a/lib/PXElator/kvm.pm b/lib/PXElator/kvm.pm
index 558cc4d..5cbc0bc 100644 (file)
--- a/lib/PXElator/kvm.pm
+++ b/lib/PXElator/kvm.pm
@@ -74,10 +74,11 @@ sub start {
        my $name = client::conf( $ip, 'hostname' );
        $name ||= $nr;
 
+       my $kvm_bin = client::conf( $ip => 'kvm.bin' ) || 'kvm';
        my $boot = client::conf( $ip, 'kvm.boot' ) || 'n'; # network by default
 
        my $kvm = qq|
-               kvm
+               $kvm_bin
                -name "$name"
                -m $memory_size -net nic,macaddr=$mac
                -net tap,ifname=$ifname,script=no
@@ -98,7 +99,7 @@ sub start {
 
 sub nr_from_mac {
        my $mac = shift;
-       $mac =~ s{^.+:([0-9a-f]{2})$}{hex($1)}e;
+       $mac =~ s<^.+:([0-9a-f]{2})$><hex($1)>e;
        $mac;
 }