$ CA := [-.certs]testca.pem
$
$ set noon
-$ delete 'T'.1;*,'T'.2;*,'T'.key;*
+$ if f$search(T+".1;*") .nes. "" then delete 'T'.1;*
+$ if f$search(T+".2;*") .nes. "" then delete 'T'.2;*
+$ if f$search(T+".key;*") .nes. "" then delete 'T'.key;*
$ set on
$
$ write sys$output "generating certificate request"
$ write sys$output "There should not be more that at most 80 per line"
$ write sys$output "This could take some time."
$
+$ append/new nl: .rnd
+$ open/append random_file .rnd
+$ write random_file "string to make the random number generator think it has entropy"
+$ close random_file
+$
$ mcr 'exe_dir'openssl req -config test.cnf -new -out testreq.pem
$ if $severity .ne. 1
$ then