| OLD | NEW |
| 1 $! TCRL.COM -- Tests crl keys | 1 $! TCRL.COM -- Tests crl keys |
| 2 $ | 2 $ |
| 3 $» __arch := VAX | 3 $» __arch = "VAX" |
| 4 $ if f$getsyi("cpu") .ge. 128 then - | 4 $ if f$getsyi("cpu") .ge. 128 then - |
| 5 __arch = f$edit( f$getsyi( "ARCH_NAME"), "UPCASE") | 5 __arch = f$edit( f$getsyi( "ARCH_NAME"), "UPCASE") |
| 6 $» if __arch .eqs. "" then __arch := UNK | 6 $» if __arch .eqs. "" then __arch = "UNK" |
| 7 $» exe_dir := sys$disk:[-.'__arch'.exe.apps] | 7 $! |
| 8 $» if (p2 .eqs. "64") then __arch = __arch+ "_64" |
| 9 $! |
| 10 $» exe_dir = "sys$disk:[-.''__arch'.exe.apps]" |
| 8 $ | 11 $ |
| 9 $» cmd := mcr 'exe_dir'openssl crl | 12 $» cmd = "mcr ''exe_dir'openssl crl" |
| 10 $ | 13 $ |
| 11 $» t := testcrl.pem | 14 $» t = "testcrl.pem" |
| 12 $ if p1 .nes. "" then t = p1 | 15 $ if p1 .nes. "" then t = p1 |
| 13 $ | 16 $ |
| 14 $ write sys$output "testing CRL conversions" | 17 $ write sys$output "testing CRL conversions" |
| 15 $ if f$search("fff.*") .nes "" then delete fff.*;* | 18 $ if f$search("fff.*") .nes "" then delete fff.*;* |
| 16 $ if f$search("ff.*") .nes "" then delete ff.*;* | 19 $ if f$search("ff.*") .nes "" then delete ff.*;* |
| 17 $ if f$search("f.*") .nes "" then delete f.*;* | 20 $ if f$search("f.*") .nes "" then delete f.*;* |
| 18 $ convert/fdl=sys$input: 't' fff.p | 21 $ convert/fdl=sys$input: 't' fff.p |
| 19 RECORD | 22 RECORD |
| 20 FORMAT STREAM_LF | 23 FORMAT STREAM_LF |
| 21 $ | 24 $ |
| (...skipping 54 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
| 76 $! if $severity .ne. 1 then exit 3 | 79 $! if $severity .ne. 1 then exit 3 |
| 77 $ | 80 $ |
| 78 $ backup/compare f.p ff.p1 | 81 $ backup/compare f.p ff.p1 |
| 79 $ if $severity .ne. 1 then exit 3 | 82 $ if $severity .ne. 1 then exit 3 |
| 80 $! backup/compare f.p ff.p2 | 83 $! backup/compare f.p ff.p2 |
| 81 $! if $severity .ne. 1 then exit 3 | 84 $! if $severity .ne. 1 then exit 3 |
| 82 $ backup/compare f.p ff.p3 | 85 $ backup/compare f.p ff.p3 |
| 83 $ if $severity .ne. 1 then exit 3 | 86 $ if $severity .ne. 1 then exit 3 |
| 84 $ | 87 $ |
| 85 $ delete f.*;*,ff.*;*,fff.*;* | 88 $ delete f.*;*,ff.*;*,fff.*;* |
| OLD | NEW |