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

all features implemented and basic upgrades working

Browse source
This commit is contained in:
Graham Knop 2010-05-17 04:57:09 -05:00
parent 1a79d607af
commit a68e6c38ca
8 changed files with 139 additions and 147 deletions
Download patch file Download diff file Expand all files Collapse all files

4
var/upgrades/7.9.8-8.0.0/addMaintenancePageToConfig.pl
View file

@ -5,9 +5,9 @@ use Cwd qw(realpath);
use File::Spec::Functions;
use WebGUI::Paths;
report "\tMoving preload files ";
report "\tMoving preload files ... ";
my $webgui_root = realpath( catdir( dirname( $INC{'WebGUI/Upgrade/Script.pm'} ), updir x 3 ) );
my $webgui_root = realpath( catdir( dirname( $INC{'WebGUI/Upgrade/Script.pm'} ), (updir) x 3 ) );
config->set('maintenancePage', catfile( $webgui_root, 'www', 'maintenance.html' );

13
var/upgrades/7.9.8-8.0.0/migrateToNewCache.pl
View file

@ -1,7 +1,7 @@
use WebGUI::Upgrade::Script;
use Module::Find;
report "\tMigrating to new cache ";
report "\tMigrating to new cache ... ";
rm_lib
findallmod('WebGUI::Cache'),
@ -22,14 +22,15 @@ config->delete('fileCacheRoot');
config->deleteFromArray('workflowActivities/None', 'WebGUI::Workflow::Activity::CleanDatabaseCache');
config->deleteFromArray('workflowActivities/None', 'WebGUI::Workflow::Activity::CleanFileCache');
sql 'DROP TABLE cache';
sql 'DROP TABLE IF EXISTS cache';
sql 'DELETE FROM WorkflowActivity WHERE className in (?,?)',
'WebGUI::Workflow::Activity::CleanDatabaseCache',
'WebGUI::Workflow::Activity::CleanFileCache',
'WebGUI::Workflow::Activity::CleanDatabaseCache',
'WebGUI::Workflow::Activity::CleanFileCache',
;
sql 'DELETE FROM WorkflowActivityData WHERE activityId IN (?,?)',
'pbwfactivity0000000002',
'pbwfactivity0000000022',
'pbwfactivity0000000002',
'pbwfactivity0000000022',
;
done;

4
var/upgrades/7.9.8-8.0.0/moveFileLocations.pl
View file

@ -5,9 +5,9 @@ use Cwd qw(realpath);
use File::Spec::Functions;
use WebGUI::Paths;
report "\tMoving preload files ";
report "\tMoving preload files ... ";
my $webgui_root = realpath( catdir( dirname( $INC{'WebGUI/Upgrade/Script.pm'} ), updir x 3 ) );
my $webgui_root = realpath( catdir( dirname( $INC{'WebGUI/Upgrade/Script.pm'} ), (updir) x 3 ) );
unlink catfile($webgui_root, 'lib', 'default.ttf');

3
var/upgrades/7.9.8-8.0.0/moveMaintenance.pl
View file

@ -1,11 +1,12 @@
use WebGUI::Upgrade::Script;
use File::Spec::Functions;
use File::Basename;
use Cwd qw(realpath);
my $webgui_root = realpath( catdir( dirname( $INC{'WebGUI/Upgrade/Script.pm'} ), (updir) x 3 ) );
report "\tMoving maintenance file ";
report "\tMoving maintenance file ... ";
unlink catfile($webgui_root, 'docs', 'maintenance.html');