/[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

Diff of /lib/PXElator/kvm.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 225 by dpavlin, Sun Aug 16 00:03:30 2009 UTC revision 289 by dpavlin, Tue Aug 25 17:39:28 2009 UTC
# Line 15  our $memory_size = 512; Line 15  our $memory_size = 512;
15  our $nr = 0;  our $nr = 0;
16    
17  sub port {  sub port {
18          my $del = shift;          my ($port,$del) = @_;
19          my $port = 10000 + $nr;          $port += $nr;
20          return join( $del, $server::ip, $port );          return join( $del, $server::ip, $port );
21  }  }
22    
23  sub fork_if_active { qw/monitor/ }  sub fork_if_active { qw/monitor serial/ }
24    
25  use x11;  use x11;
26    
27  sub monitor {  sub monitor {
28          x11::xterm( "monitor $nr" => 'nc ' . port(' ') );          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/ }  sub actions { qw/reset activate/ }
36    
37  sub reset {  sub reset {
38          my $sock = IO::Socket::INET->new( port(':') );          my $sock = IO::Socket::INET->new( port(10000,':') );
39          print $sock "system_reset\n";          print $sock "system_reset\n";
40          close $sock;          close $sock;
41  }  }
# Line 44  sub start { Line 48  sub start {
48          my $nr = shift || 0;          my $nr = shift || 0;
49    
50          my $mac = sprintf('AC:DE:48:00:00:%02x', $nr);          my $mac = sprintf('AC:DE:48:00:00:%02x', $nr);
51          my $mon = port(':');          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|          my $kvm = qq|
65                  vdeq kvm -m $memory_size -net nic,vlan=1,macaddr=$mac                  kvm -m $memory_size -net nic,macaddr=$mac
66                  -net vde,vlan=1,sock=/var/run/vde2/tap0.ctl                  -net tap,ifname=$ifname,script=no
67                  -boot n                  -boot n
68                  -monitor tcp:$mon,server,nowait                  -monitor tcp:$mon,server,nowait
69                    -serial  tcp:$ser,server,nowait
70          |;          |;
71            #       -runas $server::user
72          $kvm =~ s{\s+}{ }gs;          $kvm =~ s{\s+}{ }gs;
73    
74          warn $kvm;          warn $kvm;
Legend:
Removed from v.225  
changed lines
  Added in v.289
  ViewVC Help
Powered by ViewVC 1.1.26