oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added notifications preferences, and connectors to email, pager, and icq.

Browse source
This commit is contained in:
JT Smith 2002-05-29 05:33:29 +00:00
parent c85c90ae3b
commit 9b2a05de03
3 changed files with 65 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

67
lib/WebGUI/MessageLog.pm
View file

@ -11,23 +11,68 @@ package WebGUI::MessageLog;
#-------------------------------------------------------------------
use strict;
use Tie::CPHash;
use WebGUI::Mail;
use WebGUI::Session;
use WebGUI::SQL;
use WebGUI::URL;
#-------------------------------------------------------------------
sub _getUserInfo {
my (%default, $key, %user, %profile, $value);
tie %user, 'Tie::CPHash';
%user = WebGUI::SQL->quickHash("select * from users where userId='$_[0]'");
if ($user{userId} ne "") {
%profile = WebGUI::SQL->buildHash("select userProfileField.fieldName, userProfileData.fieldData
from userProfileData, userProfileField
where userProfileData.fieldName=userProfileField.fieldName and userProfileData.userId=$user{userId}");
%user = (%user, %profile);
%default = WebGUI::SQL->buildHash("select fieldName, dataDefault from userProfileField where profileCategoryId=4");
foreach $key (keys %default) {
if ($user{$key} eq "") {
$value = eval($default{$key});
if (ref $value eq "ARRAY") {
$user{$key} = $$value[0];
} else {
$user{$key} = $value;
}
}
}
}
return \%user;
}
#-------------------------------------------------------------------
sub addEntry {
my ($user, %userLanguage, $messageLogId, %message);
my (@users, $messageLogId,$sth, $user, %message, %subject, $message, $subject);
$messageLogId = getNextId("messageLogId");
if ($_[0] ne "") {
($userLanguage{$_[0]}) = WebGUI::SQL->quickArray("select language from users where userId=$_[0]");
}
if ($_[1] ne "") {
%userLanguage = (WebGUI::SQL->buildHash("select users.userId,users.language from groupings,users where groupings.groupId=$_[1] and groupings.userId=users.userId"),%userLanguage);
}
%message = WebGUI::SQL->buildHash("select language,message from international where internationalId=$_[3] and namespace='$_[4]'");
foreach $user (keys %userLanguage) {
WebGUI::SQL->write("insert into messageLog values ($messageLogId,$user,".quote($message{$userLanguage{$user}}).",".quote($_[2]).",".time().")");
# here is where we'll trigger communication with external systems like email
%subject = WebGUI::SQL->buildHash("select language,message from international where internationalId=523 and namespace='WebGUI'");
if ($_[1] ne "") {
@users = WebGUI::SQL->quickArray("select userId from groupings where groupId=$_[1]");
}
@users = ($_[0],@users);
foreach $user (@users) {
$user = _getUserInfo($user);
if (${$user}{userId} ne "") {
WebGUI::SQL->write("insert into messageLog values ($messageLogId,".${$user}{userId}.",
".quote($message{${$user}{language}}).",".quote($_[2]).",".time().")");
$subject = $subject{${$user}{language}};
$message = $message{${$user}{language}}."\n".WebGUI::URL::append('http://'.$session{env}{HTTP_HOST}.$_[2],'mlog='.$messageLogId);
if (${$user}{INBOXNotifications} = "email") {
if (${$user}{email} ne "") {
WebGUI::Mail::send(${$user}{email},$subject,$message);
}
} elsif (${$user}{INBOXNotifications} = "emailToPager") {
if (${$user}{emailToPagerGateway} ne "") {
WebGUI::Mail::send(${$user}{emailToPagerGateway},$subject,$message);
}
} elsif (${$user}{INBOXNotifications} = "icq") {
if (${$user}{icq}) {
WebGUI::Mail::send(${$user}{icq}.'@pager.icq.com',$subject,$message);
}
}
}
}
}
@ -37,7 +82,7 @@ sub completeEntry {
$completeMessage = WebGUI::International::get(350);
# unfortunately had to loop through reading and writing because I couldn't
# find a concatination function that worked the same in all DB servers
$sth = WebGUI::SQL->read("select message,userId from messageLog where messageLogId=$_[0]");
$sth = WebGUI::SQL->read("select message,userId from messageLog where messageLogId='$_[0]'");
while (@data = $sth->array) {
WebGUI::SQL->write("update messageLog set message=".quote($completeMessage.": ".$data[0]).", dateOfEntry=".time()." where messageLogId='$_[0]' and userId=$data[1]");
}