|
Lines 65-71
Link Here
|
| 65 |
} |
65 |
} |
| 66 |
else |
66 |
else |
| 67 |
{ |
67 |
{ |
| 68 |
$file="/tmp/a$$.DER"; |
68 |
$file=`mktemp -t a$$.DER.XXXXXX` || die $!; |
| 69 |
open(OUT,">$file") || die "unable to open $file:$!\n"; |
69 |
open(OUT,">$file") || die "unable to open $file:$!\n"; |
| 70 |
for (;;) |
70 |
for (;;) |
| 71 |
{ |
71 |
{ |
|
Lines 139-145
Link Here
|
| 139 |
{ |
139 |
{ |
| 140 |
local($str)=@_; |
140 |
local($str)=@_; |
| 141 |
local(*OUT,*IN,@a,$t,$d,$ret); |
141 |
local(*OUT,*IN,@a,$t,$d,$ret); |
| 142 |
local($file)="/tmp/b$$.DER"; |
142 |
local($file)=`mktemp -t b$$.DER.XXXXXX` || die $!; |
| 143 |
local(@ret); |
143 |
local(@ret); |
| 144 |
|
144 |
|
| 145 |
open(OUT,">$file"); |
145 |
open(OUT,">$file"); |
|
Lines 225-231
Link Here
|
| 225 |
sub do_private_key |
225 |
sub do_private_key |
| 226 |
{ |
226 |
{ |
| 227 |
local($data,@struct)=@_; |
227 |
local($data,@struct)=@_; |
| 228 |
local($file)="/tmp/b$$.DER"; |
228 |
local($file)=`mktemp -t b$$.DER.XXXXXX` || die $!; |
| 229 |
local($off,$d,$hl,$len,$_,$b,@p,$s); |
229 |
local($off,$d,$hl,$len,$_,$b,@p,$s); |
| 230 |
|
230 |
|
| 231 |
($type)=($struct[4] =~ /OBJECT_IDENTIFIER :(.*)\s*$/); |
231 |
($type)=($struct[4] =~ /OBJECT_IDENTIFIER :(.*)\s*$/); |
|
Lines 260-266
Link Here
|
| 260 |
sub do_certificate |
260 |
sub do_certificate |
| 261 |
{ |
261 |
{ |
| 262 |
local($data,@struct)=@_; |
262 |
local($data,@struct)=@_; |
| 263 |
local($file)="/tmp/b$$.DER"; |
263 |
local($file)=`mktemp -t b$$.DER.XXXXXX` || die $!; |
| 264 |
local($off,$d,$hl,$len,$_,$b,@p,$s); |
264 |
local($off,$d,$hl,$len,$_,$b,@p,$s); |
| 265 |
|
265 |
|
| 266 |
($off,$d,$hl,$len)=&parse_line($struct[2]); |
266 |
($off,$d,$hl,$len)=&parse_line($struct[2]); |
