]> Sergey Matveev's repositories - public-inbox.git/blobdiff - certs/create-certs.perl
nntp: resolve inboxes immediately on group listings
[public-inbox.git] / certs / create-certs.perl
index bfd8e5f176233713b18d65079b856174c632e422..b287cec5842626fc7b32304413c14cb8596bffd7 100755 (executable)
@@ -6,9 +6,9 @@ use warnings;
 use IO::Socket::SSL::Utils;
 use Net::SSLeay;
 
-my $dir = "./";
+my $dir = -d 'certs' && -f 'Makefile.PL' ? './certs/' : './';
 my $now = time();
-my $later = $now + 100*365*86400;
+my $later = 0x7fffffff; # 2038 problems on 32-bit :<
 
 Net::SSLeay::SSLeay_add_ssl_algorithms();
 my $sha256 = Net::SSLeay::EVP_get_digestbyname('sha256') or die;