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 wireshark/ }

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

sub wireshark {
        exec "sudo wireshark -k -i tap0";
}

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	package kvm;
2
3	use warnings;
4	use strict;
5	use autodie;
6
7	use server;
8
9	our $memory_size = 512;
10	our $mac = 'AC:DE:48:00:00:01'; # AC = private, AD = multicast, AE = local
11	our $monitor = 'tcp:' . $server::ip . ':10000,server,nowait';
12
13	sub start_fork { qw/monitor wireshark/ }
14
15	sub monitor {
16	exec "xterm -fg red -e nc $server::ip 10000";
17	}
18
19	sub wireshark {
20	exec "sudo wireshark -k -i tap0";
21	}
22
23	sub actions { qw/reset window/ }
24
25	sub reset {
26	my $sock = IO::Socket::INET->new( $server::ip .':10000' );
27	print $sock "system_reset\n";
28	close $sock;
29	}
30
31	sub window {
32	system "xdotool windowactivate `xdotool search --class kvm`"
33	}
34
35	use network;
36
37	sub start {
38
39	warn 'tap ', network::tap();
40
41	my $kvm = qq\|
42	vdeq kvm -m $memory_size -net nic,vlan=1,macaddr=$mac
43	-net vde,vlan=1,sock=/var/run/vde2/tap0.ctl
44	-boot n
45	-monitor $monitor
46	\|;
47	$kvm =~ s{\s+}{ }gs;
48
49	warn $kvm;
50	exec $kvm;
51
52	}
53
54	warn 'loaded';
55
56	1;