]> mj.ucw.cz Git - pciids.git/blob - PciIds/Notifications.pm
Fix spacing between words
[pciids.git] / PciIds / Notifications.pm
1 #       PciIds web database
2 #       Copyright (C) 2008 Michal Vaner (vorner@ucw.cz)
3 #
4 #       This program is free software; you can redistribute it and/or modify
5 #       it under the terms of the GNU General Public License as published by
6 #       he Free Software Foundation; either version 2 of the License, or
7 #       (at your option) any later version.
8 #
9 #       This program is distributed in the hope that it will be useful,
10 #       but WITHOUT ANY WARRANTY; without even the implied warranty of
11 #       MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12 #
13 #       GNU General Public License for more details.
14 #
15 #       You should have received a copy of the GNU General Public License
16 #       along with this program; if not, write to the Free Software
17 #       Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
18
19 package PciIds::Notifications;
20 use strict;
21 use warnings;
22 use PciIds::Address;
23 use PciIds::Config;
24 use PciIds::Email;
25 use PciIds::Xmpp;
26 use base 'Exporter';
27
28 our @EXPORT = qw(&notify &sendNotifs &flushNotifs);
29
30 sub notify( $$$$$ ) {
31         my( $tables, $location, $comment, $priority, $reason ) = @_;
32         $tables->pushNotifications( $location, $comment, $priority, $reason );
33 }
34
35 sub sendNotif( $$$ ) {
36         my( $address, $message, $sendFun ) = @_;
37         return unless defined $address;
38         &{$sendFun}(
39                 $address,
40                 "Item change notifications for $config{hostname}",
41                 "$message\nThis is automatic notification message, do not respond to it.\nYou can change your notifications at http://$config{hostname}/mods/PC/?action=notifications\n" );
42 }
43
44 sub sendOut( $$ ) {
45         my( $notifs, $sendFun ) = @_;
46         my( $last_address, $last_user );
47         my $message = '';
48         foreach( @{$notifs} ) {
49                 my( $user, $address, $reason, $text, $newname, $newdesc, $time, $author, $location, $name, $desc ) = @{$_};
50                 if( ( !defined $last_user ) || ( $last_user != $user ) ) {
51                         sendNotif( $last_address, $message, $sendFun );
52                         $last_address = $address;
53                         $last_user = $user;
54                         $message = '';
55                 }
56                 my $note;
57                 my $addr = PciIds::Address::new( $location );
58                 if( $reason == 0 ) {
59                         $note = "New item was created.\n  Id: ".$addr->pretty()."\n  Name: $newname\n";
60                         $note .= "  Description: $newdesc\n" if( defined $newdesc && ( $newdesc ne '' ) );
61                         $note .= "  Comment text: $text\n" if( defined $text && ( $text ne '' ) );
62                         $note .= "  Author: $author\n" if( defined $author && ( $author ne '' ) );
63                         $note .= "  Time: $time\n";
64                         $note .= "  Address: http://".$config{'hostname'}."/read/".$addr->get()."\n";
65                 } elsif( $reason == 1 ) {
66                         $note = "New comment created.\n  Item:\n";
67                         $note .= "    Id: ".$addr->pretty()."\n";
68                         $note .= "    Name: $name\n" if( defined $name && ( $name ne '' ) && ( ( !defined $newname ) || ( $name ne $newname ) ) );
69                         $note .= "    Description: $desc\n" if( defined $desc && ( $desc ne '' ) && ( ( !defined $newdesc ) || ( $desc ne $newdesc ) ) );
70                         $note .= "    Address: http://".$config{'hostname'}."/read/".$addr->get()."\n";
71                         $note .= "  Comment:\n";
72                         $note .= "    Proposed name: $newname\n" if( defined $newname && ( $newname ne '' ) );
73                         $note .= "    Deletion request\n" if defined $newname && $newname eq '';
74                         $note .= "    Proposed description: $newdesc\n" if( defined $newdesc && ( $newdesc ne '' ) );
75                         $note .= "    Text: $text\n" if( defined $text && ( $text ne '' ) );
76                         $note .= "    Author: $author\n" if( defined $author && ( $author ne '' ) );
77                         $note .= "    Time: $time\n";
78                 } elsif( $reason == 2 ) {
79                         if( $name ne '' ) {
80                                 $note = "Item name approved.\n  Id: ".$addr->pretty()."\n";
81                                 $note .= "  Name: $newname\n";
82                                 $note .= "  Description: $newdesc\n" if( defined $newdesc && ( $newdesc ne '' ) );
83                                 $note .= "  Comment text: $text\n" if( defined $text && ( $text ne '' ) );
84                                 $note .= "  Address: http://".$config{'hostname'}."/read/".$addr->get()."\n";
85                         } else {
86                                 $note = "Item deletion approved.\n  Id: ".$addr->pretty()."\n";
87                                 $note .= "  Address: http://".$config{'hostname'}."/read/".$addr->get()."\n";
88                         }
89                 }
90                 $message .= "\n" unless $message eq '';
91                 $message .= $note;
92         }
93         sendNotif( $last_address, $message, $sendFun );
94 }
95
96 sub sendNotifs( $ ) {
97         my( $tables ) = @_;
98         my $time = $tables->time();
99         sendOut( $tables->mailNotifs( $time ), \&PciIds::Email::sendMail );
100         sendOut( $tables->xmppNotifs( $time ), \&PciIds::Xmpp::sendXmpp );
101         $tables->dropNotifs( $time );
102 }
103
104 checkConf( [ 'hostname' ] );
105
106 1;