diff options
author | Bernhard Fröhlich <bernhard@cacert.org> | 2018-11-22 23:05:21 +0100 |
---|---|---|
committer | Bernhard Fröhlich <bernhard@cacert.org> | 2018-11-22 23:05:21 +0100 |
commit | 8ef1a81488d1641d8195074583b947f21457fda9 (patch) | |
tree | 466a7f5ca0d18e125daa49e8633812c329efbb76 | |
parent | 2262fe14e4bf1e0afb4ab7f9340e18a9f281ddfe (diff) | |
download | cacert-devel-testserver-signer.tar.gz cacert-devel-testserver-signer.tar.xz cacert-devel-testserver-signer.zip |
Undocumented changes on testserver.testserver-signer
-rwxr-xr-x | CommModule/server.pl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/CommModule/server.pl b/CommModule/server.pl index 6640552..385dba9 100755 --- a/CommModule/server.pl +++ b/CommModule/server.pl @@ -12,7 +12,7 @@ use File::CounterFile; use Time::HiRes q(usleep); use IPC::Open3; use File::Copy; -use Digest::SHA1 qw(sha1_hex); +use Digest::SHA qw(sha1_hex); #Protocol version: my $ver=1; @@ -881,6 +881,8 @@ sub RevokeX509 close OUT; my $do = `$opensslbin ca $hashes{$hash} -config $opensslcnf -key test -batch -revoke $wid/request.crt > /dev/null 2>&1`; + + SysLog "$opensslbin ca $hashes{$hash} -config $opensslcnf -key test -batch -gencrl -crldays 7 -crlexts crl_ext -out $wid/cacert-revoke.crl\n"; $do = `$opensslbin ca $hashes{$hash} -config $opensslcnf -key test -batch -gencrl -crldays 7 -crlexts crl_ext -out $wid/cacert-revoke.crl > /dev/null 2>&1`; $do = `$opensslbin crl -inform PEM -in $wid/cacert-revoke.crl -outform DER -out $wid/revoke.crl > /dev/null 2>&1`; unlink "$wid/cacert-revoke.crl"; @@ -1002,7 +1004,7 @@ my @ready=$sel->can_read($starttime); my $count=0; #As soon as the client connected successfully, the client has to send a request faster than every 10 seconds -while(@ready = $sel->can_read(15) && -f "./server.pl-active") +while((@ready = $sel->can_read(15)) && -f "./server.pl-active") { my $data=""; #my $length=read SER,$data,1; |