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 $::language='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) || ($::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 showmessage(getmessage('WelcomeToUpgrader',[$::kohaversion,$::newversion]),'yn');
  26
  27 unless ($answer =~/y/i) {
  28         showmessage(getmessage('AbortingInstall'),'PressEnter');
  29         exit;
  30 } else {
  31         print "Great! continuing upgrade... \n";
  32 };
  33
  34 checkperlmodules();
  35 backupkoha();
  36 getapacheinfo();
  37 installfiles();
  38
  39 #FIXME: Copy custom templates and reports back in, or warn
  40
  41 #opendir D, "$backupdir/kohafiles-$date/intranet/htdocs/";
  42 #my @dirlist=readdir D;
  43 #foreach (@dirlist) {
  44 #    (next) if (/^\./);
  45 #    (next) if ($_ eq 'default');
  46 #    (next) if ($_ eq 'doc');
  47 #    (next) if ($_=~/^koha-/);
  48 #    (next) if (-e "$::intranetdir/htdocs/$_");
  49 #    print "Restoring custom intranet templates $_...\n";
  50 #    system("cp -a $backupdir/kohafiles-$date/intranet/htdocs/$_ $::intranetdir/htdocs/");
  51 #}
  52 #
  53 #opendir D, "$backupdir/kohafiles-$date/opac/htdocs/";
  54 #@dirlist=readdir D;
  55 #foreach (@dirlist) {
  56 #    (next) if (/^\./);
  57 #    (next) if ($_ eq 'default');
  58 #    (next) if ($_ eq 'doc');
  59 #    (next) if ($_=~/^koha-/);
  60 #    (next) if (-e "$::opacdir/htdocs/$_");
  61 #    print "Restoring custom opac template $_...\n";
  62 #    system("cp -a $backupdir/kohafiles-$date/opac/htdocs/$_ $::opacdir/htdocs/");
  63 #}
  64 updatedatabase();
  65 finalizeconfigfile();
  66
  67 showmessage(getmessage('UpgradeCompleted'),'PressEnter');
  68
  69 my $reply=showmessage('Would you like to complete a survey about your library?', 'yn', 'y');
  70 if ($reply=~/y/i) {
  71     system("perl kohareporter");
  72 }