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