RUZ / RT-Action-NotifyGroup-0.02 / lib / RT / Action / NotifyGroup.pm 

            

              
1
2
3
4
—
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
—
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
—
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173

              
package RT::Action::NotifyGroup;
use strict;
our $VERSION = '0.02';
=head1 NAME
RT::Action::NotifyGroup - RT Action that sends notifications
to groups and/or users
=head1 DESCRIPTION
RT action module that allow you to notify particular groups and/or users.
Distribution is shipped with C<rt-notify-group-admin> script that
is command line tool for managing NotifyGroup scrip actions. For more
more info see its documentation.
=head1 INSTALL
        perl Makefile.PL
        make
        make install
=cut
use base qw(RT::Action::Notify);
require RT::User;
require RT::Group;
=head1 METHODS
=head2 SetRecipients
Sets the recipients of this message to Groups and/or Users.
=cut
sub SetRecipients
{
        my $self = shift;
        my $arg = $self->Argument;
        my $old_arg = eval { Storable::thaw( $arg ) };
        unless( $@ ) {
                $arg = $self->__ConvertOldArg( $old_arg );
                return;
        }
        foreach( $self->__SplitArg( $arg ) ) {
                $self->_HandleArgument( $_ );
        }
        my $creator = $self->TransactionObj->CreatorObj->EmailAddress();
        unless( $RT::NotifyActor ) {
                @{ $self->{'To'} } = grep ( !/^\Q$creator\E$/, @{ $self->{'To'} } );
        }
        $self->{'seen_ueas'} = {};
        return 1;
}
sub _HandleArgument
{
        my $self = shift;
        my $instance = shift;
         
        my $obj = RT::Principal->new( $RT::SystemUser );
        $obj->Load( $instance );
        unless( $obj->id ) {
                $RT::Logger->error( "Couldn't load principal #$instance" );
                return;
        }
        if( $obj->Disabled ) {
                $RT::Logger->info( "Principal #$instance is disabled => skip" );
                return;
        }
        if( !$obj->PrincipalType ) {
                $RT::Logger->crit( "Principal #$instance has empty type" );
        } elsif( lc $obj->PrincipalType eq 'user' ) {
                $self->__HandleUserArgument( $obj->Object );
        } elsif( lc $obj->PrincipalType eq 'group' ) {
                $self->__HandleGroupArgument( $obj->Object );
        } else {
                $RT::Logger->info( "Principal #$instance has unsupported type" );
        }
        return;
}
sub __HandleUserArgument
{
        my $self = shift;
        my $obj = shift;
         
        my $uea = $obj->EmailAddress;
        unless( $uea ) {
                $RT::Logger->warning( "User #". $obj->id ." has no email address" );
                return;
        }
        $self->__PushUserAddress( $uea );
}
sub __HandleGroupArgument
{
        my $self = shift;
        my $obj = shift;
        my $members = $obj->UserMembersObj;
        while( my $m = $members->Next ) {
                $self->__HandleUserArgument( $m );
        }
}
sub __SplitArg
{
        return split /[^0-9]+/, $_[1];
}
sub __ConvertOldArg
{
        my $self = shift;
        my $arg = shift;
        my @res;
        foreach my $r ( @{ $arg } ) {
                my $obj;
                next unless $r->{'Type'};
                if( lc $r->{'Type'} eq 'user' ) {
                        $obj = RT::User->new( $RT::SystemUser );
                } elsif ( lc $r->{'Type'} eq 'user' ) {
                        $obj = RT::Group->new( $RT::SystemUser );
                } else {
                        next;
                }
                $obj->Load( $r->{'Instance'} );
                my $id = $obj->id;
                next unless( $id );
                push @res, $id;
        }
        return join ';', @res;
}
sub __PushUserAddress
{
        my $self = shift;
        my $uea = shift;
        push( @{ $self->{'To'} }, $uea ) unless( $self->{'seen_ueas'}{ $uea }++ );
        return;
}
=head1 AUTHOR
        Ruslan U. Zakirov
        cubic@wildgate.miee.ru
=head1 COPYRIGHT
This program is free software; you can redistribute
it and/or modify it under the same terms as Perl itself.
The full text of the license can be found in the
LICENSE file included with perl distribution.
=head1 SEE ALSO
RT::Action::NotifyGroupAsComment, rtx-notify-group-admin
=cut
1;