Changeset 162 for devel/pb/bin/pb


Ignore:
Timestamp:
Sep 29, 2007, 9:57:43 AM (12 years ago)
Author:
bruno
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • devel/pb/bin/pb

    r158 r162  
    4343my $debug = 0;
    4444my $pbaccount;              # Login to use to connect to the VM
     45my $pbport;                 # Port to use to connect to the VM
    4546my $LOG = \*STDOUT;
    4647
    47 getopts('a:hl:m:p:qr:s:tv',\%opts);
     48getopts('a:hl:m:P:p:qr:s:tv',\%opts);
    4849
    4950my ($projectbuilderver,$projectbuilderrev) = pb_version_init();
     
    8384if (defined $opts{'a'}) {
    8485    $pbaccount = $opts{'a'};
     86}
     87if (defined $opts{'P'}) {
     88    $pbport = $opts{'P'};
    8589}
    8690
     
    488492    # Overwrite account value if passed as parameter
    489493    $mac = "$pbaccount\@$sshhost->{$ENV{'PBPROJ'}}" if (defined $pbaccount);
     494    $port = "$pbport" if (defined $pbport);
    490495    my $tdir;
    491496    my $bdir;
Note: See TracChangeset for help on using the changeset viewer.