Mercurial > prosody-modules
annotate mod_lib_ldap/dev/t/TestConnection.pm @ 6352:525655adfd3e
mod_report_affiliations: Fix traceback a non-user is sending a presence
For now we won’t touch their presence instead of emiting this traceback:
error Traceback[s2s]: /usr/lib/prosody/core/rostermanager.lua:275: attempt to concatenate a nil value (local 'username')
stack traceback:
/usr/lib/prosody/core/rostermanager.lua:275: in function 'prosody.core.rostermanager.is_user_subscribed'
...ules/mod_report_affiliations/mod_report_affiliations.lua:116: in field '?'
/usr/lib/prosody/util/events.lua:81: in function </usr/lib/prosody/util/events.lua:77>
(...tail calls...)
/usr/lib/prosody/core/stanza_router.lua:184: in upvalue 'core_post_stanza'
/usr/lib/prosody/modules/mod_presence.lua:244: in function </usr/lib/prosody/modules/mod_presence.lua:231>
(...tail calls...)
/usr/lib/prosody/util/events.lua:81: in function </usr/lib/prosody/util/events.lua:77>
(...tail calls...)
/usr/lib/prosody/core/stanza_router.lua:188: in upvalue 'core_post_stanza'
/usr/lib/prosody/core/stanza_router.lua:128: in upvalue 'core_process_stanza'
/usr/lib/prosody/modules/mod_s2s.lua:818: in upvalue 'func'
/usr/lib/prosody/util/async.lua:149: in function </usr/lib/prosody/util/async.lua:147>
| author | Link Mauve <linkmauve@linkmauve.fr> |
|---|---|
| date | Tue, 30 Dec 2025 13:19:43 +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; |