Changeset 776 in ProjectBuilder for devel/pb/bin/pb

Timestamp:

May 5, 2009, 3:35:05 AM (15 years ago)

Author:

Bruno Cornec

Message:

• Fix for VMbuild case only and not other VM type
• Trying to improve VM snapshot, but still more work to do

File:

• devel/pb/bin/pb (modified) (3 diffs)

devel/pb/bin/pb

@@ -1328 +1328 @@
         $cpcmd = "scp -i $keyfile -p -o UserKnownHostsFile=/dev/null -P $nport";
         $cptarget = "$mac:$tdir";
-        if ($cmt =~ /^VM/) {
+        if ($cmt =~ /^VMbuild/) {
             $cp2target = "$mac:$bdir";
         }
@@ -1423 +1423 @@
             if ((($vmtype->{$ENV{'PBPROJ'}}) eq "kvm") || (($vmtype->{$ENV{'PBPROJ'}}) eq "qemu")) {
                 use Net::Telnet;
-                my $t = new Net::Telnet (Timeout => 10, Host => "localhost", Port => $vmmonport->{$ENV{'PBPROJ'}}) || die "Unable to dialog on the monitor";
+                my $t = new Net::Telnet (Timeout => 120, Host => "localhost", Port => $vmmonport->{$ENV{'PBPROJ'}}) || die "Unable to dialog on the monitor";
                 # move to monitor mode
                 my @lines = $t->cmd("c");
@@ -2333 +2333 @@
     print SCRIPT << 'EOF';
     #!/bin/bash
-    
-EOF
-    if ($vtype eq "vm") {
-        print SCRIPT "sleep 120\n";
-    } else {
-        print SCRIPT "sleep 1\n";
-    }
-
+    sleep 2
+EOF
     close(SCRIPT);
     chmod 0755,"$pbscript";