8 open (KC, "/etc/koha.conf");
12 if (/(.*)\s*=\s*(.*)/) {
15 # Clean up white space at beginning and end
20 $configfile{$variable}=$value;
24 my $intranetdir=$configfile{'intranetdir'};
25 my $opacdir=$configfile{'opacdir'};
26 my $kohaversion=$configfile{'kohaversion'};
27 my $database=$configfile{'database'};
28 my $host=$configfile{'host'};
29 my $user=$configfile{'user'};
30 my $pass=$configfile{'pass'};
33 my $newversion=`cat kohaversion`;
42 You are attempting to upgrade from Koha $kohaversion to $newversion.
44 We recommend that you do a complete backup of all your files before upgrading.
45 This upgrade script will make a backup copy of your files for you.
47 Would you like to proceed? ([Y]/N):
53 if ($answer eq "Y" || $answer eq "y") {
54 print "Great! continuing upgrade... \n";
58 Aborting. Please re-run koha.upgrade when you are ready to upgrade Koha.
65 # Backup MySql database
68 system("mysqldump -u$user -p$pass -h$host $database > Koha.backup");
69 open (MD, "mysqldump -u$user -p$pass -h$host $database|");
70 open BF, ">Koha.backup";
74 my $biblioitemcounter=0;
78 (/insert into items /i) && ($itemcounter++);
79 (/insert into biblioitems /i) && ($biblioitemcounter++);
80 (/insert into biblio /i) && ($bibliocounter++);
81 (/insert into borrowers /i) && ($membercounter++);
94 %6d biblioitems entries
98 Does this look right? ([Y]/N):
99 |, $bibliocounter, $biblioitemcounter, $itemcounter, $membercounter;
101 my $answer = <STDIN>;
104 if ($answer eq "Y" || $answer eq "y") {
105 print "Great! continuing upgrade... \n";
109 Aborting. The database dump is located in the Koha.backup file.