lemonldap-ng/lemonldap-ng-common/lib/Lemonldap/NG/Common/Notifications.pm

53 lines
1.2 KiB
Perl
Raw Normal View History

2016-06-02 23:20:36 +02:00
package Lemonldap::NG::Common::Notifications;
use strict;
use Mouse;
use JSON qw(to_json);
2016-06-02 23:20:36 +02:00
our $VERSION = '2.0.7';
2016-06-02 23:20:36 +02:00
extends 'Lemonldap::NG::Common::Module';
sub import {
if ( $_[1] eq 'XML' ) {
extends 'Lemonldap::NG::Common::Notifications::XML',
'Lemonldap::NG::Common::Module';
2016-06-02 23:20:36 +02:00
}
else {
extends 'Lemonldap::NG::Common::Notifications::JSON',
'Lemonldap::NG::Common::Module';
}
}
2016-06-02 23:20:36 +02:00
has notifField => (
is => 'rw',
builder => sub {
my $uid =
$_[0]->conf->{notificationField}
|| $_[0]->conf->{whatToTrace}
|| 'uid';
$uid =~ s/^\$//;
return $uid;
}
);
sub getNotifications {
my ( $self, $uid ) = @_;
my $forAll = $self->get( $self->conf->{notificationWildcard} );
if ( $uid and $uid eq '_all_' ) {
$self->logger->info("Retrieve ALL pending notifications");
my $all = $self->getAll();
$all = { map { $_ => to_json( $all->{$_} ) } keys %$all };
return { %$all, %$forAll };
}
2016-06-02 23:20:36 +02:00
my $forUser = $self->get($uid);
if ( $forUser and $forAll ) {
return { %$forUser, %$forAll };
}
else {
return ( ( $forUser ? $forUser : $forAll ), $forUser );
}
}
1;