c323789d64
Add help for dashboard and fix labels. Remove startDate, endDate from Asset help. Update Help template to show UI levels as data rather than content.
616 lines
22 KiB
Perl
616 lines
22 KiB
Perl
#-------------------------------------------------------------------
|
|
# WebGUI is Copyright 2001-2006 Plain Black Corporation.
|
|
#-------------------------------------------------------------------
|
|
# Please read the legal notices (docs/legal.txt) and the license
|
|
# (docs/license.txt) that came with this distribution before using
|
|
# this software.
|
|
#-------------------------------------------------------------------
|
|
# http://www.plainblack.com info@plainblack.com
|
|
#-------------------------------------------------------------------
|
|
|
|
use lib "../../lib";
|
|
use strict;
|
|
use Getopt::Long;
|
|
use WebGUI::Session;
|
|
use File::Path;
|
|
use WebGUI::Workflow;
|
|
use WebGUI::Workflow::Cron;
|
|
use WebGUI::Group;
|
|
|
|
my $toVersion = "6.99.0"; # make this match what version you're going to
|
|
my $quiet; # this line required
|
|
|
|
|
|
my $session = start(); # this line required
|
|
|
|
templateParsers();
|
|
removeFiles();
|
|
addSearchEngine();
|
|
addEMSTemplates();
|
|
addEMSTables();
|
|
updateTemplates();
|
|
updateDatabaseLinksAndSQLReport();
|
|
addWorkflow();
|
|
ipsToCIDR();
|
|
addDisabletoRichEditor();
|
|
addNavigationMimeType();
|
|
addIndexes();
|
|
addDatabaseCache();
|
|
updateHelpTemplate();
|
|
|
|
finish($session); # this line required
|
|
|
|
#-------------------------------------------------
|
|
sub addCsPopularityContest {
|
|
print "\tAdding collaboration system popularity system based upon karma.\n";
|
|
$session->db->write("alter table Collaboration add column defaultKarmaScale integer not null default 1");
|
|
$session->db->write("alter table Thread add column karma integer not null default 0");
|
|
$session->db->write("alter table Thread add column karmaScale integer not null default 1");
|
|
$session->db->write("alter table Thread add column karmaRank decimal(5,6) not null default 0");
|
|
}
|
|
|
|
#-------------------------------------------------
|
|
sub addDatabaseCache {
|
|
print "\tAdding database cache.\n";
|
|
$session->db->write("create table cache ( namespace varchar(128) not null, cachekey varchar(128) not null, expires bigint not null, size int not null, content mediumtext, primary key (namespace, cachekey))");
|
|
$session->db->write("alter table cache add index namespace_cachekey_size (namespace,cachekey,expires)");
|
|
if ($session->config->get("memcached_servers")) {
|
|
$session->config->set("cacheType","WebGUI::Cache::Memcached");
|
|
} else {
|
|
$session->config->set("cacheType","WebGUI::Cache::FileCache");
|
|
}
|
|
}
|
|
|
|
#-------------------------------------------------
|
|
sub addIndexes {
|
|
print "\tAdding indexes to increase performance.\n";
|
|
$session->db->write("alter table assetData add index url (url)");
|
|
}
|
|
|
|
#-------------------------------------------------
|
|
sub addWorkflow {
|
|
print "\tAdding workflow.\n";
|
|
my $group = WebGUI::Group->new($session,"new","pbgroup000000000000015");
|
|
$group->set("groupName", "Workflow Managers");
|
|
$group->set("description", "People who can create, edit, and delete workflows.");
|
|
$session->config->set("spectreIp","127.0.0.1");
|
|
$session->config->set("spectrePort",32133);
|
|
$session->config->set("spectreSubnets",["127.0.0.1/32"]);
|
|
$session->config->set("spectreCryptoKey","123qwe");
|
|
$session->db->write("create table WorkflowSchedule (
|
|
taskId varchar(22) binary not null primary key,
|
|
title varchar(255) not null default 'Untitled',
|
|
enabled int not null default 0,
|
|
runOnce int not null default 0,
|
|
minuteOfHour varchar(25) not null default '0',
|
|
hourOfDay varchar(25) not null default '*',
|
|
dayOfMonth varchar(25) not null default '*',
|
|
monthOfYear varchar(25) not null default '*',
|
|
dayOfWeek varchar(25) not null default '*',
|
|
workflowId varchar(22) binary not null,
|
|
className varchar(255),
|
|
methodName varchar(255),
|
|
priority int not null default 2,
|
|
parameters text
|
|
)");
|
|
$session->db->write("create table WorkflowInstance (
|
|
instanceId varchar(22) binary not null primary key,
|
|
workflowId varchar(22) binary not null,
|
|
currentActivityId varchar(22) binary not null,
|
|
priority int not null default 2,
|
|
className varchar(255),
|
|
methodName varchar(255),
|
|
parameters text,
|
|
runningSince bigint,
|
|
lastUpdate bigint
|
|
)");
|
|
$session->db->write("create table Workflow (
|
|
workflowId varchar(22) binary not null primary key,
|
|
title varchar(255) not null default 'Untitled',
|
|
description text,
|
|
enabled int not null default 0,
|
|
isSerial int not null default 0,
|
|
type varchar(255) not null default 'None'
|
|
)");
|
|
$session->db->write("create table WorkflowActivity (
|
|
activityId varchar(22) binary not null primary key,
|
|
workflowId varchar(22) binary not null,
|
|
title varchar(255) not null default 'Untitled',
|
|
description text,
|
|
sequenceNumber int not null default 1,
|
|
className varchar(255)
|
|
)");
|
|
$session->db->write("create table WorkflowActivityData (
|
|
activityId varchar(22) binary not null,
|
|
name varchar(255) not null,
|
|
value text,
|
|
primary key (activityId, name)
|
|
)");
|
|
$session->config->set("workflowActivities", {
|
|
None=>["WebGUI::Workflow::Activity::DecayKarma", "WebGUI::Workflow::Activity::TrashClipboard", "WebGUI::Workflow::Activity::CleanTempStorage",
|
|
"WebGUI::Workflow::Activity::CleanFileCache", "WebGUI::Workflow::Activity::CleanLoginHistory", "WebGUI::Workflow::Activity::ArchiveOldThreads",
|
|
"WebGUI::Workflow::Activity::TrashExpiredEvents", "WebGUI::Workflow::Activity::CreateCronJob", "WebGUI::Workflow::Activity::DeleteExpiredSessions",
|
|
"WebGUI::Workflow::Activity::ExpireGroupings", "WebGUI::Workflow::Activity::PurgeOldAssetRevisions",
|
|
"WebGUI::Workflow::Activity::ExpireSubscriptionCodes", "WebGUI::Workflow::Activity::PurgeOldTrash",
|
|
"WebGUI::Workflow::Activity::GetSyndicatedContent"],
|
|
"WebGUI::User"=>["WebGUI::Workflow::Activity::CreateCronJob"],
|
|
"WebGUI::VersionTag"=>["WebGUI::Workflow::Activity::CommitVersionTag", "WebGUI::Workflow::Activity::RollbackVersionTag",
|
|
"WebGUI::Workflow::Activity::TrashVersionTag", "WebGUI::Workflow::Activity::CreateCronJob"]
|
|
});
|
|
my $workflow = WebGUI::Workflow->create($session, {
|
|
title=>"Daily Maintenance Tasks",
|
|
description=>"This workflow runs daily maintenance tasks such as cleaning up old temporary files and cache.",
|
|
enabled=>1,
|
|
type=>"None"
|
|
}, "pbworkflow000000000001");
|
|
my $activity = $workflow->addActivity("WebGUI::Workflow::Activity::CleanTempStorage", "pbwfactivity0000000001");
|
|
$activity->set("title","Delete temp files older than 24 hours");
|
|
$activity->set("storageTimeout",60*60*24);
|
|
$activity = $workflow->addActivity("WebGUI::Workflow::Activity::CleanFileCache", "pbwfactivity0000000002");
|
|
$activity->set("title","Prune cache larger than 100MB");
|
|
$activity->set("sizeLimit", 1000000000);
|
|
$activity = $workflow->addActivity("WebGUI::Workflow::Activity::ArchiveOldThreads", "pbwfactivity0000000005");
|
|
$activity->set("title", "Archive old CS threads");
|
|
$activity = $workflow->addActivity("WebGUI::Workflow::Activity::TrashExpiredEvents", "pbwfactivity0000000006");
|
|
$activity->set("title", "Trash old Events Calendar Events");
|
|
$activity->set("trashAfter", 60*60*24*30);
|
|
$activity = $workflow->addActivity("WebGUI::Workflow::Activity::ExpireGroupings", "pbwfactivity0000000007");
|
|
$activity->set("title", "deal with user groupings that have expired");
|
|
$activity = $workflow->addActivity("WebGUI::Workflow::Activity::ExpireSubscriptionCodes", "pbwfactivity0000000011");
|
|
$activity->set("title", "Expire old subscription codes");
|
|
WebGUI::Workflow::Cron->create($session, {
|
|
title=>'Daily Maintenance',
|
|
enabled=>1,
|
|
runOnce=>0,
|
|
minuteOfHour=>"30",
|
|
hourOfDay=>"23",
|
|
priority=>3,
|
|
workflowId=>$workflow->getId
|
|
}, "pbcron0000000000000001");
|
|
$session->db->write("alter table assetData drop column startDate");
|
|
$session->db->write("alter table assetData drop column endDate");
|
|
$workflow = WebGUI::Workflow->create($session, {
|
|
title=>"Weekly Maintenance Tasks",
|
|
description=>"This workflow runs once per week to perform maintenance tasks like cleaning up log files.",
|
|
enabled=>1,
|
|
type=>"None"
|
|
}, "pbworkflow000000000002");
|
|
$activity = $workflow->addActivity("WebGUI::Workflow::Activity::CleanLoginHistory", "pbwfactivity0000000003");
|
|
$activity->set("title", "Delete login entries older than 90 days");
|
|
$activity->set("ageToDelete", 60*60*24*90);
|
|
$activity = $workflow->addActivity("WebGUI::Workflow::Activity::TrashClipboard", "pbwfactivity0000000004");
|
|
$activity->set("title", "Move clipboard items older than 30 days to trash");
|
|
$activity->set("trashAfter", 60*60*24*30);
|
|
$activity = $workflow->addActivity("WebGUI::Workflow::Activity::PurgeOldAssetRevisions", "pbwfactivity0000000008");
|
|
$activity->set("title", "delete asset revisions older than a year from the database");
|
|
$activity->set("purgeAfter", 60*60*24*365);
|
|
$activity = $workflow->addActivity("WebGUI::Workflow::Activity::PurgeOldTrash", "pbwfactivity0000000010");
|
|
$activity->set("title", "delete assets from trash that have been sitting around for 30 days");
|
|
$activity->set("purgeAfter", 60*60*24*30);
|
|
WebGUI::Workflow::Cron->create($session, {
|
|
title=>'Weekly Maintenance',
|
|
enabled=>1,
|
|
runOnce=>0,
|
|
minuteOfHour=>"30",
|
|
hourOfDay=>"1",
|
|
dayOfWeek=>"0",
|
|
priority=>3,
|
|
workflowId=>$workflow->getId
|
|
}, "pbcron0000000000000002");
|
|
$workflow = WebGUI::Workflow->create($session, {
|
|
title=>"Hourly Maintenance Tasks",
|
|
description=>"This workflow runs once per hour to perform maintenance tasks like deleting expired user sessions.",
|
|
enabled=>1,
|
|
type=>"None"
|
|
}, "pbworkflow000000000004");
|
|
$activity = $workflow->addActivity("WebGUI::Workflow::Activity::DeleteExpiredSessions", "pbwfactivity0000000009");
|
|
$activity->set("title", "delete expired sessions");
|
|
$activity = $workflow->addActivity("WebGUI::Workflow::Activity::GetSyndicatedContent", "pbwfactivity0000000012");
|
|
$activity->set("title", "Get syndicated content");
|
|
WebGUI::Workflow::Cron->create($session, {
|
|
title=>'Hourly Maintenance',
|
|
enabled=>1,
|
|
runOnce=>0,
|
|
minuteOfHour=>"15",
|
|
priority=>3,
|
|
workflowId=>$workflow->getId
|
|
}, "pbcron0000000000000003");
|
|
$session->db->write("alter table assetVersionTag add column isLocked int not null default 0");
|
|
$session->db->write("alter table assetVersionTag add column lockedBy varchar(22) binary not null");
|
|
$session->config->delete("fileCacheSizeLimit");
|
|
$session->config->delete("CleanLoginHistory_ageToDelete");
|
|
$session->config->delete("DecayKarma_minimumKarma");
|
|
$session->config->delete("DecayKarma_decayFactor");
|
|
$session->config->delete("DeleteExpiredClipboard_offset");
|
|
$session->config->delete("DeleteExpiredEvents_offset");
|
|
$session->config->delete("TrashExpiredContent_offset");
|
|
$session->config->delete("DeleteExpiredTrash_offset");
|
|
$session->config->delete("DeleteExpiredRevisions_offset");
|
|
$workflow = WebGUI::Workflow->create($session, {
|
|
title=>"Commit Without Approval",
|
|
description=>"This workflow commits all the assets in this version tag without asking for any approval.",
|
|
enabled=>1,
|
|
type=>"WebGUI::VersionTag"
|
|
}, "pbworkflow000000000003");
|
|
$activity = $workflow->addActivity("WebGUI::Workflow::Activity::CommitVersionTag", "pbwfactivity0000000006");
|
|
$activity->set("title", "Commit Assets");
|
|
}
|
|
|
|
#-------------------------------------------------
|
|
sub updateDatabaseLinksAndSQLReport {
|
|
print "\tUpdating the Database link and SQLReport Tables.\n";
|
|
$session->db->write('alter table databaseLink add column allowedKeywords text');
|
|
$session->db->write('update databaseLink set allowedKeywords="select\ndecsribe\nshow"');
|
|
$session->db->write('alter table SQLReport add column prequeryStatements1 text');
|
|
$session->db->write('alter table SQLReport add column prequeryStatements2 text');
|
|
$session->db->write('alter table SQLReport add column prequeryStatements3 text');
|
|
$session->db->write('alter table SQLReport add column prequeryStatements4 text');
|
|
$session->db->write('alter table SQLReport add column prequeryStatements5 text');
|
|
}
|
|
|
|
#-------------------------------------------------
|
|
sub updateTemplates {
|
|
print "\tUpdating base templates for XHTML compliance, and a cleaner look.\n" unless ($quiet);
|
|
$session->db->write("alter table template add column headBlock text");
|
|
opendir(DIR,"templates-6.9.0");
|
|
my @files = readdir(DIR);
|
|
closedir(DIR);
|
|
my $importNode = WebGUI::Asset->getImportNode($session);
|
|
my $folder = $importNode->addChild({
|
|
className=>"WebGUI::Asset::Wobject::Folder",
|
|
title => "6.9.0 New Templates",
|
|
menuTitle => "6.9.0 New Templates",
|
|
url=> "6_9_0_new_templates",
|
|
groupIdView=>"12"
|
|
});
|
|
$folder->commit;
|
|
foreach my $file (@files) {
|
|
next unless ($file =~ /\.tmpl$/);
|
|
open(FILE,"<templates-6.9.0/".$file);
|
|
my $first = 1;
|
|
my $create = 0;
|
|
my $head = 0;
|
|
my %properties = (className=>"WebGUI::Asset::Template");
|
|
while (my $line = <FILE>) {
|
|
if ($first) {
|
|
$line =~ m/^\#(.*)$/;
|
|
$properties{id} = $1;
|
|
$first = 0;
|
|
} elsif ($line =~ m/^\#create$/) {
|
|
$create = 1;
|
|
} elsif ($line =~ m/^\#(.*):(.*)$/) {
|
|
$properties{$1} = $2;
|
|
} elsif ($line =~ m/^~~~$/) {
|
|
$head = 1;
|
|
} elsif ($head) {
|
|
$properties{headBlock} .= $line;
|
|
} else {
|
|
$properties{template} .= $line;
|
|
}
|
|
}
|
|
close(FILE);
|
|
if ($create) {
|
|
sleep(1);
|
|
my $template = $folder->addChild(\%properties, $properties{id});
|
|
$template->commit;
|
|
} else {
|
|
sleep(1);
|
|
my $template = WebGUI::Asset->new($session,$properties{id}, "WebGUI::Asset::Template");
|
|
if (defined $template) {
|
|
my $newRevision = $template->addRevision(\%properties);
|
|
$newRevision->commit;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
#-------------------------------------------------
|
|
sub addEMSTemplates {
|
|
print "\tAdding Event Management System Templates.\n" unless ($quiet);
|
|
|
|
my $template = <<EOT1;
|
|
|
|
<a name="id<tmpl_var assetId>" id="id<tmpl_var assetId>"></a>
|
|
|
|
<tmpl_if session.var.adminOn>
|
|
<p><tmpl_var controls></p>
|
|
</tmpl_if>
|
|
<tmpl_if canManageEvents>
|
|
<a href='<tmpl_var manageEvents.url>'><tmpl_var manageEvents.label></a>
|
|
</tmpl_if>
|
|
|
|
<tmpl_loop events_loop>
|
|
<tmpl_var event>
|
|
</tmpl_loop>
|
|
|
|
<tmpl_var paginateBar>
|
|
EOT1
|
|
|
|
my $template2 = <<EOT2;
|
|
|
|
<h1><tmpl_var title></h1><br>
|
|
<tmpl_var description> <tmpl_var price><br>
|
|
<a href="<tmpl_var purchase.url>"><tmpl_var purchase.label></a>
|
|
EOT2
|
|
my $in = WebGUI::Asset->getImportNode($session);
|
|
$in->addChild({
|
|
className=>'WebGUI::Asset::Template',
|
|
template=>$template,
|
|
namespace=>'EventManagementSystem',
|
|
}, "EventManagerTmpl000001"
|
|
);
|
|
|
|
$in->addChild({
|
|
className=>'WebGUI::Asset::Template',
|
|
template=>$template2,
|
|
namespace=>'EventManagementSystem_product',
|
|
}, "EventManagerTmpl000002"
|
|
);
|
|
}
|
|
|
|
#-------------------------------------------------
|
|
sub addEMSTables {
|
|
|
|
print "\t Creating Event Management System tables.\n" unless ($quiet);
|
|
|
|
my $sql1 = <<SQL1;
|
|
|
|
create table EventManagementSystem (
|
|
assetId varchar(22) not null,
|
|
revisionDate bigint(20) not null,
|
|
displayTemplateId varchar(22),
|
|
paginateAfter int(11) default 10,
|
|
groupToAddEvents varchar(22),
|
|
groupToApproveEvents varchar(22),
|
|
globalPrerequisites tinyint default 1,
|
|
primary key(assetId,revisionDate)
|
|
)
|
|
SQL1
|
|
|
|
my $sql2 = <<SQL2;
|
|
|
|
create table EventManagementSystem_products (
|
|
productId varchar(22) not null,
|
|
assetId varchar(22),
|
|
startDate bigint(20),
|
|
endDate bigint(20),
|
|
maximumAttendees int(11),
|
|
approved tinyint,
|
|
sequenceNumber int(11),
|
|
primary key(productId)
|
|
)
|
|
SQL2
|
|
|
|
my $sql3 = <<SQL3;
|
|
create table EventManagementSystem_registrations (
|
|
registrationId varchar(22) not null,
|
|
productId varchar(22),
|
|
purchaseId varchar(22),
|
|
firstName varchar(100),
|
|
lastName varchar(100),
|
|
address varchar(100),
|
|
city varchar(100),
|
|
state varchar(50),
|
|
zipCode varchar(15),
|
|
country varchar(255),
|
|
phone varchar(50),
|
|
email varchar(255),
|
|
primary key(registrationId)
|
|
)
|
|
SQL3
|
|
|
|
my $sql4 = <<SQL4;
|
|
|
|
create table EventManagementSystem_purchases (
|
|
purchaseId varchar(22) not null,
|
|
userId varchar(22),
|
|
primary key(purchaseId)
|
|
)
|
|
SQL4
|
|
|
|
my $sql5 = <<SQL5;
|
|
|
|
create table EventManagementSystem_prerequisites (
|
|
prerequisiteId varchar(22) not null,
|
|
productId varchar(22),
|
|
operator varchar(100),
|
|
primary key(prerequisiteId)
|
|
)
|
|
SQL5
|
|
|
|
my $sql6 = <<SQL6;
|
|
|
|
create table EventManagementSystem_prerequisiteEvents (
|
|
prerequisiteEventId varchar(22) not null,
|
|
prerequisiteId varchar(22),
|
|
requiredProductId varchar(22),
|
|
primary key(prerequisiteEventId)
|
|
)
|
|
SQL6
|
|
|
|
$session->db->write($sql1);
|
|
$session->db->write($sql2);
|
|
$session->db->write($sql3);
|
|
$session->db->write($sql4);
|
|
$session->db->write($sql5);
|
|
$session->db->write($sql6);
|
|
|
|
}
|
|
|
|
#-------------------------------------------------
|
|
sub addSearchEngine {
|
|
print "\tUpgrading search engine.\n" unless ($quiet);
|
|
$session->config->set("searchIndexerPlugins", {
|
|
"txt" => "/bin/cat",
|
|
"readme"=> "/bin/cat",
|
|
"html" => "/bin/cat",
|
|
"htm" => "/bin/cat"
|
|
});
|
|
$session->db->write("create table search (
|
|
assetId varchar(22) binary not null,
|
|
revisionDate bigint not null default 0,
|
|
classLimiter text,
|
|
searchRoot varchar(22) binary not null default 'PBasset000000000000001',
|
|
templateId varchar(22) binary not null default 'PBtmpl0000000000000200',
|
|
primary key (assetId,revisionDate)
|
|
)");
|
|
$session->db->write("create table assetIndex (
|
|
assetId varchar(22) binary not null primary key,
|
|
title varchar(255),
|
|
synopsis text,
|
|
url varchar(255),
|
|
creationDate bigint,
|
|
revisionDate bigint,
|
|
ownerUserId varchar(22) binary,
|
|
groupIdView varchar(22) binary,
|
|
groupIdEdit varchar(22) binary,
|
|
lineage varchar(255),
|
|
className varchar(255),
|
|
isPublic int not null default 1,
|
|
keywords mediumtext,
|
|
fulltext (keywords)
|
|
)");
|
|
my @searchParents = $session->db->buildArray("select parentId from asset where className='WebGUI::Asset::Wobject::IndexedSearch'");
|
|
my @searchIds = $session->db->buildArray("select assetId from asset where className='WebGUI::Asset::Wobject::IndexedSearch'");
|
|
$session->db->write("delete from asset where className='WebGUI::Asset::Wobject::IndexedSearch'");
|
|
my $deleteWobject = $session->db->prepare("delete from wobject where assetId=?");
|
|
my $deleteAssetData = $session->db->prepare("delete from assetData where assetId=?");
|
|
foreach my $id (@searchIds) {
|
|
$deleteWobject->execute($id);
|
|
$deleteAssetData->execute($id);
|
|
}
|
|
$deleteWobject->finish;
|
|
$deleteAssetData->finish;
|
|
$session->db->write("drop table if exists IndexedSearch");
|
|
$session->db->write("drop table if exists IndexedSearch_default");
|
|
$session->db->write("drop table if exists IndexedSearch_default_data");
|
|
$session->db->write("drop table if exists IndexedSearch_default_words");
|
|
$session->db->write("drop table if exists IndexedSearch_docInfo");
|
|
}
|
|
|
|
#-------------------------------------------------
|
|
sub templateParsers {
|
|
print "\tAdding support for multiple template parsers.\n" unless ($quiet);
|
|
$session->config->set("templateParsers",["WebGUI::Asset::Template::HTMLTemplate"]);
|
|
$session->config->set("defaultTemplateParser","WebGUI::Asset::Template::HTMLTemplate");
|
|
$session->db->write("alter table template add column parser varchar(255) not null default 'WebGUI::Asset::Template::HTMLTemplate'");
|
|
}
|
|
|
|
#-------------------------------------------------
|
|
sub removeFiles {
|
|
print "\tRemoving old unneeded files.\n" unless ($quiet);
|
|
unlink '../../lib/WebGUI/ErrorHandler.pm';
|
|
unlink '../../lib/WebGUI/HTTP.pm';
|
|
unlink '../../lib/WebGUI/Privilege.pm';
|
|
unlink '../../lib/WebGUI/DateTime.pm';
|
|
unlink '../../lib/WebGUI/FormProcessor.pm';
|
|
unlink '../../lib/WebGUI/URL.pm';
|
|
unlink '../../lib/WebGUI/Id.pm';
|
|
unlink '../../lib/WebGUI/Icon.pm';
|
|
unlink '../../lib/WebGUI/Mail.pm';
|
|
unlink '../../lib/WebGUI/Style.pm';
|
|
unlink '../../lib/WebGUI/Setting.pm';
|
|
unlink '../../lib/WebGUI/Grouping.pm';
|
|
unlink '../../lib/WebGUI/Asset/Wobject/IndexedSearch.pm';
|
|
unlink '../../lib/WebGUI/Help/Asset_IndexedSearch.pm';
|
|
unlink '../../lib/WebGUI/i18n/Asset_IndexedSearch.pm';
|
|
unlink '../../sbin/Hourly/IndexedSearch_buildIndex.pm';
|
|
rmtree('../../lib/WebGUI/Asset/Wobject/IndexedSearch');
|
|
# uncomment this after they've all been converted
|
|
#rmtree('../../sbin/Hourly');
|
|
#unlink('../../sbin/runHourly.pl');
|
|
}
|
|
|
|
#-------------------------------------------------
|
|
sub addDisabletoRichEditor {
|
|
print "\tUpdating Rich Editor to add master disable.\n" unless ($quiet);
|
|
$session->db->write("alter table RichEdit add column disableRichEditor int(11) default '0'");
|
|
}
|
|
|
|
#-------------------------------------------------
|
|
sub addNavigationMimeType {
|
|
print "\tAdding Mime Type to Navigations.\n" unless ($quiet);
|
|
$session->db->write("alter table Navigation add column mimeType varchar(50) default 'text/html'");
|
|
}
|
|
|
|
#-------------------------------------------------
|
|
sub ipsToCIDR {
|
|
print "\tTranslating IP addresses to CIDR format.\n" unless ($quiet);
|
|
print "\t\tStarting with Group ipFilters.\n" unless ($quiet);
|
|
my $sth = $session->db->read('select groupId, ipFilter from groups');
|
|
while (my $hash = $sth->hashRef) {
|
|
next unless $hash->{ipFilter};
|
|
$hash->{ipFilter} =~ s/\s//g;
|
|
my @ips = split /;/, $hash->{ipFilter};
|
|
@ips = map { ip2cidr($_) } @ips;
|
|
$session->db->write('update groups set ipFilter=? where groupId=?',
|
|
[join(',', @ips), $hash->{groupId}]);
|
|
}
|
|
print "\t\tUpdating debug Ip.\n" unless ($quiet);
|
|
$sth = $session->db->read("select * from settings where name='debugIp'");
|
|
while (my $hash = $sth->hashRef) {
|
|
next unless $hash->{value};
|
|
my @ips = split /\s+/, $hash->{value};
|
|
@ips = map { ip2cidr($_) } @ips;
|
|
$session->db->write('update settings set value=? where name=?',
|
|
[join(',', @ips), $hash->{name}]);
|
|
}
|
|
}
|
|
|
|
sub ip2cidr {
|
|
my ($ip) = @_;
|
|
$ip =~ s/\.$//;
|
|
my $bytes = $ip =~ tr/././;
|
|
my $new_bytes = 3-$bytes;
|
|
my $prefixLength = 32 - 8*$new_bytes;
|
|
$ip .= ('.0' x $new_bytes) . "/$prefixLength";
|
|
return $ip;
|
|
}
|
|
|
|
|
|
#-------------------------------------------------
|
|
sub updateHelpTemplate {
|
|
print "\tUpdating Help template.\n" unless ($quiet);
|
|
my $template = <<EOT;
|
|
<p><tmpl_var body></p>
|
|
|
|
<tmpl_if fields>
|
|
<dl>
|
|
<tmpl_loop fields>
|
|
|
|
<dt><tmpl_var title></dt>
|
|
<dd><tmpl_var description>
|
|
<tmpl_if uiLevel>
|
|
<br /><i><tmpl_var uiLevelLabel>:</i><tmpl_var uiLevel>
|
|
</tmpl_if>
|
|
</dd>
|
|
</tmpl_loop>
|
|
</dl>
|
|
</tmpl_if>
|
|
EOT
|
|
my $asset = WebGUI::Asset->new($session,"PBtmplHelp000000000001","WebGUI::Asset::Template");
|
|
$asset->addRevision({template=>$template})->commit;
|
|
}
|
|
|
|
# ---- DO NOT EDIT BELOW THIS LINE ----
|
|
|
|
#-------------------------------------------------
|
|
sub start {
|
|
my $configFile;
|
|
$|=1; #disable output buffering
|
|
GetOptions(
|
|
'configFile=s'=>\$configFile,
|
|
'quiet'=>\$quiet
|
|
);
|
|
my $session = WebGUI::Session->open("../..",$configFile);
|
|
$session->user({userId=>3});
|
|
$session->db->write("insert into webguiVersion values (".$session->db->quote($toVersion).",'upgrade',".$session->datetime->time().")");
|
|
return $session;
|
|
}
|
|
|
|
#-------------------------------------------------
|
|
sub finish {
|
|
my $session = shift;
|
|
$session->close();
|
|
}
|
|
|