Changes from rel-1-2 branch
[koha.git] / koha.upgrade
1 #!/usr/bin/perl -w
2
3 #use diagnostics;
4 use strict; # please develop with the strict pragma
5
6
7 if ($<) {
8     print "\n\nYou must run koha.upgrade as root.\n\n";
9     exit;
10 }
11
12 my $input;
13
14 my %configfile;
15
16 open (KC, "/etc/koha.conf");
17 while (<KC>) {
18  chomp;
19  (next) if (/^\s*#/);
20  if (/(.*)\s*=\s*(.*)/) {
21    my $variable=$1;
22    my $value=$2;
23    # Clean up white space at beginning and end
24    $variable=~s/^\s*//g;
25    $variable=~s/\s*$//g;
26    $value=~s/^\s*//g;
27    $value=~s/\s*$//g;
28    $configfile{$variable}=$value;
29  }
30 }
31
32 my $intranetdir=$configfile{'intranetdir'};
33 my $opacdir=$configfile{'opacdir'};
34 my $kohaversion=$configfile{'kohaversion'};
35 my $kohalogdir=$configfile{'kohalogdir'};
36 my $database=$configfile{'database'};
37 my $hostname=$configfile{'hostname'};
38 my $user=$configfile{'user'};
39 my $pass=$configfile{'pass'};
40
41
42 ($kohaversion) || ($kohaversion='unknown version');
43 my $newversion=`cat koha.version`;
44 chomp $newversion;
45 if ($newversion =~ /RC/) {
46     print qq|
47 =====================
48 = RELEASE CANDIDATE =
49 =====================
50
51 WARNING WARNING WARNING WARNING WARNING
52
53 You are about to install Koha version $newversion.  This version of Koha is a
54 release candidate.  It is not intended to be installed on production systems.
55 It is being released so that users can test it before we release a final
56 version.
57
58 |;
59     print "Are you sure you want to install Koha $newversion? (Y/[N]): ";
60
61     my $answer = <STDIN>;
62     chomp $answer;
63
64     if ($answer eq "Y" || $answer eq "y") {
65         print "Great! continuing setup... \n";
66     } else {
67         print qq|
68
69 Watch for announcements of Koha releases on the Koha mailing list or the Koha
70 web site (http://www.koha.org/).
71
72 |;
73         exit;
74     };
75 }
76
77 print qq|
78
79 ================
80 = Koha Upgrade =
81 ================
82
83 You are attempting to upgrade from Koha $kohaversion to $newversion.
84
85 We recommend that you do a complete backup of all your files before upgrading.
86 This upgrade script will make a backup copy of your files for you.
87
88 Would you like to proceed?  ([Y]/N):  
89 |;
90
91 my $answer = <STDIN>;
92 chomp $answer;
93
94 if ($answer eq "Y" || $answer eq "y") {
95         print "Great! continuing upgrade... \n";
96     } else {
97     print qq|
98
99 Aborting.  Please re-run koha.upgrade when you are ready to upgrade Koha.
100 |;
101     exit;
102 };
103
104
105 #
106 # Test for Perl and Modules
107 #
108 print qq|
109
110 PERL & MODULES
111 ==============
112
113 |;
114
115 print "\nChecking perl modules ...\n";
116     unless (eval "require 5.004") {
117     die "Sorry, you need at least Perl 5.004\n";
118 }
119
120 my @missing = ();
121 unless (eval {require DBI})               { push @missing,"DBI" };
122 unless (eval {require Date::Manip})       { push @missing,"Date::Manip" };
123 unless (eval {require DBD::mysql})        { push @missing,"DBD::mysql" };
124 unless (eval {require Set::Scalar})       { push @missing,"Set::Scalar" };
125 unless (eval {require Net::Z3950})        { 
126     print qq|
127
128 The Net::Z3950 module is missing.  This module is necessary if you want to use
129 Koha's Z39.50 client to download bibliographic records from other libraries.
130 To install this module, you will need the yaz client installed from
131 http://www.indexdata.dk/yaz/ and then you can install the perl module with the
132 command:
133
134 perl -MCPAN -e 'install Net::Z3950'
135
136 Press the <ENTER> key to continue:
137 |;
138     <STDIN>;
139 }
140
141 #
142 # Print out a list of any missing modules
143 #
144 if (@missing > 0) {
145     print "\n\n";
146     print "You are missing some Perl modules which are required by Koha.\n";
147     print "Once these modules have been installed, rerun this installer.\n";
148     print "They can be installed by running (as root) the following:\n";
149     foreach my $module (@missing) {
150         print "   perl -MCPAN -e 'install \"$module\"'\n";
151         exit(1);
152     }} else{
153     print "All modules appear to be installed, continuing...\n";
154 };
155
156
157 my $backupdir='/usr/local/koha/backups';
158 print "Please specify a backup directory [$backupdir]: ";  
159
160 $answer = <STDIN>;
161 chomp $answer;
162
163 if ($answer) {
164     $backupdir=$answer;
165 }
166
167 if (! -e $backupdir) {
168    my $result=mkdir ($backupdir, oct(770));
169    if ($result==0) {
170        my @dirs = split(m#/#, $backupdir);
171         my $checkdir='';
172         foreach (@dirs) {
173             $checkdir.="$_/";
174             unless (-e "$checkdir") {
175                 mkdir($checkdir, 0775);
176             }
177         }
178    }
179 }
180
181 chmod 0770, $backupdir;
182
183 # Backup MySql database
184 #
185 #
186 my $mysql;
187 my $mysqldir;
188
189 foreach my $mysql (qw(/usr/local/mysql
190                       /opt/mysql
191                     )) {
192     if ( -d $mysql ) {
193             $mysqldir=$mysql;
194     }
195 }
196 if (!$mysqldir){
197     $mysqldir='/usr';
198 }
199
200
201
202 my ($sec, $min, $hr, $day, $month, $year) = (localtime(time))[0,1,2,3,4,5];
203 $month++;
204 $year+=1900;
205 my $date= sprintf "%4d-%02d-%02d_%02d:%02d:%02d", $year, $month, $day,$hr,$min,$sec;
206
207 open (MD, "$mysqldir/bin/mysqldump --user=$user --password=$pass --host=$hostname $database|");
208
209 (open BF, ">$backupdir/Koha.backup_$date") || (die "Error opening up backup file $backupdir/Koha.backup_$date: $!\n");
210
211 my $itemcounter=0;
212 my $bibliocounter=0;
213 my $biblioitemcounter=0;
214 my $membercounter=0;
215
216 while (<MD>) {
217     (/insert into items /i) && ($itemcounter++);
218     (/insert into biblioitems /i) && ($biblioitemcounter++);
219     (/insert into biblio /i) && ($bibliocounter++);
220     (/insert into borrowers /i) && ($membercounter++);
221     print BF $_;
222 }
223
224 close BF;
225 close MD;
226
227
228 my $filels=`ls -hl $backupdir/Koha.backup_$date`;
229 chomp $filels;
230 printf qq|
231
232 Backed up:
233
234 %6d biblio entries
235 %6d biblioitems entries
236 %6d items entries
237 %6d borrowers
238
239 $filels
240
241 Does this look right? ([Y]/N):
242 |, $bibliocounter, $biblioitemcounter, $itemcounter, $membercounter;
243
244 $answer = <STDIN>;
245 chomp $answer;
246
247 if ($answer=~/^n/i) {
248     print qq|
249
250 Aborting.  The database dump is located in:
251
252         $backupdir/Koha.backup_$date
253
254 |;
255     exit;
256 } else {
257         print "Great! continuing upgrade... \n";
258 };
259
260
261
262 if ($opacdir && $intranetdir) {
263     print qq|
264
265 I believe that your old files are located in:
266
267   OPAC:      $opacdir
268   INTRANET:  $intranetdir
269
270
271 Does this look right?  ([Y]/N):
272 |;
273     $answer = <STDIN>;
274     chomp $answer;
275
276     if ($answer =~/n/i) {
277         $intranetdir='';
278         $opacdir='';
279     } else {
280         print "Great! continuing upgrade... \n";
281     }
282 }
283
284
285 if (!$opacdir || !$intranetdir) {
286     $intranetdir='';
287     $opacdir='';
288     while (!$intranetdir) {
289         print "Please specify the location of your INTRANET files: ";  
290
291         $answer = <STDIN>;
292         chomp $answer;
293
294         if ($answer) {
295             $intranetdir=$answer;
296         }
297         if (! -e "$intranetdir/htdocs") {
298             print "\nCouldn't find the htdocs directory here.  That doesn't look right.\nPlease enter another location.\n\n";
299             $intranetdir='';
300         }
301     }
302     while (!$opacdir) {
303         print "Please specify the location of your OPAC files: ";  
304
305         $answer = <STDIN>;
306         chomp $answer;
307
308         if ($answer) {
309             $opacdir=$answer;
310         }
311         if (! -e "$opacdir/htdocs") {
312             print "\nCouldn't find the htdocs directory here.  That doesn't look right.\nPlease enter another location.\n\n";
313             $opacdir='';
314         }
315     }
316 }
317
318
319
320 print "\n\nBacking up old Koha scripts...\n";
321 print     "===============================\n\n";
322
323 mkdir "$backupdir/kohafiles-$date", 0770;
324 mkdir "$backupdir/kohafiles-$date/intranet", 0770;
325 mkdir "$backupdir/kohafiles-$date/opac", 0770;
326
327 my $result=system("cp -R $intranetdir/* $backupdir/kohafiles-$date/intranet/");
328 if ($result) {
329     print "Error encounted when copying $intranetdir to $backupdir/kohafiles-$date/intranet/\n";
330     exit;
331 } else {
332     system("rm -rf $intranetdir/*");
333 }
334 $result=system("cp -R $opacdir/* $backupdir/kohafiles-$date/opac/");
335 if ($result) {
336     print "Error encounted when copying $opacdir to $backupdir/kohafiles-$date/opac/\n";
337     exit;
338 } else {
339     system("rm -rf $opacdir/*");
340 }
341
342    print "Creating $intranetdir/htdocs...\n";
343    mkdir ("$intranetdir/htdocs", oct(750));
344    print "Creating $intranetdir/cgi-bin...\n";
345    mkdir ("$intranetdir/cgi-bin", oct(750));
346    print "Creating $intranetdir/modules...\n";
347    mkdir ("$intranetdir/modules", oct(750));
348    print "Creating $intranetdir/scripts...\n";
349    mkdir ("$intranetdir/scripts", oct(750));
350    chmod (oct(770), "$opacdir");
351    print "Creating $opacdir/htdocs...\n";
352    mkdir ("$opacdir/htdocs", oct(750));
353    print "Creating $opacdir/cgi-bin...\n";
354    mkdir ("$opacdir/cgi-bin", oct(750));
355
356 my $httpduser;
357 my $realhttpdconf;
358
359 foreach my $httpdconf (qw(/usr/local/apache/conf/httpd.conf
360                       /usr/local/etc/apache/httpd.conf
361                       /usr/local/etc/apache/apache.conf
362                       /var/www/conf/httpd.conf
363                       /etc/apache/conf/httpd.conf
364                       /etc/apache/conf/apache.conf
365                       /etc/apache-ssl/conf/apache.conf
366                       /etc/httpd/conf/httpd.conf
367                       /etc/httpd/httpd.conf)) {
368    if ( -f $httpdconf ) {
369             $realhttpdconf=$httpdconf;
370             open (HTTPDCONF, $httpdconf) or warn "Insufficient privileges to open $httpdconf for reading.\n";
371       while (<HTTPDCONF>) {
372          if (/^\s*User\s+"?([-\w]+)"?\s*$/) {
373             $httpduser = $1;
374          }
375       }
376       close(HTTPDCONF);
377    }
378 }
379
380 unless ($httpduser) {
381     print qq|
382 I was not able to determine the user that Apache is running as.  This
383 information is necessary in order to set the access privileges correctly on
384 /etc/koha.conf.  This user should be set in one of the Apache configuration
385 files using the "User" directive.
386 |;
387     print "What is your Apache user? ";
388     chomp($input = <STDIN>);
389
390     if ($input) {
391         $httpduser = $input;
392     } else {
393         $httpduser='Undetermined';
394     }
395 }
396
397 print "\n\nINSTALLING KOHA...\n";
398 print "\n\n==================\n";
399 print "Copying internet-html files to $intranetdir/htdocs...\n";
400 system("cp -R intranet-html/* $intranetdir/htdocs/");
401 print "Copying intranet-cgi files to $intranetdir/cgi-bin...\n";
402 system("cp -R intranet-cgi/* $intranetdir/cgi-bin/");
403 print "Copying script files to $intranetdir/scripts...\n";
404 system("cp -R scripts/* $intranetdir/scripts/");
405 print "Copying module files to $intranetdir/modules...\n";
406 system("cp -R modules/* $intranetdir/modules/");
407 print "Copying opac-html files to $opacdir/htdocs...\n";
408 system("cp -R opac-html/* $opacdir/htdocs/");
409 print "Copying opac-cgi files to $opacdir/cgi-bin...\n";
410 system("cp -R opac-cgi/* $opacdir/cgi-bin/");
411
412 system("chown -R root.$httpduser $opacdir");
413 system("chown -R root.$httpduser $intranetdir");
414
415 # LAUNCH SCRIPT
416 print "Modifying Z39.50 daemon launch script...\n";
417 my $newfile='';
418 open (L, "$intranetdir/scripts/z3950daemon/z3950-daemon-launch.sh");
419 while (<L>) {
420     if (/^RunAsUser=/) {
421         $newfile.="RunAsUser=$httpduser\n";
422     } elsif (/^KohaZ3950Dir=/) {
423         $newfile.="KohaZ3950Dir=$intranetdir/scripts/z3950daemon\n";
424     } else {
425         $newfile.=$_;
426     }
427 }
428 close L;
429 system("mv $intranetdir/scripts/z3950daemon/z3950-daemon-launch.sh $intranetdir/scripts/z3950daemon/z3950-daemon-launch.sh.orig");
430 open L, ">$intranetdir/scripts/z3950daemon/z3950-daemon-launch.sh";
431 print L $newfile;
432 close L;
433
434 unless ($kohalogdir && -e $kohalogdir) {
435     $kohalogdir='/var/log/koha';
436     print "\n\nDirectory for logging by Z39.50 daemon [$kohalogdir]: ";
437     chomp($input = <STDIN>);
438     if ($input) {
439         $kohalogdir=$input;
440     }
441 }
442
443 unless (-e "$kohalogdir") {
444     my $result = mkdir 0770, "$kohalogdir"; 
445     if ($result==0) {
446         my @dirs = split(m#/#, $kohalogdir);
447         my $checkdir='';
448         foreach (@dirs) {
449             $checkdir.="$_/";
450             unless (-e "$checkdir") {
451                 mkdir($checkdir, 0775);
452             }
453         }
454     }
455 }
456
457 # SHELL SCRIPT
458 print "Modifying Z39.50 daemon wrapper script...\n";
459 $newfile='';
460 open (S, "$intranetdir/scripts/z3950daemon/z3950-daemon-shell.sh");
461 while (<S>) {
462     if (/^KohaModuleDir=/) {
463         $newfile.="KohaModuleDir=$intranetdir/modules\n";
464     } elsif (/^KohaZ3950Dir=/) {
465         $newfile.="KohaZ3950Dir=$intranetdir/scripts/z3950daemon\n";
466     } elsif (/^LogDir=/) {
467         $newfile.="LogDir=$kohalogdir\n";
468     } else {
469         $newfile.=$_;
470     }
471 }
472 close S;
473
474 system("mv $intranetdir/scripts/z3950daemon/z3950-daemon-shell.sh $intranetdir/scripts/z3950daemon/z3950-daemon-shell.sh.orig");
475 open S, ">$intranetdir/scripts/z3950daemon/z3950-daemon-shell.sh";
476 print S $newfile;
477 close S;
478 chmod 0750, "$intranetdir/scripts/z3950daemon/z3950-daemon-launch.sh";
479 chmod 0750, "$intranetdir/scripts/z3950daemon/z3950-daemon-shell.sh";
480 chmod 0750, "$intranetdir/scripts/z3950daemon/processz3950queue";
481 chown(0, (getpwnam($httpduser)) [3], "$intranetdir/scripts/z3950daemon/z3950-daemon-shell.sh") or warn "can't chown $intranetdir/scripts/z3950daemon/z3950-daemon-shell.sh: $!";
482 chown(0, (getpwnam($httpduser)) [3], "$intranetdir/scripts/z3950daemon/processz3950queue") or warn "can't chown $intranetdir/scripts/z3950daemon/processz3950queue: $!";
483
484
485 open (KC, "/etc/koha.conf");
486 my $kccontents='';
487 my $kc;
488 while (<KC>) {
489     if (/^\s*includes\s*=/) {
490         $kccontents.="includes=$intranetdir/htdocs/includes\n";
491         $kc->{'includes'}=1;
492     } elsif (/^\s*httpduser\s*=/) {
493         $kccontents.="httpduser=$httpduser\n";
494         $kc->{'httpduser'}=1;
495     } elsif (/^\s*kohaversion\s*=/) {
496         $kccontents.="kohaversion=$newversion\n";
497         $kc->{'kohaversion'}=1;
498     } elsif (/^\s*kohalogdir\s*=/) {
499         $kccontents.="kohalogdir=$kohalogdir\n";
500         $kc->{'kohalogdir'}=1;
501     } elsif (/^\s*intranetdir\s*=/) {
502         $kccontents.="intranetdir=$intranetdir\n";
503         $kc->{'intranetdir'}=1;
504     } elsif (/^\s*opacdir\s*=/) {
505         $kccontents.="opacdir=$opacdir\n";
506         $kc->{'opacdir'}=1;
507     } else {
508         $kccontents.="$_";
509     }
510 }
511
512 unless (defined($kc->{'kohaversion'})) {
513     $kccontents.="kohaversion=$newversion\n";
514 }
515 unless (defined($kc->{'includes'})) {
516     $kccontents.="includes=$intranetdir/htdocs/includes\n";
517 }
518 unless (defined($kc->{'httpduser'})) {
519     $kccontents.="httpduser=$httpduser\n";
520 }
521 unless (defined($kc->{'intranetdir'})) {
522     $kccontents.="intranetdir=$intranetdir\n";
523 }
524 unless (defined($kc->{'opacdir'})) {
525     $kccontents.="opacdir=$opacdir\n";
526 }
527 unless (defined($kc->{'kohalogdir'})) {
528     $kccontents.="kohalogdir=$kohalogdir\n";
529 }
530
531
532 system("mv /etc/koha.conf /etc/koha.conf.backup");
533
534 open (KC, ">/etc/koha.conf") || warn "Couldn't open /etc/koha.conf for writing.";
535 print KC $kccontents;
536 close KC;
537
538
539 print qq|
540
541 Upgrading Database
542 ==================
543 |;
544 system ("perl -I $intranetdir/modules scripts/updater/updatedatabase");
545
546
547
548 print qq|
549
550 ==========================
551 = Koha Upgrade Completed =
552 ==========================
553 The Koha Upgrade is finished.  If you are upgrading from a version of Koha
554 prior to 1.2.1, it is likely that you will have to modify your Apache
555 configuration to point it to the new files.
556
557 In your INTRANET VirtualHost section you should have:
558   DocumentRoot $intranetdir/htdocs
559   ScriptAlias /cgi-bin/koha/ $intranetdir/cgi-bin/
560   SetEnv PERL5LIB $intranetdir/modules
561
562 In the OPAC VirtualHost section you should have:
563   DocumentRoot $opacdir/htdocs
564   ScriptAlias /cgi-bin/koha/ $opacdir/cgi-bin/
565   SetEnv PERL5LIB $intranetdir/modules
566
567 You may also need to uncomment a "LoadModules env_module ... " line and restart
568 Apache.
569
570 Please report any problems you encounter through http://bugs.koha.org/
571 |;