allow upgrading a specific site or list of sites

This commit is contained in:
Graham Knop 2011-07-05 09:46:58 -05:00
parent 3929d16adb
commit 3db4021a46
2 changed files with 18 additions and 7 deletions

View file

@ -180,16 +180,19 @@ has _files_run => (
=head1 METHODS
=head2 upgradeSites
=head2 upgradeSites ( [ $configFiles ] )
Upgrades all available sites to match the current WebGUI codebase.
=head3 $configFiles
An optional array reference of config file names.
=cut
sub upgradeSites {
my $self = shift;
require Carp;
my @configs = WebGUI::Paths->siteConfigs;
my @configs = $_[0] ? @{ $_[0] } : WebGUI::Paths->siteConfigs;
my $i = 0;
for my $configFile (@configs) {
$i++;