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;