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 File /tmp/monotifier.db Expires 1h MaxTime 1m HISTORY See Changes file DEPENDENCIES App::MonM::QNotifier TO DO See TODO file BUGS * none noted SEE ALSO App::MonM::QNotifier AUTHOR Serż Minus (Sergey Lepenkov) https://www.serzik.com 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/