]>
Commit | Line | Data |
---|---|---|
8668b900 JP |
1 | --- mbank-cli-2.2.2/mbank-cli.orig 2020-02-20 16:57:45.267124994 +0100 |
2 | +++ mbank-cli-2.2.2/mbank-cli 2020-02-20 16:59:43.183078639 +0100 | |
3 | @@ -774,30 +774,7 @@ | |
dfc0e45e | 4 | |
8e5de72c | 5 | sub get_default_ca_path |
dfc0e45e | 6 | { |
8e5de72c JP |
7 | - my ($name, @hashes) = @_; |
8 | - my $filename = "$name.crt"; | |
9 | - $filename =~ y/ /_/; | |
10 | - my $path = "/usr/share/ca-certificates/mozilla/$filename"; | |
11 | - if (-r $path) { | |
12 | - return $path; | |
13 | - } | |
14 | - my $ssl_cert_dir = $ENV{SSL_CERT_DIR}; | |
8668b900 JP |
15 | - if (defined($openssl_dir)) { |
16 | - $ssl_cert_dir //= "$openssl_dir/certs"; | |
8e5de72c JP |
17 | - } |
18 | - if (defined($ssl_cert_dir)) { | |
19 | - for my $hash (@hashes) { | |
20 | - $path = "$ssl_cert_dir/$hash.0"; | |
21 | - # TODO: actually check if this is the certificate we want | |
22 | - # hash collisions are unlikely, but not impossible | |
23 | - -r $path or next; | |
24 | - my $rpath = readlink($path) or next; | |
25 | - $rpath =~ m{\A/} | |
26 | - or $rpath = "$ssl_cert_dir/$rpath"; | |
27 | - return $rpath; | |
28 | - } | |
29 | - } | |
30 | - return "$FindBin::Bin/ca.crt"; | |
31 | + return '/etc/certs/ca-certificates.crt'; | |
32 | } | |
33 | ||
34 | # =========================== |