Legend:
- Unmodified
- Added
- Removed
-
devel/pb/bin/pb
r150 r152 42 42 my $pbdatecvs = strftime("%Y-%m-%d %H:%M:%S", @date); 43 43 my $debug = 0; 44 my $pbaccount; # Login to use to connect to the VM 44 45 my $LOG = \*STDOUT; 45 46 46 getopts(' hl:m:p:qr:s:tv',\%opts);47 getopts('a:hl:m:p:qr:s:tv',\%opts); 47 48 48 49 my ($projectbuilderver,$projectbuilderrev) = pb_version_init(); … … 79 80 if (defined $opts{'s'}) { 80 81 $pbscript = $opts{'s'}; 82 } 83 if (defined $opts{'a'}) { 84 $pbaccount = $opts{'a'}; 81 85 } 82 86 … … 480 484 my ($sshhost,$sshlogin,$sshdir,$sshport) = pb_conf_get($host,$login,$dir,$port); 481 485 my $mac = "$sshlogin->{$ENV{'PBPROJ'}}\@$sshhost->{$ENV{'PBPROJ'}}"; 486 # Overwrite account value if passed as parameter 487 $mac = "$pbaccount\@$sshhost->{$ENV{'PBPROJ'}}" if (defined $pbaccount); 482 488 my $tdir; 483 489 my $bdir; … … 732 738 print "pb (aka project-builder) Version $projectbuilderver-$projectbuilderrev\n"; 733 739 print "\n"; 734 print "Syntax: pb [-vhqt][-r pbroot][-p project][[-s script ] -m \"mach-1[,...]\"] <action> [<pkg1>...]\n";740 print "Syntax: pb [-vhqt][-r pbroot][-p project][[-s script -a account] -m \"mach-1[,...]\"] <action> [<pkg1>...]\n"; 735 741 print "\n"; 736 742 print "-h : This help file\n"; … … 746 752 print " to execute on the related VMs.\n"; 747 753 print "\n"; 754 print "-a account : Name of the account to use\n"; 755 print " to connect on the related VMs.\n"; 756 print "\n"; 748 757 print "-p project : Name of the project you're working on\n"; 749 758 print " (or use the env variable PBPROJ) \n";
Note:
See TracChangeset
for help on using the changeset viewer.