Mercurial > prosody-modules
annotate mod_lib_ldap/dev/t/TestConnection.pm @ 6084:4c0e3fe57e92
mod_compliance_latest: Gracefull error logging on missing dependency.
diff --git a/mod_compliance_latest/README.md b/mod_compliance_latest/README.md
--- a/mod_compliance_latest/README.md
+++ b/mod_compliance_latest/README.md
@@ -9,13 +9,15 @@ rockspec:
# Introduction
-This module will always require and load to the lastest compliance tester we have in the community modules.
-Currently this is [mod_compliance_2023].
+This meta-module will always `require` (and therefore auto-load) the lastest compliance tester we have in the community modules.
+Currently this is [mod_compliance_2023]. See the linked module for further details.
+
+If you do not use the *Prosody plugin installer* this module will likely have limited value to you.
+You can also just install the current compliance tester manually.
# Configuration
-Just load this module as any other module and it will automatically install [mod_compliance_2023] if you use the Prosody plugin installer.
-See the linked module for further details.
+Just load this module as any other module and it will automatically install and load [mod_compliance_2023] if you use the *Prosody plugin installer*.
# Compatibility
diff --git a/mod_compliance_latest/mod_compliance_latest.lua b/mod_compliance_latest/mod_compliance_latest.lua
--- a/mod_compliance_latest/mod_compliance_latest.lua
+++ b/mod_compliance_latest/mod_compliance_latest.lua
@@ -1,1 +1,6 @@
-module:depends("compliance_2023");
+local success, err = pcall(function() module:depends("compliance_2023") end)
+
+if not success then
+ module:log("error", "Error, can't load module: mod_compliance_2023. Is this module downloaded in a folder readable by prosody?")
+ return 1, "Error: Couldn't load dependency mod_compliance_2023."
+end
| author | Menel <menel@snikket.de> |
|---|---|
| date | Mon, 23 Dec 2024 12:58:03 +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; |
