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_fork { qw/monitor/ }

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

sub actions { qw/reset window/ }

sub reset {
        my $sock = IO::Socket::INET->new( $server::ip .':10000' );
        print $sock "system_reset\n";
        close $sock;
}

sub window {
        system "xdotool windowactivate `xdotool search --class kvm`"
}

use network;

sub start {

        warn 'tap ', 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	88	sub start_fork { qw/monitor/ }
14	dpavlin	80
15			sub monitor {
16	dpavlin	90	exec "xterm -fg red -e nc $server::ip 10000";
17	dpavlin	80	}
18
19	dpavlin	92	sub actions { qw/reset window/ }
20	dpavlin	88
21			sub reset {
22			my $sock = IO::Socket::INET->new( $server::ip .':10000' );
23			print $sock "system_reset\n";
24			close $sock;
25			}
26
27	dpavlin	92	sub window {
28			system "xdotool windowactivate `xdotool search --class kvm`"
29			}
30
31	dpavlin	82	use network;
32
33	dpavlin	54	sub start {
34
35	dpavlin	85	warn 'tap ', network::tap();
36	dpavlin	82
37	dpavlin	54	my $kvm = qq\|
38			vdeq kvm -m $memory_size -net nic,vlan=1,macaddr=$mac
39			-net vde,vlan=1,sock=/var/run/vde2/tap0.ctl
40			-boot n
41	dpavlin	80	-monitor $monitor
42	dpavlin	54	\|;
43	dpavlin	80	$kvm =~ s{\s+}{ }gs;
44	dpavlin	56
45	dpavlin	54	warn $kvm;
46	dpavlin	56	exec $kvm;
47	dpavlin	54
48			}
49
50			warn 'loaded';
51
52			1;