[mosh] Use entries from the configuration file

mobile-shell#431 Initialize options from the configuration file if not present on the command line. Signed-off-by: Earl Chew <[email protected]>
earlchew · Apr 7, 2018 · 373871c · 373871c
1 parent 69f0e60
commit 373871c
Showing 1 changed file with 47 additions and 0 deletions.
diff --git a/scripts/mosh.pl b/scripts/mosh.pl
@@ -629,7 +629,54 @@ sub predict_check {
 
 my @bind_arguments;
 my $userhost = shift;
+my $host = (split(/@/, $userhost))[-1];
 my @command = @ARGV;
+my %hostconfig = %{$configFile->lookupHost($host)};
+
+my %configFileOptions = (
+    'Client'     => \$client,
+    'Server'     => \$server,
+    'Predict'    => \$predict,
+    'Port'       => \$port_request,
+    'Family'     => \$family,
+    'Ssh'        => \@ssh,
+    'TermInit=?' => \$term_init );
+
+foreach my $key (keys %configFileOptions) {
+  my @words = split(/=/, $key);
+  my $name  = $words[0];
+  my $kind  = $words[1];
+  my $var   = $configFileOptions{$key};
+
+  my $vartype = ref($var);
+
+  $kind = '' unless (defined($kind));
+
+  if ($vartype eq 'ARRAY') {
+    unless (@{$var}) {
+      @{$var} = $configFile->lookupOption($name);
+    }
+
+  } elsif ($vartype eq 'SCALAR') {
+    unless (defined ${$var}) {
+
+      ${$var} = $configFile->lookupOption($name);
+
+      if (defined ${$var}) {
+        if ($kind eq '?') {
+          my $yes = uc(${$var}) eq 'YES';
+          my $no  = uc(${$var}) eq 'NO';
+
+          die "Configuration $name must have value yes or no\n"
+              unless ($yes or $no);
+
+          ${$var} = $yes;
+        }
+      }
+    }
+  }
+
+}
 
 $client = 'mosh-client' unless defined($client);
 $server = 'mosh-server' unless defined($server);