move preload files in upgrade

This commit is contained in:
Graham Knop 2010-03-17 15:04:35 -05:00
parent f55614467a
commit 6cbdc3272c

View file

@ -27,6 +27,7 @@ my $session = start(); # this line required
moveMaintenance($session);
migrateToNewCache($session);
moveFileLocations($session);
finish($session); # this line required
@ -57,10 +58,21 @@ sub migrateToNewCache {
sub moveMaintenance {
my $session = shift;
print "\tMoving maintenance file " unless $quiet;
unlink "../maintenance.html";
unlink '../../docs/maintenance.html';
print "DONE!\n" unless $quiet;
}
sub moveFileLocations {
my $session = shift;
print "\tMoving preload files " unless $quiet;
unlink '../../sbin/preload.custom.example';
rename '../../sbin/preload.custom', File::Spec->catfile(WebGUI::Paths->etc, 'preload.custom');
unlink '../../sbin/preload.exclude.example';
rename '../../sbin/preload.exclude', File::Spec->catfile(WebGUI::Paths->etc, 'preload.exclude');
unlink '../../lib/default.ttf';
print "Done.\n" unless $quiet;
}
# -------------- DO NOT EDIT BELOW THIS LINE --------------------------------