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

added mail send queue

Browse source
This commit is contained in:
JT Smith 2006-03-21 03:27:57 +00:00
parent b062e61508
commit 7c71d93c1e
6 changed files with 263 additions and 44 deletions
Download patch file Download diff file Expand all files Collapse all files

23
docs/upgrades/upgrade_6.8.7-6.99.0.pl
View file

@ -134,6 +134,11 @@ sub addWorkflow {
value text,
primary key (activityId, name)
)");
$session->db->write("create table mailQueue (
messageId varchar(22) binary not null primary key,
message mediumtext,
toGroup varchar(22) binary
)");
print "\t\tPurging old workflow info.\n";
my $versionTag = WebGUI::VersionTag->getWorking($session);
$versionTag->set({name=>"Upgrade to ".$toVersion});
@ -164,6 +169,7 @@ sub addWorkflow {
"WebGUI::Workflow::Activity::ExpireGroupings", "WebGUI::Workflow::Activity::PurgeOldAssetRevisions",
"WebGUI::Workflow::Activity::ExpireSubscriptionCodes", "WebGUI::Workflow::Activity::PurgeOldTrash",
"WebGUI::Workflow::Activity::GetSyndicatedContent", "WebGUI::Workflow::Activity::ProcessRecurringPayments",
"WebGUI::Workflow::Activity::SendQueuedMailMessages",
"WebGUI::Workflow::Activity::SyncProfilesToLdap", "WebGUI::Workflow::Activity::SummarizePassiveProfileLog"],
"WebGUI::User"=>["WebGUI::Workflow::Activity::CreateCronJob", "WebGUI::Workflow::Activity::NotifyAboutUser"],
"WebGUI::VersionTag"=>["WebGUI::Workflow::Activity::CommitVersionTag", "WebGUI::Workflow::Activity::RollbackVersionTag",
@ -304,6 +310,23 @@ sub addWorkflow {
$activity->set("subject", "Content Denied");
$activity->set("message", "Your version tag was denied. Please take corrective actions and recommit your changes.");
$activity->set("who", "committer");
$workflow = WebGUI::Workflow->create($session, {
title=>"Send Queued Email Messages",
description => "Sends all the messages in the mail queue.",
enabled=>1,
isSerial=>1,
type=>"None"
}, "pbworkflow000000000006");
$activity = $workflow->addActivity("WebGUI::Workflow::Activity::SendQueuedMailMessages", "pbwfactivity0000000021");
$activity->set("title", "Send Queued Messages");
WebGUI::Workflow::Cron->create($session, {
title=>'Send Queued Email Messages Every 5 Minutes',
enabled=>1,
runOnce=>0,
minuteOfHour=>"*/5",
priority=>3,
workflowId=>$workflow->getId
}, "pbcron0000000000000004");
print "\t\tUpdating settings.\n";
$session->setting->remove("autoCommit");
$session->setting->remove("alertOnNewUser");