mirror of
https://github.com/mirror/wget.git
synced 2025-01-07 02:40:55 +08:00
b5c2d083ea
* tests/SSLTest.pm: Use $srcdir in read-only files, (_setup_server): Remove unneeded path fixation code * tests/Test-https-*.px: Use $srcdir for read-only files, use $cdir for writable files * tests/certs/interca.conf: Adjust paths * tests/certs/rootca.conf: Adjust paths
74 lines
1.5 KiB
Perl
74 lines
1.5 KiB
Perl
package SSLTest;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use SSLServer;
|
|
use WgetTests;
|
|
use HTTPTest;
|
|
|
|
our @ISA = qw(WgetTest HTTPTest);
|
|
my $VERSION = 0.01;
|
|
|
|
my $srcdir;
|
|
if (defined $ENV{srcdir}) {
|
|
$srcdir = Cwd::abs_path($ENV{srcdir});
|
|
} else {
|
|
$srcdir = ".";
|
|
}
|
|
|
|
my %ssl_defaults = (
|
|
_certfile => "$srcdir/certs/server.crt",
|
|
_keyfile => "$srcdir/certs/server.key",
|
|
_cafile => "$srcdir/certs/test-ca-cert.pem",
|
|
_ciphers => 'ALL',
|
|
_lhostname => 'wgettestingserver',
|
|
_sslport => 55443,
|
|
);
|
|
|
|
{
|
|
my %_attr_data = %ssl_defaults;
|
|
|
|
sub _default_for
|
|
{
|
|
my ($self, $attr) = @_;
|
|
return $_attr_data{$attr} if exists $_attr_data{$attr};
|
|
return $self->SUPER::_default_for($attr);
|
|
}
|
|
|
|
sub _standard_keys
|
|
{
|
|
my ($self) = @_;
|
|
($self->SUPER::_standard_keys(), keys %_attr_data);
|
|
}
|
|
}
|
|
|
|
sub _setup_server
|
|
{
|
|
my $self = shift;
|
|
my %ssl_config = %ssl_defaults;
|
|
|
|
$self->{_server} = SSLServer->new()
|
|
or die "Cannot create SSL server!!!";
|
|
|
|
for my $attrname ($self->_standard_keys())
|
|
{
|
|
my ($argname) = ($attrname =~ m/^_(.*)/msx);
|
|
$ssl_config{$argname} = $self->{$attrname};
|
|
}
|
|
# for my $attrname (keys %ssl_config)
|
|
# {
|
|
# if ($attrname =~ m/file$/ && !$attrname =~ m/^\//)
|
|
# {
|
|
# my $cwd = $self->SUPER::_default_for('_workdir');
|
|
# my $cfile = $ssl_config{$attrname};
|
|
# $ssl_config{$attrname} = "$cwd/$cfile";
|
|
# }
|
|
# }
|
|
$self->{_server}->init(%ssl_config);
|
|
}
|
|
|
|
1;
|
|
|
|
# vim: et ts=4 sw=4
|