From d59841618d79385ccc151025d8035ea11acbbdac Mon Sep 17 00:00:00 2001
From: Yang Tse <yangsita@gmail.com>
Date: Mon, 26 Nov 2007 02:45:24 +0000
Subject: Temporary change to better debug startup failures of test suite ssh
 and socks servers.

---
 tests/sshserver.pl | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'tests/sshserver.pl')

diff --git a/tests/sshserver.pl b/tests/sshserver.pl
index 049200941..103ab142a 100644
--- a/tests/sshserver.pl
+++ b/tests/sshserver.pl
@@ -13,6 +13,7 @@ use strict;
 use File::Spec;
 
 my $verbose=0; # set to 1 for debugging
+my $showfiles=0;
 
 my $port = 8999;        # just our default, weird enough
 my $listenaddr = "127.0.0.1"; # address on which to listen
@@ -136,12 +137,18 @@ chomp($tmpstr = qx($sshd -V 2>&1 | grep OpenSSH));
 if ($tmpstr =~ /OpenSSH[_-](\d+)\.(\d+)(\.(\d+))*/) {
     ($ssh_ver_major, $ssh_ver_minor, $ssh_ver_patch) = ($1, $2, $4);
     $ssh_daemon = 'OpenSSH';
+    if(10 * $ssh_ver_major + $ssh_ver_minor == 36) {
+        $showfiles=1;
+    }
 }
 if(!$ssh_daemon) {
     chomp($tmpstr = qx($sshd -V 2>&1 | grep Sun_SSH));
     if($tmpstr =~ /Sun[_-]SSH[_-](\d+)\.(\d+)/) {
         ($ssh_ver_major, $ssh_ver_minor) = ($1, $2);
         $ssh_daemon = 'SunSSH';
+        if(10 * $ssh_ver_major + $ssh_ver_minor == 11) {
+            $showfiles=1;
+        }
     }
 }
 if ($verbose) {
@@ -322,6 +329,11 @@ elsif ($verbose && ($cmdretval >> 8)) {
     printf("$sshd exited with %d \n", $cmdretval >> 8);
 }
 
+if($showfiles) {
+    displayfile("log/sshd.log");
+    displayfile("$conffile");
+}
+
 unlink $conffile;
 
 exit $cmdretval >> 8;
-- 
cgit v1.2.3