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

Proper naming for upgrade script (v2)

Browse source 
Forward port of generating a list of Rich Editors with correct version status.
This commit is contained in:
Colin Kuskie 2006-02-24 23:50:30 +00:00
parent dc4f719dd9
commit 587b03b51c
5 changed files with 32 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
sbin/upgrade.pl
View file

@ -242,11 +242,17 @@ print "\nREADY TO BEGIN UPGRADES\n" unless ($quiet);
my $notRun = 1;
chdir($upgradesPath);
use Data::Dumper;
foreach my $filename (keys %config) {
print "Considering $filename\n";
my $clicmd = $config{$filename}{mysqlCLI} || $mysql;
my $dumpcmd = $config{$filename}{mysqlDump} || $mysqldump;
my $backupTo = $config{$filename}{backupPath} || $backupDir;
mkdir($backupTo);
print Dumper \%config;
print Dumper \%upgrade;
print ("sql:".$upgrade{$config{$filename}{version}}{sql}."\n");
print ("pl:".$upgrade{$config{$filename}{version}}{pl}."\n");
while ($upgrade{$config{$filename}{version}}{sql} ne "" || $upgrade{$config{$filename}{version}}{pl} ne "") {
my $upgrade = $upgrade{$config{$filename}{version}}{from};
unless ($skipBackup) {