oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions
webgui/docs/upgrades/upgrade_6.7.8-6.8.0.pl
Matthew Wilson 09bf2b263f Lots more Dashboard features/changes. 
Internationalization and Help to come.
Default dashlet demos/walkthroughs to come.
2005-12-01 15:46:04 +00:00

1676 lines
58 KiB
Perl
Raw Blame History

#-------------------------------------------------------------------
# WebGUI is Copyright 2001-2005 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 FileHandle;
use File::Copy qw(cp);
use Getopt::Long;
use Parse::PlainConfig;
use WebGUI::Session;
use WebGUI::SQL;
use WebGUI::Asset;
use WebGUI::Setting;
use WebGUI::User;
use WebGUI::Utility;
my $toVersion = "6.8.0";
my $configFile;
my $quiet;
start();
addTimeZonesToUserPreferences();
removeUnneededFiles();
updateCollaboration();
addPhotoField();
addAvatarField();
addEnableAvatarColumn();
#addSpectre();
#addWorkflow();
addMatrix();
updateConfigFile();
addInOutBoard();
addDashboardStuff();
addZipArchive();
updateUserProfileDayLabels();
fixVeryLateDates();
finish();
#-------------------------------------------------
sub addZipArchive {
print "\tAdding Zip Archive Asset\n" unless ($quiet);
WebGUI::SQL->write("create table ZipArchiveAsset (
assetId varchar(22) binary not null,
templateId varchar(22) binary not null default '',
showPage varchar(255) not null default 'index.html',
revisionDate bigint not null,
primary key (assetId,revisionDate)
)");
my $import = WebGUI::Asset->getImportNode;
my $folder = $import->addChild({
title=>"Zip Archive Templates",
menuTitle=>"Zip Archive Templates",
className=>"WebGUI::Asset::Wobject::Folder",
url=>"ziparchive-templates",
});
my $template = <<STOP;
#assetId=ZipArchiveTMPL00000001
#title=Default Zip Archive Template
#namespace=ZipArchiveAsset
<tmpl_if session.var.adminOn>
<tmpl_if controls>
<p><tmpl_var controls></p>
</tmpl_if>
</tmpl_if>
<tmpl_if error>
<ul>
<li><tmpl_var error></li>
</ul>
</tmpl_if>
<tmpl_if fileUrl>
<a href="<tmpl_var fileUrl>"><tmpl_var title></a>
<tmpl_else>
<tmpl_if pageError>
Error: No initial page specified
<tmpl_else>
Error: No file specified
</tmpl_if>
</tmpl_if>
STOP
my $newAsset = $folder->addChild({
title=>"Default Zip Archive Template",
menuTitle=>"Default Zip Archive Template",
namespace=>"ZipArchiveAsset",
url=>"zip-archive-template",
className=>"WebGUI::Asset::Template",
template=>$template
}, "ZipArchiveTMPL00000001");
$newAsset->commit;
}
#-------------------------------------------------
sub addDashboardStuff {
print "\tAdding Dashboard tables and templates.\n" unless ($quiet);
WebGUI::SQL->write("CREATE TABLE `Dashboard` (
`assetId` VARCHAR(22) BINARY NOT NULL DEFAULT '',
`revisionDate` VARCHAR(22) BINARY NOT NULL DEFAULT '',
`adminsGroupId` VARCHAR(22) BINARY NOT NULL DEFAULT '4',
`usersGroupId` VARCHAR(22) BINARY NOT NULL DEFAULT '2',
`templateId` VARCHAR(22) BINARY NOT NULL DEFAULT 'DashboardViewTmpl00001',
`mapFieldId` VARCHAR(22) DEFAULT '',
PRIMARY KEY(`assetId`, `revisionDate`)
)");
# WebGUI::SQL->write("CREATE TABLE `Dashlet` (
# `assetId` VARCHAR(22) BINARY NOT NULL DEFAULT '',
# `revisionDate` VARCHAR(22) BINARY NOT NULL DEFAULT '',
# `proxiedAssetId` VARCHAR(22) BINARY NOT NULL DEFAULT '',
# PRIMARY KEY(`assetId`)
# )");
# Convert Shortcuts to Dashlortcuts.
WebGUI::SQL->write("CREATE TABLE `WeatherData` (
`assetId` VARCHAR(22) BINARY NOT NULL DEFAULT '',
`revisionDate` BIGINT(20) UNSIGNED NOT NULL DEFAULT 0,
`templateId` VARCHAR(22) BINARY NOT NULL DEFAULT 'WeatherDataTmpl0000001',
`locations` TEXT DEFAULT '',
PRIMARY KEY(`assetId`, `revisionDate`)
)");
WebGUI::SQL->write("CREATE TABLE `MultiSearch` (
`assetId` VARCHAR(22) BINARY NOT NULL DEFAULT '',
`revisionDate` BIGINT(20) UNSIGNED NOT NULL DEFAULT 0,
`templateId` VARCHAR(22) BINARY NOT NULL DEFAULT 'MultiSearchTmpl0000001',
`predefinedSearches` TEXT DEFAULT '',
PRIMARY KEY(`assetId`, `revisionDate`)
)");
WebGUI::SQL->write("CREATE TABLE `wgField` (
`assetId` VARCHAR(22) BINARY NOT NULL DEFAULT '',
`revisionDate` VARCHAR(22) NOT NULL DEFAULT '',
`formTemplateId` VARCHAR(22) BINARY DEFAULT '',
`valueTemplateId` VARCHAR(22) BINARY DEFAULT '',
`isUserPref` TINYINT UNSIGNED NOT NULL DEFAULT 0,
`fieldName` VARCHAR(255) DEFAULT '',
`fieldLabel` VARCHAR(255) DEFAULT '',
`fieldDescription` TEXT DEFAULT '',
`fieldType` VARCHAR(50) DEFAULT '',
`overrideForm` TINYINT UNSIGNED NOT NULL DEFAULT 0,
`overrideValue` TINYINT UNSIGNED NOT NULL DEFAULT 0,
`possibleValues` TEXT DEFAULT '',
`defaultValue` TEXT NOT NULL DEFAULT '',
PRIMARY KEY(`assetId`, `revisionDate`)
)");
WebGUI::SQL->write("CREATE TABLE `wgFieldUserData` (
`assetId` VARCHAR(22) BINARY NOT NULL DEFAULT '',
`userId` VARCHAR(22) BINARY NOT NULL DEFAULT '',
`userValue` TEXT DEFAULT '',
PRIMARY KEY(`assetId`, `userId`)
)");
WebGUI::SQL->write("create table StockData (
assetId varchar(22) binary not null,
templateId varchar(22) binary not null default 'StockListTMPL000000001',
displayTemplateId varchar(22) binary not null default 'StockListTMPL000000002',
defaultStocks text,
source varchar(50) default 'usa',
failover integer default 1,
revisionDate integer not null,
primary key(assetId,revisionDate)
)");
my $template = <<STOP;
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>^Page(title); - <tmpl_var session.setting.companyName></title>
<link rel="icon" href="^Extras;favicon.png" type="image/png" />
<link rel="shortcut icon" href="^Extras;favicon.ico" />
<tmpl_var head.tags>
<style>
body {
margin: 0;
margin-top: 0;
padding: 0;
}
</style>
</head>
<body>
^AdminBar("PBtmpl0000000000000090");
<tmpl_var body.content>
</body>
</html>
STOP
my $folder = WebGUI::Asset->newByUrl('templates') || WebGUI::Asset->getImportNode;
my $newAsset = $folder->addChild({
className=>"WebGUI::Asset::Template",
template=>$template,
namespace=>"style",
title=>'WebGUI 6 Blank Style',
menuTitle=>'WebGUI 6 Blank Style',
ownerUserId=>'3',
groupIdView=>'4',
groupIdEdit=>'4',
isHidden=>1
}, 'PBtmplBlankStyle000001');
$newAsset->commit;
$template = <<STOP;
<style type="text/css"> \@import "^Extras;wobject/Dashboard/draggable.css"; </style>
<style type="text/css"> \@import "^Extras;wobject/Dashboard/dashboard.css"; </style>
<script src="^Extras;wobject/Dashboard/draggable.js" type="text/javascript"></script>
<!--[if IE]>
<style type="text/css">
div.dragTitle
{
overflow-x:hidden;
}
</style>
<![endif]-->
<div id="dashboardContainer">
<a name="id<tmpl_var assetId>" id="id<tmpl_var assetId>">
</a>
<table id="dashboardChooserContainer" width="100%" border="0">
<tr>
<td id="leftBox">
<div style="display:none;cursor: hand;" id="hideNewContentButton" onclick="makeInactive(this);makeInactive(document.getElementById('availableBox'));makeActive(document.getElementById('showNewContentButton'));">Hide New Content List</div>
<div id="availableBox"><div id="availableBox2">
<div id="availableDashlets">
<table cellpadding="0" cellspacing="0" border="0" id="position1" class="dashboardColumn">
<tbody class="availableDashlet">
<tmpl_loop position1_loop><tr id="td<tmpl_var id>"><td><div id="td<tmpl_var id>_div" class="dragable"><div class="dragTrigger"><div class="dragTitle"><span class="headerTitle" id="hdrtd<tmpl_var id>_span"><tmpl_var dashletTitle></span></span><span class="options" onmouseover="this.className='options optionsHoverIE'" onmouseout="this.className='options'"><tmpl_if canEditUserPrefs><a onclick="dashboard_toggleEditForm(event,'<tmpl_var id>','<tmpl_var shortcutUrl>')"><img src="^Extras;wobject/Dashboard/edit_btn.jpg" border="0"></a></tmpl_if><a onclick="dragable_deleteContent(event,this<tmpl_if canPersonalize>,'true'</tmpl_if>);this.parentNode.onmouseout();"><img src="^Extras;wobject/Dashboard/delete_btn.jpg" border="0"></a><br /></span></div></div>
<div class="content" id="ct<tmpl_var id>_div"><tmpl_var content></div></div></td></tr></tmpl_loop>
</tbody></table>
</div></div></div>
</td>
<td id="rightBox">
<table cellpadding="0" cellspacing="0" border="0" width="100%">
<tr><td style="width:80px;"> <div id="showNewContentButton" onclick="makeInactive(this);makeActive(document.getElementById('availableBox'));makeActive(document.getElementById('hideNewContentButton'));">Add New Content</div></td><td>
<tmpl_if showAdmin>
<p>
<tmpl_var controls>
</p>
</tmpl_if>
<tmpl_if displayTitle>
<h1 style="text-align:center">
<tmpl_var title>
</h1>
</tmpl_if>
<tmpl_if description>
<p>
<tmpl_var description>
</p>
</tmpl_if>
</td><td valign="top" class="login">^L("17","","PBtmpl0000000000000092"); ^AdminToggle(Modify the Default User's Perspective,Leave Default User Perspective (Admin Mode));</td></tr></table>
<script type="text/javascript" src="^Extras;js/at/AjaxRequest.js"></script>
<script type="text/javascript">
function submitForm(theform,idToReplace,shortcutUrl) {
var status = AjaxRequest.submit(
theform
,{
'parameters':{
},
'onSuccess':function(req){
var myArray = req.responseText.split(/beginDebug/mg,1);
document.getElementById("ct" + idToReplace + "_div").innerHTML = myArray[0];
var existingForm = document.getElementById("form" + idToReplace + "_div");
throwAway = existingForm.parentNode.removeChild(existingForm);
var hoopla = AjaxRequest.get(
{
'url':shortcutUrl
,'parameters':{
'func':"getNewTitle"
}
,'onSuccess':function(req){
var myArr557 = req.responseText.split(/beginDebug/mg,1);
document.getElementById("hdrtd" + idToReplace + "_span").innerHTML = myArr557[0];
}
}
);
}
}
);
return status;
}
function makeActive(o) { o.style.display = "inline"; }
function makeInactive(o) { o.style.display = "none"; }
function AjaxRequestBegin() { }
function AjaxRequestEnd() { }
</script>
<div id="columnsContainerDiv">
<table cellpadding="0" cellspacing="8" border="0" id="columnsContainerTable" width="100%">
<tr>
<td width="33%">
<table cellpadding="0" cellspacing="0" border="0" id="position2" class="dashboardColumn" width="100%">
<tbody>
<tmpl_loop position2_loop><tr id="td<tmpl_var id>"><td><div id="td<tmpl_var id>_div" class="dragable"><div class="dragTrigger"><div class="dragTitle"><span class="headerTitle" id="hdrtd<tmpl_var id>_span"><tmpl_var dashletTitle></span></span><span class="options" onmouseover="this.className='options optionsHoverIE'" onmouseout="this.className='options'"><tmpl_if canEditUserPrefs><a onclick="dashboard_toggleEditForm(event,'<tmpl_var id>','<tmpl_var shortcutUrl>')"><img src="^Extras;wobject/Dashboard/edit_btn.jpg" border="0"></a></tmpl_if><a onclick="dragable_deleteContent(event,this<tmpl_if canPersonalize>,'true'</tmpl_if>);this.parentNode.onmouseout();"><img src="^Extras;wobject/Dashboard/delete_btn.jpg" border="0"></a><br /></span></div></div>
<div class="content" id="ct<tmpl_var id>_div"><tmpl_var content></div></div></td></tr></tmpl_loop>
</tbody>
</table>
</td>
<td width="2px" bgcolor="gray" height="500px">
</td>
<td width="33%">
<table cellpadding="0" cellspacing="0" border="0" id="position3" class="dashboardColumn" width="100%">
<tbody>
<tmpl_loop position3_loop><tr id="td<tmpl_var id>"><td><div id="td<tmpl_var id>_div" class="dragable"><div class="dragTrigger"><div class="dragTitle"><span class="headerTitle"><span class="headerTitle" id="hdrtd<tmpl_var id>_span"><tmpl_var dashletTitle></span></span><span class="options" onmouseover="this.className='options optionsHoverIE'" onmouseout="this.className='options'"><tmpl_if canEditUserPrefs><a onclick="dashboard_toggleEditForm(event,'<tmpl_var id>','<tmpl_var shortcutUrl>')"><img src="^Extras;wobject/Dashboard/edit_btn.jpg" border="0"></a></tmpl_if><a onclick="dragable_deleteContent(event,this<tmpl_if canPersonalize>,'true'</tmpl_if>);this.parentNode.onmouseout();"><img src="^Extras;wobject/Dashboard/delete_btn.jpg" border="0"></a><br /></span></div></div>
<div class="content" id="ct<tmpl_var id>_div"><tmpl_var content></div></div></td></tr></tmpl_loop>
</tbody>
</table>
</td>
<td width="2px" bgcolor="gray" height="500px"></td>
<td width="33%">
<table cellpadding="0" cellspacing="0" border="0" id="position4" class="dashboardColumn" width="100%">
<tbody>
<tmpl_loop position4_loop><tr id="td<tmpl_var id>"><td><div id="td<tmpl_var id>_div" class="dragable"><div class="dragTrigger"><div class="dragTitle"><span class="headerTitle"><span class="headerTitle" id="hdrtd<tmpl_var id>_span"><tmpl_var dashletTitle></span></span><span class="options" onmouseover="this.className='options optionsHoverIE'" onmouseout="this.className='options'"><tmpl_if canEditUserPrefs><a onclick="dashboard_toggleEditForm(event,'<tmpl_var id>','<tmpl_var shortcutUrl>')"><img src="^Extras;wobject/Dashboard/edit_btn.jpg" border="0"></a></tmpl_if><a onclick="dragable_deleteContent(event,this<tmpl_if canPersonalize>,'true'</tmpl_if>);this.parentNode.onmouseout();"><img src="^Extras;wobject/Dashboard/delete_btn.jpg" border="0"></a><br /></span></div></div>
<div class="content" id="ct<tmpl_var id>_div"><tmpl_var content></div></div></td></tr></tmpl_loop>
</tbody>
</table>
</td>
</tr>
</table>
</div>
<table class="blankTable"><tr id="blank" class="hidden"><td class="blankColumn"><div><div class="empty">&nbsp;</div></div></td></tr></table>
<tmpl_var dragger.init>
</td></tr></table></div>
STOP
$newAsset = $folder->addChild({
title=>"Dashboard Default View",
menuTitle=>"Dashboard Default View",
namespace=>"Dashboard",
url=>"dashboard-default-view-template",
className=>"WebGUI::Asset::Template",
template=>$template
}, "DashboardViewTmpl00001");
$newAsset->commit;
$template = <<STOP;
<a name="<tmpl_var assetId>"></a>
<tmpl_if session.var.adminOn>
<p><tmpl_var controls></p>
</tmpl_if>
<tmpl_if displayTitle>
<h1><tmpl_var title></h1>
</tmpl_if>
<tmpl_if description>
<tmpl_var description><p />
</tmpl_if>
<tmpl_loop ourLocations.loop>
<table border="0" width="100%">
<tr>
<td rowspan="3" width="55"><img src="<tmpl_var iconUrl>" /></td>
<td bgcolor="#0072D6">
<div class="weatherTitle">
<div style="float:left;">&#160;<tmpl_var cityState></div>
<div style="float:right;margin-right:1px;margin-top:2px;">
<a href="#"><img src="/extras/wobject/Dashboard/weather_delete.gif" border="0" /></a>
</div>
</div>
</td>
</tr>
<tr>
<td>
<tmpl_var sky><br /><tmpl_var tempF>&deg;F<br />
</td>
</tr>
<tr>
<td></td>
</tr>
<br />
</table>
</tmpl_loop>
STOP
WebGUI::Asset->getImportNode;
my $newAsset = $folder->addChild({
className=>"WebGUI::Asset::Template",
template=>$template,
namespace=>"WeatherData",
title=>'WeatherData Default View',
menuTitle=>'WeatherData Default View',
ownerUserId=>'3',
groupIdView=>'4',
groupIdEdit=>'4',
isHidden=>1
}, 'WeatherDataTmpl0000001');
$newAsset->commit;
$template = <<STOP;
<head>
<style>
.qmmt_tab
{
background-color: #eeeeee;
border-top-color: #cccccc;
border-right: 1px solid #cccccc;
}
.qmmt_tabactive
{
border-right: 1px solid #cccccc;
}
</style>
<link rel="stylesheet" type="text/css" href="<tmpl_var extrasFolder>/tools.css" />
</head>
<body bgcolor="#f1f1f1" text="#000000" link="#0000cc" vlink="#0000cc" alink="#FF0000">
<a name="<tmpl_var assetId>"></a>
<script type="text/javascript">
var symbol = "<tmpl_var stocks.symbol>";
function isIE() {
var ua = navigator.userAgent.toLowerCase();
var isIE = ( (ua.indexOf("msie") != -1) && (ua.indexOf("opera") == -1) && (ua.indexOf("webtv") == -1) );
return (isIE);
}
function enableTab(obj, scale){
for (i=0; i < 7; i++) {
document.getElementById('qm_ch_tab' + i + '_9350').className = (i == obj) ? 'qmmt_tabactive' : 'qmmt_tab';
document.getElementById('qm_ch_tab' + i + '_9350').style.cursor = (i == obj) ? 'default' : (isIE()) ? 'hand': 'pointer';
document.getElementById('qm_ch_tab' + i + '_9350').style.borderTop = (i == obj) ? '0px' : '1px solid';
}
document.getElementById('chartimg').src = "http://ichart.finance.yahoo.com/z?s=" + symbol + "&t=" + scale + "&q=l&l=off&z=s&p=s";
}
</script>
<table cellpadding="0" cellspacing="0" border="0" class="qmmt_main" width="650">
<tr>
<td style="text-align: center;">
<div class="qmmt_header_bar" style="padding-bottom: 1px; border-bottom-width: 1px; ">
<table cellpadding="0" cellspacing="0" border="0" width="100%">
<tr>
<td><span class="qmmt_header_text" style="padding-left:5px;"><tmpl_var stocks.name> (<tmpl_var stocks.symbol>)</span></td>
<td align="right" style="padding-right:3px;">
<span class="qmmt_header_text" style="text-align: right; font-weight:normal;">
<div nowrap id="qm_textChange_5920">1:23 PM EDT</div>
<script type="text/javascript">
function qm_UpdateText_5920(phase){
switch (phase) {
case 1:
document.getElementById('qm_textChange_5920').innerHTML = '<span class="qmmt_header_text" style="font-weight:normal;">Delayed</span>';
setTimeout("qm_UpdateText_5920(2)", 5000);
break;
case 2:
document.getElementById('qm_textChange_5920').innerHTML = '<span class="qmmt_header_text" style="font-weight:normal;">1:23 PM EDT</span>';
setTimeout("qm_UpdateText_5920(3)", 5000);
break;
case 3:
document.getElementById('qm_textChange_5920').innerHTML = '<a href="http://finance.yahoo.com/" target="_top" style="text-decoration:none;"><span class="qmmt_header_text" style="font-weight:normal;">Yahoo Finance</span></a>';
setTimeout("qm_UpdateText_5920(1)", 5000);
break;
}
}
qm_UpdateText_5920(2);
</script>
</span>
</td>
</tr>
</table>
</div>
</td>
</tr>
<tr>
<td style="text-align: center;">
<table cellpadding="2" cellspacing="0" border="0" width="100%">
<tr>
<td style="text-align: center;" width="40%">
<img align="center" id="chartimg" width="350" height="205" src="http://ichart.finance.yahoo.com/z?s=<tmpl_var stocks.symbol>&t=1d&q=l&l=off&z=s&p=s">
<table cellpadding="0" cellspacing="0" border="0" width="100%">
<tr>
<td width="14%" id="qm_ch_tab0_9350" class="qmmt_tabactive" onclick="enableTab('0', '1d')" style="cursor: default; border-left: 0px; border-bottom: 0px; border-top: 0px; padding-top:1px; padding-bottom:1px; font-weight: normal;">Today</td>
<td width="14%" id="qm_ch_tab1_9350" class="qmmt_tab" onclick="enableTab('1', '5d')" style="cursor: default; border-bottom: 0px; padding-top:1px; padding-bottom:1px; font-weight: normal;">5d</td>
<td width="14%" id="qm_ch_tab2_9350" class="qmmt_tab" onclick="enableTab('2', '1m')" style="cursor: default; border-bottom: 0px; padding-top:1px; padding-bottom:1px; font-weight: normal;">1m</td>
<td width="14%" id="qm_ch_tab3_9350" class="qmmt_tab" onclick="enableTab('3', '3m')" style="cursor: default; border-bottom: 0px; padding-top:1px; padding-bottom:1px; font-weight: normal;">3m</td>
<td width="14%" id="qm_ch_tab4_9350" class="qmmt_tab" onclick="enableTab('4', '1y')" style="cursor: default; border-bottom: 0px; padding-top:1px; padding-bottom:1px; font-weight: normal;">1y</td>
<td width="14%" id="qm_ch_tab5_9350" class="qmmt_tab" onclick="enableTab('5', '5y')" style="cursor: default; border-bottom: 0px; padding-top:1px; padding-bottom:1px; font-weight: normal;">5y</td>
<td width="14%" id="qm_ch_tab6_9350" class="qmmt_tab" onclick="enableTab('6', 'my')" style="cursor: default; border-right: 0px; border-bottom: 0px; padding-top:1px; padding-bottom:1px; font-weight: normal;">20y</td>
</tr>
</table>
</td>
<td align="center" width="30%">
<table cellpadding="2" cellspacing="0" border="0" width="95%">
<tr class="qmmt_main">
<td class="qmmt_text">Last Price</td>
<td class="qmmt_text" style="text-align: right; font-weight: bold;"><tmpl_var stocks.last></td>
</tr>
<tr class="qmmt_cycle">
<td class="qmmt_text"> Market Cap </td>
<td class="qmmt_text" style="text-align: right; font-weight: bold;"><tmpl_var stocks.cap></td>
</tr>
<tr class="qmmt_main"><td class="qmmt_text"> Change </td>
<td class="qmmt_text<tmpl_if stocks.net.isUp>_up<tmpl_else><tmpl_if stocks.net.isDown>_down</tmpl_if></tmpl_if>" style="text-align: right; font-weight: bold;">
<img align='center' src='<tmpl_var extrasFolder>/<tmpl_var stocks.net.icon>'> <tmpl_var stocks.net>
</td>
</tr>
<tr class="qmmt_cycle">
<td class="qmmt_text"> Open </td>
<td class="qmmt_text" style="text-align: right; font-weight: bold;"><tmpl_var stocks.open></td>
</tr>
<tr class="qmmt_main">
<td class="qmmt_text"> Day High </td>
<td class="qmmt_text" style="text-align: right; font-weight: bold;"><tmpl_var stocks.high></td>
</tr>
<tr class="qmmt_cycle">
<td class="qmmt_text">Bid</td>
<td class="qmmt_text" style="text-align: right; font-weight: bold;"><tmpl_var stocks.bid></td>
</tr>
<tr class="qmmt_main">
<td class="qmmt_text"> 52 Wk High </td>
<td class="qmmt_text" style="text-align: right; font-weight: bold;"><tmpl_var stocks.year_high></td>
</tr>
<tr class="qmmt_cycle">
<td class="qmmt_text"> E.P.S. </td>
<td class="qmmt_text" style="text-align: right; font-weight: bold;"><tmpl_var stocks.eps></td>
</tr>
<tr class="qmmt_main">
<td class="qmmt_text"> Ex-Div Date </td>
<td class="qmmt_text" style="text-align: right; font-weight: bold;"><tmpl_var stocks.ex_div></td>
</tr>
<tr class="qmmt_cycle">
<td class="qmmt_text"> Yield </td>
<td class="qmmt_text" style="text-align: right; font-weight: bold;"><tmpl_var stocks.yield></td>
</tr>
</table>
</td>
<td align="center" width="30%">
<table cellpadding="2" cellspacing="0" border="0" width="95%">
<tr class="qmmt_main">
<td class="qmmt_text"> Last Trade </td>
<td class="qmmt_text" style="text-align: right; font-weight: bold;"><tmpl_var lastUpdate.us></td>
</tr>
<tr class="qmmt_cycle">
<td class="qmmt_text"> Volume </td>
<td class="qmmt_text" style="text-align: right; font-weight: bold;"><tmpl_var stocks.volume.millions> m</td>
</tr>
<tr class="qmmt_main">
<td class="qmmt_text">% Change </td>
<td class="qmmt_text<tmpl_if stocks.net.isUp>_up<tmpl_else><tmpl_if stocks.net.isDown>_down</tmpl_if></tmpl_if>" style="text-align: right; font-weight: bold;"><tmpl_var stocks.p_change>%</td>
</tr>
<tr class="qmmt_cycle">
<td class="qmmt_text"> Prev Close </td>
<td class="qmmt_text" style="text-align: right; font-weight: bold;"><tmpl_var stocks.close></td>
</tr>
<tr class="qmmt_main">
<td class="qmmt_text"> Day Low </td>
<td class="qmmt_text" style="text-align: right; font-weight: bold;"><tmpl_var stocks.low></td>
</tr>
<tr class="qmmt_cycle">
<td class="qmmt_text"> Ask </td>
<td class="qmmt_text" style="text-align: right; font-weight: bold;"><tmpl_var stocks.ask></td>
</tr>
<tr class="qmmt_main">
<td class="qmmt_text"> 52 Wk Low </td>
<td class="qmmt_text" style="text-align: right; font-weight: bold;"><tmpl_var stocks.year_low></td>
</tr>
<tr class="qmmt_cycle">
<td class="qmmt_text"> P/E Ratio </td>
<td class="qmmt_text" style="text-align: right; font-weight: bold;"><tmpl_var stocks.pe></td>
</tr>
<tr class="qmmt_main">
<td class="qmmt_text"> Dividend </td>
<td class="qmmt_text" style="text-align: right; font-weight: bold;"><tmpl_var stocks.div></td>
</tr>
<tr class="qmmt_cycle">
<td class="qmmt_text"> Exchange </td>
<td class="qmmt_text" style="text-align: right; font-weight: bold;"><tmpl_var stocks.exchange></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<div align="center">
<table cellpadding="0" cellspacing="0" border="0" width="650">
<tr>
<td>
<div class="qmmt_text" align="right"><br><a href="javascript:window.close()" style="color:#0000cc">CLOSE</a></div>
</td>
</tr>
</table>
</div>
</body>
STOP
WebGUI::Asset->getImportNode;
my $newAsset = $folder->addChild({
className=>"WebGUI::Asset::Template",
template=>$template,
namespace=>"StockData/Display",
title=>'StockData Default Display',
menuTitle=>'StockData Default Display',
ownerUserId=>'3',
groupIdView=>'4',
groupIdEdit=>'4',
isHidden=>1
}, 'StockDataTMPL000000002');
$newAsset->commit;
$template = <<STOP;
<a name="<tmpl_var assetId>"></a>
<tmpl_if session.var.adminOn>
<p><tmpl_var controls></p>
</tmpl_if>
<tmpl_if displayTitle>
<h1><tmpl_var title></h1>
</tmpl_if>
<tmpl_if description>
<tmpl_var description><p />
</tmpl_if>
<link rel="stylesheet" type="text/css" href="<tmpl_var extrasFolder>/tools.css" />
<table cellpadding="0" cellspacing="0" border="0" class="qmmt_main" width="100%">
<tr>
<td colspan="3" style="text-align: left">
<div class="qmmt_header_bar" style="padding-top: 1px; padding-bottom: 1px; border-bottom-width: 1px;">
<table cellpadding="0" cellspacing="0" border="0" width="100%">
<tr>
<td class="qmmt_header_text">Stock Watch</td>
<td class="qmmt_header_text" style="text-align: right; padding-right: 3px; font-weight: normal;">
<div id="qm_textChange_7310">
<span class="qmmt_header_text" style="font-weight:normal;"><b>Last Update: </b> <tmpl_var lastUpdate.default> EDT</span></div>
<script type="text/javascript">
function qm_UpdateText_7310(phase){
switch (phase) {
case 1: document.getElementById('qm_textChange_7310').innerHTML = '<span class="qmmt_header_text" style="font-weight:normal;">delayed 20 minutes</span>';
setTimeout("qm_UpdateText_7310(2)", 5000);
break;
case 2: document.getElementById('qm_textChange_7310').innerHTML = '<span class="qmmt_header_text" style="font-weight:normal;"><b>Last Update:&nbsp;</b> <tmpl_var lastUpdate.default> EDT</span>';
setTimeout("qm_UpdateText_7310(3)", 5000);
break;
case 3: document.getElementById('qm_textChange_7310').innerHTML = '<a href="http://www.quotemedia.com/" target="_top" style="text-decoration:none;"><span class="qmmt_header_text" style="font-weight:normal;">Yahoo Finance</span></a>';
setTimeout("qm_UpdateText_7310(1)", 5000);
break;
}
}
qm_UpdateText_7310(2);
</script>
</td>
</tr>
</table>
</div>
</td>
</tr>
<tr>
<td>
<script type="text/javascript">
function openDetail_2961(symbol) {
var w = 670;
var h = 286;
var winl = (screen.width - w) / 2;
var wint = (screen.height - h) / 2;
var winprops ='height='+h+',width='+w+',top='+wint+',left='+winl+',toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=1';
win = window.open("<tmpl_var stock.display.url>" + escape(symbol), "DetailedQuote", winprops);
if (parseInt(navigator.appVersion) >= 4) {
win.window.focus();
}
}
</script>
<table cellpadding="0" cellspacing="0" style="padding: 2px;" width="100%">
<tr class="qmmt_main">
<td nowrap class="qmmt_text" style="font-weight: bold; text-align: left; padding-left: 3px;"> Name </td>
<td nowrap class="qmmt_text" style="font-weight: bold; text-align: left; padding-left: 3px;" width="8%">Symbol</td>
<td nowrap class="qmmt_text" style="font-weight: bold; text-align: right" width="9%">Last</td>
<td nowrap class="qmmt_text" style="font-weight: bold; text-align: center" width="4%">Tick</td>
<td nowrap class="qmmt_text" style="font-weight: bold; text-align: right" width="7%">Chg</td>
</tr>
<tmpl_loop stocks.loop>
<tr class='<tmpl_if __ODD__>qmmt_cycle<tmpl_else>qmmt_main</tmpl_if>'>
<td nowrap class="qmmt_text" style="padding-left: 3px;"><tmpl_var stocks.name></td>
<td nowrap class="qmmt_text" style="text-align: left; padding-left: 3px;">
<a class="qmmt" style="text-decoration: none;" href="javascript:openDetail_2961('<tmpl_var stocks.symbol>')"/><tmpl_var stocks.symbol></a>
</td>
<td nowrap class="qmmt_text" style="text-align: right"><tmpl_var stocks.last></td>
<td nowrap class="qmmt_text" style="text-align: center;">
<img align='right' src='<tmpl_var extrasFolder>/<tmpl_var stocks.net.icon>'>
</td>
<td class="qmmt_text<tmpl_if stocks.net.isUp>_up<tmpl_else><tmpl_if stocks.net.isDown>_down</tmpl_if></tmpl_if>" style="text-align: right" nowrap><tmpl_var stocks.net></td>
</tr>
</tmpl_loop>
</table>
</td>
</tr>
</table>
STOP
WebGUI::Asset->getImportNode;
my $newAsset = $folder->addChild({
className=>"WebGUI::Asset::Template",
template=>$template,
namespace=>"StockData",
title=>'StockData Default View',
menuTitle=>'StockData Default View',
ownerUserId=>'3',
groupIdView=>'4',
groupIdEdit=>'4',
isHidden=>1
}, 'StockDataTMPL000000001');
$newAsset->commit;
$template = <<STOP;
<a name="<tmpl_var assetId>"></a>
<tmpl_if session.var.adminOn>
<p><tmpl_var controls></p>
</tmpl_if>
<tmpl_if displayTitle>
<h1><tmpl_var title></h1>
</tmpl_if>
<tmpl_if description>
<tmpl_var description><p />
</tmpl_if>
<script type="text/javascript">
function domultisearch() {
var sf=document.multisearchform;
var submitto = sf.sengines.options[sf.sengines.selectedIndex].value + escape(sf.searchterms.value);
window.open(submitto);
return false;
}
</script>
<div style="width:100%">
<form name="multisearchform" onSubmit="return domultisearch();">
<table border="1" cellpadding="10" cellspacing="0" bgcolor="#F2F2F2">
<tr>
<td align="center"><div style="position:float;width=40%;">
Search:&nbsp;
<select name="sengines">
<option value="http://www.google.com/search?q=" selected>Google</option>
<option value="http://news.google.com/news?q=">Google News</option>
<option value="http://www.flickr.com/photos/tags/">Flickr Photos</option>
<option value="http://www.digg.com/search?submit=Submit&search=">Digg.com</option>
<option value="http://www.altavista.com/web/results?q=">Alta Vista</option>
<option value="http://search.yahoo.com/search?p=">Yahoo!</option>
</select></div><div style="position:float;width=40%;">
&nbsp;&nbsp;For:&nbsp;
<input type="text" name="searchterms">
<input type="submit" name="SearchSubmit" value="Search"></div>
</td>
</tr>
</table>
</form>
</div>
STOP
WebGUI::Asset->getImportNode;
my $newAsset = $folder->addChild({
className=>"WebGUI::Asset::Template",
template=>$template,
namespace=>"MultiSearch",
title=>'MultiSearch Default Display',
menuTitle=>'MultiSearch Default Display',
ownerUserId=>'3',
groupIdView=>'4',
groupIdEdit=>'4',
isHidden=>1
}, 'MultiSearchTmpl0000001');
$newAsset->commit;
}
#-------------------------------------------------
sub fixVeryLateDates {
WebGUI::SQL->write("update assetdata set endDate='2082783600' where endDate>=4294967294");
}
#-------------------------------------------------
sub updateConfigFile {
print "\tUpdating config file.\n" unless ($quiet);
my $pathToConfig = '../../etc/'.$configFile;
my $conf = Parse::PlainConfig->new('DELIM' => '=', 'FILE' => $pathToConfig, 'PURGE'=>1);
my %newConfig;
foreach my $key ($conf->directives) { # delete unwanted stuff
unless (isIn($key,qw(enableDateCache scripturl))) {
$newConfig{$key} = $conf->get($key);
}
}
push(@{$newConfig{assets}}, "WebGUI::Asset::Wobject::Matrix") unless isIn("WebGUI::Asset::Wobject::Matrix",@{$newConfig{assets}});
push(@{$newConfig{assets}}, "WebGUI::Asset::Wobject::InOutBoard") unless isIn("WebGUI::Asset::Wobject::InOutBoard",@{$newConfig{assets}});
push(@{$newConfig{assets}}, "WebGUI::Asset::File::ZipArchive") unless isIn("WebGUI::Asset::File::ZipArchive",@{$newConfig{assets}});
push(@{$newConfig{assets}}, "WebGUI::Asset::Wobject::Dashboard") unless isIn("WebGUI::Asset::Wobject::Dashboard",@{$newConfig{assets}});
push(@{$newConfig{assets}}, "WebGUI::Asset::Wobject::StockData") unless isIn("WebGUI::Asset::Wobject::StockData",@{$newConfig{assets}});
push(@{$newConfig{assets}}, "WebGUI::Asset::Wobject::WeatherData") unless isIn("WebGUI::Asset::Wobject::WeatherData",@{$newConfig{assets}});
push(@{$newConfig{assets}}, "WebGUI::Asset::Wobject::MultiSearch") unless isIn("WebGUI::Asset::Wobject::MultiSearch",@{$newConfig{assets}});
$newConfig{macros}{RandomThread}{RandomThread};
$newConfig{gateway} = "/";
$conf->purge;
$conf->set(%newConfig);
$conf->write;
}
#-------------------------------------------------
sub addInOutBoard {
print "\tAdding In/Out Board Asset\n" unless ($quiet);
WebGUI::SQL->write("create table InOutBoard (
assetId varchar(22) binary not null primary key,
revisionDate bigint,
statusList text,
reportViewerGroup varchar(22) binary not null default '3',
inOutGroup varchar(22) binary not null default '2',
inOutTemplateId varchar(22) binary not null default 'IOB0000000000000000001',
reportTemplateId varchar(22) binary not null default 'IOB0000000000000000002',
paginateAfter int not null default 50,
reportPaginateAfter int not null default 50
)");
WebGUI::SQL->write("create table InOutBoard_status (
assetId varchar(22) binary not null,
userId varchar(22) binary not null,
status varchar(255),
dateStamp int not null,
message text
)");
WebGUI::SQL->write("create table InOutBoard_statusLog (
assetId varchar(22) binary not null,
userId varchar(22) binary not null,
status varchar(255),
dateStamp int not null,
message text
)");
WebGUI::SQL->write("insert into userProfileField (fieldName,fieldLabel,visible,dataType,dataValues,dataDefault,sequenceNumber,profileCategoryId,editable) values ('department',".quote("'Department'").",1,'selectList',".quote("{'IT'=>'IT','HR'=>'HR','Regular Staff'=>'Regular Staff'}").",".quote("['Regular Staff']").",8,'6',1)");
my $import = WebGUI::Asset->getImportNode;
my $folder = $import->addChild({
title=>"In/Out Board Templates",
menuTitle=>"In/Out Board Templates",
className=>"WebGUI::Asset::Wobject::Folder",
url=>"iob-templates",
});
my $template = <<STOP;
<h1>In/Out Board Report</h1>
<tmpl_var form><br />
<tmpl_if showReport>
<table width=100% cellpadding=3 cellspacing=0 border=1>
<tr>
<th><tmpl_var username.label></th>
<th><tmpl_var status.label></th>
<th><tmpl_var date.label></th>
<th><tmpl_var message.label></th>
<th><tmpl_var updatedBy.label></th>
</tr>
<tmpl_loop rows_loop>
<tmpl_if deptHasChanged>
<tr><td colspan=5><b><tmpl_var department></b></td></tr>
</tmpl_if>
<tr>
<td><tmpl_var username></td>
<td><tmpl_var status></td>
<td><tmpl_var dateStamp></td>
<td><tmpl_var message></td>
<td><tmpl_var createdBy></td>
</tr>
</tmpl_loop>
<tr><td colspan=5><tmpl_var paginateBar></td></tr>
</table>
</tmpl_if>
STOP
my $newAsset = $folder->addChild({
title=>"Default InOutBoard Report Template",
menuTitle=>"Default InOutBoard Report Template",
namespace=>"InOutBoard/Report",
url=>"iob-report-template",
className=>"WebGUI::Asset::Template",
template=>$template
}, "IOB0000000000000000002");
$newAsset->commit;
$template = <<STOP;
<a name="<tmpl_var id>"></a>
<tmpl_if session.var.adminOn>
<p><tmpl_var controls></p>
</tmpl_if>
<tmpl_if displayTitle>
<h1><tmpl_var title></h1>
</tmpl_if>
<tmpl_var description>
<tmpl_if selectDelegatesURL>
<a href="<tmpl_var selectDelegatesURL>">Select delegates</a>
</tmpl_if>
<tmpl_if canViewReport>
<tmpl_if selectDelegatesURL>
&nbsp;&middot;&nbsp;
</tmpl_if>
<a href="<tmpl_var viewReportURL>">View Report</a>
</tmpl_if>
<tmpl_if displayForm>
<tmpl_var form><br />
</tmpl_if>
<table width=100% cellpadding=3 cellspacing=0 border=1>
<tmpl_loop rows_loop>
<tmpl_if deptHasChanged>
<tr><td colspan=4><b><tmpl_var department></b></td></tr>
</tmpl_if>
<tr>
<td><tmpl_var username></td>
<td><tmpl_var status></td>
<td><tmpl_var dateStamp></td>
<td><tmpl_var message></td>
</tr>
</tmpl_loop>
<tr><td colspan=4><tmpl_var paginateBar></td></tr>
</table>
STOP
$newAsset = $folder->addChild({
title=>"Default InOutBoard Template",
menuTitle=>"Default InOutBoard Template",
namespace=>"InOutBoard",
url=>"iob-template",
className=>"WebGUI::Asset::Template",
template=>$template
}, "IOB0000000000000000001");
$newAsset->commit;
}
#-------------------------------------------------
sub addMatrix {
print "\tAdding Matrix Asset\n" unless ($quiet);
WebGUI::SQL->write("CREATE TABLE `Matrix_rating` (
`timeStamp` int(11) NOT NULL default '0',
`category` varchar(255) default NULL,
`rating` int(11) NOT NULL default '1',
`listingId` varchar(22) binary NOT NULL default '',
`ipAddress` varchar(15) default NULL,
`assetId` varchar(22) binary NOT NULL default '',
`userId` varchar(22) binary default NULL
) ");
WebGUI::SQL->write("CREATE TABLE `Matrix_listingData` (
`listingId` varchar(22) binary NOT NULL default '',
`fieldId` varchar(22) binary NOT NULL default '',
`value` varchar(255) default NULL,
`assetId` varchar(22) binary NOT NULL default '',
PRIMARY KEY (`listingId`,`fieldId`)
) ");
WebGUI::SQL->write("CREATE TABLE `Matrix_field` (
`fieldId` varchar(22) binary NOT NULL default '',
`category` varchar(255) NOT NULL default '',
`name` varchar(255) default NULL,
`label` varchar(255) default NULL,
`description` text,
`fieldType` varchar(35) default NULL,
`defaultValue` varchar(255) default NULL,
`assetId` varchar(22) binary NOT NULL default '',
PRIMARY KEY (`fieldId`),
KEY `categoryIndex` (`category`)
) ");
WebGUI::SQL->write("CREATE TABLE `Matrix_ratingSummary` (
`listingId` varchar(22) binary NOT NULL default '',
`category` varchar(255) NOT NULL default '',
`meanValue` decimal(3,2) default NULL,
`medianValue` int(11) default NULL,
`countValue` int(11) default NULL,
`assetId` varchar(22) binary NOT NULL default '',
PRIMARY KEY (`listingId`,`category`)
)");
WebGUI::SQL->write("CREATE TABLE `Matrix` (
`detailTemplateId` varchar(22) binary default NULL,
`compareTemplateId` varchar(22) binary default NULL,
`searchTemplateId` varchar(22) binary default NULL,
`ratingDetailTemplateId` varchar(22) binary default NULL,
`categories` text,
`assetId` varchar(22) binary NOT NULL default '',
`templateId` varchar(22) binary NOT NULL default '',
`revisionDate` bigint(20) NOT NULL default '0',
`maxComparisons` int(11) NOT NULL default '10',
`maxComparisonsPrivileged` int(11) NOT NULL default '10',
`privilegedGroup` varchar(22) binary NOT NULL default '2',
`groupToRate` varchar(22) binary NOT NULL default '2',
`ratingTimeout` int(11) NOT NULL default '31536000',
`ratingTimeoutPrivileged` int(11) NOT NULL default '31536000',
`groupToAdd` varchar(22) binary NOT NULL default '2',
PRIMARY KEY (`assetId`,`revisionDate`)
) ");
WebGUI::SQL->write("CREATE TABLE `Matrix_listing` (
`listingId` varchar(22) binary NOT NULL default '',
`maintainerId` varchar(22) binary default NULL,
`forumId` varchar(22) binary default NULL,
`productName` varchar(255) default NULL,
`productUrl` text,
`manufacturerName` varchar(255) default NULL,
`manufacturerUrl` text,
`description` text,
`lastUpdated` int(11) default NULL,
`versionNumber` varchar(30) default NULL,
`views` int(11) NOT NULL default '0',
`compares` int(11) NOT NULL default '0',
`clicks` int(11) NOT NULL default '0',
`status` varchar(30) NOT NULL default 'pending',
`clicksLastIp` varchar(16) default NULL,
`viewsLastIp` varchar(16) default NULL,
`comparesLastIp` varchar(16) default NULL,
`assetId` varchar(22) binary NOT NULL default '',
PRIMARY KEY (`listingId`)
) ");
my $import = WebGUI::Asset->getImportNode;
my $folder = $import->addChild({
title=>"Matrix Templates",
menuTitle=>"Matrix Templates",
className=>"WebGUI::Asset::Wobject::Folder",
url=>"matrix-templates",
});
my $template = <<STOP;
<h1>Comparison</h1>
<table cellpadding="0" cellspacing="0" border="0" style="font-size: 11px; font-family: helvetica, arial, sans-serif;">
<tr>
<td valign="top"><tmpl_var compare.form></td>
<td valign="top">
<tmpl_if isTooMany>
You tried to compare too many listings. Please choose <tmpl_var maxCompares> or less at a time.
</tmpl_if>
<tmpl_if isTooFew>
You must choose at least two products to compare. Less than two isn't much of a comparison.
</tmpl_if>
<tmpl_unless isTooFew><tmpl_unless isTooMany>
<table style="font-size: 11px; font-family: helvetica, arial, sans-serif;" align="center" cellpadding="1" cellspacing="1" border="0">
<tr>
<td>Product</td>
<tmpl_loop product_loop>
<td><a href="<tmpl_var url>"><tmpl_var name> <tmpl_var version></a></td>
</tmpl_loop>
</tr>
<tr>
<td>Last Updated</td>
<tmpl_loop lastupdated_loop>
<td><tmpl_var lastupdated></a></td>
</tmpl_loop>
</tr>
<tmpl_loop category_loop>
<tr><td class="category"><tmpl_var category></td>
<tmpl_loop product_loop>
<td align="center"><b><tmpl_var name></b></td>
</tmpl_loop>
</tr>
<tmpl_loop row_loop>
<tr
<tmpl_if __ODD__>
class="odd"
<tmpl_else>
class="even"
</tmpl_if>
>
<tmpl_loop column_loop>
<td class="<tmpl_var class>" <tmpl_if description>onmouseover="return escape('<tmpl_var description>')"</tmpl_if>>
<tmpl_var value>
</td>
</tmpl_loop>
</tr>
</tmpl_loop>
</tmpl_loop>
</table>
</tmpl_unless></tmpl_unless>
</td></tr></table>
STOP
my $newAsset = $folder->addChild({
title=>"Matrix Default Compare",
menuTitle=>"Matrix Default Compare",
namespace=>"Matrix/Compare",
url=>"matrix-default-compare-template",
className=>"WebGUI::Asset::Template",
template=>$template
}, "matrixtmpl000000000002");
$newAsset->commit;
$template = <<STOP;
<tmpl_if session.var.adminOn>
<p><tmpl_var toolbar></p>
</tmpl_if>
<h1><tmpl_var title></h1>
<tmpl_if description>
<tmpl_var description><br /><br />
</tmpl_if>
<table class="content" width="100%">
<tr><td valign="top" width="50%">
<p>Use the form below to select up to <tmpl_var maxCompares> listings to compare at once.
</p>
<tmpl_var compare.form>
</td><td valign="top">
<p>
<b>Narrow The Matrix</b><br>
You can narrow the scope of the matrix by <a href="<tmpl_var search.url>">searching</a> for exactly the criteria you're looking for in a listing.
</p>
<p>
<br><b>Expand The Matrix</b><br>
<tmpl_if isLoggedIn>
<a href="<tmpl_var listing.add.url>">Click here to add a new listing.</a> Please note that you will be the official maintainer of the listing, and will be responsible for keeping it up to date.
<tmpl_else>
If you are the maker of a product, or are an expert user and are willing to maintain the listing, <a href="^a(linkonly);">create an account</a> so you can register your listing.
</tmpl_if>
</p>
<br><b>Listing Statistics</b><br>
<table class="content">
<tr>
<td>Most clicks:</td>
<td><tmpl_var best.clicks.count></td>
<td><a href="<tmpl_var best.clicks.url>"><tmpl_var best.clicks.name></a></td>
</tr>
<tr>
<td>Most views:</td>
<td><tmpl_var best.views.count></td>
<td><a href="<tmpl_var best.views.url>"><tmpl_var best.views.name></a></td>
</tr>
<tr>
<td>Most compares:</td>
<td><tmpl_var best.compares.count></td>
<td><a href="<tmpl_var best.compares.url>"><tmpl_var best.compares.name></a></td>
</tr>
<tr>
<td>Most recently updated:</td>
<td><tmpl_var best.updated.date></td>
<td><a href="<tmpl_var best.updated.url>"><tmpl_var best.updated.name></a></td>
</tr>
<tr>
<td colspan="3"><hr size="1"></td>
</tr>
<tr>
<td align="center" colspan="3">Best Rated By Users</td>
</tr>
<tmpl_loop best_rating_loop>
<tr>
<td><tmpl_var category></td>
<td><tmpl_var mean>/10</td>
<td><a href="<tmpl_var url>"><tmpl_var name></a></td>
</tr>
</tmpl_loop>
<tr>
<td colspan="3"><hr size="1"></td>
</tr>
<tr>
<td colspan="3" align="center"><a href="<tmpl_var ratings.details.url>">View Ratings Details</a></td>
</tr>
<tr>
<td colspan="3"><hr size="1"></td>
</tr>
<tr>
<td align="center" colspan="3">Worst Rated By Users</td>
</tr>
<tmpl_loop worst_rating_loop>
<tr>
<td><tmpl_var category></td>
<td><tmpl_var mean>/10</td>
<td><a href="<tmpl_var url>"><tmpl_var name></a></td>
</tr>
</tmpl_loop>
<tr>
<td colspan="3"><hr size="1"></td>
</tr>
</table>
<br>
<br><b>Site Statistics</b><br>
<table class="content">
<tr>
<td>Listing Count:</td>
<td><tmpl_var listing.count></td>
</tr>
<tr>
<td>Current Visitors:</td>
<td><tmpl_var current.user.count></td>
</tr>
<tr>
<td>Registered Users:</td>
<td><tmpl_var user.count></td>
</tr>
</table>
<tmpl_if session.var.adminOn>
<p> <a href="<tmpl_var field.list.url>">List Fields</a>
</p>
<tmpl_if pending_list>
<b>PENDING LISTINGS:</b>
</tmpl_if>
<ul>
<tmpl_loop pending_list>
<li><a href="<tmpl_var url>"><tmpl_var productName></a></li>
</tmpl_loop>
</ul>
</tmpl_if>
</td></tr></table>
STOP
$newAsset = $folder->addChild({
title=>"Matrix Default View",
menuTitle=>"Matrix Default View",
namespace=>"Matrix",
url=>"matrix-default-view-template",
className=>"WebGUI::Asset::Template",
template=>$template
}, "matrixtmpl000000000001");
$newAsset->commit;
$template = <<STOP;
<style>
.ratingForm {
font-size: 9px;
}
</style>
<h1><tmpl_var productName></h1>
<table class="content">
<tr><td valign="top">
<table class="content">
<tr><td><b>Web Site</b></td><td><a target="_blank" href="<tmpl_var productUrl.click>"><tmpl_var productUrl></a></td></tr>
<tr><td><b>Version Number</b></td><td><tmpl_var versionNumber></td></tr>
<tr><td><b>Manufacturer</b></td><td><a target="_blank" href="<tmpl_var manufacturerUrl.click>"><tmpl_var manufacturerName></a></td></tr>
<tr><td><b>Last Updated</b></td><td><tmpl_var lastUpdated.date></td></tr>
<tr><td><b>Clicks</b></td><td><tmpl_var clicks></td></tr>
<tr><td><b>Views</b></td><td><tmpl_var views></td></tr>
<tr><td><b>Compares</b></td><td><tmpl_var compares></td></tr>
</table>
</td>
<td valign="top">&nbsp;</td>
<td valign="top">
<tmpl_if description>
<b>Description</b><br /><tmpl_var description><br /><br />
</tmpl_if>
<b>Contact Maintainer</b><br />
<tmpl_if email.wasSent>
<div style="color: green;">Message sent.<br /></div>
</tmpl_if>
<tmpl_var email.form>
</td>
<td valign="top">&nbsp;</td>
<td valign="top">
<tmpl_var ratings>
</td>
</tr>
</table>
<p />
<table width="100%" class="content">
<tr>
<td valign="top" width="50%">
<span class="category">Features</span>
<table class="content" width="180">
<tmpl_loop features_loop>
<tr
<tmpl_if __ODD__>
class="odd"
<tmpl_else>
class="even"
</tmpl_if>
>
<td onmouseover="return escape('<tmpl_var description>')"><tmpl_var label></td><td><tmpl_var value></td>
</tr>
</tmpl_loop>
</table>
<p />
</td>
<td valign="top" width="50%">
<span class="category">Benefits</span>
<table class="content" width="180">
<tmpl_loop benefits_loop>
<tr
<tmpl_if __ODD__>
class="odd"
<tmpl_else>
class="even"
</tmpl_if>
>
<td onmouseover="return escape('<tmpl_var description>')"><tmpl_var label></td><td class="<tmpl_var class>"><tmpl_var value></td>
</tr>
</tmpl_loop>
</table>
</td>
</tr>
</table>
<p />
<tmpl_var discussion>
<tmpl_if user.canEdit>
<br /> <hr /><a href="<tmpl_var edit.url>">Edit this listing.</a> <br>
</tmpl_if>
<tmpl_if user.canApprove>
<tmpl_if isPending>
<a href="<tmpl_var approve.url>">Approve this listing.</a><br>
</tmpl_if>
<a href="<tmpl_var delete.url>">Delete this listing.</a><br>
</tmpl_if>
STOP
$newAsset = $folder->addChild({
title=>"Matrix Default Detailed Listing",
menuTitle=>"Matrix Default Detailed Listing",
namespace=>"Matrix/Detail",
url=>"matrix-default-detailed-listing",
className=>"WebGUI::Asset::Template",
template=>$template
}, "matrixtmpl000000000003");
$newAsset->commit;
$template = <<STOP;
<h1>Rating Detail</h1>
<table class="content" cellpadding="5" width="60%">
<tbody>
<tmpl_loop rating_loop>
<tmpl_if __ODD__>
<tr>
</tmpl_if>
<td width="50%" valign="top">
<h2><tmpl_var category></h2>
<table class="content">
<tbody>
<tr><th>Listing</th><th>Mean</th><th>Median</th><th>Count</th></tr>
<tmpl_loop detail_loop>
<tr>
<td><a href="<tmpl_var url>"><tmpl_var name></a></td>
<td><tmpl_var mean></td>
<td><tmpl_var median></td>
<td><tmpl_var count></td>
</tr>
</tmpl_loop>
</tbody>
</table>
</td>
<tmpl_if __EVEN__>
</tr>
</tmpl_if>
</tmpl_loop>
</tr>
</tbody>
</table>
STOP
$newAsset = $folder->addChild({
title=>"Matrix Default Rating Detail",
menuTitle=>"Matrix Default Rating Detail",
namespace=>"Matrix/RatingDetail",
url=>"matrix-rating-detail-template",
className=>"WebGUI::Asset::Template",
template=>$template
}, "matrixtmpl000000000004");
$newAsset->commit;
$template = <<STOP;
<h1>Search The Matrix</h1>
<tmpl_if isTooFew>
<p>Your search returned no results. Try specifying a few less criteria.</p>
</tmpl_if>
<tmpl_if isTooMany>
<p>
Your search returned too many results. Either select up to <tmpl_var maxCompares> products from the list below, or specify more critera.
</p>
</tmpl_if>
<table width="100%" class="content">
<tr><td valign="top">
<tmpl_var compare.form>
</td><td valign="top">
<tmpl_var form.header>
<tmpl_var form.submit>
<table width="100%" class="content">
<tr>
<td valign="top" width="50%">
<span class="category">Features</span>
<table class="content" width="180">
<tmpl_loop features_loop>
<tr
<tmpl_if __ODD__>
class="odd"
<tmpl_else>
class="even"
</tmpl_if>
>
<td onmouseover="return escape('<tmpl_var description>')"><tmpl_var label></td><td><tmpl_var form></td>
</tr>
</tmpl_loop>
</table>
</td>
<td valign="top" width="50%">
<span class="category">Benefits</span>
<table class="content">
<tmpl_loop benefits_loop>
<tr
<tmpl_if __ODD__>
class="odd"
<tmpl_else>
class="even"
</tmpl_if>
>
<td onmouseover="return escape('<tmpl_var description>')"><tmpl_var label></td><td><tmpl_var form></td>
</tr>
</tmpl_loop>
</table>
</td>
</tr>
</table>
<tmpl_var form.submit>
<tmpl_var form.footer>
</td></tr></table>
STOP
$newAsset = $folder->addChild({
title=>"Matrix Default Search",
menuTitle=>"Matrix Default Search",
namespace=>"Matrix/Search",
url=>"matrix-search-template",
className=>"WebGUI::Asset::Template",
template=>$template
}, "matrixtmpl000000000005");
$newAsset->commit;
}
#-------------------------------------------------
sub updateCollaboration {
print "\tAdding collaboration/rss template\n" unless ($quiet);
WebGUI::SQL->write("ALTER TABLE Collaboration ADD COLUMN rssTemplateId varchar(22) binary NOT NULL default 'PBtmpl0000000000000142' after notificationTemplateId");
my $template = <<STOP;
<?xml version="1.0" encoding="UTF-8"?>
<rss version="2.0">
<channel>
<title><tmpl_var title></title>
<link><tmpl_var link></link>
<description><tmpl_var description></description>
<tmpl_loop item_loop>
<item>
<title><tmpl_var title></title>
<link><tmpl_var link></link>
<description><tmpl_var description></description>
<guid isPermaLink="true"><tmpl_var guid></guid>
<pubDate><tmpl_var pubDate></pubDate>
</item>
</tmpl_loop>
</channel>
</rss>
STOP
# Get Template folder
my $folder = WebGUI::Asset->newByUrl('templates') || WebGUI::Asset->getImportNode;
# Add Collaboration/RSS folder beneath
my $rssFolder = $folder->addChild({
title=>"Collaboration/RSS",
menuTitle=>"Collaboration/RSS",
url=>"templates/collaboration/rss",
className=>"WebGUI::Asset::Wobject::Folder"
});
$rssFolder->commit;
# Place the Collaboration/RSS folder beneath the
# Collaboration/Thread folder if it exists.
my $threadFolder = WebGUI::Asset->newByUrl('templates/collaboration/thread') || WebGUI::Asset->getImportNode;
my $threadRank = $threadFolder->getRank;
$rssFolder->setRank($threadRank + 1);
$rssFolder->addChild({
className=>"WebGUI::Asset::Template",
template=>$template,
namespace=>"Collaboration/RSS",
title=>'Default Forum RSS',
menuTitle=>'Default Forum RSS',
ownerUserId=>'3',
groupIdView=>'7',
groupIdEdit=>'4',
isHidden=>1
}, 'PBtmpl0000000000000142'
);
}
#-------------------------------------------------
sub addTimeZonesToUserPreferences {
print "\tDropping time offsets in favor of time zones.\n" unless ($quiet);
WebGUI::SQL->write("delete from userProfileData where fieldName='timeOffset'");
WebGUI::SQL->write("update userProfileField set dataValues='', fieldName='timeZone', dataType='timeZone', fieldLabel=".quote('WebGUI::International::get("timezone","DateTime");').",dataDefault='America/Chicago' where fieldName='timeOffset'");
WebGUI::SQL->write("insert into userProfileData values ('1','timeZone','America/Chicago')");
WebGUI::SQL->write("insert into userProfileData values ('3','timeZone','America/Chicago')");
}
sub removeUnneededFiles {
print "\tRemoving files that are no longer needed.\n" unless ($quiet);
unlink("../../www/env.pl");
unlink("../../www/index.fpl");
unlink("../../www/index.pl");
}
#-------------------------------------------------
sub addPhotoField {
print "\tAdding photo field to User Profiles\n" unless ($quiet);
##Get profileCategoryId.
my ($categoryId) = WebGUI::SQL->quickArray(q!select profileCategoryId from userProfileCategory where categoryName='WebGUI::International::get(439,"WebGUI");'!);
##Get last sequence number
my ($lastField) = WebGUI::SQL->buildArray(qq!select max(sequenceNumber) from userProfileField where profileCategoryId=$categoryId!);
++ $lastField;
##Insert Photo Field
WebGUI::SQL->write(sprintf q!insert into userProfileField values ('photo','WebGUI::International::get("photo","WebGUI");', 1, 0, 'Image', '', '', %d, %d, 1, 1)!, $lastField, $categoryId);
}
#-------------------------------------------------
sub addAvatarField {
print "\tAdding avatar field to User Profiles\n" unless ($quiet);
##Get profileCategoryId.
my ($categoryId) = WebGUI::SQL->buildArray(q!select profileCategoryId from userProfileCategory where categoryName='WebGUI::International::get(449,"WebGUI");';!);
##Get last sequence number
my ($lastField) = WebGUI::SQL->buildArray(qq!select max(sequenceNumber) from userProfileField where profileCategoryId=$categoryId!);
++ $lastField;
##Insert Photo Field
WebGUI::SQL->write( sprintf q!insert into userProfileField values('avatar','WebGUI::International::get("avatar","WebGUI");', 0, 0, 'Image', '', '', %d, %d, 1, 0)!, $lastField, $categoryId );
}
#-------------------------------------------------
sub addEnableAvatarColumn {
print "\tAdding enableAvatar column to Collaborations\n" unless ($quiet);
WebGUI::SQL->write('ALTER TABLE Collaboration ADD COLUMN avatarsEnabled int(11) NOT NULL DEFAULT 0');
}
#-------------------------------------------------
sub addSpectre {
print "\tAdding Spectre\n" unless ($quiet);
my $user = WebGUI::User->new("new","pbuser_________spectre");
$user->username("Spectre");
$user->addToGroups([3]);
my $source = FileHandle->new("../../etc/spectre.conf.original","r");
if (defined $source) {
binmode($source);
my $dest = FileHandle->new(">../../etc/spectre.conf");
if (defined $dest) {
binmode($dest);
cp($source,$dest);
$dest->close;
}
$source->close;
}
}
#-------------------------------------------------
sub addWorkflow {
print "\tAdding Workflow\n" unless ($quiet);
WebGUI::SQL->write("create table WorkflowSchedule (
taskId varchar(22) binary not null primary key,
enabled int not null default 1,
minuteOfHour varchar(25),
hourOfDay varchar(25),
dayOfMonth varchar(25),
monthOfYear varchar(25),
dayOfWeek varchar(25),
workflowId varchar(22) binary not null
)");
WebGUI::SQL->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
)");
WebGUI::SQL->write("create table WorkflowInstanceData (
instanceId varchar(22) binary not null primary key,
dataName varchar(35),
className varchar(255),
methodName varchar(255),
parameters text
)");
WebGUI::SQL->write("create table Workflow (
workflowId varchar(22) binary not null primary key,
title varchar(255),
description text
)");
WebGUI::SQL->write("create table WorkflowActivity (
activityId varchar(22) binary not null primary key,
workflowId varchar(22) binary not null,
title varchar(255),
description text,
previousActivityId varchar(22) binary not null,
dateCreated bigint,
className varchar(255)
)");
WebGUI::SQL->write("create table WorkflowActivityProperty (
propertyId varchar(22) binary not null primary key,
activityId varchar(22) binary not null,
name varchar(255),
value text
)");
}
#-------------------------------------------------
sub updateUserProfileDayLabels {
print "\tUpdating day labels in User Profile firstDayOfWeek.\n" unless ($quiet);
WebGUI::SQL->write(q!update userProfileField set dataValues='{0=>WebGUI::International::get(\"sunday\",\"DateTime\"),1=>WebGUI::International::get(\"monday\",\"DateTime\")}' where fieldName='firstDayOfWeek'!);
}
#--- DO NOT EDIT BELOW THIS LINE
#-------------------------------------------------
sub start {
$|=1; #disable output buffering
GetOptions(
'configFile=s'=>\$configFile,
'quiet'=>\$quiet
);
WebGUI::Session::open("../..",$configFile);
WebGUI::Session::refreshUserInfo(3);
WebGUI::SQL->write("insert into webguiVersion values (".quote($toVersion).",'upgrade',".time().")");
}
#-------------------------------------------------
sub finish {
WebGUI::Session::close();
}
Reference in a new issue View git blame Copy permalink