git.rot13.org Git - pxelator/blob - lib/PXElator/kvm.pm

   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/ }
  14
  15 sub monitor {
  16         exec "xterm -e nc $server::ip 10000";
  17 }
  18
  19 sub actions { qw/reset/ }
  20
  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 use network;
  28
  29 sub start {
  30
  31         warn 'tap ', network::tap();
  32
  33         my $kvm = qq|
  34                 vdeq kvm -m $memory_size -net nic,vlan=1,macaddr=$mac
  35                 -net vde,vlan=1,sock=/var/run/vde2/tap0.ctl
  36                 -boot n
  37                 -monitor $monitor
  38         |;
  39         $kvm =~ s{\s+}{ }gs;
  40
  41         warn $kvm;
  42         exec $kvm;
  43
  44 }
  45
  46 warn 'loaded';
  47
  48 1;