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

    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 <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/