631 lines
28 KiB
Perl
631 lines
28 KiB
Perl
#!/usr/bin/perl
|
|
|
|
use lib "../../lib";
|
|
use Getopt::Long;
|
|
use Parse::PlainConfig;
|
|
use strict;
|
|
use WebGUI::Session;
|
|
use WebGUI::SQL;
|
|
use WebGUI::Forum;
|
|
|
|
my $configFile;
|
|
my $quiet;
|
|
GetOptions(
|
|
'configFile=s'=>\$configFile,
|
|
'quiet'=>\$quiet
|
|
);
|
|
WebGUI::Session::open("../..",$configFile);
|
|
|
|
|
|
#--------------------------------------------
|
|
print "\tMigrating styles.\n" unless ($quiet);
|
|
my $sth = WebGUI::SQL->read("select * from style");
|
|
while (my $style = $sth->hashRef) {
|
|
my ($header,$footer) = split(/\^\-\;/,$style->{body});
|
|
my ($newStyleId) = WebGUI::SQL->quickArray("select max(templateId) from template where namespace='style'");
|
|
if ($style->{styleId} > 0 && $style->{styleId} < 25) {
|
|
$newStyleId = $style->{styleId};
|
|
} elsif ($newStyleId > 999) {
|
|
$newStyleId++;
|
|
} else {
|
|
$newStyleId = 1000;
|
|
}
|
|
my $newStyle = $session{setting}{docTypeDec}.'
|
|
<html>
|
|
<head>
|
|
<title><tmpl_var session.page.title> - <tmpl_var session.setting.companyName></title>
|
|
<tmpl_var head.tags>
|
|
'.$style->{styleSheet}.'
|
|
</head>
|
|
'.$header.'
|
|
<tmpl_var body.content>
|
|
'.$footer.'
|
|
</html>
|
|
';
|
|
WebGUI::SQL->write("insert into template (templateId, name, template, namespace) values (".$newStyleId.",
|
|
".quote($style->{name}).", ".quote($newStyle).", 'style')");
|
|
WebGUI::SQL->write("update page set styleId=".$newStyleId." where styleId=".$style->{styleId});
|
|
WebGUI::SQL->write("update themeComponent set id=".$newStyleId.", type='template' where id=".$style->{styleId}." and type='style'");
|
|
}
|
|
$sth->finish;
|
|
WebGUI::SQL->write("delete from incrementer where incrementerId='styleId'");
|
|
WebGUI::SQL->write("delete from settings where name='docTypeDec'");
|
|
WebGUI::SQL->write("drop table style");
|
|
my @templateManagers = WebGUI::SQL->buildArray("select userId from groupings where groupId=8");
|
|
my $clause;
|
|
if ($#templateManagers > 0) {
|
|
$clause = "and userId not in (".join(",",@templateManagers).")";
|
|
}
|
|
$sth = WebGUI::SQL->read("select userId,expireDate,groupAdmin from groupings where groupId=5 ".$clause);
|
|
while (my $user = $sth->hashRef) {
|
|
WebGUI::SQL->write("insert into groupings (groupId,userId,expireDate,groupAdmin) values (8, ".$user->{userId}.",
|
|
".$user->{expireDate}.", ".$user->{groupAdmin}.")");
|
|
}
|
|
$sth->finish;
|
|
WebGUI::SQL->write("delete from groups where groupId=5");
|
|
WebGUI::SQL->write("delete from groupings where groupId=5");
|
|
|
|
|
|
#--------------------------------------------
|
|
print "\tMigrating extra columns to page templates.\n" unless ($quiet);
|
|
my $a = WebGUI::SQL->read("select a.wobjectId, a.templatePosition, a.sequenceNumber, a.pageId, b.templateId, c.width, c.class, c.spacer from wobject a
|
|
left join page b on a.pageId=b.pageId left join ExtraColumn c on a.wobjectId=c.wobjectId where a.namespace='ExtraColumn'");
|
|
while (my $data = $a->hashRef) {
|
|
my ($template, $name) = WebGUI::SQL->quickArray("select template,name from template where namespace='Page' and templateId=".$data->{templateId});
|
|
$name .= " w/ Extra Column";
|
|
#eliminate the need for compatibility with old-style page templates
|
|
$template =~ s/\^(\d+)\;/_positionFormat5x($1)/eg;
|
|
my $i = 1;
|
|
while ($template =~ m/page\.position$i/) {
|
|
$i++;
|
|
}
|
|
my $position = $i;
|
|
my $replacement = '<tmpl_var page.position'.$data->{templatePosition}.'></td><td width="'.$data->{spacer}
|
|
.'"></td><td width="'.$data->{width}.'" class="'.$data->{class}.'" valign="top"><tmpl_var page.position'.$position.'>';
|
|
my $spliton = "<tmpl_var page.position".$data->{templatePosition}.">";
|
|
my @parts = split(/$spliton/, $template);
|
|
$template = $parts[0].$replacement.$parts[1];
|
|
my ($id) = WebGUI::SQL->quickArray("select max(templateId) from template where namespace='Page'");
|
|
$id++;
|
|
WebGUI::SQL->write("insert into template (templateId, name, template, namespace) values ($id, ".quote($name).", ".quote($template).", 'Page')");
|
|
WebGUI::SQL->write("update page set templateId=$id where pageId=".$data->{pageId});
|
|
WebGUI::SQL->write("update wobject set templatePosition=".$position." where pageId=".$data->{pageId}." and templatePosition=".
|
|
$data->{templatePosition}." and sequenceNumber>".$data->{sequenceNumber});
|
|
WebGUI::SQL->write("delete from wobject where wobjectId=".$data->{wobjectId});
|
|
my $b = WebGUI::SQL->read("select wobjectId from wobject where pageId=".$data->{pageId}." order by templatePosition,sequenceNumber");
|
|
my $i = 0;
|
|
while (my ($wid) = $b->array) {
|
|
$i++;
|
|
WebGUI::SQL->write("update wobject set sequenceNumber='$i' where wobjectId=$wid");
|
|
}
|
|
$b->finish;
|
|
}
|
|
$a->finish;
|
|
WebGUI::SQL->write("drop table ExtraColumn");
|
|
|
|
|
|
#--------------------------------------------
|
|
print "\tMigrating page templates.\n" unless ($quiet);
|
|
my $sth = WebGUI::SQL->read("select * from template where namespace='Page'");
|
|
while (my $template = $sth->hashRef) {
|
|
#eliminate the need for compatibility with old-style page templates
|
|
$template->{template} =~ s/\^(\d+)\;/_positionFormat5x($1)/eg;
|
|
$template->{template} = '
|
|
<tmpl_if session.var.adminOn>
|
|
<style>
|
|
div.wobject:hover {
|
|
border: 2px ridge gray;
|
|
}
|
|
div.wobject {
|
|
border: 2px hidden;
|
|
}
|
|
.dragable{
|
|
position: relative;
|
|
}
|
|
.dragTrigger{
|
|
position: relative;
|
|
cursor: move;
|
|
}
|
|
.dragging{
|
|
position: relative;
|
|
cursor: hand;
|
|
z-index: 2000;
|
|
background-image: url("^Extras;opaque.gif");
|
|
}
|
|
.draggedOverTop{
|
|
position: relative;
|
|
border: 1px dotted #aaaaaa;
|
|
border-top: 8px #aaaaaa dotted;
|
|
}
|
|
.draggedOverBottom {
|
|
position: relative;
|
|
border: 1px dotted #aaaaaa;
|
|
border-bottom: 8px #aaaaaa dotted;
|
|
}
|
|
.hidden{
|
|
display: none;
|
|
}
|
|
.blank {
|
|
position: relative;
|
|
cursor: hand;
|
|
background-color: white;
|
|
}
|
|
.blankOver {
|
|
position: relative;
|
|
cursor: hand;
|
|
background-color: black;
|
|
}
|
|
.empty {
|
|
position: relative;
|
|
padding: 25px;
|
|
width: 50px;
|
|
height: 100px;
|
|
background-image: url("^Extras;opaque.gif");
|
|
}
|
|
</style><script language=JavaScript1.2 src="^Extras;draggable.js"></script>
|
|
</tmpl_if>
|
|
<tmpl_if session.var.adminOn> <tmpl_if page.canEdit>
|
|
<tmpl_var page.controls>
|
|
</tmpl_if> </tmpl_if>
|
|
'.$template->{template};
|
|
$template->{template} =~ s/\<tmpl_var page\.position(\d+)\>/_positionFormat6x($1)/eg;
|
|
$template->{template} .= '
|
|
<tmpl_if session.var.adminOn>
|
|
|
|
<table>
|
|
<tr id="blank" class="hidden">
|
|
<td>
|
|
<div><div class="empty"> </div></div>
|
|
</td>
|
|
</tr>
|
|
</table>
|
|
<iframe id="dragSubmitter" style="display: none;"></iframe>
|
|
<script>
|
|
dragable_init("^\;");
|
|
</script>
|
|
</tmpl_if>
|
|
';
|
|
WebGUI::SQL->write("update template set namespace='page', template=".quote($template->{template})
|
|
." where templateId=".$template->{templateId}." and namespace='Page'");
|
|
}
|
|
$sth->finish;
|
|
|
|
#--------------------------------------------
|
|
print "\tConverting items into articles.\n" unless ($quiet);
|
|
my $sth = WebGUI::SQL->read("select * from template where namespace='Item'");
|
|
while (my $template = $sth->hashRef) {
|
|
$template->{name} =~ s/Default (.*?)/$1/i;
|
|
if ($template->{templateId} < 1000) {
|
|
($template->{templateId}) = WebGUI::SQL->quickArray("select max(templateId) from template where namespace='Article' and templateId<1000");
|
|
$template->{templateId}++;
|
|
} else {
|
|
($template->{templateId}) = WebGUI::SQL->quickArray("select max(templateId) from template where namespace='Article'");
|
|
if ($template->{templateId} > 999) {
|
|
$template->{templateId}++;
|
|
} else {
|
|
$template->{templateId} = 1000;
|
|
}
|
|
}
|
|
WebGUI::SQL->write("insert into template (templateId,name,template,namespace) values (".$template->{templateId}.",
|
|
".quote($template->{name}).", ".quote($template->{template}).", 'Article')");
|
|
}
|
|
$sth->finish;
|
|
WebGUI::SQL->write("delete from template where namespace='Item'");
|
|
WebGUI::SQL->write("update wobject set namespace='Article' where namespace='Item'");
|
|
my $sth = WebGUI::SQL->read("select * from Item");
|
|
while (my $data = $sth->hashRef) {
|
|
WebGUI::SQL->write("insert into Article (wobjectId,linkURL,attachment) values (".$data->{wobjectId}.",
|
|
".quote($data->{linkURL}).", ".quote($data->{attachment}).")");
|
|
}
|
|
$sth->finish;
|
|
WebGUI::SQL->write("drop table Item");
|
|
|
|
|
|
#--------------------------------------------
|
|
print "\tSequencing user submissions.\n" unless ($quiet);
|
|
WebGUI::SQL->write("alter table USS_submission add column sequenceNumber int not null");
|
|
WebGUI::SQL->write("alter table USS add column USS_id int not null");
|
|
WebGUI::SQL->write("alter table USS_submission add column USS_id int not null");
|
|
my $ussId = 1000;
|
|
my $a = WebGUI::SQL->read("select wobjectId from USS");
|
|
while (my ($wobjectId) = $a->array) {
|
|
WebGUI::SQL->write("update USS set USS_id=$ussId where wobjectId=$wobjectId");
|
|
my $b = WebGUI::SQL->read("select USS_submissionId from USS_submission where wobjectId=$wobjectId order by dateSubmitted");
|
|
my $seq = 1;
|
|
while (my ($subId) = $b->array) {
|
|
WebGUI::SQL->write("update USS_submission set sequenceNumber=$seq, USS_id=$ussId where USS_submissionId=$subId");
|
|
$seq++;
|
|
}
|
|
$b->finsih;
|
|
$ussId++;
|
|
}
|
|
$a->finish;
|
|
WebGUI::SQL->write("alter table USS_submission drop column wobjectId");
|
|
WebGUI::SQL->write("alter table USS add column submissionFormTemplateId int not null default 1");
|
|
WebGUI::SQL->write("alter table USS_submission add column contentType varchar(35) not null default 'mixed'");
|
|
WebGUI::SQL->write("update USS_submission set contentType='html' where convertCarriageReturns=0");
|
|
WebGUI::SQL->write("alter table USS_submission drop column convertCarriageReturns");
|
|
WebGUI::SQL->write("insert into incrementer (incrementerId,nextValue) values ('USS_id',$ussId)");
|
|
WebGUI::SQL->write("alter table USS_submission add column userDefined1 text");
|
|
WebGUI::SQL->write("alter table USS_submission add column userDefined2 text");
|
|
WebGUI::SQL->write("alter table USS_submission add column userDefined3 text");
|
|
WebGUI::SQL->write("alter table USS_submission add column userDefined4 text");
|
|
WebGUI::SQL->write("alter table USS_submission add column userDefined5 text");
|
|
|
|
|
|
#--------------------------------------------
|
|
print "\tConverting FAQs into USS Submissions.\n" unless ($quiet);
|
|
my $sth = WebGUI::SQL->read("select * from template where namespace='FAQ'");
|
|
while (my $template = $sth->hashRef) {
|
|
$template->{name} =~ s/Default (.*?)/$1/i;
|
|
if ($template->{templateId} < 1000) {
|
|
($template->{templateId}) = WebGUI::SQL->quickArray("select max(templateId) from template where namespace='USS' and templateId<1000");
|
|
$template->{templateId}++;
|
|
} else {
|
|
($template->{templateId}) = WebGUI::SQL->quickArray("select max(templateId) from template where namespace='USS'");
|
|
if ($template->{templateId} > 999) {
|
|
$template->{templateId}++;
|
|
} else {
|
|
$template->{templateId} = 1000;
|
|
}
|
|
}
|
|
$template->{template} =~ s/\<tmpl\_loop\s+qa\_loop\>/\<tmpl\_loop submissions\_loop\>/igs;
|
|
my $replacement = '
|
|
<tmpl_if submission.currentUser>
|
|
[<a href="<tmpl_var submission.edit.url>"><tmpl_var submission.edit.label></a>]
|
|
</tmpl_if>
|
|
<tmpl_if canModerate>
|
|
<tmpl_var submission.controls>
|
|
</tmpl_if>
|
|
';
|
|
$template->{template} =~ s/\<tmpl\_if\s+session\.var\.adminOn\>\s*\<tmpl\_var\s+qa\.controls\>\s*\<\/tmpl_if\>/$replacement/igs;
|
|
$replacement = ' <tmpl_if canPost>
|
|
<a href="<tmpl_var post.url>"> ';
|
|
$template->{template} =~ s/\<tmpl\_if\s+session\.var\.adminOn\>\s*\<a\s+href="\<tmpl\_var\s+addquestion\.url\>"\>/$replacement/igs;
|
|
$template->{template} =~ s/\<tmpl\_var\s+qa\.question\>/\<tmpl\_var submission\.title\>/igs;
|
|
$template->{template} =~ s/\<tmpl\_var\s+qa\.id\>/\<tmpl\_var submission\.id\>/igs;
|
|
$template->{template} =~ s/\<tmpl\_var\s+qa\.answer\>/\<tmpl\_var submission\.content\.full\>/igs;
|
|
WebGUI::SQL->write("insert into template (templateId,name,template,namespace) values (".$template->{templateId}.",
|
|
".quote($template->{name}).", ".quote($template->{template}).", 'USS')");
|
|
}
|
|
$sth->finish;
|
|
WebGUI::SQL->write("delete from template where namespace='FAQ'");
|
|
my $a = WebGUI::SQL->read("select a.wobjectId,a.groupIdEdit,a.ownerId,a.lastEdited,b.username,a.dateAdded from wobject a left join users b on
|
|
a.ownerId=b.userId where a.namespace='FAQ'");
|
|
while (my $data = $a->hashRef) {
|
|
$ussId = getNextId("USS_id");
|
|
WebGUI::SQL->write("insert into USS (wobjectId, USS_id, groupToContribute, submissionsPerPage, filterContent, sortBy, sortOrder,
|
|
submissionFormTemplateId) values (
|
|
".$data->{wobjectId}.", $ussId, ".$data->{groupIdEdit}.", 1000, 'none', 'sequenceNumber', 'asc', 2)");
|
|
my $b = WebGUI::SQL->read("select * from FAQ_question");
|
|
while (my $sub = $b->hashRef) {
|
|
my $subId = getNextId("USS_submissionId");
|
|
my $forum = WebGUI::Forum->create({});
|
|
WebGUI::SQL->write("insert into USS_submission (USS_submissionId, USS_id, title, username, userId, content,
|
|
dateUpdated, dateSubmitted, forumId,contentType) values ( $subId, $ussId, ".quote($sub->{question}).",
|
|
".quote($data->{username}).", ".$data->{ownerId}.", ".quote($sub->{answer}).", ".$data->{lastEdited}.",
|
|
".$data->{dateAdded}.", ".$forum->get("forumId").", 'html')");
|
|
}
|
|
$b->finish;
|
|
}
|
|
$a->finish;
|
|
WebGUI::SQL->write("update wobject set namespace='USS' where namespace='FAQ'");
|
|
WebGUI::SQL->write("drop table FAQ");
|
|
WebGUI::SQL->write("drop table FAQ_question");
|
|
WebGUI::SQL->write("delete from incrementer where incrementerId='FAQ_questionId'");
|
|
|
|
|
|
#--------------------------------------------
|
|
print "\tMigrating Link Lists to USS Submissions.\n" unless ($quiet);
|
|
my $sth = WebGUI::SQL->read("select * from template where namespace='LinkList'");
|
|
while (my $template = $sth->hashRef) {
|
|
$template->{name} =~ s/Default (.*?)/$1/i;
|
|
if ($template->{templateId} < 1000) {
|
|
($template->{templateId}) = WebGUI::SQL->quickArray("select max(templateId) from template where namespace='USS' and templateId<1000");
|
|
$template->{templateId}++;
|
|
} else {
|
|
($template->{templateId}) = WebGUI::SQL->quickArray("select max(templateId) from template where namespace='USS'");
|
|
if ($template->{templateId} > 999) {
|
|
$template->{templateId}++;
|
|
} else {
|
|
$template->{templateId} = 1000;
|
|
}
|
|
}
|
|
$template->{template} =~ s/\<tmpl\_loop\s+link\_loop\>/\<tmpl\_loop submissions\_loop\>/igs;
|
|
$template->{template} =~ s/\<tmpl\_if\s+session\.var\.adminOn\>//igs;
|
|
$template->{template} =~ s/\<\/tmpl\_if\>\s*\<\/tmpl\_if\>/\<\/tmpl_if>/igs;
|
|
my $replacement = '
|
|
<tmpl_if submission.currentUser>
|
|
[<a href="<tmpl_var submission.edit.url>"><tmpl_var submission.edit.label></a>]
|
|
</tmpl_if>
|
|
<tmpl_if canModerate>
|
|
<tmpl_var submission.controls>
|
|
';
|
|
$template->{template} =~ s/\<tmpl\_if\s+canEdit\>\s*\<tmpl\_var\s+link\.controls\>\s*/$replacement/igs;
|
|
$replacement = ' <tmpl_if canPost>
|
|
<a href="<tmpl_var post.url>"> ';
|
|
$template->{template} =~ s/\<tmpl\_if\s+canEdit\>\s*\<a\s+href="\<tmpl\_var\s+addlink\.url\>"\>/$replacement/igs;
|
|
$template->{template} =~ s/\<tmpl\_if\s+link\.newWindow\>/\<tmpl\_if submission\.userDefined2\>/igs;
|
|
$template->{template} =~ s/\<tmpl\_var\s+link\.url\>/\<tmpl\_var submission\.userDefined1\>/igs;
|
|
$template->{template} =~ s/\<tmpl\_var\s+link\.id\>/\<tmpl\_var submission\.id\>/igs;
|
|
$template->{template} =~ s/\<tmpl\_var\s+link\.name\>/\<tmpl\_var submission\.title\>/igs;
|
|
$template->{template} =~ s/\<tmpl\_var\s+link\.description\>/\<tmpl\_var submission\.content\.full\>/igs;
|
|
$template->{template} =~ s/\<tmpl\_if\s+link\.description\>/\<tmpl\_if submission\.content\.full\>/igs;
|
|
WebGUI::SQL->write("insert into template (templateId,name,template,namespace) values (".$template->{templateId}.",
|
|
".quote($template->{name}).", ".quote($template->{template}).", 'USS')");
|
|
}
|
|
$sth->finish;
|
|
WebGUI::SQL->write("delete from template where namespace='LinkList'");
|
|
my $a = WebGUI::SQL->read("select a.wobjectId,a.groupIdEdit,a.ownerId,a.lastEdited,b.username,a.dateAdded from wobject a left join users b on
|
|
a.ownerId=b.userId where a.namespace='LinkList'");
|
|
while (my $data = $a->hashRef) {
|
|
$ussId = getNextId("USS_id");
|
|
WebGUI::SQL->write("insert into USS (wobjectId, USS_id, groupToContribute, submissionsPerPage, filterContent, sortBy, sortOrder,
|
|
submissionFormTemplateId) values (
|
|
".$data->{wobjectId}.", $ussId, ".$data->{groupIdEdit}.", 1000, 'none', 'sequenceNumber', 'asc', 3)");
|
|
my $b = WebGUI::SQL->read("select * from LinkList_link");
|
|
while (my $sub = $b->hashRef) {
|
|
my $subId = getNextId("USS_submissionId");
|
|
my $forum = WebGUI::Forum->create({});
|
|
WebGUI::SQL->write("insert into USS_submission (USS_submissionId, USS_id, title, username, userId, content,
|
|
dateUpdated, dateSubmitted, forumId,contentType,userDefined1, userDefined2) values ( $subId, $ussId, ".quote($sub->{name}).",
|
|
".quote($data->{username}).", ".$data->{ownerId}.", ".quote($sub->{description}).", ".$data->{lastEdited}.",
|
|
".$data->{dateAdded}.", ".$forum->get("forumId").", 'html', ".quote($sub->{url}).", ".quote($sub->{newWindow}).")");
|
|
}
|
|
$b->finish;
|
|
}
|
|
$a->finish;
|
|
WebGUI::SQL->write("update wobject set namespace='USS' where namespace='LinkList'");
|
|
WebGUI::SQL->write("drop table LinkList");
|
|
WebGUI::SQL->write("drop table LinkList_link");
|
|
WebGUI::SQL->write("delete from incrementer where incrementerId='LinkList_linkId'");
|
|
|
|
|
|
|
|
#--------------------------------------------
|
|
print "\tUpdating SQL Reports.\n" unless ($quiet);
|
|
my %dblink;
|
|
$dblink{$session{config}{dsn}} = (
|
|
id=>0,
|
|
user=>$session{config}{dbuser}
|
|
);
|
|
my $sth = WebGUI::SQL->read("select DSN, databaseLinkId, username, identifier, wobjectId from SQLReport");
|
|
while (my $data = $sth->hashRef) {
|
|
my $id = undef;
|
|
next if ($data->{databaseLinkId} > 0);
|
|
foreach my $dsn (keys %dblink) {
|
|
if ($dsn eq $data->{dsn} && $dblink{$dsn}{user} eq $data->{username}) {
|
|
$id = $dblink{$dsn}{id};
|
|
last;
|
|
}
|
|
}
|
|
unless (defined $id) {
|
|
$id = getNextId("databaseLinkId");
|
|
my $title = $data->{username}.'@'.$data->{DSN};
|
|
WebGUI::SQL->write("insert into databaseLink (databaseLinkId, title, DSN, username, identifier) values ($id, ".quote($title).",
|
|
".quote($data->{DSN}).", ".quote($data->{username}).", ".quote($data->{identifier}).")");
|
|
$dblink{$data->{DSN}} = (
|
|
id=>$id,
|
|
user=>$data->{username}
|
|
);
|
|
}
|
|
WebGUI::SQL->write("update SQLReport set databaseLinkId=".$id." where wobjectId=".$data->{wobjectId});
|
|
}
|
|
$sth->finish;
|
|
WebGUI::SQL->write("alter table SQLReport drop column DSN");
|
|
WebGUI::SQL->write("alter table SQLReport drop column username");
|
|
WebGUI::SQL->write("alter table SQLReport drop column identifier");
|
|
use WebGUI::DatabaseLink;
|
|
my $templateId;
|
|
my $a = WebGUI::SQL->read("select a.databaseLinkId, a.dbQuery, a.template, a.wobjectId, b.title from SQLReport a
|
|
left join wobject b on a.wobjectId=b.wobjectId");
|
|
while (my $data = $a->hashRef) {
|
|
my $db = WebGUI::DatabaseLink->new($data->{databaseLinkId});
|
|
if ($data->{template} ne "") {
|
|
($templateId) = WebGUI::SQL->quickArray("select max(templateId) from template where namespace='SQLReport'");
|
|
if ($templateId > 999) {
|
|
$templateId++;
|
|
} else {
|
|
$templateId = 1000;
|
|
}
|
|
my $b = WebGUI::SQL->unconditionalRead($data->{dbQuery},$db->dbh);
|
|
my @template = split(/\^\-\;/,$data->{template});
|
|
my $final = '<tmpl_if displayTitle>
|
|
<h1><tmpl_var title></h1>
|
|
</tmpl_if>
|
|
|
|
<tmpl_if description>
|
|
<tmpl_var description><p />
|
|
</tmpl_if>
|
|
|
|
<tmpl_if debugMode>
|
|
<ul>
|
|
<tmpl_loop debug_loop>
|
|
<li><tmpl_var debug.output></li>
|
|
</tmpl_loop>
|
|
</ul>
|
|
</tmpl_if>
|
|
'.$template[0].'
|
|
<tmpl_loop rows_loop> ';
|
|
my $i;
|
|
foreach my $col ($b->getColumnNames) {
|
|
my $replacement = '<tmpl_var row.field.'.$col.'.value>';
|
|
$template[1] =~ s/\^$i\;/$replacement/g;
|
|
$i++;
|
|
}
|
|
$template[1] =~ s/\^rownum\;/\<tmpl_var row\.number\>/g;
|
|
$final .= $template[1].'
|
|
</tmpl_loop>
|
|
'.$template[2].'
|
|
<tmpl_if multiplePages>
|
|
<div class="pagination">
|
|
<tmpl_var previousPage> <tmpl_var pageList> <tmpl_var nextPage>
|
|
</div>
|
|
</tmpl_if>';
|
|
WebGUI::SQL->write("insert into template (templateId, name, template, namespace) values ($templateId,
|
|
".quote($data->{title}).",".quote($final).",'SQLReport')");
|
|
} else {
|
|
$templateId = 1;
|
|
}
|
|
WebGUI::SQL->write("insert into wobject set templateId=$templateId where wobjectId=".$data->{wobjectId});
|
|
}
|
|
$a->finish;
|
|
WebGUI::SQL->write("alter table SQLReport drop column template");
|
|
WebGUI::SQL->write("alter table SQLReport drop column convertCarriageReturns");
|
|
|
|
|
|
|
|
#--------------------------------------------
|
|
print "\tUpdating config file.\n" unless ($quiet);
|
|
my $pathToConfig = '../../etc/'.$configFile;
|
|
my $conf = Parse::PlainConfig->new('DELIM' => '=', 'FILE' => $pathToConfig);
|
|
my $macros = $conf->get("macros");
|
|
delete $macros->{"\\"};
|
|
$macros->{"\\\\"} = "Backslash_pageUrl";
|
|
$conf->set("macros"=>$macros);
|
|
my $wobjects = $conf->get("wobjects");
|
|
my @newWobjects;
|
|
foreach my $wobject (@{$wobjects}) {
|
|
unless ($wobject eq "Item" || $wobject eq "FAQ" || $wobject eq "ExtraColumn" || $wobject eq "LinkList") {
|
|
push(@newWobjects,$wobject);
|
|
}
|
|
}
|
|
push(@newWobjects,"WSClient");
|
|
$conf->set("wobjects"=>\@newWobjects);
|
|
$conf->set("emailRecoveryLoggingEnabled"=>1);
|
|
$conf->set("passwordChangeLoggingEnabled"=>1);
|
|
$conf->write;
|
|
|
|
|
|
#--------------------------------------------
|
|
print "\tUpdating Authentication.\n" unless ($quiet);
|
|
WebGUI::SQL->write("delete from authentication where authMethod='WebGUI' and fieldName='passwordLastUpdated'");
|
|
WebGUI::SQL->write("delete from authentication where authMethod='WebGUI' and fieldName='passwordTimeout'");
|
|
WebGUI::SQL->write("delete from authentication where authMethod='WebGUI' and fieldName='changeUsername'");
|
|
WebGUI::SQL->write("delete from authentication where authMethod='WebGUI' and fieldName='changePassword'");
|
|
|
|
my $authSth = WebGUI::SQL->read("select userId from users where authMethod='WebGUI'");
|
|
while (my $authHash = $authSth->hashRef){
|
|
WebGUI::SQL->write("insert into authentication (userId,authMethod,fieldName,fieldData) values ('".$authHash->{userId}."','WebGUI','passwordLastUpdated','".time()."')");
|
|
WebGUI::SQL->write("insert into authentication (userId,authMethod,fieldName,fieldData) values ('".$authHash->{userId}."','WebGUI','passwordTimeout','3122064000')");
|
|
WebGUI::SQL->write("insert into authentication (userId,authMethod,fieldName,fieldData) values ('".$authHash->{userId}."','WebGUI','changeUsername','1')");
|
|
WebGUI::SQL->write("insert into authentication (userId,authMethod,fieldName,fieldData) values ('".$authHash->{userId}."','WebGUI','changePassword','1')");
|
|
}
|
|
|
|
|
|
#--------------------------------------------
|
|
print "\tRemoving unneeded files and directories.\n" unless ($quiet);
|
|
unlink("../../lib/WebGUI/Wobject/Item.pm");
|
|
unlink("../../lib/WebGUI/Wobject/LinkList.pm");
|
|
unlink("../../lib/WebGUI/Wobject/FAQ.pm");
|
|
unlink("../../lib/WebGUI/Wobject/ExtraColumn.pm");
|
|
unlink("../../lib/WebGUI/Authentication.pm");
|
|
unlink("../../lib/WebGUI/Operation/Account.pm");
|
|
unlink("../../lib/WebGUI/Authentication/WebGUI.pm");
|
|
unlink("../../lib/WebGUI/Authentication/LDAP.pm");
|
|
unlink("../../lib/WebGUI/Authentication/SMB.pm");
|
|
rmdir("../../lib/WebGUI/Authentication");
|
|
|
|
|
|
#--------------------------------------------
|
|
print "\tMigrating wobject privileges.\n" unless ($quiet);
|
|
WebGUI::SQL->write("alter table page add column wobjectPrivileges int not null default 0");
|
|
WebGUI::SQL->write("update page set wobjectPrivileges=$session{setting}{wobjectPrivileges}");
|
|
WebGUI::SQL->write("delete from settings where name='wobjectPrivileges'");
|
|
|
|
|
|
#--------------------------------------------
|
|
print "\tMigrating surveys.\n" unless ($quiet);
|
|
WebGUI::SQL->write("alter table Survey_response rename Survey_questionResponse");
|
|
WebGUI::SQL->write("update Survey_questionResponse set userId='1' where userId='c4ca4238'");
|
|
WebGUI::SQL->write("alter table Survey_questionResponse drop primary key");
|
|
WebGUI::SQL->write("alter table Survey_questionResponse add primary key (Survey_questionId, Survey_answerId, Survey_responseId)");
|
|
WebGUI::SQL->write("create table Survey_response (Survey_id int, Survey_responseId int not null primary key, userId varchar(11),
|
|
username varchar(255), ipAddress varchar(15), startDate int, endDate int, isComplete int not null default 0)");
|
|
my $a = WebGUI::SQL->read("select Survey_id from Survey");
|
|
while (my ($surveyId) = $a->array) {
|
|
my $b = WebGUI::SQL->read("select distinct userId from Survey_questionResponse where Survey_id=$surveyId");
|
|
while (my ($userId) = $b->array) {
|
|
my ($username,$ipAddress) = WebGUI::SQL->quickArray("select username,ipAddress from Survey_questionResponse where Survey_id=$surveyId and
|
|
userId=".quote($userId));
|
|
WebGUI::SQL->write("insert into (Survey_id, Survey_responseId, userId, username, isComplete, ipAddress) values ($surveyId,
|
|
".getNextId("Survey_responseId")." ,".quote($userId).", ".quote($username).", 1, ".quote($ipAddress).")");
|
|
}
|
|
$b->finish;
|
|
$b = WebGUI::SQL->read("select distinct ipAddress from Survey_questionResponse where Survey_id=$surveyId and userId='1'");
|
|
while (my ($ipAddress) = $b->array) {
|
|
WebGUI::SQL->write("insert into (Survey_id, Survey_responseId, userId, username, isComplete, ipAddress) values (
|
|
$surveyId, ".getNextId("Survey_responseId")." ,'1', 'Visitor', 1, ".quote($ipAddress).")");
|
|
}
|
|
$b->finish;
|
|
}
|
|
$a->finish;
|
|
$a = WebGUI::SQL->read("select Survey_id, Survey_responseId, userId, ipAddress from Survey_response");
|
|
while (my $data = $a->hashRef) {
|
|
my ($end) = WebGUI::SQL->quickArray("select max(dateOfResponse) from Survey_questionResponse where Survey_id=".$data->{Survey_id}."
|
|
and ((userId=".quote($data->{userId})." and userId<>1) or (userId=1 and ipAddress=".quote($data->{ipAddress})."))");
|
|
my ($start) = WebGUI::SQL->quickArray("select min(dateOfResponse) from Survey_questionResponse where Survey_id=".$data->{Survey_id}."
|
|
and ((userId=".quote($data->{userId})." and userId<>1) or (userId=1 and ipAddress=".quote($data->{ipAddress})."))");
|
|
WebGUI::SQL->write("update Survey_response set startDate=$start, endDate=$end where Survey_responseId=".$data->{Survey_responseId});
|
|
WebGUI::SQL->quickArray("update Survey_questionResponse set Survey_responseId=".$data->{Survey_responseId}." where Survey_id=".$data->{Survey_id}."
|
|
and ((userId=".quote($data->{userId})." and userId<>1) or (userId=1 and ipAddress=".quote($data->{ipAddress})."))");
|
|
}
|
|
$a->finish;
|
|
WebGUI::SQL->write("alter table Survey_questionResponse drop column userId");
|
|
WebGUI::SQL->write("alter table Survey_questionResponse drop column username");
|
|
WebGUI::SQL->write("alter table Survey_questionResponse drop column ipAddress");
|
|
WebGUI::SQL->write("alter table Survey add column questionsPerPage int not null default 1");
|
|
WebGUI::SQL->write("alter table Survey add column responseTemplateId int not null default 1");
|
|
WebGUI::SQL->write("alter table Survey add column reportcardTemplateId int not null default 1");
|
|
WebGUI::SQL->write("alter table Survey add column overviewTemplateId int not null default 1");
|
|
WebGUI::SQL->write("alter table Survey add column maxResponsesPerUser int not null default 1");
|
|
WebGUI::SQL->write("alter table Survey add column questionsPerResponse int not null default 9999999");
|
|
|
|
|
|
WebGUI::Session::close();
|
|
|
|
|
|
#-------------------------------------------------------------------
|
|
sub _positionFormat5x {
|
|
return "<tmpl_var page.position".($_[0]+1).">";
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub _positionFormat6x {
|
|
my $newPositionCode = '
|
|
<tmpl_if session.var.adminOn> <tmpl_if page.canEdit>
|
|
<table border=0 id="position'.$_[0].'" class="content">
|
|
<tbody>
|
|
</tmpl_if> </tmpl_if>
|
|
<tmpl_loop position'.$_[0].'_loop>
|
|
<tmpl_if session.var.adminOn> <tmpl_if page.canEdit>
|
|
<tr id="td<tmpl_var wobject.id>">
|
|
<td>
|
|
<div id="td<tmpl_var wobject.id>_div" class="dragable">
|
|
</tmpl_if></tmpl_if>
|
|
<tmpl_if wobject.canView>
|
|
<div class="wobject"> <div class="wobject<tmpl_var wobject.namespace>" id="wobjectId<tmpl_var wobject.id>">
|
|
<tmpl_if session.var.adminOn> <tmpl_if wobject.canEdit>
|
|
<tmpl_var wobject.controls><tmpl_if page.canEdit><tmpl_var wobject.controls.drag></tmpl_if>
|
|
</tmpl_if> </tmpl_if>
|
|
<tmpl_if wobject.isInDateRange>
|
|
<a name="<tmpl_var wobject.id>"></a>
|
|
<tmpl_var wobject.content>
|
|
</tmpl_if wobject.isInDateRange>
|
|
</div> </div>
|
|
</tmpl_if>
|
|
<tmpl_if session.var.adminOn> <tmpl_if page.canEdit>
|
|
</div>
|
|
</td>
|
|
</tr>
|
|
</tmpl_if></tmpl_if>
|
|
</tmpl_loop>
|
|
<tmpl_if session.var.adminOn>
|
|
</tbody>
|
|
</table>
|
|
</tmpl_if>
|
|
';
|
|
return $newPositionCode;
|
|
}
|
|
|
|
|