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

upgrades remove cache

Browse source 
fix post update dates 
add version tag to server status
This commit is contained in:
JT Smith 2005-12-08 03:14:11 +00:00
parent 5e4b39f41c
commit 7d0ca32de6
4 changed files with 21 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

15
sbin/upgrade.pl
View file

@ -164,11 +164,16 @@ foreach my $filename (keys %{$configs}) {
order by dateApplied desc, webguiVersion desc limit 1",$dbh);
unless ($history) {
print "\tPreparing site for upgrade.\n" unless ($quiet);
WebGUI::Session::open($webguiRoot,$filename);
WebGUI::Setting::remove('specialState');
WebGUI::Setting::add('specialState','upgrading');
WebGUI::Session::close();
rmtree($configs->{$filename}{uploadsPath}.$slash."temp");
WebGUI::Session::open($webguiRoot,$filename);
WebGUI::Setting::remove('specialState');
WebGUI::Setting::add('specialState','upgrading');
WebGUI::Session::close();
print "\tDeleting temp files.\n" unless ($quiet);
my $path = $configs->{$filename}{uploadsPath}.$slash."temp";
rmtree($path) unless ($path eq "" || $path eq "/" || $path eq "/data");
print "\tDeleting file cache.\n" unless ($quiet);
$path = $configs->{$filename}{fileCacheRoot}||"/tmp/WebGUICache";
rmtree($path) unless ($path eq "" || $path eq "/" || $path eq "/data");
}
$dbh->disconnect;
} else {