/[pxelator]/lib/PXElator/kvm.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Contents of /lib/PXElator/kvm.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 289 - (show annotations)
Tue Aug 25 17:39:28 2009 UTC (14 years, 7 months ago) by dpavlin
File size: 1357 byte(s)
added serial port
1 package kvm;
2
3 use warnings;
4 use strict;
5 use autodie;
6
7 use server;
8
9 use Data::Dump qw/dump/;
10
11 our $memory_size = 512;
12
13 # AC = private, AD = multicast, AE = local
14
15 our $nr = 0;
16
17 sub port {
18 my ($port,$del) = @_;
19 $port += $nr;
20 return join( $del, $server::ip, $port );
21 }
22
23 sub fork_if_active { qw/monitor serial/ }
24
25 use x11;
26
27 sub monitor {
28 x11::xterm( "monitor $nr" => 'nc ' . port(10000,' ') );
29 }
30
31 sub serial {
32 x11::xterm( "serial $nr" => 'nc ' . port(11000,' ') );
33 }
34
35 sub actions { qw/reset activate/ }
36
37 sub reset {
38 my $sock = IO::Socket::INET->new( port(10000,':') );
39 print $sock "system_reset\n";
40 close $sock;
41 }
42
43 sub activate {
44 system "xdotool windowactivate `xdotool search --class kvm`"
45 }
46
47 sub start {
48 my $nr = shift || 0;
49
50 my $mac = sprintf('AC:DE:48:00:00:%02x', $nr);
51 my $mon = port(10000,':');
52 my $ser = port(11000,':');
53
54 my $ifname = 'kvm0';
55
56 # system "ifconfig $ifname down";
57 # system "brctl delif virtual $ifname";
58 # system "tunctl -d $ifname";
59
60 system "tunctl -t $ifname"; # -u $server::user
61 system "ifconfig $ifname up";
62 system "brctl addif virtual $ifname";
63
64 my $kvm = qq|
65 kvm -m $memory_size -net nic,macaddr=$mac
66 -net tap,ifname=$ifname,script=no
67 -boot n
68 -monitor tcp:$mon,server,nowait
69 -serial tcp:$ser,server,nowait
70 |;
71 # -runas $server::user
72 $kvm =~ s{\s+}{ }gs;
73
74 warn $kvm;
75 exec $kvm;
76
77 }
78
79 warn 'loaded';
80
81 1;

  ViewVC Help
Powered by ViewVC 1.1.26