Commit 9cbf69ca authored by Yang Tse's avatar Yang Tse
Browse files

Log info for start up failures.

parent c7d2e4c1
Loading
Loading
Loading
Loading
+8 −6
Original line number Original line Diff line number Diff line
@@ -68,6 +68,8 @@ my $certfile="$srcdir/"
            . ($stuncert?"certs/$stuncert":"stunnel.pem");	# stunnel server certificate
            . ($stuncert?"certs/$stuncert":"stunnel.pem");	# stunnel server certificate


my $pidfile="$path/.$proto.pid";	# stunnel process pid file
my $pidfile="$path/.$proto.pid";	# stunnel process pid file
my $logfile="$path/log/stunnel.log";    # stunnel log file
my $loglevel=5;


# find out version info for the given stunnel binary
# find out version info for the given stunnel binary
my $ver_major;
my $ver_major;
@@ -90,20 +92,20 @@ if(!$ver_major) {
elsif($ver_major < 4) {
elsif($ver_major < 4) {
    # stunnel version less than 4.00
    # stunnel version less than 4.00
    $cmd  = "$stunnel -p $certfile -P $pidfile -d $port -r $target_port ";
    $cmd  = "$stunnel -p $certfile -P $pidfile -d $port -r $target_port ";
    $cmd .= "2>/dev/null";
    $cmd .= ">$logfile 2>&1";
}
}
else {
else {
    # stunnel version 4.00 or later
    # stunnel version 4.00 or later
    $cmd  = "$stunnel $conffile ";
    $cmd  = "$stunnel $conffile ";
    $cmd .= "2>/dev/null";
    $cmd .= ">$logfile 2>&1";
    # stunnel configuration file
    # stunnel configuration file
    open(STUNCONF, ">$conffile") || exit 1;
    open(STUNCONF, ">$conffile") || exit 1;
    print STUNCONF "
    print STUNCONF "
	CApath = $path
	CApath = $path
	cert = $certfile
	cert = $certfile
	pid = $pidfile
	pid = $pidfile
	debug = 0
	debug = $loglevel
	output = /dev/null
	output = $logfile
	foreground = yes
	foreground = yes
	
	
	[curltest]
	[curltest]
@@ -120,8 +122,8 @@ if($verbose) {
	CApath = $path
	CApath = $path
	cert = $certfile
	cert = $certfile
	pid = $pidfile
	pid = $pidfile
	debug = 0
	debug = $loglevel
	output = /dev/null
	output = $logfile
	foreground = yes
	foreground = yes
	
	
	[curltest]
	[curltest]