Add a -P option so that you can give a port name/version, overriding

the default one.

install/boss-install.in

@@ -208,7 +208,7 @@ use Getopt::Std;
 # Handle command-line options
 #
 sub usage {
-    print "Usage: ops-install [-p packagedir]\n";
+    print "Usage: boss-install [-p packagedir] [-P portname]\n";
     exit(1);
 }
 
@@ -217,7 +217,7 @@ my $batchmode  = 0;
 my $password;
 my %opts;
 
-if (! getopts("p:bw:", \%opts)) {
+if (! getopts("P:p:bw:", \%opts)) {
     usage();
 }
 if (defined($opts{p})) {
@@ -229,6 +229,9 @@ if (defined($opts{b})) {
 if (defined($opts{w})) {
     $password = $opts{w};
 }
+if (defined($opts{P})) {
+    $BOSS_PORT = $opts{P};
+}
 
 if (@ARGV) {
     usage();

install/ops-install.in

@@ -52,14 +52,14 @@ use Getopt::Std;
 # Handle command-line options
 #
 sub usage {
-    print "Usage: ops-install [-b] [-p packagedir]\n";
+    print "Usage: ops-install [-b] [-p packagedir] [-P portname]\n";
     exit(1);
 }
 
 my $packagedir = "";
 my $batchmode  = 0;
 my %opts;
-if (! getopts("p:b", \%opts)) {
+if (! getopts("P:p:b", \%opts)) {
     usage();
 }
 if (defined($opts{p})) {
@@ -68,6 +68,9 @@ if (defined($opts{p})) {
 if (defined($opts{b})) {
     $batchmode = 1;
 }
+if (defined($opts{P})) {
+    $OPS_PORT = $opts{P};
+}
 
 if (@ARGV) {
     usage();