src/exp.sslperl


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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105

--- sslperl works
sslperlHello, World! (1): here you are
0
sslperlHello, World! (2): here you are
0
sslperlHello, World! (1): here you are
0
sslperlHello, World! (2): here you are
0
--- sslperl prints usage message without enough arguments
sslperl: usage: sslperl[ -1346UXpPhHrRoOdDqQviIeEsS ] [ -c limit ] [ -x rules.cdb ] [ -B banner ] [ -g gid ] [ -u uid ] [ -b backlog ] [ -l localname ] [ -t timeout ] [ -T ssltimeout ] [ -w progtimeout ] [ -f lockfile ] [ -I interface ] host port program
100
--- sslperl prints error message with unknown port name
sslperl: fatal: (111) unable to figure out port number for: nonexistentport
111
--- sslperl prints error message with unknown host name
sslperl: fatal: (111) temporarily unable to figure out IP address for: nonexistent.local.
111
--- sslperl prints error message with unresolvable host name
sslperl: fatal: (111) no IP address for: thislabelistoolongbecausednshasalimitof63charactersinasinglelabel.
111
--- sslperl prints error message with non-local host name
sslperl: fatal: (111) unable to bind
111
--- sslperl preserves environment
sslperl changed environment
0
--- sslperl handles larger requests
sslclient: tls connected to: 127.0.0.1 port: 50022
0
--- sslserver -1v prints proper messages
127.0.0.1 : 50022
sslperl: cafile x xxx/rootCA.pem
sslperl: ccafile x 
sslperl: cadir x xxx/etc
sslperl: certchainfile x 
sslperl: cert x xxx/::x
sslperl: key x xxx/::x
sslperl: dhparam x xxx
sslperl: status: 0/1/0
sslperl: status: 1/1/0
sslperl: pid x from 127.0.0.1
sslperl: ok x Localserver:127.0.0.1:50022 ip4-loopback:127.0.0.1::x
sslperl: tls x accept 
log: Hello, World! (1): here you are
sslperl: drop: (110) environ changed
sslperl: done ...
sslperl: pid x from 127.0.0.1
sslperl: ok x Localserver:127.0.0.1:50022 ip4-loopback:127.0.0.1::x
sslperl: tls x accept 
log: Hello, World! (2): here you are
sslperl: end x status 0
sslperl: status: 0/1/0
sslperl: status: 1/1/0
sslperl: pid x from 127.0.0.1
sslperl: ok x Localserver:127.0.0.1:50022 ip4-loopback:127.0.0.1::x
sslperl: tls x accept 
log: Hello, World! (1): here you are
sslperl: drop: (110) environ changed
sslperl: done ...
sslperl: pid x from 127.0.0.1
sslperl: ok x Localserver:127.0.0.1:50022 ip4-loopback:127.0.0.1::x
sslperl: tls x accept 
log: Hello, World! (2): here you are
sslperl: end x status 0
sslperl: status: 0/1/0
sslperl: status: 1/1/0
sslperl: end x status 15
sslperl: status: 0/1/0
127.0.0.1 : 50022
sslperl: cafile x xxx/rootCA.pem
sslperl: ccafile x 
sslperl: cadir x xxx/etc
sslperl: certchainfile x 
sslperl: cert x xxx/::x
sslperl: key x xxx/::x
sslperl: dhparam x xxx
sslperl: status: 0/1/0
sslperl: status: 1/1/0
sslperl: pid x from 127.0.0.1
sslperl: ok x Localserver:127.0.0.1:50022 ip4-loopback:127.0.0.1::x
sslperl: tls x accept 
log: NOW=
log: changed environment
sslperl: drop: (110) environ changed
sslperl: done ...
sslperl: end x status 15
sslperl: status: 0/1/0
127.0.0.1 : 50022
sslperl: cafile x xxx/rootCA.pem
sslperl: ccafile x 
sslperl: cadir x xxx/etc
sslperl: certchainfile x 
sslperl: cert x xxx/::x
sslperl: key x xxx/::x
sslperl: dhparam x xxx
sslperl: status: 0/1/0
sslperl: status: 1/1/0
sslperl: pid x from 127.0.0.1
sslperl: ok x Localserver:127.0.0.1:50022 ip4-loopback:127.0.0.1::x
sslperl: tls x accept 
sslperl: drop: (110) environ changed
sslperl: done ...
sslperl: end x status 15
sslperl: status: 0/1/0