Log info for start up failures.

This commit is contained in:
Yang Tse 2009-11-26 22:07:47 +00:00
parent c7d2e4c1e1
commit 9cbf69ca0b

View File

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