···

       
21
       
21
       
 
       
    my ($class, $args) = @_;

     

       
22
       
22
       
 
       


     

       
23
       
23
       
 
       
    my $startCommand = $args->{startCommand};

     

       
24
       
24
       
-
       
    

     

       
24
       
24
       
+
       


     

       
25
       
25
       
 
       
    my $name = $args->{name};

     

       
26
       
26
       
 
       
    if (!$name) {

     

       
27
       
27
       
 
       
        $startCommand =~ /run-(.*)-vm$/ if defined $startCommand;

     
···

       
34
       
34
       
 
       
            "qemu-kvm -m 384 " .

     

       
35
       
35
       
 
       
            "-net nic,model=virtio \$QEMU_OPTS ";

     

       
36
       
36
       
 
       
        my $iface = $args->{hdaInterface} || "virtio";

     

       
37
       
37
       
-
       
        $startCommand .= "-drive file=" . Cwd::abs_path($args->{hda}) . ",if=$iface,boot=on,werror=report "

     

       
37
       
37
       
+
       
        $startCommand .= "-drive file=" . Cwd::abs_path($args->{hda}) . ",if=$iface,werror=report "

     

       
38
       
38
       
 
       
            if defined $args->{hda};

     

       
39
       
39
       
 
       
        $startCommand .= "-cdrom $args->{cdrom} "

     

       
40
       
40
       
 
       
            if defined $args->{cdrom};

     
···

       
171
       
171
       
 
       


     

       
172
       
172
       
 
       
    eval {

     

       
173
       
173
       
 
       
        local $SIG{CHLD} = sub { die "QEMU died prematurely\n"; };

     

       
174
       
174
       
-
       
        

     

       
174
       
174
       
+
       


     

       
175
       
175
       
 
       
        # Wait until QEMU connects to the monitor.

     

       
176
       
176
       
 
       
        accept($self->{monitor}, $monitorS) or die;

     

       
177
       
177
       
 
       


     
···

       
182
       
182
       
 
       
        $self->{socket}->autoflush(1);

     

       
183
       
183
       
 
       
    };

     

       
184
       
184
       
 
       
    die "$@" if $@;

     

       
185
       
185
       
-
       
    

     

       
185
       
185
       
+
       


     

       
186
       
186
       
 
       
    $self->waitForMonitorPrompt;

     

       
187
       
187
       
 
       


     

       
188
       
188
       
 
       
    $self->log("QEMU running (pid $pid)");

     

       
189
       
189
       
-
       
    

     

       
189
       
189
       
+
       


     

       
190
       
190
       
 
       
    $self->{pid} = $pid;

     

       
191
       
191
       
 
       
    $self->{booted} = 1;

     

       
192
       
192
       
 
       
}

     
···

       
241
       
241
       
 
       
        alarm 300;

     

       
242
       
242
       
 
       
        readline $self->{socket} or die "the VM quit before connecting\n";

     

       
243
       
243
       
 
       
        alarm 0;

     

       
244
       
244
       
-
       
        

     

       
244
       
244
       
+
       


     

       
245
       
245
       
 
       
        $self->log("connected to guest root shell");

     

       
246
       
246
       
 
       
        $self->{connected} = 1;

     

       
247
       
247
       
 
       


     
···

       
270
       
270
       
 
       


     

       
271
       
271
       
 
       
sub execute_ {

     

       
272
       
272
       
 
       
    my ($self, $command) = @_;

     

       
273
       
273
       
-
       
    

     

       
273
       
273
       
+
       


     

       
274
       
274
       
 
       
    $self->connect;

     

       
275
       
275
       
 
       


     

       
276
       
276
       
 
       
    print { $self->{socket} } ("( $command ); echo '|!=EOF' \$?\n");

     
···

       
453
       
453
       
 
       
sub crash {

     

       
454
       
454
       
 
       
    my ($self) = @_;

     

       
455
       
455
       
 
       
    return unless $self->{booted};

     

       
456
       
456
       
-
       
    

     

       
456
       
456
       
+
       


     

       
457
       
457
       
 
       
    $self->log("forced crash");

     

       
458
       
458
       
 
       


     

       
459
       
459
       
 
       
    $self->sendMonitorCommand("quit");