Changeset 152 in ProjectBuilder for devel/pb/bin

Timestamp:

Sep 27, 2007, 11:45:12 PM (17 years ago)

Author:

Bruno Cornec

Message:

Adds the possibility to connect to the VM using a given account (useful for root access)

File:

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

devel/pb/bin/pb

@@ -42 +42 @@
 my $pbdatecvs = strftime("%Y-%m-%d %H:%M:%S", @date);
 my $debug = 0;
+my $pbaccount;              # Login to use to connect to the VM
 my $LOG = \*STDOUT;
 
-getopts('hl:m:p:qr:s:tv',\%opts);
+getopts('a:hl:m:p:qr:s:tv',\%opts);
 
 my ($projectbuilderver,$projectbuilderrev) = pb_version_init();
@@ -79 +80 @@
 if (defined $opts{'s'}) {
     $pbscript = $opts{'s'};
+}
+if (defined $opts{'a'}) {
+    $pbaccount = $opts{'a'};
 }
 
@@ -480 +484 @@
     my ($sshhost,$sshlogin,$sshdir,$sshport) = pb_conf_get($host,$login,$dir,$port);
     my $mac = "$sshlogin->{$ENV{'PBPROJ'}}\@$sshhost->{$ENV{'PBPROJ'}}";
+    # Overwrite account value if passed as parameter
+    $mac = "$pbaccount\@$sshhost->{$ENV{'PBPROJ'}}" if (defined $pbaccount);
     my $tdir;
     my $bdir;
@@ -732 +738 @@
     print "pb (aka project-builder) Version $projectbuilderver-$projectbuilderrev\n";
     print "\n";
-    print "Syntax: pb [-vhqt][-r pbroot][-p project][[-s script] -m \"mach-1[,...]\"] <action> [<pkg1>...]\n";
+    print "Syntax: pb [-vhqt][-r pbroot][-p project][[-s script -a account] -m \"mach-1[,...]\"] <action> [<pkg1>...]\n";
     print "\n";
     print "-h : This help file\n";
@@ -746 +752 @@
     print "             to execute on the related VMs.\n";
     print "\n";
+    print "-a account : Name of the account to use\n";
+    print "             to connect on the related VMs.\n";
+    print "\n";
     print "-p project : Name of the project you're working on\n";
     print "             (or use the env variable PBPROJ)     \n";