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

Forward port upgrade counter.

Browse source
This commit is contained in:
Colin Kuskie 2009-07-30 22:50:24 +00:00
parent 051cbf2ab3
commit e3667582a8
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
sbin/upgrade.pl
View file

@ -209,8 +209,8 @@ foreach my $filename (keys %config) {
my $dumpcmd = $config{$filename}{mysqlDump} || $mysqldump; my $dumpcmd = $config{$filename}{mysqlDump} || $mysqldump;
my $backupTo = $config{$filename}{backupPath} || $backupDir; my $backupTo = $config{$filename}{backupPath} || $backupDir;
mkdir($backupTo); mkdir($backupTo);
++$configCounter;
while ($upgrade{$config{$filename}{version}}{sql} ne "" || $upgrade{$config{$filename}{version}}{pl} ne "") { while ($upgrade{$config{$filename}{version}}{sql} ne "" || $upgrade{$config{$filename}{version}}{pl} ne "") {
++$configCounter;
my $upgrade = $upgrade{$config{$filename}{version}}{from}; my $upgrade = $upgrade{$config{$filename}{version}}{from};
print "\n".$config{$filename}{db}." ".$upgrade{$upgrade}{from}."-".$upgrade{$upgrade}{to}."\n" unless ($quiet); print "\n".$config{$filename}{db}." ".$upgrade{$upgrade}{from}."-".$upgrade{$upgrade}{to}."\n" unless ($quiet);
print "Processing $configCounter out of $totalConfigs configs\n" unless ($quiet); print "Processing $configCounter out of $totalConfigs configs\n" unless ($quiet);