moparisthebest/curl
1
0
Fork 0
mirror of https://github.com/moparisthebest/curl synced 2024-12-22 08:08:50 -05:00
Code Issues Releases Wiki Activity

Temporary change to better debug startup failures

Browse Source 
of test suite ssh and socks servers.
This commit is contained in:
Yang Tse 2007-11-26 02:45:24 +00:00
parent 8d3964782a
commit d59841618d
2 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
tests/runtests.pl
View File

@ -1116,6 +1116,9 @@ sub runsocksserver {
# it is NOT alive
logmsg "RUN: failed to start the SOCKS server\n";
# failed to talk to it properly. Kill the server and return failure
logmsg "=== Start of file log/ssh.log\n";
displaylogcontent("log/ssh.log");
logmsg "=== End of file log/ssh.log\n";
logmsg "TRACESSH:runsocksserver: calling stopserver with sshpid: $sshpid pid2: $pid2\n";
stopserver("$sshpid $pid2");
$doesntrun{$pidfile} = 1;

12
tests/sshserver.pl
View File

@ -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;