← Back to branch summary

~ubuntu-branches/ubuntu/utopic/openssl/utopic

« back to all changes in this revision

Viewing changes to test/testca.com

  • Committer: Bazaar Package Importer
  • Author(s): Kurt Roeckx
  • Date: 2011-04-02 13:19:19 UTC
  • mfrom: (1.2.1 upstream) (11.2.2 experimental)
  • mto: This revision was merged to the branch mainline in revision 55.
  • Revision ID: james.westby@ubuntu.com-20110402131919-anszuslper64ey9e
Tags: 1.0.0d-1
http://bugs.debian.org/607609
* New upstream version
  - Fixes CVE-2011-0014
* Make libssl-doc Replaces/Breaks with old libssl-dev packages
  (Closes: #607609)
* Only export the symbols we should, instead of all.
* Add symbol file.
* Upload to unstable

Show diffs side-by-side

added added

removed removed

Lines of Context:
test/testca.com
12
12
$       set noon
13
13
$       if f$search("demoCA.dir") .nes. ""
14
14
$       then
15
 
$           call deltree [.demoCA]*.*
 
15
$           @[-.util]deltree [.demoCA]*.*
16
16
$           set file/prot=(S:RWED,O:RWED,G:RWED,W:RWED) demoCA.dir;*
17
17
$           delete demoCA.dir;*
18
18
$       endif
39
39
$       if $severity .ne. 1 then exit 3
40
40
$
41
41
$       set noon
42
 
$       call deltree [.demoCA]*.*
 
42
$       @[-.util]deltree [.demoCA]*.*
43
43
$       set file/prot=(S:RWED,O:RWED,G:RWED,W:RWED) demoCA.dir;*
44
44
$       delete demoCA.dir;*
45
45
$       if f$search("newcert.pem") .nes. "" then delete newcert.pem;*
48
48
$!      #usage: CA -newcert|-newreq|-newca|-sign|-verify
49
49
$
50
50
$       exit
51
 
$
52
 
$ deltree: subroutine ! P1 is a name of a directory
53
 
$       on control_y then goto dt_STOP
54
 
$       on warning then goto dt_exit
55
 
$       _dt_def = f$trnlnm("SYS$DISK")+f$directory()
56
 
$       if f$parse(p1) .eqs. "" then exit
57
 
$       set default 'f$parse(p1,,,"DEVICE")''f$parse(p1,,,"DIRECTORY")'
58
 
$       p1 = f$parse(p1,,,"NAME") + f$parse(p1,,,"TYPE")
59
 
$       _fp = f$parse(".DIR",p1)
60
 
$ dt_loop:
61
 
$       _f = f$search(_fp)
62
 
$       if _f .eqs. "" then goto dt_loopend
63
 
$       call deltree [.'f$parse(_f,,,"NAME")']*.*
64
 
$       goto dt_loop
65
 
$ dt_loopend:
66
 
$       _fp = f$parse(p1,".;*")
67
 
$       if f$search(_fp) .eqs. "" then goto dt_exit
68
 
$       set noon
69
 
$       set file/prot=(S:RWED,O:RWED,G:RWED,W:RWED) '_fp'
70
 
$       set on
71
 
$       delete/nolog '_fp'
72
 
$ dt_exit:
73
 
$       set default '_dt_def'
74
 
$       exit
75
 
$ dt_STOP:
76
 
$       set default '_dt_def'
77
 
$       stop/id=""
78
 
$       exit
79
 
$       endsubroutine