From 8ef1a81488d1641d8195074583b947f21457fda9 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Bernhard=20Fr=C3=B6hlich?= Date: Thu, 22 Nov 2018 23:05:21 +0100 Subject: Undocumented changes on testserver. --- CommModule/server.pl | 6 ++++-- 1 file 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; -- cgit v1.2.1