misc/koha.upgrade

   1 #!/usr/bin/perl -w
   2
   3 #use diagnostics;
   4 use strict; # please develop with the strict pragma
   5 use Install;
   6
   7 Install::setlanguage('en');
   8
   9 ###############################################
  10 # SET  THE  etcdir  ENVIRONMENT  VAR  INSTEAD #
  11 ###############################################
  12 Install::setetcdir($ENV{etcdir}||'/etc');
  13
  14 my $input;
  15 loadconfigfile();
  16
  17 ($::kohaversion = Install::getkohaversion() ) || ($::kohaversion='unknown version');
  18 $::newversion=`cat koha.version`;
  19 chomp $::newversion;
  20 if ($::newversion =~ /RC/) {
  21         releasecandidatewarning();
  22 }
  23
  24 #FIXME: need kohaversion number
  25 my $answer = showmessage(getmessage('WelcomeToUpgrader',[$::kohaversion,$::newversion]),'yn');
  26
  27 unless ($answer =~/y/i) {
  28         showmessage(getmessage('AbortingInstall'),'none');
  29         exit;
  30 } else {
  31         print "Great! continuing upgrade... \n";
  32 };
  33
  34 Install::setkohaversion($::newversion);
  35 checkperlmodules();
  36 backupkoha();
  37 getapacheinfo();
  38 installfiles();
  39 # custom templates warning added to installfiles();
  40 updatedatabase();
  41 finalizeconfigfile();
  42
  43 showmessage(getmessage('UpgradeCompleted',['FIXME','FIXME','FIXME','FIXME','FIXME','FIXME']),'PressEnter');
  44
  45 my $reply=showmessage('Would you like to complete a survey about your library? [Y]/N: ', 'yn', 'y');
  46 if ($reply=~/y/i) {
  47     system("perl kohareporter");
  48 }