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

Timestamp:

Sep 29, 2007, 9:57:43 AM (17 years ago)

Author:

Bruno Cornec

Message:

Allow the usage of another port to communicate with the VM
Example script now mkdir /home if it doesn't exist

File:

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

devel/pb/bin/pb

@@ -43 +43 @@
 my $debug = 0;
 my $pbaccount;              # Login to use to connect to the VM
+my $pbport;                 # Port to use to connect to the VM
 my $LOG = \*STDOUT;
 
-getopts('a:hl:m:p:qr:s:tv',\%opts);
+getopts('a:hl:m:P:p:qr:s:tv',\%opts);
 
 my ($projectbuilderver,$projectbuilderrev) = pb_version_init();
@@ -83 +84 @@
 if (defined $opts{'a'}) {
     $pbaccount = $opts{'a'};
+}
+if (defined $opts{'P'}) {
+    $pbport = $opts{'P'};
 }
 
@@ -488 +492 @@
     # Overwrite account value if passed as parameter
     $mac = "$pbaccount\@$sshhost->{$ENV{'PBPROJ'}}" if (defined $pbaccount);
+    $port = "$pbport" if (defined $pbport);
     my $tdir;
     my $bdir;