NAME
App::MonM::Notifier - extension for the monm notifications
VERSION
Version 1.04
SYNOPSIS
use App::MonM::QNotifier;DESCRIPTION
This is an extension for the monm notifications with guaranteed delivery
new
my $notifier = App::MonM::Notifier->new(
config => $app->configobj,
);notify
$notifier->notify(
to => ['@FooGroup, @BarGroup, testuser, foo@example.com, 11231230002'],
subject => "Test message",
message => "Text of test message",
before => sub {
my $self = shift; # App::MonM::QNotifier object (this)
my $message = shift; # App::MonM::Message object
warn ( $self->error ) if $self->error;
# ...
return 1;
},
after => sub {
my $self = shift; # App::MonM::QNotifier object (this)
my $message = shift; # App::MonM::Message object
my $sent = shift; # Status of sending
warn ( $self->error ) if $self->error;
die ( $self->channel->error ) unless $sent;
# ...
return 1;
},
) or die($notifier->error);Sends message (text of message) to recipients list
The callback function "before" calls before the message sending. Must be return the true value. The callback function "after" calls after the message sending. Must be return the true value
remind
Tries to send postponed messages
store
my $store = $notifier->store();Returns store object
CONFIGURATION
Example of configuration section:
UseMonotifier yes
<MoNotifier>
File /tmp/monotifier.db
Expires 1h
MaxTime 1m
</MoNotifier>HISTORY
See Changes file
DEPENDENCIES
TO DO
See TODO file
BUGS
* none noted
SEE ALSO
AUTHOR
Serż Minus (Sergey Lepenkov) https://www.serzik.com <abalama@cpan.org>
COPYRIGHT
Copyright (C) 1998-2022 D&D Corporation. All Rights Reserved
LICENSE
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
See LICENSE file and https://dev.perl.org/licenses/