getting close to having a working email to discussion system

This commit is contained in:
JT Smith 2006-04-10 02:02:19 +00:00
parent 2100a3c992
commit 08d0efe060
3 changed files with 50 additions and 0 deletions

View file

@ -191,6 +191,16 @@ sub updateCs {
$session->db->write("alter table Collaboration add column mailPrefix varchar(255)");
$session->db->write("alter table Collaboration add column getMail int not null default 0");
$session->db->write("alter table Collaboration add column getMailInterval int not null default 300");
$session->db->write("alter table Collaboration add column getMailCronId varchar(22) binary");
my $workflow = WebGUI::Workflow->create($session, {
isSerial=>1,
type=>"WebGUI::Asset::Wobject::Collaboration",
enabled=>1,
description=>"Retrieves mail from a POP3 account for the given Collaboration System.",
title=>"Get CS Mail"
}, "csworkflow000000000001");
my $activity = $workflow->addActivity("WebGUI::Workflow::Activity::GetCsMail","csactivity000000000001");
$activity->set("title","Get the mail");
}
#-------------------------------------------------