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

fixed bug 654497

Browse source
This commit is contained in:
JT Smith 2002-12-17 05:48:22 +00:00
parent 82c84b7000
commit 0938e9d6cb
1 changed files with 66 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

91
sbin/upgrade.pl
View file

@ -8,26 +8,50 @@
# http://www.plainblack.com info@plainblack.com
#-------------------------------------------------------------------
our ($webguiRoot, $mysql);
$mysql = "/usr/bin/mysql";
$mysqldump = "/usr/bin/mysqldump";
$backupDir = $ARGV[0] || "/data/backups";
our ($webguiRoot);
BEGIN {
$webguiRoot = "..";
unshift (@INC, $webguiRoot."/lib");
}
#-----------------------------------------
# NO NEED TO MODIFY BELOW THIS LINE
my $mysql = "/usr/bin/mysql";
my $mysqldump = "/usr/bin/mysqldump";
my $backupDir = "/data/backups";
if (!($^O =~ /Win/i) && $> != 0) {
print "You must be the super user to use this utility.\n";
if ($ARGV[0] ne "--doit") {
print "\n";
print "WebGUI Assisted Upgrade Utility\n";
print "\n";
print "There are no guarantees of any kind provided at this software. Use\n";
print "it at your own risk. Always make frequent backups of your data.\n";
print "\n";
print "NOTE: This utility will work on MySQL databases only. Any\n";
print "configs using non-MySQL databases will be skipped.\n";
print "\n";
print "By default WebGUI will use these settings to perform the\n";
print "upgrades. You may override these settings on a per site basis\n";
print "by adding the variables to each site's WebGUI config file.\n";
print "\n";
print "\tmysqlCLI = $mysql\n";
print "\tmysqlDump = $mysqldump\n";
print "\tbackupPath = $backupDir\n";
print "\n";
print "Use the following command to being the upgrade.\n";
print "\n";
print "\tperl $0 --doit\n";
print "\n";
exit;
}
if (!($^O =~ /^Win/i) && $> != 0) {
print "You must be the super user to use this utility.\n";
exit;
}
use Data::Config;
use DBI;
use WebGUI::SQL;
@ -37,7 +61,7 @@ my ($upgrade, @files, $file, $dbh, $config, $dir, %upgrade, %config);
print "\nLooking for upgrade files...\n";
if ($^O =~ /Win/i) {
if ($^O =~ /^Win/i) {
$dir = $webguiRoot."\\docs\\upgrades\\";
} else {
$dir = $webguiRoot."/docs/upgrades/";
@ -64,7 +88,7 @@ foreach $file (@files) {
print "\nGetting site configs...\n";
if ($^O =~ /Win/i) {
if ($^O =~ /^Win/i) {
$dir = $webguiRoot."\\etc\\";
} else {
$dir = $webguiRoot."/etc/";
@ -78,40 +102,57 @@ foreach $file (@files) {
$config{$file}{configFile} = $dir.$file;
my $config = new Data::Config $config{$file}{configFile};
$config{$file}{dsn} = $config->param('dsn');
$config{$file}{dsn} =~ /DBI\:mysql\:(\w+).*/;
$config{$file}{db} = $1;
$config{$file}{dbuser} = $config->param('dbuser');
$config{$file}{dbpass} = $config->param('dbpass');
$dbh = DBI->connect($config{$file}{dsn},$config{$file}{dbuser},$config{$file}{dbpass});
($config{$file}{version}) = WebGUI::SQL->quickArray("select webguiVersion from webguiVersion order by dateApplied desc, webguiVersion desc limit 1",$dbh);
$dbh->disconnect;
$config{$file}{dsn} =~ /DBI\:(\w+)\:(\w+).*/;
if ($1 eq "mysql") {
$config{$file}{db} = $2;
$config{$file}{dbuser} = $config->param('dbuser');
$config{$file}{dbpass} = $config->param('dbpass');
$config{$file}{mysqlCLI} = $config->param('mysqlCLI');
$config{$file}{mysqlDump} = $config->param('mysqlDump');
$config{$file}{backupPath} = $config->param('backupPath');
$dbh = DBI->connect($config{$file}{dsn},$config{$file}{dbuser},$config{$file}{dbpass});
($config{$file}{version}) = WebGUI::SQL->quickArray("select webguiVersion from webguiVersion
order by dateApplied desc, webguiVersion desc limit 1",$dbh);
$dbh->disconnect;
} else {
delete $config{$file};
print "Skipping non-MySQL database.\n";
}
}
}
print "\nREADY TO BEGIN UPGRADES\n";
mkdir($backupDir);
mkdir($backupDir."/db");
my $notRun = 1;
foreach $config (keys %config) {
my $clicmd = $config{$config}{mysqlCLI} || $mysql;
my $dumpcmd = $config{$config}{mysqlDump} || $mysqldump;
my $backupTo = $config{$config}{backupPath} || $backupDir;
mkdir($backupTo);
while ($upgrade{$config{$config}{version}}{sql} ne "") {
$upgrade = $upgrade{$config{$config}{version}}{from};
print "\n".$config{$config}{db}." ".$upgrade{$upgrade}{from}."-".$upgrade{$upgrade}{to}."\n";
print "\tBacking up $config{$config}{db} ($upgrade{$upgrade}{from}).\n";
mkdir($backupDir."/db/".$config{$config}{db});
system($mysqldump." -u".$config{$config}{dbuser}." -p".$config{$config}{dbpass}." --add-drop-table --databases ".$config{$config}{db}." > ".$backupDir."/db/".$config{$config}{db}."/".$upgrade{$upgrade}{from}.".sql");
system($dumpcmd." -u".$config{$config}{dbuser}." -p".$config{$config}{dbpass}." --add-drop-table --databases ".$config{$config}{db}." > ".$backupTo."/".$config{$config}{db}."_".$upgrade{$upgrade}{from}.".sql");
print "\tUpgrading to $upgrade{$upgrade}{to}.\n";
system($mysql." -u".$config{$config}{dbuser}." -p".$config{$config}{dbpass}." --database=".$config{$config}{db}." < ".$upgrade{$upgrade}{sql});
system($clicmd." -u".$config{$config}{dbuser}." -p".$config{$config}{dbpass}." --database=".$config{$config}{db}." < ".$upgrade{$upgrade}{sql});
$config{$config}{version} = $upgrade{$upgrade}{to};
$notRun = 0;
}
}
print "\nUPGRADES COMPLETE\n";
if ($notRun) {
print "\nNO UPGRADES NECESSARY\n";
} else {
print "\nUPGRADES COMPLETE\n";
print "Please restart your web server and test your sites.\n";
print "\nNOTE: If you have not already done so, please consult\ndocs/gotcha.txt for possible upgrade complications.\n\n";
}
print "Please restart your web server and test your sites.\n";
print "\nNOTE: If you have not already done so, please consult\ndocs/gotcha.txt for possible upgrade complications.\n\n";
#-----------------------------------------