lib/PXElator/kvm.pm

package kvm;

use warnings;
use strict;
use autodie;

use server;

our $memory_size = 512;
our $mac = 'AC:DE:48:00:00:01'; # AC = private, AD = multicast, AE = local
our $monitor = 'tcp:' . $server::ip . ':10000,server,nowait';

sub start_options { qw/monitor/ }

sub monitor {
        exec "xterm -e nc $server::ip 10000";
}

use network;

sub start {

        network::tap();

        my $kvm = qq|
                vdeq kvm -m $memory_size -net nic,vlan=1,macaddr=$mac
                -net vde,vlan=1,sock=/var/run/vde2/tap0.ctl
                -boot n
                -monitor $monitor
        |;
        $kvm =~ s{\s+}{ }gs;

        warn $kvm;
        exec $kvm;

}

warn 'loaded';

1;
1	dpavlin	54	package kvm;
2
3			use warnings;
4			use strict;
5			use autodie;
6
7			use server;
8
9			our $memory_size = 512;
10	dpavlin	62	our $mac = 'AC:DE:48:00:00:01'; # AC = private, AD = multicast, AE = local
11	dpavlin	80	our $monitor = 'tcp:' . $server::ip . ':10000,server,nowait';
12	dpavlin	54
13	dpavlin	80	sub start_options { qw/monitor/ }
14
15			sub monitor {
16			exec "xterm -e nc $server::ip 10000";
17			}
18
19	dpavlin	82	use network;
20
21	dpavlin	54	sub start {
22
23	dpavlin	82	network::tap();
24
25	dpavlin	54	my $kvm = qq\|
26			vdeq kvm -m $memory_size -net nic,vlan=1,macaddr=$mac
27			-net vde,vlan=1,sock=/var/run/vde2/tap0.ctl
28			-boot n
29	dpavlin	80	-monitor $monitor
30	dpavlin	54	\|;
31	dpavlin	80	$kvm =~ s{\s+}{ }gs;
32	dpavlin	56
33	dpavlin	54	warn $kvm;
34	dpavlin	56	exec $kvm;
35	dpavlin	54
36			}
37
38			warn 'loaded';
39
40			1;