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 $::newversion=`cat koha.version`;
  18 chomp $::newversion;
  19 Install::setkohaversion $::newversion;
  20
  21
  22 if ($::newversion =~ /RC/) {
  23     releasecandidatewarning();
  24 }
  25
  26 my $answer = showmessage(getmessage('WelcomeToUpgrader',[$::newversion]),'yn','n');
  27 if ($answer eq "Y" || $answer eq "y") {
  28         print "Great! continuing upgrade... \n";
  29 } else {
  30         showmessage(getmessage('AbortingInstall'),'none');
  31         exit;
  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 # }