The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

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/