horok/apache2
1
0
Fork 0
Code Activity

Adding debian version 2.4.63-1.

Browse source 
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
This commit is contained in:
Daniel Baumann 2025-06-22 11:01:27 +02:00
parent 7263481e48
commit f56986e2d9
Signed by: daniel.baumann
GPG key ID: BCC918A2ABD66424
1490 changed files with 80785 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

78
debian/perl-framework/t/htdocs/modules/cgi/ocsp.pl.PL vendored Normal file
View file

@ -0,0 +1,78 @@
use File::Temp qw/:POSIX/;
my $caroot = $ENV{SSL_CA_ROOT};
if (! -d $caroot) {
print <<EOT
Status: 500 Internal Server Error
Content-Type: text/plain
Cannot find CA root at "$ENV{SSL_CA_ROOT}"
EOT
;
print STDERR "SSL_CA_ROOT env var not set or can't find CA root.\n";
exit(1);
}
chdir($caroot);
my $filein = tmpnam();
my $fileout = tmpnam();
# Enable slurp mode (read all lines at once)
local $/;
# Copy STDIN to $filein, which will be used as input for openssl
open(IN, '>', "$filein") or die "Could not open file '$filein' for write: $!";
binmode IN;
print IN <STDIN>;
close(IN);
my $cmd = 'openssl ocsp -CA certs/ca.crt'.
' -index index.txt'.
' -rsigner certs/server.crt'.
' -rkey keys/server.pem'.
' -reqin ' . $filein .
' -respout ' . $fileout;
system($cmd);
# Check system result
my $err = '';
if ($? == -1) {
my $err = "failed to execute '$cmd': $!\n";
}
elsif ($? & 127) {
my $err = sprintf("child '$cmd' died with signal %d, %s coredump\n",
($? & 127), ($? & 128) ? 'with' : 'without');
}
else {
my $rc = $? >> 8;
my $err = "child '$cmd' exited with value $rc\n" if $rc;
}
unlink($filein);
if ($err ne '') {
print <<EOT
Status: 500 Internal Server Error
Content-Type: text/plain
$err
EOT
;
print STDERR $err;
exit(1);
}
print <<EOT
Content-Type: application/ocsp-response
EOT
;
# Copy openssl result from $fileout to STDOUT
open(OUT, '<', "$fileout") or die "Could not open file '$fileout' for read: $!";
binmode OUT;
print <OUT>;
close(OUT);
unlink($fileout);