あ!
一瞬でピンっと決まました。
古いサーバでOpenSSL1.0.2が稼働しています。
はい。
まさしくこの事です。
ラッキーな事に、外部サーバへアクセスする時のみに使用しているので
今回は騙し騙しの対処をする事にしました。
なお、条件は次の通り
問題となるperlに次の一行を加える事で解決
$ENV{'PERL_LWP_SSL_VERIFY_HOSTNAME'} = 0; # もしくは $ua->ssl_opts( verify_hostname => 0 );]]>
var getUuId = function() { return "xxxxxxxx-xxxx-4xxx-yxxx-xxxxxxxxxxxx".replace(/[xy]/g, function(c){ var r = Math.random() * 16 | 0, v = c == "x" ? r : r & 3 | 8; return v.toString(16); }); };
Perl
my $uuid = 'xxxxxxxx-xxxx-4xxx-yxxx-xxxxxxxxxxxx'; 1 while($uuid =~ s/x/[split m!!, "0123456789ABCDEF"]->[int(rand 16)]/e); 1 while($uuid =~ s/y/[split m!!, "89AB"]->[int(rand 4)]/e);
PHP
$uuid = sprintf('%04x%04x-%04x-%04x-%04x-%04x%04x%04x' ,mt_rand(0, 0xffff) ,mt_rand(0, 0xffff) ,mt_rand(0, 0xffff) ,mt_rand(0, 0x0fff) | 0x4000 ,mt_rand(0, 0x3fff) | 0x8000 ,mt_rand(0, 0xffff) ,mt_rand(0, 0xffff) ,mt_rand(0, 0xffff) );]]>
my $pid = $$;
稼動中のプロセスID
opendir(PROC, "/proc") or die "Unable to open /proc;$!\n"; while(defined($_ = readdir(PROC))){ next unless /^\d+$/; print $_."\n"; } closedir(PROC);]]>
タイムスタンプは@{[ time ]}です]]>
pmvers LWP::UserAgent
cgi
use LWP::UserAgent 9999
LWP::UserAgent version 9999 required--this is only version 6.16 at PATH]]>
LWP/Protocol/http.pm
# SendTE => 1 SendTE => 0]]>