romenskiy2012/curl
1
0
Fork 0
mirror of https://github.com/curl/curl.git synced 2026-08-02 15:20:29 +03:00
Code Issues Projects Releases Packages 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
Download patch file Download diff file Expand all files Collapse all files

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;