diff --git a/docs/upgrades/packages-7.10.1/root_import_account_profile.wgpkg b/docs/upgrades/packages-7.10.1/root_import_account_profile.wgpkg deleted file mode 100644 index f609b3d3b..000000000 Binary files a/docs/upgrades/packages-7.10.1/root_import_account_profile.wgpkg and /dev/null differ diff --git a/docs/upgrades/packages-7.10.1/root_import_gallery-templates.wgpkg b/docs/upgrades/packages-7.10.1/root_import_gallery-templates.wgpkg deleted file mode 100644 index b8df8de83..000000000 Binary files a/docs/upgrades/packages-7.10.1/root_import_gallery-templates.wgpkg and /dev/null differ diff --git a/docs/upgrades/packages-7.10.1/root_import_storymanager_storytopic.wgpkg b/docs/upgrades/packages-7.10.1/root_import_storymanager_storytopic.wgpkg deleted file mode 100644 index bfd1d466e..000000000 Binary files a/docs/upgrades/packages-7.10.1/root_import_storymanager_storytopic.wgpkg and /dev/null differ diff --git a/docs/upgrades/packages-7.10.10/job_listing.wgpkg b/docs/upgrades/packages-7.10.10/job_listing.wgpkg deleted file mode 100644 index 7d8f7e399..000000000 Binary files a/docs/upgrades/packages-7.10.10/job_listing.wgpkg and /dev/null differ diff --git a/docs/upgrades/packages-7.10.11/templates_thingy-default-view-thing.wgpkg b/docs/upgrades/packages-7.10.11/templates_thingy-default-view-thing.wgpkg deleted file mode 100644 index 712fc387a..000000000 Binary files a/docs/upgrades/packages-7.10.11/templates_thingy-default-view-thing.wgpkg and /dev/null differ diff --git a/docs/upgrades/packages-7.10.12/image.wgpkg b/docs/upgrades/packages-7.10.12/image.wgpkg deleted file mode 100644 index b7865ddc7..000000000 Binary files a/docs/upgrades/packages-7.10.12/image.wgpkg and /dev/null differ diff --git a/docs/upgrades/packages-7.10.12/root_import_dashboard.wgpkg b/docs/upgrades/packages-7.10.12/root_import_dashboard.wgpkg deleted file mode 100644 index a80dcd47d..000000000 Binary files a/docs/upgrades/packages-7.10.12/root_import_dashboard.wgpkg and /dev/null differ diff --git a/docs/upgrades/packages-7.10.13/default_search2.wgpkg b/docs/upgrades/packages-7.10.13/default_search2.wgpkg deleted file mode 100644 index faee2be09..000000000 Binary files a/docs/upgrades/packages-7.10.13/default_search2.wgpkg and /dev/null differ diff --git a/docs/upgrades/packages-7.10.13/greenportal.wgpkg b/docs/upgrades/packages-7.10.13/greenportal.wgpkg deleted file mode 100644 index 51783d23d..000000000 Binary files a/docs/upgrades/packages-7.10.13/greenportal.wgpkg and /dev/null differ diff --git a/docs/upgrades/packages-7.10.13/root_import_carousel_carousel-default.wgpkg b/docs/upgrades/packages-7.10.13/root_import_carousel_carousel-default.wgpkg deleted file mode 100644 index edb86fb28..000000000 Binary files a/docs/upgrades/packages-7.10.13/root_import_carousel_carousel-default.wgpkg and /dev/null differ diff --git a/docs/upgrades/packages-7.10.13/style-underground.wgpkg b/docs/upgrades/packages-7.10.13/style-underground.wgpkg deleted file mode 100644 index 0d4c9e8e6..000000000 Binary files a/docs/upgrades/packages-7.10.13/style-underground.wgpkg and /dev/null differ diff --git a/docs/upgrades/packages-7.10.14/root_import_storymanager_editstory.wgpkg b/docs/upgrades/packages-7.10.14/root_import_storymanager_editstory.wgpkg deleted file mode 100644 index 5729a5db3..000000000 Binary files a/docs/upgrades/packages-7.10.14/root_import_storymanager_editstory.wgpkg and /dev/null differ diff --git a/docs/upgrades/packages-7.10.14/shopping-cart-collateral-items_email-receipt-default.wgpkg b/docs/upgrades/packages-7.10.14/shopping-cart-collateral-items_email-receipt-default.wgpkg deleted file mode 100644 index 1e15616b3..000000000 Binary files a/docs/upgrades/packages-7.10.14/shopping-cart-collateral-items_email-receipt-default.wgpkg and /dev/null differ diff --git a/docs/upgrades/packages-7.10.14/shopping-cart-collateral-items_my-purchases-detail-default.wgpkg b/docs/upgrades/packages-7.10.14/shopping-cart-collateral-items_my-purchases-detail-default.wgpkg deleted file mode 100644 index b83bef0bf..000000000 Binary files a/docs/upgrades/packages-7.10.14/shopping-cart-collateral-items_my-purchases-detail-default.wgpkg and /dev/null differ diff --git a/docs/upgrades/packages-7.10.15/home_map_map-templates.wgpkg b/docs/upgrades/packages-7.10.15/home_map_map-templates.wgpkg deleted file mode 100644 index e7cf69efb..000000000 Binary files a/docs/upgrades/packages-7.10.15/home_map_map-templates.wgpkg and /dev/null differ diff --git a/docs/upgrades/packages-7.10.15/root_import_gallery-templates_gallery.css.wgpkg b/docs/upgrades/packages-7.10.15/root_import_gallery-templates_gallery.css.wgpkg deleted file mode 100644 index 61bcaca76..000000000 Binary files a/docs/upgrades/packages-7.10.15/root_import_gallery-templates_gallery.css.wgpkg and /dev/null differ diff --git a/docs/upgrades/packages-7.10.2/root_import_style.wgpkg b/docs/upgrades/packages-7.10.2/root_import_style.wgpkg deleted file mode 100644 index f1a4000a9..000000000 Binary files a/docs/upgrades/packages-7.10.2/root_import_style.wgpkg and /dev/null differ diff --git a/docs/upgrades/packages-7.10.3/crystalx_crystalx_navigation.wgpkg b/docs/upgrades/packages-7.10.3/crystalx_crystalx_navigation.wgpkg deleted file mode 100644 index b1062cbec..000000000 Binary files a/docs/upgrades/packages-7.10.3/crystalx_crystalx_navigation.wgpkg and /dev/null differ diff --git a/docs/upgrades/packages-7.10.3/root_import_auth.wgpkg b/docs/upgrades/packages-7.10.3/root_import_auth.wgpkg deleted file mode 100644 index 21f95ac78..000000000 Binary files a/docs/upgrades/packages-7.10.3/root_import_auth.wgpkg and /dev/null differ diff --git a/docs/upgrades/packages-7.10.3/root_import_carousel_carousel-default.wgpkg b/docs/upgrades/packages-7.10.3/root_import_carousel_carousel-default.wgpkg deleted file mode 100644 index 5cec8f421..000000000 Binary files a/docs/upgrades/packages-7.10.3/root_import_carousel_carousel-default.wgpkg and /dev/null differ diff --git a/docs/upgrades/packages-7.10.3/root_import_survey_surveyedit.css.wgpkg b/docs/upgrades/packages-7.10.3/root_import_survey_surveyedit.css.wgpkg deleted file mode 100644 index 2ebe887b3..000000000 Binary files a/docs/upgrades/packages-7.10.3/root_import_survey_surveyedit.css.wgpkg and /dev/null differ diff --git a/docs/upgrades/packages-7.10.3/root_import_workflow-activity-templates.wgpkg b/docs/upgrades/packages-7.10.3/root_import_workflow-activity-templates.wgpkg deleted file mode 100644 index 31e32dc6a..000000000 Binary files a/docs/upgrades/packages-7.10.3/root_import_workflow-activity-templates.wgpkg and /dev/null differ diff --git a/docs/upgrades/packages-7.10.3/survey.css.wgpkg b/docs/upgrades/packages-7.10.3/survey.css.wgpkg deleted file mode 100644 index 0ef0ae2d9..000000000 Binary files a/docs/upgrades/packages-7.10.3/survey.css.wgpkg and /dev/null differ diff --git a/docs/upgrades/packages-7.10.4/default_email.wgpkg b/docs/upgrades/packages-7.10.4/default_email.wgpkg deleted file mode 100644 index 77ec09792..000000000 Binary files a/docs/upgrades/packages-7.10.4/default_email.wgpkg and /dev/null differ diff --git a/docs/upgrades/packages-7.10.4/root_import_ems_ems-badge-listing-default.wgpkg b/docs/upgrades/packages-7.10.4/root_import_ems_ems-badge-listing-default.wgpkg deleted file mode 100644 index da9b3d950..000000000 Binary files a/docs/upgrades/packages-7.10.4/root_import_ems_ems-badge-listing-default.wgpkg and /dev/null differ diff --git a/docs/upgrades/packages-7.10.5/root_import_account_friendmanager_edit.wgpkg b/docs/upgrades/packages-7.10.5/root_import_account_friendmanager_edit.wgpkg deleted file mode 100644 index 3dcb81cca..000000000 Binary files a/docs/upgrades/packages-7.10.5/root_import_account_friendmanager_edit.wgpkg and /dev/null differ diff --git a/docs/upgrades/packages-7.10.5/shopping-cart-collateral-items.wgpkg b/docs/upgrades/packages-7.10.5/shopping-cart-collateral-items.wgpkg deleted file mode 100644 index 023a2f9b0..000000000 Binary files a/docs/upgrades/packages-7.10.5/shopping-cart-collateral-items.wgpkg and /dev/null differ diff --git a/docs/upgrades/packages-7.10.7/data_list.wgpkg b/docs/upgrades/packages-7.10.7/data_list.wgpkg deleted file mode 100644 index c13b733db..000000000 Binary files a/docs/upgrades/packages-7.10.7/data_list.wgpkg and /dev/null differ diff --git a/docs/upgrades/packages-7.10.7/default-shopping-cart-template.wgpkg b/docs/upgrades/packages-7.10.7/default-shopping-cart-template.wgpkg deleted file mode 100644 index d684fba7f..000000000 Binary files a/docs/upgrades/packages-7.10.7/default-shopping-cart-template.wgpkg and /dev/null differ diff --git a/docs/upgrades/packages-7.10.7/home_map_map-templates_default-map-point-view.wgpkg b/docs/upgrades/packages-7.10.7/home_map_map-templates_default-map-point-view.wgpkg deleted file mode 100644 index 67c7e1f1a..000000000 Binary files a/docs/upgrades/packages-7.10.7/home_map_map-templates_default-map-point-view.wgpkg and /dev/null differ diff --git a/docs/upgrades/packages-7.10.7/root_import_calendar-templates_default-calendar-list-view.wgpkg b/docs/upgrades/packages-7.10.7/root_import_calendar-templates_default-calendar-list-view.wgpkg deleted file mode 100644 index f88764e91..000000000 Binary files a/docs/upgrades/packages-7.10.7/root_import_calendar-templates_default-calendar-list-view.wgpkg and /dev/null differ diff --git a/docs/upgrades/packages-7.10.8/root_import_account_friendmanager_view.wgpkg b/docs/upgrades/packages-7.10.8/root_import_account_friendmanager_view.wgpkg deleted file mode 100644 index 1f838ecad..000000000 Binary files a/docs/upgrades/packages-7.10.8/root_import_account_friendmanager_view.wgpkg and /dev/null differ diff --git a/docs/upgrades/packages-7.10.8/root_import_calendar-templates_default-calendar-event.wgpkg b/docs/upgrades/packages-7.10.8/root_import_calendar-templates_default-calendar-event.wgpkg deleted file mode 100644 index 45bf873f2..000000000 Binary files a/docs/upgrades/packages-7.10.8/root_import_calendar-templates_default-calendar-event.wgpkg and /dev/null differ diff --git a/docs/upgrades/packages-7.10.8/root_import_calendar-templates_default-calendar-list-view.wgpkg b/docs/upgrades/packages-7.10.8/root_import_calendar-templates_default-calendar-list-view.wgpkg deleted file mode 100644 index 1b059e2fe..000000000 Binary files a/docs/upgrades/packages-7.10.8/root_import_calendar-templates_default-calendar-list-view.wgpkg and /dev/null differ diff --git a/docs/upgrades/packages-7.10.8/root_import_default-eu-user-screen.wgpkg b/docs/upgrades/packages-7.10.8/root_import_default-eu-user-screen.wgpkg deleted file mode 100644 index d2de8f9ce..000000000 Binary files a/docs/upgrades/packages-7.10.8/root_import_default-eu-user-screen.wgpkg and /dev/null differ diff --git a/docs/upgrades/packages-7.10.9/style-underground.wgpkg b/docs/upgrades/packages-7.10.9/style-underground.wgpkg deleted file mode 100644 index 360a9c821..000000000 Binary files a/docs/upgrades/packages-7.10.9/style-underground.wgpkg and /dev/null differ diff --git a/docs/upgrades/upgrade_7.10.0-7.10.1.pl b/docs/upgrades/upgrade_7.10.0-7.10.1.pl deleted file mode 100644 index d9d3b54d2..000000000 --- a/docs/upgrades/upgrade_7.10.0-7.10.1.pl +++ /dev/null @@ -1,223 +0,0 @@ -#!/usr/bin/env perl - -#------------------------------------------------------------------- -# WebGUI is Copyright 2001-2009 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 -#------------------------------------------------------------------- - -our ($webguiRoot); - -BEGIN { - $webguiRoot = "../.."; - unshift (@INC, $webguiRoot."/lib"); -} - -use strict; -use Getopt::Long; -use WebGUI::Session; -use WebGUI::Storage; -use WebGUI::Asset; - - -my $toVersion = '7.10.1'; -my $quiet; # this line required - - -my $session = start(); # this line required - -# upgrade functions go here -uniqueProductLocations($session); -removeBadSpanishFile($session); -i18nForAddonsTitle($session); - -finish($session); # this line required - - -#---------------------------------------------------------------------------- -# Describe what our function does -sub uniqueProductLocations { - my $session = shift; - print "\tMake sure each Product revision has its own storage location... " unless $quiet; - use WebGUI::Asset::Sku::Product; - my $get_product = WebGUI::Asset::Sku::Product->getIsa($session); - # and here's our code - PRODUCT: while (1) { - my $product = eval { $get_product->(); }; - next PRODUCT if Exception::Class->caught(); - last PRODUCT unless $product; - next PRODUCT unless $product->getRevisionCount > 1; - my $products = $product->getRevisions; - ##We already have the first revision, so remove it. - shift @{ $products }; - foreach my $property (qw/image1 image2 image3 brochure manual warranty/) { - ##Check each property. If there's a duplicate, then make copy of the storage location and update the older version. - foreach my $revision (@{ $products }) { - if ($revision->get($property) eq $product->get($property)) { - $product->_duplicateFile($revision, $property,); - } - } - } - } - print "DONE!\n" unless $quiet; -} - -#---------------------------------------------------------------------------- -# This internationalizes the link text of the addons link in the adminconsole -sub i18nForAddonsTitle { - my $session = shift; - print "\tInternationalize the text of the addons link in the adminconsole... " unless $quiet; - $session->config->set('adminConsole/addons', - { - icon => "addons.png", - uiLevel => 1, - group => "12", - url => "http://www.webgui.org/addons", - title => "^International(Addons title,WebGUI);" - } - ); - print "DONE!\n" unless $quiet; -} -#---------------------------------------------------------------------------- -# Describe what our function does -sub removeBadSpanishFile { - my $session = shift; - print "\tRemove a bad Spanish translation file... " unless $quiet; - use File::Spec; - unlink File::Spec->catfile($webguiRoot, qw/lib WebGUi i18n Spanish .pm/); - # and here's our code - print "DONE!\n" unless $quiet; -} - -#---------------------------------------------------------------------------- -# Repack all templates since the packed columns may have been wiped out due to the bug. -sub repackTemplates { - my $session = shift; - - print "\tRepacking all templates, this may take a while..." unless $quiet; - my $sth = $session->db->read( "SELECT assetId, revisionDate FROM template" ); - while ( my ($assetId, $revisionDate) = $sth->array ) { - my $asset = WebGUI::Asset->newByDynamicClass( $session, $assetId, $revisionDate ); - next unless $asset; - $asset->update({ - template => $asset->get('template'), - }); - } - print "DONE!\n" unless $quiet; - - print "\tRepacking head tags in all assets, this may take a while..." unless $quiet; - $sth = $session->db->read( "SELECT assetId, revisionDate FROM assetData where usePackedHeadTags=1" ); - while ( my ($assetId, $revisionDate) = $sth->array ) { - my $asset = WebGUI::Asset->newByDynamicClass( $session, $assetId, $revisionDate ); - next unless $asset; - $asset->update({ - extraHeadTags => $asset->get('extraHeadTags'), - }); - } - print "DONE!\n" unless $quiet; - - print "\tRepacking all snippets, this may take a while..." unless $quiet; - $sth = $session->db->read( "SELECT assetId, revisionDate FROM snippet" ); - while ( my ($assetId, $revisionDate) = $sth->array ) { - my $asset = WebGUI::Asset->newByDynamicClass( $session, $assetId, $revisionDate ); - next unless $asset; - $asset->update({ - snippet => $asset->get('snippet'), - }); - } - - print "DONE!\n" unless $quiet; -} - - -#---------------------------------------------------------------------------- -# Describe what our function does -#sub exampleFunction { -# my $session = shift; -# print "\tWe're doing some stuff here that you should know about... " unless $quiet; -# # and here's our code -# print "DONE!\n" unless $quiet; -#} - - -# -------------- DO NOT EDIT BELOW THIS LINE -------------------------------- - -#---------------------------------------------------------------------------- -# Add a package to the import node -sub addPackage { - my $session = shift; - my $file = shift; - - print "\tUpgrading package $file\n" unless $quiet; - # Make a storage location for the package - my $storage = WebGUI::Storage->createTemp( $session ); - $storage->addFileFromFilesystem( $file ); - - # Import the package into the import node - my $package = eval { - my $node = WebGUI::Asset->getImportNode($session); - $node->importPackage( $storage, { - overwriteLatest => 1, - clearPackageFlag => 1, - setDefaultTemplate => 1, - } ); - }; - - if ($package eq 'corrupt') { - die "Corrupt package found in $file. Stopping upgrade.\n"; - } - if ($@ || !defined $package) { - die "Error during package import on $file: $@\nStopping upgrade\n."; - } - - return; -} - -#------------------------------------------------- -sub start { - my $configFile; - $|=1; #disable output buffering - GetOptions( - 'configFile=s'=>\$configFile, - 'quiet'=>\$quiet - ); - my $session = WebGUI::Session->open($webguiRoot,$configFile); - $session->user({userId=>3}); - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->set({name=>"Upgrade to ".$toVersion}); - return $session; -} - -#------------------------------------------------- -sub finish { - my $session = shift; - updateTemplates($session); - repackTemplates( $session ); - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->commit; - $session->db->write("insert into webguiVersion values (".$session->db->quote($toVersion).",'upgrade',".time().")"); - $session->close(); -} - -#------------------------------------------------- -sub updateTemplates { - my $session = shift; - return undef unless (-d "packages-".$toVersion); - print "\tUpdating packages.\n" unless ($quiet); - opendir(DIR,"packages-".$toVersion); - my @files = readdir(DIR); - closedir(DIR); - my $newFolder = undef; - foreach my $file (@files) { - next unless ($file =~ /\.wgpkg$/); - # Fix the filename to include a path - $file = "packages-" . $toVersion . "/" . $file; - addPackage( $session, $file ); - } -} - -#vim:ft=perl diff --git a/docs/upgrades/upgrade_7.10.1-7.10.2.pl b/docs/upgrades/upgrade_7.10.1-7.10.2.pl deleted file mode 100644 index 92698a6a4..000000000 --- a/docs/upgrades/upgrade_7.10.1-7.10.2.pl +++ /dev/null @@ -1,124 +0,0 @@ -#!/usr/bin/env perl - -#------------------------------------------------------------------- -# WebGUI is Copyright 2001-2009 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 -#------------------------------------------------------------------- - -our ($webguiRoot); - -BEGIN { - $webguiRoot = "../.."; - unshift (@INC, $webguiRoot."/lib"); -} - -use strict; -use Getopt::Long; -use WebGUI::Session; -use WebGUI::Storage; -use WebGUI::Asset; -use WebGUI::Inbox; - - -my $toVersion = '7.10.2'; -my $quiet; # this line required - - -my $session = start(); # this line required - -# upgrade functions go here - -finish($session); # this line required - - -#---------------------------------------------------------------------------- -# Describe what our function does -#sub exampleFunction { -# my $session = shift; -# print "\tWe're doing some stuff here that you should know about... " unless $quiet; -# # and here's our code -# print "DONE!\n" unless $quiet; -#} - - -# -------------- DO NOT EDIT BELOW THIS LINE -------------------------------- - -#---------------------------------------------------------------------------- -# Add a package to the import node -sub addPackage { - my $session = shift; - my $file = shift; - - print "\tUpgrading package $file\n" unless $quiet; - # Make a storage location for the package - my $storage = WebGUI::Storage->createTemp( $session ); - $storage->addFileFromFilesystem( $file ); - - # Import the package into the import node - my $package = eval { - my $node = WebGUI::Asset->getImportNode($session); - $node->importPackage( $storage, { - overwriteLatest => 1, - clearPackageFlag => 1, - setDefaultTemplate => 1, - } ); - }; - - if ($package eq 'corrupt') { - die "Corrupt package found in $file. Stopping upgrade.\n"; - } - if ($@ || !defined $package) { - die "Error during package import on $file: $@\nStopping upgrade\n."; - } - - return; -} - -#------------------------------------------------- -sub start { - my $configFile; - $|=1; #disable output buffering - GetOptions( - 'configFile=s'=>\$configFile, - 'quiet'=>\$quiet - ); - my $session = WebGUI::Session->open($webguiRoot,$configFile); - $session->user({userId=>3}); - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->set({name=>"Upgrade to ".$toVersion}); - return $session; -} - -#------------------------------------------------- -sub finish { - my $session = shift; - updateTemplates($session); - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->commit; - $session->db->write("insert into webguiVersion values (".$session->db->quote($toVersion).",'upgrade',".time().")"); - $session->close(); -} - -#------------------------------------------------- -sub updateTemplates { - my $session = shift; - return undef unless (-d "packages-".$toVersion); - print "\tUpdating packages.\n" unless ($quiet); - opendir(DIR,"packages-".$toVersion); - my @files = readdir(DIR); - closedir(DIR); - my $newFolder = undef; - foreach my $file (@files) { - next unless ($file =~ /\.wgpkg$/); - # Fix the filename to include a path - $file = "packages-" . $toVersion . "/" . $file; - addPackage( $session, $file ); - } -} - -#vim:ft=perl diff --git a/docs/upgrades/upgrade_7.10.10-7.10.11.pl b/docs/upgrades/upgrade_7.10.10-7.10.11.pl deleted file mode 100644 index 2c8305142..000000000 --- a/docs/upgrades/upgrade_7.10.10-7.10.11.pl +++ /dev/null @@ -1,123 +0,0 @@ -#!/usr/bin/env perl - -#------------------------------------------------------------------- -# WebGUI is Copyright 2001-2009 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 -#------------------------------------------------------------------- - -our ($webguiRoot); - -BEGIN { - $webguiRoot = "../.."; - unshift (@INC, $webguiRoot."/lib"); -} - -use strict; -use Getopt::Long; -use WebGUI::Session; -use WebGUI::Storage; -use WebGUI::Asset; - - -my $toVersion = '7.10.11'; -my $quiet; # this line required - - -my $session = start(); # this line required - -# upgrade functions go here - -finish($session); # this line required - - -#---------------------------------------------------------------------------- -# Describe what our function does -#sub exampleFunction { -# my $session = shift; -# print "\tWe're doing some stuff here that you should know about... " unless $quiet; -# # and here's our code -# print "DONE!\n" unless $quiet; -#} - - -# -------------- DO NOT EDIT BELOW THIS LINE -------------------------------- - -#---------------------------------------------------------------------------- -# Add a package to the import node -sub addPackage { - my $session = shift; - my $file = shift; - - print "\tUpgrading package $file\n" unless $quiet; - # Make a storage location for the package - my $storage = WebGUI::Storage->createTemp( $session ); - $storage->addFileFromFilesystem( $file ); - - # Import the package into the import node - my $package = eval { - my $node = WebGUI::Asset->getImportNode($session); - $node->importPackage( $storage, { - overwriteLatest => 1, - clearPackageFlag => 1, - setDefaultTemplate => 1, - } ); - }; - - if ($package eq 'corrupt') { - die "Corrupt package found in $file. Stopping upgrade.\n"; - } - if ($@ || !defined $package) { - die "Error during package import on $file: $@\nStopping upgrade\n."; - } - - return; -} - -#------------------------------------------------- -sub start { - my $configFile; - $|=1; #disable output buffering - GetOptions( - 'configFile=s'=>\$configFile, - 'quiet'=>\$quiet - ); - my $session = WebGUI::Session->open($webguiRoot,$configFile); - $session->user({userId=>3}); - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->set({name=>"Upgrade to ".$toVersion}); - return $session; -} - -#------------------------------------------------- -sub finish { - my $session = shift; - updateTemplates($session); - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->commit; - $session->db->write("insert into webguiVersion values (".$session->db->quote($toVersion).",'upgrade',".time().")"); - $session->close(); -} - -#------------------------------------------------- -sub updateTemplates { - my $session = shift; - return undef unless (-d "packages-".$toVersion); - print "\tUpdating packages.\n" unless ($quiet); - opendir(DIR,"packages-".$toVersion); - my @files = readdir(DIR); - closedir(DIR); - my $newFolder = undef; - foreach my $file (@files) { - next unless ($file =~ /\.wgpkg$/); - # Fix the filename to include a path - $file = "packages-" . $toVersion . "/" . $file; - addPackage( $session, $file ); - } -} - -#vim:ft=perl diff --git a/docs/upgrades/upgrade_7.10.11-7.10.12.pl b/docs/upgrades/upgrade_7.10.11-7.10.12.pl deleted file mode 100644 index 41e383391..000000000 --- a/docs/upgrades/upgrade_7.10.11-7.10.12.pl +++ /dev/null @@ -1,189 +0,0 @@ -#!/usr/bin/env perl - -#------------------------------------------------------------------- -# WebGUI is Copyright 2001-2009 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 -#------------------------------------------------------------------- - -our ($webguiRoot); - -BEGIN { - $webguiRoot = "../.."; - unshift (@INC, $webguiRoot."/lib"); -} - -use strict; -use Getopt::Long; -use WebGUI::Session; -use WebGUI::Storage; -use WebGUI::Asset; - - -my $toVersion = '7.10.12'; -my $quiet; # this line required - - -my $session = start(); # this line required - -# upgrade functions go here -installNewDashboardTables($session); -addStockDataCacheColumn($session); -addWeatherDataCacheColumn($session); -addLastModifiedByMacro($session); - - -finish($session); # this line required - - -#---------------------------------------------------------------------------- -# Describe what our function does -#sub exampleFunction { -# my $session = shift; -# print "\tWe're doing some stuff here that you should know about... " unless $quiet; -# # and here's our code -# print "DONE!\n" unless $quiet; -#} - -#---------------------------------------------------------------------------- -# Describe what our function does -sub addLastModifiedByMacro { - my $session = shift; - print "\tAdd LastModifiedBy macro to the config file... " unless $quiet; - # and here's our code - $session->config->addToHash('macros', 'LastModifiedBy', 'LastModifiedBy'); - print "DONE!\n" unless $quiet; -} - -#---------------------------------------------------------------------------- -# Describe what our function does -sub installNewDashboardTables { - my $session = shift; - print "\tInstall new Dashboard tables... " unless $quiet; - $session->db->write(<db->write(<db->write(<db->write(<createTemp( $session ); - $storage->addFileFromFilesystem( $file ); - - # Import the package into the import node - my $package = eval { - my $node = WebGUI::Asset->getImportNode($session); - $node->importPackage( $storage, { - overwriteLatest => 1, - clearPackageFlag => 1, - setDefaultTemplate => 1, - } ); - }; - - if ($package eq 'corrupt') { - die "Corrupt package found in $file. Stopping upgrade.\n"; - } - if ($@ || !defined $package) { - die "Error during package import on $file: $@\nStopping upgrade\n."; - } - - return; -} - -#------------------------------------------------- -sub start { - my $configFile; - $|=1; #disable output buffering - GetOptions( - 'configFile=s'=>\$configFile, - 'quiet'=>\$quiet - ); - my $session = WebGUI::Session->open($webguiRoot,$configFile); - $session->user({userId=>3}); - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->set({name=>"Upgrade to ".$toVersion}); - return $session; -} - -#------------------------------------------------- -sub finish { - my $session = shift; - updateTemplates($session); - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->commit; - $session->db->write("insert into webguiVersion values (".$session->db->quote($toVersion).",'upgrade',".time().")"); - $session->close(); -} - -#------------------------------------------------- -sub updateTemplates { - my $session = shift; - return undef unless (-d "packages-".$toVersion); - print "\tUpdating packages.\n" unless ($quiet); - opendir(DIR,"packages-".$toVersion); - my @files = readdir(DIR); - closedir(DIR); - my $newFolder = undef; - foreach my $file (@files) { - next unless ($file =~ /\.wgpkg$/); - # Fix the filename to include a path - $file = "packages-" . $toVersion . "/" . $file; - addPackage( $session, $file ); - } -} - -#vim:ft=perl diff --git a/docs/upgrades/upgrade_7.10.12-7.10.13.pl b/docs/upgrades/upgrade_7.10.12-7.10.13.pl deleted file mode 100644 index cb1f208eb..000000000 --- a/docs/upgrades/upgrade_7.10.12-7.10.13.pl +++ /dev/null @@ -1,165 +0,0 @@ -#!/usr/bin/env perl - -#------------------------------------------------------------------- -# WebGUI is Copyright 2001-2009 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 -#------------------------------------------------------------------- - -our ($webguiRoot); - -BEGIN { - $webguiRoot = "../.."; - unshift (@INC, $webguiRoot."/lib"); -} - -use strict; -use Getopt::Long; -use WebGUI::Session; -use WebGUI::Storage; -use WebGUI::Asset; - - -my $toVersion = '7.10.13'; -my $quiet; # this line required - - -my $session = start(); # this line required - -# upgrade functions go here -addAutoPlayToCarousel( $session ); -addProcessorDropdownToSnippet( $session ); - -finish($session); # this line required - - -#---------------------------------------------------------------------------- -# Describe what our function does -#sub exampleFunction { -# my $session = shift; -# print "\tWe're doing some stuff here that you should know about... " unless $quiet; -# # and here's our code -# print "DONE!\n" unless $quiet; -#} - -#---------------------------------------------------------------------------- -# Add AutoPlay fields to the Carousel -sub addAutoPlayToCarousel { - my $session = shift; - print "\tAdding Auto Play to Carousel... " unless $quiet; - $session->db->write( - "ALTER TABLE Carousel ADD COLUMN autoPlay INT, ADD COLUMN autoPlayInterval INT" - ); - print "DONE!\n" unless $quiet; -} - -#---------------------------------------------------------------------------- -sub addProcessorDropdownToSnippet { - my $session = shift; - my $db = $session->db; - print "\tUpdating the Snippet table to add templateProcessor option..." - unless $quiet; - - my $rows = $db->buildArrayRefOfHashRefs(q{ - select assetId, revisionDate from snippet where processAsTemplate = 1 - }); - - $db->write(q{ - alter table snippet - drop column processAsTemplate, - add column templateParser char(255) - }); - - my $default = $session->config->get('defaultTemplateParser'); - - for my $row (@$rows) { - $db->write(q{ - update snippet - set templateParser = ? - where assetId = ? and revisionDate = ? - }, [ $default, $row->{assetId}, $row->{revisionDate} ]); - } - - print "Done!\n"; -} - -# -------------- DO NOT EDIT BELOW THIS LINE -------------------------------- - -#---------------------------------------------------------------------------- -# Add a package to the import node -sub addPackage { - my $session = shift; - my $file = shift; - - print "\tUpgrading package $file\n" unless $quiet; - # Make a storage location for the package - my $storage = WebGUI::Storage->createTemp( $session ); - $storage->addFileFromFilesystem( $file ); - - # Import the package into the import node - my $package = eval { - my $node = WebGUI::Asset->getImportNode($session); - $node->importPackage( $storage, { - overwriteLatest => 1, - clearPackageFlag => 1, - setDefaultTemplate => 1, - } ); - }; - - if ($package eq 'corrupt') { - die "Corrupt package found in $file. Stopping upgrade.\n"; - } - if ($@ || !defined $package) { - die "Error during package import on $file: $@\nStopping upgrade\n."; - } - - return; -} - -#------------------------------------------------- -sub start { - my $configFile; - $|=1; #disable output buffering - GetOptions( - 'configFile=s'=>\$configFile, - 'quiet'=>\$quiet - ); - my $session = WebGUI::Session->open($webguiRoot,$configFile); - $session->user({userId=>3}); - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->set({name=>"Upgrade to ".$toVersion}); - return $session; -} - -#------------------------------------------------- -sub finish { - my $session = shift; - updateTemplates($session); - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->commit; - $session->db->write("insert into webguiVersion values (".$session->db->quote($toVersion).",'upgrade',".time().")"); - $session->close(); -} - -#------------------------------------------------- -sub updateTemplates { - my $session = shift; - return undef unless (-d "packages-".$toVersion); - print "\tUpdating packages.\n" unless ($quiet); - opendir(DIR,"packages-".$toVersion); - my @files = readdir(DIR); - closedir(DIR); - my $newFolder = undef; - foreach my $file (@files) { - next unless ($file =~ /\.wgpkg$/); - # Fix the filename to include a path - $file = "packages-" . $toVersion . "/" . $file; - addPackage( $session, $file ); - } -} - -#vim:ft=perl diff --git a/docs/upgrades/upgrade_7.10.13-7.10.14.pl b/docs/upgrades/upgrade_7.10.13-7.10.14.pl deleted file mode 100644 index 69a519076..000000000 --- a/docs/upgrades/upgrade_7.10.13-7.10.14.pl +++ /dev/null @@ -1,191 +0,0 @@ -#!/usr/bin/env perl - -#------------------------------------------------------------------- -# WebGUI is Copyright 2001-2009 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 -#------------------------------------------------------------------- - -our ($webguiRoot); - -BEGIN { - $webguiRoot = "../.."; - unshift (@INC, $webguiRoot."/lib"); -} - -use strict; -use Getopt::Long; -use WebGUI::Session; -use WebGUI::Storage; -use WebGUI::Asset; -use WebGUI::Asset::Wobject::Calendar; - - -my $toVersion = '7.10.14'; -my $quiet; # this line required - - -my $session = start(); # this line required - -# upgrade functions go here -addOrganizationsToTransaction($session); -removeDuplicateUndergroundStyleTemplates($session); -addRichEditToCarousel($session); -fixBadCalendarFeedStatus($session); - -finish($session); # this line required - - -#---------------------------------------------------------------------------- -# Describe what our function does -#sub exampleFunction { -# my $session = shift; -# print "\tWe're doing some stuff here that you should know about... " unless $quiet; -# # and here's our code -# print "DONE!\n" unless $quiet; -#} - - -#---------------------------------------------------------------------------- -# Describe what our function does -sub fixBadCalendarFeedStatus { - my $session = shift; - print "\tFix the name of the iCal status field in all Calendar assets... " unless $quiet; - # and here's our code - my $fetch_calendar = WebGUI::Asset::Wobject::Calendar->getIsa($session); - my $sth = $session->db->read('select assetId, revisionDate from Calendar'); - CALENDAR: while (my ($assetId, $revisionDate) = $sth->array) { - my $calendar = eval {WebGUI::Asset->new($session, $assetId, 'WebGUI::Asset::Wobject::Calendar', $revisionDate)}; - next CALENDAR if !$calendar; - FEED: foreach my $feed ( @{ $calendar->getFeeds } ) { - my $status = delete $feed->{status}; - if (!exists $feed->{lastResult}) { - $feed->{lastResult} = $status; - } - if (!exists $feed->{lastUpdated}) { - $feed->{lastUpdated} = 'never'; - } - $calendar->setFeed($feed->{feedId}, $feed); - } - } - $sth->finish; - print "DONE!\n" unless $quiet; -} - -#---------------------------------------------------------------------------- -# Describe what our function does -sub addOrganizationsToTransaction { - my $session = shift; - print "\tAdd organization fields to the addresses stored in the Transaction and TransactionItem... " unless $quiet; - # and here's our code - $session->db->write('ALTER TABLE transaction ADD COLUMN shippingOrganization CHAR(35)'); - $session->db->write('ALTER TABLE transaction ADD COLUMN paymentOrganization CHAR(35)'); - $session->db->write('ALTER TABLE transactionItem ADD COLUMN shippingOrganization CHAR(35)'); - print "DONE!\n" unless $quiet; -} - -#---------------------------------------------------------------------------- -# Describe what our function does -sub removeDuplicateUndergroundStyleTemplates { - my $session = shift; - print "\tRemove duplicate Underground Style templatess that were mistakenly added during the 7.10.13 upgrade... " unless $quiet; - # and here's our code - ASSETID: foreach my $assetId(qw/IeFioyemW2Ov-hFGFwD75A niYg8Da1sULTQnevZ8wYpw/) { - my $asset = WebGUI::Asset->newByDynamicClass($session, $assetId); - next ASSETID unless $asset; - $asset->purge; ##Kill it, crush it, grind its bits into dust. - } - print "DONE!\n" unless $quiet; -} - -#---------------------------------------------------------------------------- -# Describe what our function does -sub addRichEditToCarousel { - my $session = shift; - print "\tAdd RichEdit option to the Carousel... " unless $quiet; - # and here's our code - $session->db->write('ALTER TABLE Carousel ADD COLUMN richEditor CHAR(22) BINARY'); - $session->db->write(q!update Carousel set richEditor='PBrichedit000000000001'!); - print "DONE!\n" unless $quiet; -} - -# -------------- DO NOT EDIT BELOW THIS LINE -------------------------------- - -#---------------------------------------------------------------------------- -# Add a package to the import node -sub addPackage { - my $session = shift; - my $file = shift; - - print "\tUpgrading package $file\n" unless $quiet; - # Make a storage location for the package - my $storage = WebGUI::Storage->createTemp( $session ); - $storage->addFileFromFilesystem( $file ); - - # Import the package into the import node - my $package = eval { - my $node = WebGUI::Asset->getImportNode($session); - $node->importPackage( $storage, { - overwriteLatest => 1, - clearPackageFlag => 1, - setDefaultTemplate => 1, - } ); - }; - - if ($package eq 'corrupt') { - die "Corrupt package found in $file. Stopping upgrade.\n"; - } - if ($@ || !defined $package) { - die "Error during package import on $file: $@\nStopping upgrade\n."; - } - - return; -} - -#------------------------------------------------- -sub start { - my $configFile; - $|=1; #disable output buffering - GetOptions( - 'configFile=s'=>\$configFile, - 'quiet'=>\$quiet - ); - my $session = WebGUI::Session->open($webguiRoot,$configFile); - $session->user({userId=>3}); - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->set({name=>"Upgrade to ".$toVersion}); - return $session; -} - -#------------------------------------------------- -sub finish { - my $session = shift; - updateTemplates($session); - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->commit; - $session->db->write("insert into webguiVersion values (".$session->db->quote($toVersion).",'upgrade',".time().")"); - $session->close(); -} - -#------------------------------------------------- -sub updateTemplates { - my $session = shift; - return undef unless (-d "packages-".$toVersion); - print "\tUpdating packages.\n" unless ($quiet); - opendir(DIR,"packages-".$toVersion); - my @files = readdir(DIR); - closedir(DIR); - my $newFolder = undef; - foreach my $file (@files) { - next unless ($file =~ /\.wgpkg$/); - # Fix the filename to include a path - $file = "packages-" . $toVersion . "/" . $file; - addPackage( $session, $file ); - } -} - -#vim:ft=perl diff --git a/docs/upgrades/upgrade_7.10.14-7.10.15.pl b/docs/upgrades/upgrade_7.10.14-7.10.15.pl deleted file mode 100644 index ec2d3cc2a..000000000 --- a/docs/upgrades/upgrade_7.10.14-7.10.15.pl +++ /dev/null @@ -1,160 +0,0 @@ -#!/usr/bin/env perl - -#------------------------------------------------------------------- -# WebGUI is Copyright 2001-2009 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 -#------------------------------------------------------------------- - -our ($webguiRoot); - -BEGIN { - $webguiRoot = "../.."; - unshift (@INC, $webguiRoot."/lib"); -} - -use strict; -use Getopt::Long; -use WebGUI::Session; -use WebGUI::Storage; -use WebGUI::Asset; -use WebGUI::AssetAspect::Installable; -use WebGUI::Asset::MapPoint; -use WebGUI::Asset::Wobject::Thingy; - -my $toVersion = '7.10.15'; -my $quiet; # this line required - - -my $session = start(); # this line required - -# upgrade functions go here -alterAssetIndexTable($session); -reindexAllThingys($session); -WebGUI::AssetAspect::Installable::upgrade("WebGUI::Asset::MapPoint",$session); -addRenderThingDataMacro($session); - -finish($session); # this line required - - -#---------------------------------------------------------------------------- -# Describe what our function does -#sub exampleFunction { -# my $session = shift; -# print "\tWe're doing some stuff here that you should know about... " unless $quiet; -# # and here's our code -# print "DONE!\n" unless $quiet; -#} - -sub addRenderThingDataMacro { - my $session = shift; - print "\tAdd the new RenderThingData macro to the site config... " unless $quiet; - $session->config->addToHash('macros', 'RenderThingData', 'RenderThingData'); - print "DONE!\n" unless $quiet; -} - -sub alterAssetIndexTable { - my $session = shift; - print "\tExtend the assetIndex table so we can search things other than assets... " unless $quiet; - $session->db->write(<getIsa($session); - THINGY: while (1) { - my $thingy = eval { $get_thingy->() }; - next THINGY if Exception::Class->caught(); - last THINGY unless $thingy; - $thingy->indexContent; - } - print "DONE!\n" unless $quiet; -} - -# -------------- DO NOT EDIT BELOW THIS LINE -------------------------------- - -#---------------------------------------------------------------------------- -# Add a package to the import node -sub addPackage { - my $session = shift; - my $file = shift; - - print "\tUpgrading package $file\n" unless $quiet; - # Make a storage location for the package - my $storage = WebGUI::Storage->createTemp( $session ); - $storage->addFileFromFilesystem( $file ); - - # Import the package into the import node - my $package = eval { - my $node = WebGUI::Asset->getImportNode($session); - $node->importPackage( $storage, { - overwriteLatest => 1, - clearPackageFlag => 1, - setDefaultTemplate => 1, - } ); - }; - - if ($package eq 'corrupt') { - die "Corrupt package found in $file. Stopping upgrade.\n"; - } - if ($@ || !defined $package) { - die "Error during package import on $file: $@\nStopping upgrade\n."; - } - - return; -} - -#------------------------------------------------- -sub start { - my $configFile; - $|=1; #disable output buffering - GetOptions( - 'configFile=s'=>\$configFile, - 'quiet'=>\$quiet - ); - my $session = WebGUI::Session->open($webguiRoot,$configFile); - $session->user({userId=>3}); - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->set({name=>"Upgrade to ".$toVersion}); - return $session; -} - -#------------------------------------------------- -sub finish { - my $session = shift; - updateTemplates($session); - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->commit; - $session->db->write("insert into webguiVersion values (".$session->db->quote($toVersion).",'upgrade',".time().")"); - $session->close(); -} - -#------------------------------------------------- -sub updateTemplates { - my $session = shift; - return undef unless (-d "packages-".$toVersion); - print "\tUpdating packages.\n" unless ($quiet); - opendir(DIR,"packages-".$toVersion); - my @files = readdir(DIR); - closedir(DIR); - my $newFolder = undef; - foreach my $file (@files) { - next unless ($file =~ /\.wgpkg$/); - # Fix the filename to include a path - $file = "packages-" . $toVersion . "/" . $file; - addPackage( $session, $file ); - } -} - -#vim:ft=perl diff --git a/docs/upgrades/upgrade_7.10.2-7.10.3.pl b/docs/upgrades/upgrade_7.10.2-7.10.3.pl deleted file mode 100644 index 3acbc26fe..000000000 --- a/docs/upgrades/upgrade_7.10.2-7.10.3.pl +++ /dev/null @@ -1,172 +0,0 @@ -#!/usr/bin/env perl - -#------------------------------------------------------------------- -# WebGUI is Copyright 2001-2009 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 -#------------------------------------------------------------------- - -our ($webguiRoot); - -BEGIN { - $webguiRoot = "../.."; - unshift (@INC, $webguiRoot."/lib"); -} - -use strict; -use Getopt::Long; -use WebGUI::Session; -use WebGUI::Storage; -use WebGUI::Asset; - - -my $toVersion = '7.10.3'; -my $quiet; # this line required - - -my $session = start(); # this line required - -# upgrade functions go here -pruneInboxMessagesFromDeletedUsers($session); -addTemplateToNotifyAboutVersionTag($session); -addPasswordRecoveryEmailTemplate($session); - -finish($session); # this line required - - -#---------------------------------------------------------------------------- -# Describe what our function does -sub pruneInboxMessagesFromDeletedUsers { - my $session = shift; - print "\tPruning inbox messages from deleted users. This may take a while... " unless $quiet; - my $sth = $session->db->prepare(<execute([]); - use WebGUI::Inbox; - my $inbox = WebGUI::Inbox->new($session); - while (my ($messageId, $userId) = $sth->array) { - my $message = $inbox->getMessage($messageId, $userId); - if ($message) { - $message->delete; - } - } - print "...DONE!\n" unless $quiet; -} - - -#---------------------------------------------------------------------------- -# Describe what our function does -sub addTemplateToNotifyAboutVersionTag { - my $session = shift; - print "\tAdd template to Notify About Version Tag workflow activities." unless $quiet; - use WebGUI::Workflow::Activity; - use WebGUI::Workflow::Activity::NotifyAboutVersionTag; - my $templateId = WebGUI::Workflow::Activity::NotifyAboutVersionTag->definition($session)->[0]->{properties}->{templateId}->{defaultValue}; - my $activityList = $session->db->read(q|select activityId from WorkflowActivity|); - while (my ($activityId) = $activityList->array) { - my $activity = WebGUI::Workflow::Activity->new($session, $activityId); - next unless $activity; - next unless $activity->isa('WebGUI::Workflow::Activity::NotifyAboutVersionTag') - || $activity->isa('WebGUI::Workflow::Activity::RequestApprovalForVersionTag') - ; - $activity->set('templateId', $templateId); - } - print "...DONE!\n" unless $quiet; -} - - -#---------------------------------------------------------------------------- -# Describe what our function does -sub addPasswordRecoveryEmailTemplate { - my $session = shift; - print "\tAdd a template for the password recovery email." unless $quiet; - $session->setting->add('webguiPasswordRecoveryEmailTemplate', 'sK_0zVw4kwdJ1sqREIsSzA'); - print "...DONE!\n" unless $quiet; -} - - -# -------------- DO NOT EDIT BELOW THIS LINE -------------------------------- - -#---------------------------------------------------------------------------- -# Add a package to the import node -sub addPackage { - my $session = shift; - my $file = shift; - - print "\tUpgrading package $file\n" unless $quiet; - # Make a storage location for the package - my $storage = WebGUI::Storage->createTemp( $session ); - $storage->addFileFromFilesystem( $file ); - - # Import the package into the import node - my $package = eval { - my $node = WebGUI::Asset->getImportNode($session); - $node->importPackage( $storage, { - overwriteLatest => 1, - clearPackageFlag => 1, - setDefaultTemplate => 1, - } ); - }; - - if ($package eq 'corrupt') { - die "Corrupt package found in $file. Stopping upgrade.\n"; - } - if ($@ || !defined $package) { - die "Error during package import on $file: $@\nStopping upgrade\n."; - } - - return; -} - -#------------------------------------------------- -sub start { - my $configFile; - $|=1; #disable output buffering - GetOptions( - 'configFile=s'=>\$configFile, - 'quiet'=>\$quiet - ); - my $session = WebGUI::Session->open($webguiRoot,$configFile); - $session->user({userId=>3}); - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->set({name=>"Upgrade to ".$toVersion}); - return $session; -} - -#------------------------------------------------- -sub finish { - my $session = shift; - updateTemplates($session); - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->commit; - $session->db->write("insert into webguiVersion values (".$session->db->quote($toVersion).",'upgrade',".time().")"); - $session->close(); -} - -#------------------------------------------------- -sub updateTemplates { - my $session = shift; - return undef unless (-d "packages-".$toVersion); - print "\tUpdating packages.\n" unless ($quiet); - opendir(DIR,"packages-".$toVersion); - my @files = readdir(DIR); - closedir(DIR); - my $newFolder = undef; - foreach my $file (@files) { - next unless ($file =~ /\.wgpkg$/); - # Fix the filename to include a path - $file = "packages-" . $toVersion . "/" . $file; - addPackage( $session, $file ); - } -} - -#vim:ft=perl diff --git a/docs/upgrades/upgrade_7.10.3-7.10.4.pl b/docs/upgrades/upgrade_7.10.3-7.10.4.pl deleted file mode 100644 index 43177f312..000000000 --- a/docs/upgrades/upgrade_7.10.3-7.10.4.pl +++ /dev/null @@ -1,190 +0,0 @@ -#!/usr/bin/env perl - -#------------------------------------------------------------------- -# WebGUI is Copyright 2001-2009 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 -#------------------------------------------------------------------- - -our ($webguiRoot); - -BEGIN { - $webguiRoot = "../.."; - unshift (@INC, $webguiRoot."/lib"); -} - -use strict; -use Getopt::Long; -use WebGUI::Session; -use WebGUI::Storage; -use WebGUI::Asset; -use List::Util qw(first); - -my $toVersion = '7.10.4'; -my $quiet; # this line required - - -my $session = start(); # this line required - -# upgrade functions go here -changeTemplateHelpUrl($session); -addForkTable($session); -installForkCleanup($session); - -finish($session); # this line required - - -#---------------------------------------------------------------------------- -# Describe what our function does -#sub exampleFunction { -# my $session = shift; -# print "\tWe're doing some stuff here that you should know about... " unless $quiet; -# # and here's our code -# print "DONE!\n" unless $quiet; -#} - -#---------------------------------------------------------------------------- -# Describe what our function does -sub changeTemplateHelpUrl { - my $session = shift; - print "\tChange the URL for the template that displays help variables... " unless $quiet; - # and here's our code - my $template = WebGUI::Asset->newByDynamicClass($session, 'PBtmplHelp000000000001'); - if ($template) { - $template->update({url => 'root/import/adminconsole/help'}); - my $rs = $template->session->db->read("select revisionDate from assetData where assetId=? and revisionDate<>?",[$template->getId, $template->get("revisionDate")]); - while (my ($version) = $rs->array) { - my $old = WebGUI::Asset->new($session, $template->getId, $template->get("className"), $version); - $old->purgeRevision if defined $old; - } - } - else { - print "\n\tNO TEMPLATE FOR DISPLAYING TEMPLATE VARIABLES..."; - } - print "DONE!\n" unless $quiet; -} - -#---------------------------------------------------------------------------- -# Creates a new table for tracking background processes -sub addForkTable { - my $session = shift; - my $db = $session->db; - my $sth = $db->dbh->table_info('', '', 'Fork', 'TABLE'); - return if ($sth->fetch); - print "\tAdding Fork table..." unless $quiet; - my $sql = q{ - CREATE TABLE Fork ( - id CHAR(22), - userId CHAR(22), - groupId CHAR(22), - status LONGTEXT, - error TEXT, - startTime BIGINT(20), - endTime BIGINT(20), - finished BOOLEAN DEFAULT FALSE, - latch BOOLEAN DEFAULT FALSE, - - PRIMARY KEY(id) - ); - }; - $db->write($sql); - print "DONE!\n" unless $quiet; -} - -#---------------------------------------------------------------------------- -# install a workflow to clean up old background processes -sub installForkCleanup { - my $session = shift; - print "\tInstalling Fork Cleanup workflow..." unless $quiet; - my $class = 'WebGUI::Workflow::Activity::RemoveOldForks'; - $session->config->addToArray('workflowActivities/None', $class); - my $wf = WebGUI::Workflow->new($session, 'pbworkflow000000000001'); - my $a = first { ref $_ eq $class } @{ $wf->getActivities }; - unless ($a) { - $a = $wf->addActivity($class); - $a->set(title => 'Remove Old Forks'); - }; - print "DONE!\n" unless $quiet; -} - - -# -------------- DO NOT EDIT BELOW THIS LINE -------------------------------- - -#---------------------------------------------------------------------------- -# Add a package to the import node -sub addPackage { - my $session = shift; - my $file = shift; - - print "\tUpgrading package $file\n" unless $quiet; - # Make a storage location for the package - my $storage = WebGUI::Storage->createTemp( $session ); - $storage->addFileFromFilesystem( $file ); - - # Import the package into the import node - my $package = eval { - my $node = WebGUI::Asset->getImportNode($session); - $node->importPackage( $storage, { - overwriteLatest => 1, - clearPackageFlag => 1, - setDefaultTemplate => 1, - } ); - }; - - if ($package eq 'corrupt') { - die "Corrupt package found in $file. Stopping upgrade.\n"; - } - if ($@ || !defined $package) { - die "Error during package import on $file: $@\nStopping upgrade\n."; - } - - return; -} - -#------------------------------------------------- -sub start { - my $configFile; - $|=1; #disable output buffering - GetOptions( - 'configFile=s'=>\$configFile, - 'quiet'=>\$quiet - ); - my $session = WebGUI::Session->open($webguiRoot,$configFile); - $session->user({userId=>3}); - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->set({name=>"Upgrade to ".$toVersion}); - return $session; -} - -#------------------------------------------------- -sub finish { - my $session = shift; - updateTemplates($session); - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->commit; - $session->db->write("insert into webguiVersion values (".$session->db->quote($toVersion).",'upgrade',".time().")"); - $session->close(); -} - -#------------------------------------------------- -sub updateTemplates { - my $session = shift; - return undef unless (-d "packages-".$toVersion); - print "\tUpdating packages.\n" unless ($quiet); - opendir(DIR,"packages-".$toVersion); - my @files = readdir(DIR); - closedir(DIR); - my $newFolder = undef; - foreach my $file (@files) { - next unless ($file =~ /\.wgpkg$/); - # Fix the filename to include a path - $file = "packages-" . $toVersion . "/" . $file; - addPackage( $session, $file ); - } -} - -#vim:ft=perl diff --git a/docs/upgrades/upgrade_7.10.4-7.10.5.pl b/docs/upgrades/upgrade_7.10.4-7.10.5.pl deleted file mode 100644 index 4e151cdf0..000000000 --- a/docs/upgrades/upgrade_7.10.4-7.10.5.pl +++ /dev/null @@ -1,123 +0,0 @@ -#!/usr/bin/env perl - -#------------------------------------------------------------------- -# WebGUI is Copyright 2001-2009 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 -#------------------------------------------------------------------- - -our ($webguiRoot); - -BEGIN { - $webguiRoot = "../.."; - unshift (@INC, $webguiRoot."/lib"); -} - -use strict; -use Getopt::Long; -use WebGUI::Session; -use WebGUI::Storage; -use WebGUI::Asset; - - -my $toVersion = '7.10.5'; -my $quiet; # this line required - - -my $session = start(); # this line required - -# upgrade functions go here - -finish($session); # this line required - - -#---------------------------------------------------------------------------- -# Describe what our function does -#sub exampleFunction { -# my $session = shift; -# print "\tWe're doing some stuff here that you should know about... " unless $quiet; -# # and here's our code -# print "DONE!\n" unless $quiet; -#} - - -# -------------- DO NOT EDIT BELOW THIS LINE -------------------------------- - -#---------------------------------------------------------------------------- -# Add a package to the import node -sub addPackage { - my $session = shift; - my $file = shift; - - print "\tUpgrading package $file\n" unless $quiet; - # Make a storage location for the package - my $storage = WebGUI::Storage->createTemp( $session ); - $storage->addFileFromFilesystem( $file ); - - # Import the package into the import node - my $package = eval { - my $node = WebGUI::Asset->getImportNode($session); - $node->importPackage( $storage, { - overwriteLatest => 1, - clearPackageFlag => 1, - setDefaultTemplate => 1, - } ); - }; - - if ($package eq 'corrupt') { - die "Corrupt package found in $file. Stopping upgrade.\n"; - } - if ($@ || !defined $package) { - die "Error during package import on $file: $@\nStopping upgrade\n."; - } - - return; -} - -#------------------------------------------------- -sub start { - my $configFile; - $|=1; #disable output buffering - GetOptions( - 'configFile=s'=>\$configFile, - 'quiet'=>\$quiet - ); - my $session = WebGUI::Session->open($webguiRoot,$configFile); - $session->user({userId=>3}); - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->set({name=>"Upgrade to ".$toVersion}); - return $session; -} - -#------------------------------------------------- -sub finish { - my $session = shift; - updateTemplates($session); - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->commit; - $session->db->write("insert into webguiVersion values (".$session->db->quote($toVersion).",'upgrade',".time().")"); - $session->close(); -} - -#------------------------------------------------- -sub updateTemplates { - my $session = shift; - return undef unless (-d "packages-".$toVersion); - print "\tUpdating packages.\n" unless ($quiet); - opendir(DIR,"packages-".$toVersion); - my @files = readdir(DIR); - closedir(DIR); - my $newFolder = undef; - foreach my $file (@files) { - next unless ($file =~ /\.wgpkg$/); - # Fix the filename to include a path - $file = "packages-" . $toVersion . "/" . $file; - addPackage( $session, $file ); - } -} - -#vim:ft=perl diff --git a/docs/upgrades/upgrade_7.10.5-7.10.6.pl b/docs/upgrades/upgrade_7.10.5-7.10.6.pl deleted file mode 100644 index 7073196be..000000000 --- a/docs/upgrades/upgrade_7.10.5-7.10.6.pl +++ /dev/null @@ -1,144 +0,0 @@ -#!/usr/bin/env perl - -#------------------------------------------------------------------- -# WebGUI is Copyright 2001-2009 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 -#------------------------------------------------------------------- - -our ($webguiRoot); - -BEGIN { - $webguiRoot = "../.."; - unshift (@INC, $webguiRoot."/lib"); -} - -use strict; -use Getopt::Long; -use WebGUI::Session; -use WebGUI::Storage; -use WebGUI::Asset; -use WebGUI::Workflow; - -my $toVersion = '7.10.6'; -my $quiet; # this line required - - -my $session = start(); # this line required - -# upgrade functions go here -addCollaborationSubscriptionWorkflow($session); - -finish($session); # this line required - - -#---------------------------------------------------------------------------- -sub addCollaborationSubscriptionWorkflow { - my $session = shift; - print "\tAdd Collaboration System subscriber validation workflow... " unless $quiet; - # and here's our code - $session->config->addToArray('workflowActivities/WebGUI::Asset', qw/WebGUI::Workflow::Activity::UpdateAssetSubscribers/); - my $workflow = WebGUI::Workflow->create($session, - { - mode => 'parallel', - enabled => 1, - title => 'Update CS Subscription members', - description => "This workflow will be run whenever the viewing permissions are changed on an Asset. It will update the members of the subscription group, and remove members who can no longer view the Asset.", - type => 'WebGUI::Asset', - }, - 'xR-_GRRbjBojgLsFx3dEMA' - ); - $workflow->addActivity('WebGUI::Workflow::Activity::UpdateAssetSubscribers'); - print "DONE!\n" unless $quiet; -} - -#---------------------------------------------------------------------------- -# Describe what our function does -#sub exampleFunction { -# my $session = shift; -# print "\tWe're doing some stuff here that you should know about... " unless $quiet; -# # and here's our code -# print "DONE!\n" unless $quiet; -#} - - -# -------------- DO NOT EDIT BELOW THIS LINE -------------------------------- - -#---------------------------------------------------------------------------- -# Add a package to the import node -sub addPackage { - my $session = shift; - my $file = shift; - - print "\tUpgrading package $file\n" unless $quiet; - # Make a storage location for the package - my $storage = WebGUI::Storage->createTemp( $session ); - $storage->addFileFromFilesystem( $file ); - - # Import the package into the import node - my $package = eval { - my $node = WebGUI::Asset->getImportNode($session); - $node->importPackage( $storage, { - overwriteLatest => 1, - clearPackageFlag => 1, - setDefaultTemplate => 1, - } ); - }; - - if ($package eq 'corrupt') { - die "Corrupt package found in $file. Stopping upgrade.\n"; - } - if ($@ || !defined $package) { - die "Error during package import on $file: $@\nStopping upgrade\n."; - } - - return; -} - -#------------------------------------------------- -sub start { - my $configFile; - $|=1; #disable output buffering - GetOptions( - 'configFile=s'=>\$configFile, - 'quiet'=>\$quiet - ); - my $session = WebGUI::Session->open($webguiRoot,$configFile); - $session->user({userId=>3}); - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->set({name=>"Upgrade to ".$toVersion}); - return $session; -} - -#------------------------------------------------- -sub finish { - my $session = shift; - updateTemplates($session); - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->commit; - $session->db->write("insert into webguiVersion values (".$session->db->quote($toVersion).",'upgrade',".time().")"); - $session->close(); -} - -#------------------------------------------------- -sub updateTemplates { - my $session = shift; - return undef unless (-d "packages-".$toVersion); - print "\tUpdating packages.\n" unless ($quiet); - opendir(DIR,"packages-".$toVersion); - my @files = readdir(DIR); - closedir(DIR); - my $newFolder = undef; - foreach my $file (@files) { - next unless ($file =~ /\.wgpkg$/); - # Fix the filename to include a path - $file = "packages-" . $toVersion . "/" . $file; - addPackage( $session, $file ); - } -} - -#vim:ft=perl diff --git a/docs/upgrades/upgrade_7.10.6-7.10.7.pl b/docs/upgrades/upgrade_7.10.6-7.10.7.pl deleted file mode 100644 index f88dc9013..000000000 --- a/docs/upgrades/upgrade_7.10.6-7.10.7.pl +++ /dev/null @@ -1,163 +0,0 @@ -#!/usr/bin/env perl - -#------------------------------------------------------------------- -# WebGUI is Copyright 2001-2009 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 -#------------------------------------------------------------------- - -our ($webguiRoot); - -BEGIN { - $webguiRoot = "../.."; - unshift (@INC, $webguiRoot."/lib"); -} - -use strict; -use Getopt::Long; -use WebGUI::Session; -use WebGUI::Storage; -use WebGUI::Asset; - - -my $toVersion = '7.10.7'; -my $quiet; # this line required - - -my $session = start(); # this line required - -# upgrade functions go here -addEmailIndexToProfile( $session ); -addIndecesToUserLoginLog($session); -addSSOOptionToConfigs($session); - -finish($session); # this line required - - -#---------------------------------------------------------------------------- -# Describe what our function does -#sub exampleFunction { -# my $session = shift; -# print "\tWe're doing some stuff here that you should know about... " unless $quiet; -# # and here's our code -# print "DONE!\n" unless $quiet; -#} - -#---------------------------------------------------------------------------- -# Add an index to the userProfileData table for email lookups -sub addSSOOptionToConfigs { - my $session = shift; - print "\tAdding SSO flag to config file to enable the feature... " unless $quiet; - $session->config->set('enableSimpleSSO', 0); - print "DONE!\n" unless $quiet; -} - -#---------------------------------------------------------------------------- -# Add an index to the userProfileData table for email lookups -sub addEmailIndexToProfile { - my $session = shift; - print "\tAdding index to email column on userProfileData table... " unless $quiet; - # and here's our code - $session->db->write( "ALTER TABLE userProfileData ADD INDEX email ( email )" ); - print "DONE!\n" unless $quiet; -} - -#---------------------------------------------------------------------------- -sub addIndecesToUserLoginLog { - my $session = shift; - print "\tAdd indeces to userLoginLog to speed cleanup... " unless $quiet; - # and here's our code - my $sth = $session->db->read('SHOW CREATE TABLE userLoginLog'); - my ($field,$stmt) = $sth->array; - $sth->finish; - unless ($stmt =~ m/KEY `userId`/i) { - $session->db->write("ALTER TABLE userLoginLog ADD INDEX userId (userId)"); - } - unless ($stmt =~ m/KEY `timeStamp`/i) { - $session->db->write("ALTER TABLE userLoginLog ADD INDEX timeStamp (timeStamp)"); - } - - print "DONE!\n" unless $quiet; -} - - -# -------------- DO NOT EDIT BELOW THIS LINE -------------------------------- - -#---------------------------------------------------------------------------- -# Add a package to the import node -sub addPackage { - my $session = shift; - my $file = shift; - - print "\tUpgrading package $file\n" unless $quiet; - # Make a storage location for the package - my $storage = WebGUI::Storage->createTemp( $session ); - $storage->addFileFromFilesystem( $file ); - - # Import the package into the import node - my $package = eval { - my $node = WebGUI::Asset->getImportNode($session); - $node->importPackage( $storage, { - overwriteLatest => 1, - clearPackageFlag => 1, - setDefaultTemplate => 1, - } ); - }; - - if ($package eq 'corrupt') { - die "Corrupt package found in $file. Stopping upgrade.\n"; - } - if ($@ || !defined $package) { - die "Error during package import on $file: $@\nStopping upgrade\n."; - } - - return; -} - -#------------------------------------------------- -sub start { - my $configFile; - $|=1; #disable output buffering - GetOptions( - 'configFile=s'=>\$configFile, - 'quiet'=>\$quiet - ); - my $session = WebGUI::Session->open($webguiRoot,$configFile); - $session->user({userId=>3}); - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->set({name=>"Upgrade to ".$toVersion}); - return $session; -} - -#------------------------------------------------- -sub finish { - my $session = shift; - updateTemplates($session); - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->commit; - $session->db->write("insert into webguiVersion values (".$session->db->quote($toVersion).",'upgrade',".time().")"); - $session->close(); -} - -#------------------------------------------------- -sub updateTemplates { - my $session = shift; - return undef unless (-d "packages-".$toVersion); - print "\tUpdating packages.\n" unless ($quiet); - opendir(DIR,"packages-".$toVersion); - my @files = readdir(DIR); - closedir(DIR); - my $newFolder = undef; - foreach my $file (@files) { - next unless ($file =~ /\.wgpkg$/); - # Fix the filename to include a path - $file = "packages-" . $toVersion . "/" . $file; - addPackage( $session, $file ); - } -} - -#vim:ft=perl diff --git a/docs/upgrades/upgrade_7.10.7-7.10.8.pl b/docs/upgrades/upgrade_7.10.7-7.10.8.pl deleted file mode 100644 index 14f011889..000000000 --- a/docs/upgrades/upgrade_7.10.7-7.10.8.pl +++ /dev/null @@ -1,123 +0,0 @@ -#!/usr/bin/env perl - -#------------------------------------------------------------------- -# WebGUI is Copyright 2001-2009 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 -#------------------------------------------------------------------- - -our ($webguiRoot); - -BEGIN { - $webguiRoot = "../.."; - unshift (@INC, $webguiRoot."/lib"); -} - -use strict; -use Getopt::Long; -use WebGUI::Session; -use WebGUI::Storage; -use WebGUI::Asset; - - -my $toVersion = '7.10.8'; -my $quiet; # this line required - - -my $session = start(); # this line required - -# upgrade functions go here - -finish($session); # this line required - - -#---------------------------------------------------------------------------- -# Describe what our function does -#sub exampleFunction { -# my $session = shift; -# print "\tWe're doing some stuff here that you should know about... " unless $quiet; -# # and here's our code -# print "DONE!\n" unless $quiet; -#} - - -# -------------- DO NOT EDIT BELOW THIS LINE -------------------------------- - -#---------------------------------------------------------------------------- -# Add a package to the import node -sub addPackage { - my $session = shift; - my $file = shift; - - print "\tUpgrading package $file\n" unless $quiet; - # Make a storage location for the package - my $storage = WebGUI::Storage->createTemp( $session ); - $storage->addFileFromFilesystem( $file ); - - # Import the package into the import node - my $package = eval { - my $node = WebGUI::Asset->getImportNode($session); - $node->importPackage( $storage, { - overwriteLatest => 1, - clearPackageFlag => 1, - setDefaultTemplate => 1, - } ); - }; - - if ($package eq 'corrupt') { - die "Corrupt package found in $file. Stopping upgrade.\n"; - } - if ($@ || !defined $package) { - die "Error during package import on $file: $@\nStopping upgrade\n."; - } - - return; -} - -#------------------------------------------------- -sub start { - my $configFile; - $|=1; #disable output buffering - GetOptions( - 'configFile=s'=>\$configFile, - 'quiet'=>\$quiet - ); - my $session = WebGUI::Session->open($webguiRoot,$configFile); - $session->user({userId=>3}); - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->set({name=>"Upgrade to ".$toVersion}); - return $session; -} - -#------------------------------------------------- -sub finish { - my $session = shift; - updateTemplates($session); - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->commit; - $session->db->write("insert into webguiVersion values (".$session->db->quote($toVersion).",'upgrade',".time().")"); - $session->close(); -} - -#------------------------------------------------- -sub updateTemplates { - my $session = shift; - return undef unless (-d "packages-".$toVersion); - print "\tUpdating packages.\n" unless ($quiet); - opendir(DIR,"packages-".$toVersion); - my @files = readdir(DIR); - closedir(DIR); - my $newFolder = undef; - foreach my $file (@files) { - next unless ($file =~ /\.wgpkg$/); - # Fix the filename to include a path - $file = "packages-" . $toVersion . "/" . $file; - addPackage( $session, $file ); - } -} - -#vim:ft=perl diff --git a/docs/upgrades/upgrade_7.10.8-7.10.9.pl b/docs/upgrades/upgrade_7.10.8-7.10.9.pl deleted file mode 100644 index cc81d1ba3..000000000 --- a/docs/upgrades/upgrade_7.10.8-7.10.9.pl +++ /dev/null @@ -1,123 +0,0 @@ -#!/usr/bin/env perl - -#------------------------------------------------------------------- -# WebGUI is Copyright 2001-2009 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 -#------------------------------------------------------------------- - -our ($webguiRoot); - -BEGIN { - $webguiRoot = "../.."; - unshift (@INC, $webguiRoot."/lib"); -} - -use strict; -use Getopt::Long; -use WebGUI::Session; -use WebGUI::Storage; -use WebGUI::Asset; - - -my $toVersion = '7.10.9'; -my $quiet; # this line required - - -my $session = start(); # this line required - -# upgrade functions go here - -finish($session); # this line required - - -#---------------------------------------------------------------------------- -# Describe what our function does -#sub exampleFunction { -# my $session = shift; -# print "\tWe're doing some stuff here that you should know about... " unless $quiet; -# # and here's our code -# print "DONE!\n" unless $quiet; -#} - - -# -------------- DO NOT EDIT BELOW THIS LINE -------------------------------- - -#---------------------------------------------------------------------------- -# Add a package to the import node -sub addPackage { - my $session = shift; - my $file = shift; - - print "\tUpgrading package $file\n" unless $quiet; - # Make a storage location for the package - my $storage = WebGUI::Storage->createTemp( $session ); - $storage->addFileFromFilesystem( $file ); - - # Import the package into the import node - my $package = eval { - my $node = WebGUI::Asset->getImportNode($session); - $node->importPackage( $storage, { - overwriteLatest => 1, - clearPackageFlag => 1, - setDefaultTemplate => 1, - } ); - }; - - if ($package eq 'corrupt') { - die "Corrupt package found in $file. Stopping upgrade.\n"; - } - if ($@ || !defined $package) { - die "Error during package import on $file: $@\nStopping upgrade\n."; - } - - return; -} - -#------------------------------------------------- -sub start { - my $configFile; - $|=1; #disable output buffering - GetOptions( - 'configFile=s'=>\$configFile, - 'quiet'=>\$quiet - ); - my $session = WebGUI::Session->open($webguiRoot,$configFile); - $session->user({userId=>3}); - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->set({name=>"Upgrade to ".$toVersion}); - return $session; -} - -#------------------------------------------------- -sub finish { - my $session = shift; - updateTemplates($session); - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->commit; - $session->db->write("insert into webguiVersion values (".$session->db->quote($toVersion).",'upgrade',".time().")"); - $session->close(); -} - -#------------------------------------------------- -sub updateTemplates { - my $session = shift; - return undef unless (-d "packages-".$toVersion); - print "\tUpdating packages.\n" unless ($quiet); - opendir(DIR,"packages-".$toVersion); - my @files = readdir(DIR); - closedir(DIR); - my $newFolder = undef; - foreach my $file (@files) { - next unless ($file =~ /\.wgpkg$/); - # Fix the filename to include a path - $file = "packages-" . $toVersion . "/" . $file; - addPackage( $session, $file ); - } -} - -#vim:ft=perl diff --git a/docs/upgrades/upgrade_7.10.9-7.10.10.pl b/docs/upgrades/upgrade_7.10.9-7.10.10.pl deleted file mode 100644 index 8076a8e85..000000000 --- a/docs/upgrades/upgrade_7.10.9-7.10.10.pl +++ /dev/null @@ -1,170 +0,0 @@ -#!/usr/bin/env perl - -#------------------------------------------------------------------- -# WebGUI is Copyright 2001-2009 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 -#------------------------------------------------------------------- - -our ($webguiRoot); - -BEGIN { - $webguiRoot = "../.."; - unshift (@INC, $webguiRoot."/lib"); -} - -use strict; -use Getopt::Long; -use WebGUI::Session; -use WebGUI::Storage; -use WebGUI::Asset; - - -my $toVersion = '7.10.10'; -my $quiet; # this line required - - -my $session = start(); # this line required - -# upgrade functions go here -convertCsMailInterval($session); -addVersioningToMetadata($session); -finish($session); # this line required - - -#---------------------------------------------------------------------------- -# Describe what our function does -#sub exampleFunction { -# my $session = shift; -# print "\tWe're doing some stuff here that you should know about... " unless $quiet; -# # and here's our code -# print "DONE!\n" unless $quiet; -#} - -#---------------------------------------------------------------------------- -sub convertCsMailInterval { - my $session = shift; - print "\tConvert the getMailInterval from seconds to enumeration... " unless $quiet; - # and here's our code - $session->db->write('alter table Collaboration modify column getMailInterval char(64)'); - my $get_row = $session->db->read('select assetId, revisionDate, getMailInterval from Collaboration'); - my $change_row = $session->db->prepare('update Collaboration set getMailInterval=? where assetId=? and revisionDate=?'); - while (my ($assetId, $revisionDate, $seconds ) = $get_row->array) { - my $interval; - if ($seconds <= 60) { $interval = 'every minute'; } - elsif ($seconds <= 120) { $interval = 'every other minute'; } - elsif ($seconds <= 300) { $interval = 'every 5 minutes'; } - elsif ($seconds <= 600) { $interval = 'every 10 minutes'; } - elsif ($seconds <= 900) { $interval = 'every 15 minutes'; } - elsif ($seconds <= 1200) { $interval = 'every 20 minutes'; } - elsif ($seconds <= 1800) { $interval = 'every 30 minutes'; } - elsif ($seconds <= 3600) { $interval = 'every hour'; } - elsif ($seconds <= 7200) { $interval = 'every other hour'; } - else { $interval = 'once per day'; } - $change_row->execute([$interval, $assetId, $revisionDate]); - } - $get_row->finish; - $change_row->finish; - print "DONE!\n" unless $quiet; -} - -sub addVersioningToMetadata { - my $session = shift; - print "\tAltering metadata tables for versioning..." unless $quiet; - my $db = $session->db; - $db->write(q{ - alter table metaData_values - add column revisionDate bigint, - drop primary key, - add primary key (fieldId, assetId, revisionDate); - }); - $db->write(q{ - create table metaData_classes ( - className char(255), - fieldId char(22) - ); - }); - print "DONE!\n" unless $quiet; -} - - -# -------------- DO NOT EDIT BELOW THIS LINE -------------------------------- - -#---------------------------------------------------------------------------- -# Add a package to the import node -sub addPackage { - my $session = shift; - my $file = shift; - - print "\tUpgrading package $file\n" unless $quiet; - # Make a storage location for the package - my $storage = WebGUI::Storage->createTemp( $session ); - $storage->addFileFromFilesystem( $file ); - - # Import the package into the import node - my $package = eval { - my $node = WebGUI::Asset->getImportNode($session); - $node->importPackage( $storage, { - overwriteLatest => 1, - clearPackageFlag => 1, - setDefaultTemplate => 1, - } ); - }; - - if ($package eq 'corrupt') { - die "Corrupt package found in $file. Stopping upgrade.\n"; - } - if ($@ || !defined $package) { - die "Error during package import on $file: $@\nStopping upgrade\n."; - } - - return; -} - -#------------------------------------------------- -sub start { - my $configFile; - $|=1; #disable output buffering - GetOptions( - 'configFile=s'=>\$configFile, - 'quiet'=>\$quiet - ); - my $session = WebGUI::Session->open($webguiRoot,$configFile); - $session->user({userId=>3}); - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->set({name=>"Upgrade to ".$toVersion}); - return $session; -} - -#------------------------------------------------- -sub finish { - my $session = shift; - updateTemplates($session); - my $versionTag = WebGUI::VersionTag->getWorking($session); - $versionTag->commit; - $session->db->write("insert into webguiVersion values (".$session->db->quote($toVersion).",'upgrade',".time().")"); - $session->close(); -} - -#------------------------------------------------- -sub updateTemplates { - my $session = shift; - return undef unless (-d "packages-".$toVersion); - print "\tUpdating packages.\n" unless ($quiet); - opendir(DIR,"packages-".$toVersion); - my @files = readdir(DIR); - closedir(DIR); - my $newFolder = undef; - foreach my $file (@files) { - next unless ($file =~ /\.wgpkg$/); - # Fix the filename to include a path - $file = "packages-" . $toVersion . "/" . $file; - addPackage( $session, $file ); - } -} - -#vim:ft=perl