Mercurial > prosody-modules
annotate mod_lib_ldap/dev/t/TestConnection.pm @ 3953:2c6d5734ae04
mod_rest: Add JSON mapping of XEP-0128: Service Discovery Extensions
Example XEP-0157 payload:
{
"disco" : {
"extensions" : {
"http://jabber.org/network/serverinfo" : {
"abuse-addresses" : [
"mailto:abuse@shakespeare.lit",
"xmpp:abuse@shakespeare.lit"
],
"admin-addresses" : [
"mailto:admin@shakespeare.lit",
"xmpp:admin@shakespeare.lit"
],
"feedback-addresses" : [
"http://shakespeare.lit/feedback.php",
"mailto:feedback@shakespeare.lit",
"xmpp:feedback@shakespeare.lit"
],
"sales-addresses" : [
"xmpp:bard@shakespeare.lit"
],
"security-addresses" : [
"xmpp:security@shakespeare.lit"
],
"support-addresses" : [
"http://shakespeare.lit/support.php",
"xmpp:support@shakespeare.lit"
]
}
}
}
}
| author | Kim Alvefur <zash@zash.se> |
|---|---|
| date | Mon, 23 Mar 2020 19:03:04 +0100 |
| parents | 07582b8aaf84 |
| children |
| rev | line source |
|---|---|
| 809 | 1 package TestConnection; |
| 2 | |
| 3 use strict; | |
| 4 use warnings; | |
| 5 use parent 'AnyEvent::XMPP::IM::Connection'; | |
| 6 | |
| 7 use 5.010; | |
| 8 | |
| 9 our $HOST = 'localhost'; | |
| 10 our $TIMEOUT = 5; | |
| 11 our %PASSWORD_FOR = ( | |
| 12 one => '12345', | |
| 13 two => '23451', | |
| 14 three => '34512', | |
| 15 four => '45123', | |
| 16 five => '51234', | |
| 866 | 17 six => '123456', |
| 875 | 18 seven => '1234567', |
| 809 | 19 ); |
| 20 | |
| 21 sub new { | |
| 22 my ( $class, $username, %options ) = @_; | |
| 23 | |
| 24 my $cond = AnyEvent->condvar; | |
| 25 my $timer = AnyEvent->timer( | |
| 26 after => $TIMEOUT, | |
| 27 cb => sub { | |
| 28 $cond->send('timeout'); | |
| 29 }, | |
| 30 ); | |
| 31 | |
| 32 my $self = $class->SUPER::new( | |
| 33 username => $username, | |
| 34 domain => $HOST, | |
| 35 password => $options{'password'} // $PASSWORD_FOR{$username}, | |
| 1465 | 36 resource => 'test bot', |
| 809 | 37 ); |
| 38 | |
| 39 $self->reg_cb(error => sub { | |
| 40 my ( undef, $error ) = @_; | |
| 41 | |
| 42 $cond->send($error->string); | |
| 43 }); | |
| 44 | |
| 45 bless $self, $class; | |
| 46 | |
| 47 $self->{'condvar'} = $cond; | |
| 48 $self->{'timeout_timer'} = $timer; | |
| 49 | |
| 50 $self->connect; | |
| 51 | |
| 52 return $self; | |
| 53 } | |
| 54 | |
| 55 sub cond { | |
| 56 my ( $self ) = @_; | |
| 57 | |
| 58 return $self->{'condvar'}; | |
| 59 } | |
| 60 | |
| 61 1; |