File: inject-keys

package info (click to toggle)
foolscap 24.9.0-3
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 2,444 kB
  • sloc: python: 21,994; sh: 58; makefile: 52
file content (53 lines) | stat: -rwxr-xr-x 1,177 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
#!/bin/bash

TMPDIR=$(mktemp --directory)

for KEY in LOWKEY HIGHKEY
do
    expect <<END
spawn openssl genrsa -des3 -out ${TMPDIR}/private-encrypted.pem 2048
send -- "aaaa\r"
send -- "aaaa\r"
expect eof
END

    expect <<END
spawn openssl rsa -in ${TMPDIR}/private-encrypted.pem -outform PEM -pubout -out ${TMPDIR}/public.pem
send -- "aaaa\r"
expect eof
END

    expect <<END
spawn openssl rsa -in ${TMPDIR}/private-encrypted.pem -out ${TMPDIR}/private.pem -outform PEM
send -- "aaaa\r"
expect eof
END

    expect <<END
spawn openssl req -new -x509 -key ${TMPDIR}/private-encrypted.pem -out ${TMPDIR}/cert.pem -days 360
send -- "aaaa\r"
send -- "\r"
send -- "\r"
send -- "\r"
send -- "\r"
send -- "\r"
send -- "\r"
send -- "\r"
expect eof
END

    cat ${TMPDIR}/cert.pem ${TMPDIR}/private.pem > ${TMPDIR}/all.pem

    perl -we '
        my( $tmp, $key ) = ( shift, shift );
        my $inp;
        open( $inp, "$tmp/all.pem" );
        my $r = join( "", <$inp> );
        close $inp;
        while( <> ) { s/\@\@\@$key\@\@\@/$r/; print }' ${TMPDIR} ${KEY} < src/foolscap/test/common.py \
    | sponge src/foolscap/test/common.py

    rm ${TMPDIR}/*.pem
done

rm -rf ${TMPDIR}