/[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 170 by dpavlin, Thu Aug 6 22:11:02 2009 UTC revision 229 by dpavlin, Sun Aug 16 21:35:23 2009 UTC
# Line 20  sub port { Line 20  sub port {
20          return join( $del, $server::ip, $port );          return join( $del, $server::ip, $port );
21  }  }
22    
23  sub start_fork { qw/monitor wireshark/ }  sub fork_if_active { qw/monitor/ }
24    
25  use x11;  use x11;
26    
# Line 28  sub monitor { Line 28  sub monitor {
28          x11::xterm( "monitor $nr" => 'nc ' . port(' ') );          x11::xterm( "monitor $nr" => 'nc ' . port(' ') );
29  }  }
30    
 sub wireshark {  
         exec "wireshark -k -i tap0";  
 }  
   
31  sub actions { qw/reset activate/ }  sub actions { qw/reset activate/ }
32    
33  sub reset {  sub reset {
# Line 50  sub start { Line 46  sub start {
46          my $mac = sprintf('AC:DE:48:00:00:%02x', $nr);          my $mac = sprintf('AC:DE:48:00:00:%02x', $nr);
47          my $mon = port(':');          my $mon = port(':');
48    
49            my $ifname = 'kvm0';
50    
51    #       system "ifconfig $ifname down";
52    #       system "brctl delif virtual $ifname";
53    #       system "tunctl -d $ifname";
54    
55            system "tunctl -t $ifname"; # -u $server::user
56            system "ifconfig $ifname up";
57            system "brctl addif virtual $ifname";
58    
59          my $kvm = qq|          my $kvm = qq|
60                  vdeq kvm -m $memory_size -net nic,vlan=1,macaddr=$mac                  kvm -m $memory_size -net nic,macaddr=$mac
61                  -net vde,vlan=1,sock=/var/run/vde2/tap0.ctl                  -net tap,ifname=$ifname,script=no
62                  -boot n                  -boot n
63                  -monitor tcp:$mon,server,nowait                  -monitor tcp:$mon,server,nowait
64          |;          |;
65            #       -runas $server::user
66          $kvm =~ s{\s+}{ }gs;          $kvm =~ s{\s+}{ }gs;
67    
68          warn $kvm;          warn $kvm;
Legend:
Removed from v.170  
changed lines
  Added in v.229
  ViewVC Help
Powered by ViewVC 1.1.26