Mercurial > prosody-modules
annotate mod_lib_ldap/dev/t/TestConnection.pm @ 6173:274fb65904a7
mod_cloud_notify(all the extentions): remove rockspec dependemcy so the prosody community module does not get installed, since trunk already has it.
diff --git a/mod_cloud_notify_encrypted/README.md b/mod_cloud_notify_encrypted/README.md
--- a/mod_cloud_notify_encrypted/README.md
+++ b/mod_cloud_notify_encrypted/README.md
@@ -2,9 +2,6 @@
labels:
- 'Stage-Alpha'
summary: 'Support for encrypted payloads in push notifications'
-rockspec:
- dependencies:
- - mod_cloud_notify
...
Introduction
diff --git a/mod_cloud_notify_filters/README.md b/mod_cloud_notify_filters/README.md
--- a/mod_cloud_notify_filters/README.md
+++ b/mod_cloud_notify_filters/README.md
@@ -2,9 +2,6 @@
labels:
- 'Stage-Alpha'
summary: 'Support for push notification filtering rules'
-rockspec:
- dependencies:
- - mod_cloud_notify
...
Introduction
diff --git a/mod_cloud_notify_priority_tag/README.md b/mod_cloud_notify_priority_tag/README.md
--- a/mod_cloud_notify_priority_tag/README.md
+++ b/mod_cloud_notify_priority_tag/README.md
@@ -2,9 +2,6 @@
labels:
- 'Stage-Alpha'
summary: 'Support for indicating importance to push notification servers'
-rockspec:
- dependencies:
- - mod_cloud_notify
...
Introduction
| author | Menel <menel@snikket.de> |
|---|---|
| date | Thu, 13 Feb 2025 12:20:46 +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; |