| … | |
… | |
| 78 | my ($name, %kv) = @_; |
78 | my ($name, %kv) = @_; |
| 79 | |
79 | |
| 80 | +{ |
80 | +{ |
| 81 | monitor_timeout => 30, |
81 | monitor_timeout => 30, |
| 82 | connect_interval => 2, |
82 | connect_interval => 2, |
|
|
83 | data_format => [qw(json storable)], # framing types we offer and accept, in order of preference |
|
|
84 | auth_offer => [qw(tls_md6_64_256 hmac_md6_64_256)], # what we will send |
|
|
85 | auth_accept => [qw(tls_md6_64_256 hmac_md6_64_256 tls_anon cleartext)], # what we accept |
| 83 | %kv, |
86 | %kv, |
| 84 | _find_profile $name, |
87 | _find_profile $name, |
| 85 | } |
88 | } |
| 86 | } |
89 | } |
| 87 | |
90 | |
