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

pull out debugging code for versions

Browse source
This commit is contained in:
Colin Kuskie 2006-02-26 22:43:34 +00:00
parent 11f64a7a4b
commit d3c13840f5
1 changed files with 0 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
sbin/upgrade.pl
View file

@ -242,15 +242,12 @@ print "\nREADY TO BEGIN UPGRADES\n" unless ($quiet);
my $notRun = 1; my $notRun = 1;
chdir($upgradesPath); chdir($upgradesPath);
use Data::Dumper;
foreach my $filename (keys %config) { foreach my $filename (keys %config) {
print "Considering $filename\n"; print "Considering $filename\n";
my $clicmd = $config{$filename}{mysqlCLI} || $mysql; my $clicmd = $config{$filename}{mysqlCLI} || $mysql;
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);
print Dumper \%config;
print Dumper \%upgrade;
print ("sql:".$upgrade{$config{$filename}{version}}{sql}."\n"); print ("sql:".$upgrade{$config{$filename}{version}}{sql}."\n");
print ("pl:".$upgrade{$config{$filename}{version}}{pl}."\n"); print ("pl:".$upgrade{$config{$filename}{version}}{pl}."\n");
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 "") {