]> git.koha-community.org Git - koha.git/blob - misc/Install.pm
Corrected POD syntax errors.
[koha.git] / misc / Install.pm
1 package Install; #assumes Install.pm
2
3
4 # Copyright 2000-2002 Katipo Communications
5 #
6 # This file is part of Koha.
7 #
8 # Koha is free software; you can redistribute it and/or modify it under the
9 # terms of the GNU General Public License as published by the Free Software
10 # Foundation; either version 2 of the License, or (at your option) any later
11 # version.
12 #
13 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
14 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
15 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
16 #
17 # You should have received a copy of the GNU General Public License along with
18 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
19 # Suite 330, Boston, MA  02111-1307 USA
20
21 use strict;
22 use POSIX;
23 require Exporter;
24
25 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
26
27 =head1 NAME
28
29 Install.pm - Perl module containing the bulk of the installation logic
30
31 =head1 DESCRIPTION
32
33 The Install.pm module contains the bulk
34 of the code to do installation;
35 this code is used by installer.pl
36 to perform an actual installation.
37
38 =head2 Internal functions (not meant to be used outside of Install.pm)
39
40 =over 4
41
42 =cut
43
44 # set the version for version checking
45 $VERSION = 0.01;
46
47 @ISA = qw(Exporter);
48 @EXPORT = qw(   &checkperlmodules
49                 &checkabortedinstall
50                 &getmessage
51                 &showmessage
52                 &releasecandidatewarning
53                 &getinstallationdirectories
54                 &getdatabaseinfo
55                 &getapacheinfo
56                 &getapachevhostinfo
57                 &updateapacheconf
58                 &basicauthentication
59                 &installfiles
60                 &databasesetup
61                 &updatedatabase
62                 &populatedatabase
63                 &restartapache
64                 &loadconfigfile
65                 );
66
67
68 =item heading
69
70     $messages->{'WelcomeToKohaInstaller'
71         = heading('Welcome to the Koha Installer') . qq|...|;
72
73 The heading function takes one string, the text to be displayed as
74 the heading, and returns a formatted heading (currently formatted
75 in the "traditional Koha installer" style, i.e., surrounded by a
76 box of equal signs).
77
78 This reduces the likelihood of pod2man(1) etc. misinterpreting
79 a line of equal signs as POD directives.
80
81 =cut
82
83 sub heading ($) {
84    my($s) = @_;
85    my $n = length($s) + 4;
86    my $line = ('=' x $n) . "\n";
87    "\n$line= $s =\n$line\n";
88 }
89
90 my $messages;
91 $messages->{'continuing'}->{en}="Great!  Continuing setup.\n\n";
92 $messages->{'WelcomeToKohaInstaller'}->{en} =
93    heading('Welcome to the Koha Installer') . qq|
94 Welcome to the Koha install script!  This script will prompt you for some
95 basic information about your desired setup, then install Koha according to
96 your specifications.  To accept the default value for any question, simply hit
97 Enter at the prompt.
98
99 Please be sure to read the documentation, or visit the Koha website at
100 http://www.koha.org for more information.
101
102 Are you ready to begin the installation? (Y/[N]): |;
103 $messages->{'ReleaseCandidateWarning'}->{en} =
104    heading('RELEASE CANDIDATE') . qq|
105 WARNING WARNING WARNING WARNING WARNING
106
107 You are about to install Koha version %s.  This version of Koha is a
108 release candidate.  It is not intended to be installed on production systems.
109 It is being released so that users can test it before we release a final
110 version.
111
112 Are you sure you want to install Koha %s? (Y/[N]): |;
113 $messages->{'WatchForReleaseAnnouncements'}->{en}=qq|
114
115 Watch for announcements of Koha releases on the Koha mailing list or the Koha
116 web site (http://www.koha.org/).
117
118 |;
119
120 $messages->{'NETZ3950Missing'}->{en}=qq|
121
122 The Net::Z3950 module is missing.  This module is necessary if you want to use
123 Koha's Z39.50 client to download bibliographic records from other libraries.
124 To install this module, you will need the yaz client installed from
125 http://www.indexdata.dk/yaz/ and then you can install the perl module with the
126 command:
127
128 perl -MCPAN -e 'install Net::Z3950'
129
130 Press the <ENTER> key to continue: |;
131
132 $messages->{'CheckingPerlModules'}->{en} = heading('PERL & MODULES') . qq|
133 Checking perl modules ...
134 |;
135
136 $messages->{'PerlVersionFailure'}->{en}="Sorry, you need at least Perl %s\n";
137
138 $messages->{'MissingPerlModules'}->{en} = heading('MISSING PERL MODULES') . qq|
139 You are missing some Perl modules which are required by Koha.
140 Once these modules have been installed, rerun this installer.
141 They can be installed by running (as root) the following:
142
143 %s
144 |;
145
146 $messages->{'AllPerlModulesInstalled'}->{en} =
147    heading('ALL PERL MODULES INSTALLED') . qq|
148 All mandatory perl modules are installed.
149
150 Press <ENTER> to continue: |;
151 $messages->{'KohaVersionInstalled'}->{en}="You currently have Koha %s on your system.";
152 $messages->{'KohaUnknownVersionInstalled'}->{en}="I am not able to determine what version of Koha is installed now.";
153 $messages->{'KohaAlreadyInstalled'}->{en} =
154    heading('Koha already installed') . qq|
155 It looks like Koha is already installed on your system (%s/koha.conf exists
156 already).  If you would like to upgrade your system to %s, please use
157 the koha.upgrade script in this directory.
158
159 %s
160
161 |;
162 $messages->{'GetOpacDir'}->{en} = heading('OPAC DIRECTORY') . qq|
163 Please supply the directory you want Koha to store its OPAC files in.  This
164 directory will be auto-created for you if it doesn't exist.
165
166 OPAC Directory [%s]: |;
167
168 $messages->{'GetIntranetDir'}->{en} =
169    heading('INTRANET/LIBRARIANS DIRECTORY') . qq|
170 Please supply the directory you want Koha to store its Intranet/Librarians
171 files in.  This directory will be auto-created for you if it doesn't exist.
172
173 Intranet Directory [%s]: |;
174
175 $messages->{'GetKohaLogDir'}->{en} = heading('KOHA LOG DIRECTORY') . qq|
176 Specify a log directory where any Koha daemons can create log files.
177
178 Koha Log Directory [%s]: |;
179
180 $messages->{'AuthenticationWarning'}->{en} = heading('Authentication') . qq|
181 This release of Koha has a new authentication module.  If you are not already
182 using basic authentication on your intranet, you will be required to log in to
183 access some of the features of the intranet.  You can log in using the userid
184 and password from the %s/koha.conf configuration file at any time.  Use the
185 "Members" module to add passwords for other accounts and set their permissions.
186
187 Press the <ENTER> key to continue: |;
188
189 $messages->{'Completed'}->{en} = heading('KOHA INSTALLATION COMPLETE') . qq|
190 Congratulations ... your Koha installation is complete!
191
192 You will be able to connect to your Librarian interface at:
193
194    http://%s\:%s/
195
196 and the OPAC interface at :
197
198    http://%s\:%s/
199
200 Be sure to read the INSTALL, and Hints files.
201
202 For more information visit http://www.koha.org
203
204 Press <ENTER> to exit the installer: |;
205
206 sub releasecandidatewarning {
207     my $message=getmessage('ReleaseCandidateWarning', [$::newversion, $::newversion]);
208     my $answer=showmessage($message, 'yn', 'n');
209
210     if ($answer =~ /y/i) {
211         print getmessage('continuing');
212     } else {
213         my $message=getmessage('WatchForReleaseAnnouncements');
214         print $message;
215         exit;
216     };
217 }
218
219
220 =back
221
222 =head2 Miscellaneous utility functions
223
224 =over 4
225
226 =cut
227
228 =item dirname
229
230     dirname $path;
231
232 Does the equivalent of dirname(1). Given a path $path, return the
233 parent directory of $path (best guess), except when $path seems to
234 be the same as /, in which case $path itself is returned unchanged.
235
236 =cut
237
238 sub dirname ($;$) {
239     my($path) = @_;
240     if ($path =~ /[^\/]/s) {
241         if ($path =~ /\//) {
242             $path =~ s/\/+[^\/]+\/*$//s;
243         } else {
244             $path = '.';
245         }
246     }
247     return $path;
248 }
249
250 =item mkdir_parents
251
252     mkdir_parents $path;
253     mkdir_parents $path, $mode;
254
255 Does the equivalent of mkdir -p. Given a path $path, create the path
256 $path, recursively creating any intermediate directories. If $mode
257 is given, the directory will be created with mode $mode.
258
259 WARNING: If $path already exists, mkdir_parents will just return
260 successfully (just like mkdir -p), whether the mode of $path conforms
261 to $mode or not.
262
263 =cut
264
265 sub mkdir_parents ($;$) {
266     my($path, $mode) = @_;
267     my $ok = -d($path)? 1: defined $mode? mkdir($path, $mode): mkdir($path);
268
269     if (!$ok && $! == ENOENT) {
270         my $parent = dirname($path);
271         $ok = mkdir_parents($parent, $mode);
272
273         # retry and at the same time make sure that $! is set correctly
274         $ok = defined $mode? mkdir($path, $mode): mkdir($path);
275     }
276     return $ok;
277 }
278
279 =back
280
281 =head2 Subtasks of doing an installation
282
283 =over 4
284
285 =cut
286
287 =item checkabortedinstall
288
289     checkabortedinstall;
290
291 Assuming that Koha will be installed on a modern Unix with symlinks,
292 it is possible to code the installer so that aborted installs can be
293 detected. In case of such an event we can do our best to "roll back"
294 the aborted install.
295
296 FIXME: The "roll back" is not complete!
297
298 =cut
299
300 sub checkabortedinstall () {
301     if (-l("$::etcdir/koha.conf")
302         && readlink("$::etcdir/koha.conf") =~ /\.tmp$/
303     ) {
304         print qq|
305 I have detected that you tried to install Koha before, but the installation
306 was aborted.  I will try to continue, but there might be problems if the
307 database is already created.
308
309 |;
310         print "Please press <ENTER> to continue: ";
311         <STDIN>;
312
313         # Remove the symlink after the <STDIN>, so the user can back out
314         unlink "$::etcdir/koha.conf"
315             || die "Failed to remove incomplete $::etcdir/koha.conf: $!\n";
316     }
317 }
318
319 #
320 # Test for Perl and Modules
321 #
322 #
323 sub checkperlmodules {
324     my $message = getmessage('CheckingPerlModules');
325     showmessage($message, 'none');
326
327     unless (eval "require 5.006_000") {
328         die getmessage('PerlVersionFailure', ['5.6.0']);
329     }
330
331     my @missing = ();
332     unless (eval {require DBI})               { push @missing,"DBI" };
333     unless (eval {require Date::Manip})       { push @missing,"Date::Manip" };
334     unless (eval {require DBD::mysql})        { push @missing,"DBD::mysql" };
335     unless (eval {require HTML::Template})          { push @missing,"HTML::Template" };
336     unless (eval {require Set::Scalar})       { push @missing,"Set::Scalar" };
337     unless (eval {require Digest::MD5})       { push @missing,"Digest::MD5" };
338     unless (eval {require MARC::Record})       { push @missing,"MARC::Record" };
339     unless (eval {require Net::Z3950})        {
340         my $message = getmessage('NETZ3950Missing');
341         showmessage($message, 'PressEnter', '', 1);
342         if ($#missing>=0) {
343             push @missing, "Net::Z3950";
344         }
345     }
346
347 #
348 # Print out a list of any missing modules
349 #
350
351     if (@missing > 0) {
352         my $missing='';
353         foreach my $module (@missing) {
354             $missing.="   perl -MCPAN -e 'install \"$module\"'\n";
355         }
356         my $message=getmessage('MissingPerlModules', [$missing]);
357         showmessage($message, 'none');
358         exit;
359     } else {
360         showmessage(getmessage('AllPerlModulesInstalled'), 'PressEnter', '', 1);
361     }
362
363
364     unless (-x "/usr/bin/perl") {
365         my $realperl=`which perl`;
366         chomp $realperl;
367         $realperl = showmessage(getmessage('NoUsrBinPerl'), 'none');
368         until (-x $realperl) {
369             $realperl=showmessage(getmessage('AskLocationOfPerlExecutable', $realperl), 'free', $realperl, 1);
370         }
371         my $response=showmessage(getmessage('ConfirmPerlExecutableSymlink', $realperl), 'yn', 'y', 1);
372         unless ($response eq 'n') {
373             system("ln -s $realperl /usr/bin/perl");
374         }
375     }
376
377
378 }
379
380 $messages->{'NoUsrBinPerl'}->{en} =
381    heading('Perl is not located in /usr/bin/perl') . qq|
382 The Koha perl scripts expect to find the perl executable in the /usr/bin
383 directory.  It is not there on your system.
384
385 |;
386
387 $messages->{'AskLocationOfPerlExecutable'}->{en}=qq|Location of Perl Executable: [%s]: |;
388 $messages->{'ConfirmPerlExecutableSymlink'}->{en}=qq|
389 The Koha scripts will _not_ work without a symlink from %s to /usr/bin/perl
390
391 May I create this symlink? ([Y]/N):
392 : |;
393
394 sub getmessage {
395     my $messagename=shift;
396     my $variables=shift;
397     my $message=$messages->{$messagename}->{$::language} || $messages->{$messagename}->{en} || "Error: No message named $messagename in Install.pm\n";
398     if (defined($variables)) {
399         $message=sprintf $message, @$variables;
400     }
401     return $message;
402 }
403
404
405 sub showmessage {
406     my $message=shift;
407     my $responsetype=shift;
408     my $defaultresponse=shift;
409     my $noclear=shift;
410     ($noclear) || (system('clear'));
411     if ($responsetype =~ /^yn$/) {
412         $responsetype='restrictchar yn';
413     }
414     print $message;
415     SWITCH: {
416         if ($responsetype =~/^restrictchar (.*)/i) {
417             my $response='\0';
418             my $options=$1;
419             until ($options=~/$response/) {
420                 ($defaultresponse) || ($defaultresponse=substr($options,0,1));
421                 $response=<STDIN>;
422                 chomp $response;
423                 (length($response)) || ($response=$defaultresponse);
424                 unless ($options=~/$response/) {
425                     ($noclear) || (system('clear'));
426                     print "Invalid Response.  Choose from [$options].\n\n";
427                     print $message;
428                 }
429             }
430             return $response;
431         }
432         if ($responsetype =~/^free$/i) {
433             (defined($defaultresponse)) || ($defaultresponse='');
434             my $response=<STDIN>;
435             chomp $response;
436             ($response) || ($response=$defaultresponse);
437             return $response;
438         }
439         if ($responsetype =~/^numerical$/i) {
440             (defined($defaultresponse)) || ($defaultresponse='');
441             my $response='';
442             until ($response=~/^\d+$/) {
443                 $response=<STDIN>;
444                 chomp $response;
445                 ($response) || ($response=$defaultresponse);
446                 unless ($response=~/^\d+$/) {
447                     ($noclear) || (system('clear'));
448                     print "Invalid Response ($response).  Response must be a number.\n\n";
449                     print $message;
450                 }
451             }
452             return $response;
453         }
454         if ($responsetype =~/^email$/i) {
455             (defined($defaultresponse)) || ($defaultresponse='');
456             my $response='';
457             until ($response=~/.*\@.*\..*/) {
458                 $response=<STDIN>;
459                 chomp $response;
460                 ($response) || ($response=$defaultresponse);
461                 unless ($response=~/.*\@.*\..*/) {
462                     ($noclear) || (system('clear'));
463                     print "Invalid Response ($response).  Response must be a valid email address.\n\n";
464                     print $message;
465                 }
466             }
467             return $response;
468         }
469         if ($responsetype =~/^PressEnter$/i) {
470             <STDIN>;
471             return;
472         }
473         if ($responsetype =~/^none$/i) {
474             return;
475         }
476     }
477 }
478
479 sub getinstallationdirectories {
480     $::opacdir = '/usr/local/koha/opac';
481     $::intranetdir = '/usr/local/koha/intranet';
482     my $getdirinfo=1;
483     while ($getdirinfo) {
484         # Loop until opac directory and koha directory are different
485         my $message=getmessage('GetOpacDir', [$::opacdir]);
486         $::opacdir=showmessage($message, 'free', $::opacdir);
487
488         $message=getmessage('GetIntranetDir', [$::intranetdir]);
489         $::intranetdir=showmessage($message, 'free', $::intranetdir);
490
491         if ($::intranetdir eq $::opacdir) {
492             print qq|
493
494 You must specify different directories for the OPAC and INTRANET files!
495  :: $::intranetdir :: $::opacdir ::
496 |;
497 <STDIN>
498         } else {
499             $getdirinfo=0;
500         }
501     }
502     $::kohalogdir='/var/log/koha';
503     my $message=getmessage('GetKohaLogDir', [$::kohalogdir]);
504     $::kohalogdir=showmessage($message, 'free', $::kohalogdir);
505
506
507     # FIXME: Missing error handling for all mkdir calls here
508     unless ( -d $::intranetdir ) {
509        mkdir_parents (dirname($::intranetdir), 0775);
510        mkdir ($::intranetdir,                  0770);
511        chown (oct(0), (getgrnam($::httpduser))[2], "$::intranetdir");
512        chmod (oct(770), "$::intranetdir");
513     }
514     mkdir_parents ("$::intranetdir/htdocs",    0750);
515     mkdir_parents ("$::intranetdir/cgi-bin",   0750);
516     mkdir_parents ("$::intranetdir/modules",   0750);
517     mkdir_parents ("$::intranetdir/scripts",   0750);
518     unless ( -d $::opacdir ) {
519        mkdir_parents (dirname($::opacdir),     0775);
520        mkdir ($::opacdir,                      0770);
521        chown (oct(0), (getgrnam($::httpduser))[2], "$::opacdir");
522        chmod (oct(770), "$::opacdir");
523     }
524     mkdir_parents ("$::opacdir/htdocs",        0750);
525     mkdir_parents ("$::opacdir/cgi-bin",       0750);
526
527
528     unless ( -d $::kohalogdir ) {
529        mkdir_parents (dirname($::kohalogdir),  0775);
530        mkdir ($::kohalogdir,                   0770);
531        chown (oct(0), (getgrnam($::httpduser))[2,3], "$::kohalogdir");
532        chmod (oct(770), "$::kohalogdir");
533     }
534 }
535
536
537
538 $messages->{'DatabaseName'}->{en} = heading('Name of MySQL database') . qq|
539 Please provide the name of the mysql database for your koha installation.
540
541 Database name [%s]: |;
542
543 $messages->{'DatabaseHost'}->{en} = heading('Database Host') . qq|
544 Please provide the hostname for mysql.  Unless the database is located on
545 another machine this will be "localhost".
546
547 Database host [%s]: |;
548
549 $messages->{'DatabaseUser'}->{en} = heading('Database User') . qq|
550 Please provide the name of the user, who will have full administrative rights
551 to the %s database, when authenticating from %s.
552
553 This user will also be used to access Koha's INTRANET interface.
554
555 Database user [%s]: |;
556
557 $messages->{'DatabasePassword'}->{en} = heading('Database Password') . qq|
558 Please provide a good password for the user %s.
559
560 Database Password: |;
561
562 $messages->{'BlankPassword'}->{en} = heading('BLANK PASSWORD') . qq|
563 You must not use a blank password for your MySQL user!
564
565 Press <ENTER> to try again: 
566 |;
567
568 sub getdatabaseinfo {
569
570     $::dbname = 'Koha';
571     $::hostname = 'localhost';
572     $::user = 'kohaadmin';
573     $::pass = '';
574
575 #Get the database name
576
577     my $message=getmessage('DatabaseName', [$::dbname]);
578     $::dbname=showmessage($message, 'free', $::dbname);
579
580 #Get the hostname for the database
581     
582     $message=getmessage('DatabaseHost', [$::hostname]);
583     $::hostname=showmessage($message, 'free', $::hostname);
584
585 #Get the username for the database
586
587     $message=getmessage('DatabaseUser', [$::dbname, $::hostname, $::user]);
588     $::user=showmessage($message, 'free', $::user);
589
590 #Get the password for the database user
591
592     while ($::pass eq '') {
593         my $message=getmessage('DatabasePassword', [$::user]);
594         $::pass=showmessage($message, 'free', $::pass);
595         if ($::pass eq '') {
596             my $message=getmessage('BlankPassword');
597             showmessage($message,'PressEnter');
598         }
599     }
600 }
601
602
603
604 $messages->{'FoundMultipleApacheConfFiles'}->{en} = 
605    heading('MULTIPLE APACHE CONFIG FILES') . qq|
606 I found more than one possible Apache configuration file:
607
608 %s
609
610 Choose the correct file [1]: |;
611
612 $messages->{'NoApacheConfFiles'}->{en} =
613    heading('NO APACHE CONFIG FILE FOUND') . qq|
614 I was not able to find your Apache configuration file.
615
616 The file is usually called httpd.conf or apache.conf.
617
618 Please specify the location of your config file: |;
619
620 $messages->{'NotAFile'}->{en} = heading('FILE DOES NOT EXIST') . qq|
621 The file %s does not exist.
622
623 Please press <ENTER> to continue: |;
624
625 $messages->{'EnterApacheUser'}->{en} = heading('NEED APACHE USER') . qq|
626 I was not able to determine the user that Apache is running as.  This
627 information is necessary in order to set the access privileges correctly on
628 %s/koha.conf.  This user should be set in one of the Apache configuration
629 files using the "User" directive.
630
631 Enter the Apache userid: |;
632
633 $messages->{'InvalidUserid'}->{en} = heading('INVALID USERID') . qq|
634 The userid %s is not a valid userid on this system.
635
636 Press <ENTER> to continue: |;
637
638 sub getapacheinfo {
639     my @confpossibilities;
640
641     foreach my $httpdconf (qw(/usr/local/apache/conf/httpd.conf
642                           /usr/local/etc/apache/httpd.conf
643                           /usr/local/etc/apache/apache.conf
644                           /var/www/conf/httpd.conf
645                           /etc/apache/conf/httpd.conf
646                           /etc/apache/conf/apache.conf
647                           /etc/apache-ssl/conf/apache.conf
648                           /etc/apache-ssl/httpd.conf
649                           /etc/httpd/conf/httpd.conf
650                           /etc/httpd/httpd.conf)) {
651         if ( -f $httpdconf ) {
652             push @confpossibilities, $httpdconf;
653         }
654     }
655
656     if ($#confpossibilities==-1) {
657         my $message=getmessage('NoApacheConfFiles');
658         my $choice='';
659         until (-f $::realhttpdconf) {
660             $choice=showmessage($message, "free", 1);
661             if (-f $choice) {
662                 $::realhttpdconf=$choice;
663             } else {
664                 showmessage(getmessage('NotAFile', [$choice]),'PressEnter', '', 1);
665             }
666         }
667     } elsif ($#confpossibilities>0) {
668         my $conffiles='';
669         my $counter=1;
670         my $options='';
671         foreach (@confpossibilities) {
672             $conffiles.="   $counter: $_\n";
673             $options.="$counter";
674             $counter++;
675         }
676         my $message=getmessage('FoundMultipleApacheConfFiles', [$conffiles]);
677         my $choice=showmessage($message, "restrictchar $options", 1);
678         $::realhttpdconf=$confpossibilities[$choice-1];
679     } else {
680         $::realhttpdconf=$confpossibilities[0];
681     }
682     unless (open (HTTPDCONF, "<$::realhttpdconf")) {
683         warn "Insufficient privileges to open $::realhttpdconf for reading.\n";
684         sleep 4;
685     }
686
687     while (<HTTPDCONF>) {
688         if (/^\s*User\s+"?([-\w]+)"?\s*$/) {
689             $::httpduser = $1;
690         }
691     }
692     close(HTTPDCONF);
693
694
695
696
697     unless ($::httpduser) {
698         my $message=getmessage('EnterApacheUser', [$::etcdir]);
699         until (length($::httpduser) && getpwnam($::httpduser)) {
700             $::httpduser=showmessage($message, "free", '');
701             if (length($::httpduser)>0) {
702                 unless (getpwnam($::httpduser)) {
703                     my $message=getmessage('InvalidUserid', [$::httpduser]);
704                     showmessage($message,'PressEnter');
705                 }
706             } else {
707             }
708         }
709         print "AU: $::httpduser\n";
710     }
711 }
712
713
714 $messages->{'ApacheConfigIntroduction'}->{en} =
715    heading('APACHE CONFIGURATION') . qq|
716 Koha needs to setup your Apache configuration file for the
717 OPAC and LIBRARIAN virtual hosts.  By default this installer
718 will do this by using one ip address and two different ports
719 for the virtual hosts.  There are other ways to set this up,
720 and the installer will leave comments in httpd.conf detailing
721 what these other options are.
722
723
724 Press <ENTER> to continue: |;
725
726 $messages->{'GetVirtualHostEmail'}->{en} =
727    heading('WEB SERVER E-MAIL CONTACT') . qq|
728 Enter the e-mail address to be used as a contact for the virtual hosts (this
729 address is displayed if any errors are encountered).
730
731 E-mail contact [%s]: |;
732
733 $messages->{'GetServerName'}->{en} =
734    heading('WEB SERVER HOST NAME OR IP ADDRESS') . qq|
735 Please enter the domain name or ip address of your computer.
736
737 Host name or IP Address [%s]: |;
738
739 $messages->{'GetOpacPort'}->{en} = heading('OPAC VIRTUAL HOST PORT') . qq|
740 Please enter the port for your OPAC interface.  This defaults to port 80, but
741 if you are already serving web content from this server, you should change it
742 to a different port (8000 might be a good choice).
743
744 Enter the OPAC Port [%s]: |;
745
746 $messages->{'GetIntranetPort'}->{en} =
747    heading('INTRANET VIRTUAL HOST PORT') . qq|
748 Please enter the port for your Intranet interface.  This must be different from
749 the OPAC port (%s).
750
751 Enter the Intranet Port [%s]: |;
752
753
754 sub getapachevhostinfo {
755
756     $::svr_admin = "webmaster\@$::domainname";
757     $::servername=`hostname`;
758     chomp $::servername;
759     $::opacport=80;
760     $::intranetport=8080;
761
762     showmessage(getmessage('ApacheConfigIntroduction'), 'PressEnter');
763
764     $::svr_admin=showmessage(getmessage('GetVirtualHostEmail', [$::svr_admin]), 'email', $::svr_admin);
765     $::servername=showmessage(getmessage('GetServerName', [$::servername]), 'free', $::servername);
766
767
768     $::opacport=showmessage(getmessage('GetOpacPort', [$::opacport]), 'numerical', $::opacport);
769     $::intranetport=showmessage(getmessage('GetIntranetPort', [$::opacport, $::intranetport]), 'numerical', $::intranetport);
770
771 }
772
773 $messages->{'StartUpdateApache'}->{en} =
774    heading('UPDATING APACHE CONFIGURATION') . qq|
775 Checking for modules that need to be loaded...
776 |;
777
778 $messages->{'LoadingApacheModuleModEnv'}->{en}="Loading SetEnv Apache module.\n";
779
780 $messages->{'LoadingApacheModuleModInc'}->{en}="Loading Includes Apache module.\n";
781
782 $messages->{'ApacheConfigBackupFailed'}->{en} =
783    heading('APACHE CONFIGURATION BACKUP FAILED') . qq|
784 An error occurred while trying to make a backup copy of %s.
785
786   %s
787
788 No changes will be made to the apache configuration file at this time.
789
790 Press <ENTER> to continue: |;
791
792
793 $messages->{'ApacheAlreadyConfigured'}->{en} =
794    heading('APACHE ALREADY CONFIGURED') . qq|
795 %s appears to already have an entry for Koha
796 Virtual Hosts.  You may need to edit %s
797 f anything has changed since it was last set up.  This
798 script will not attempt to modify an existing Koha apache
799 configuration.
800
801 Press <ENTER> to continue: |;
802
803 sub updateapacheconf {
804     my $logfiledir=`grep ^ErrorLog "$::realhttpdconf"`;
805     chomp $logfiledir;
806
807     if ($logfiledir) {
808         $logfiledir=~m#ErrorLog (.*)/[^/]*$#
809             or die "Can't parse ErrorLog directive\n";
810         $logfiledir=$1;
811     }
812
813     unless ($logfiledir) {
814         $logfiledir='logs';
815     }
816
817     showmessage(getmessage('StartUpdateApache'), 'none');
818
819     my $httpdconf;
820     my $envmodule=0;
821     my $includesmodule=0;
822     open HC, "<$::realhttpdconf";
823     while (<HC>) {
824         if (/^\s*#\s*LoadModule env_module /) {
825             s/^\s*#\s*//;
826             showmessage(getmessage('LoadingApacheModuleModEnv'));
827             $envmodule=1;
828         }
829         if (/^\s*#\s*LoadModule includes_module /) {
830             s/^\s*#\s*//;
831             showmessage(getmessage('LoadingApacheModuleModInc'));
832         }
833         if (/\s*LoadModule includes_module / ) {
834             $includesmodule=1;
835         }
836         $httpdconf.=$_;
837     }
838
839     my $backupfailed=0;
840     $backupfailed=`cp -f $::realhttpdconf $::realhttpdconf\.prekoha`;
841     if ($backupfailed) {
842         showmessage(getmessage('ApacheConfigBackupFailed', [$::realhttpdconf,$backupfailed ]), 'PressEnter');
843         return;
844     }
845
846     if ($envmodule || $includesmodule) {
847         open HC, ">$::realhttpdconf";
848         print HC $httpdconf;
849         close HC;
850     }
851
852
853     
854     if (`grep 'VirtualHost $::servername' "$::realhttpdconf"`) {
855         showmessage(getmessage('ApacheAlreadyConfigured', [$::realhttpdconf, $::realhttpdconf]), 'PressEnter');
856         return;
857     } else {
858         my $includesdirectives='';
859         if ($includesmodule) {
860             $includesdirectives.="Options +Includes\n";
861             $includesdirectives.="   AddHandler server-parsed .html\n";
862         }
863         open(SITE,">>$::realhttpdconf") or warn "Insufficient priveleges to open $::realhttpdconf for writing.\n";
864         my $opaclisten = '';
865         if ($::opacport != 80) {
866             $opaclisten="Listen $::opacport";
867         }
868         my $intranetlisten = '';
869         if ($::intranetport != 80) {
870             $intranetlisten="Listen $::intranetport";
871         }
872         print SITE <<EOP
873
874 # Ports to listen to for Koha
875 $opaclisten
876 $intranetlisten
877
878 # NameVirtualHost is used by one of the optional configurations detailed below
879
880 #NameVirtualHost 11.22.33.44
881
882 # KOHA's OPAC Configuration
883 <VirtualHost $::servername\:$::opacport>
884    ServerAdmin $::svr_admin
885    DocumentRoot $::opacdir/htdocs
886    ServerName $::servername
887    ScriptAlias /cgi-bin/koha/ $::opacdir/cgi-bin/
888    ErrorLog $logfiledir/opac-error_log
889    TransferLog $logfiledir/opac-access_log
890    SetEnv PERL5LIB "$::intranetdir/modules"
891    $includesdirectives
892 </VirtualHost>
893
894 # KOHA's INTRANET Configuration
895 <VirtualHost $::servername\:$::intranetport>
896    ServerAdmin $::svr_admin
897    DocumentRoot $::intranetdir/htdocs
898    ServerName $::servername
899    ScriptAlias /cgi-bin/koha/ "$::intranetdir/cgi-bin/"
900    ErrorLog $logfiledir/koha-error_log
901    TransferLog $logfiledir/koha-access_log
902    SetEnv PERL5LIB "$::intranetdir/modules"
903    $includesdirectives
904 </VirtualHost>
905
906 # If you want to use name based Virtual Hosting:
907 #   1. remove the two Listen lines
908 #   2. replace $::servername\:$::opacport wih your.opac.domain.name
909 #   3. replace ServerName $::servername wih ServerName your.opac.domain.name
910 #   4. replace $::servername\:$::intranetport wih your intranet domain name
911 #   5. replace ServerName $::servername wih ServerName your.intranet.domain.name
912 #
913 # If you want to use NameVirtualHost'ing (using two names on one ip address):
914 #   1.  Follow steps 1-5 above
915 #   2.  Uncomment the NameVirtualHost line and set the correct ip address
916
917 EOP
918
919
920     }
921 }
922
923 $messages->{'IntranetAuthenticationQuestion'}->{en} =
924    heading('INTRANET AUTHENTICATION') . qq|
925 I can set it up so that the Intranet/Librarian site is password protected using
926 Apache's Basic Authorization.
927
928 This is going to be phased out very soon. However, setting this up can provide
929 an extra layer of security before the new authentication system is completely
930 in place.
931
932 Would you like to do this ([Y]/N): |;
933
934 $messages->{'BasicAuthUsername'}->{en}="Please enter a userid for intranet access [%s]: ";
935 $messages->{'BasicAuthPassword'}->{en}="Please enter a password for %s: ";
936 $messages->{'BasicAuthPasswordWasBlank'}->{en}="\nYou cannot use a blank password!\n\n";
937
938 sub basicauthentication {
939     my $message=getmessage('IntranetAuthenticationQuestion');
940     my $answer=showmessage($message, 'yn', 'y');
941
942     my $apacheauthusername='librarian';
943     my $apacheauthpassword='';
944     if ($answer=~/^y/i) {
945         ($apacheauthusername) = showmessage(getmessage('BasicAuthUsername', [ $apacheauthusername]), 'free', $apacheauthusername, 1);
946         $apacheauthusername=~s/[^a-zA-Z0-9]//g;
947         while (! $apacheauthpassword) {
948             ($apacheauthpassword) = showmessage(getmessage('BasicAuthPassword', [ $apacheauthusername]), 'free', 1);
949             if (!$apacheauthpassword) {
950                 ($apacheauthpassword) = showmessage(getmessage('BasicAuthPasswordWasBlank'), 'none', '', 1);
951             }
952         }
953         open AUTH, ">$::etcdir/kohaintranet.pass";
954         my $chars='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789';
955         my $salt=substr($chars, int(rand(length($chars))),1);
956         $salt.=substr($chars, int(rand(length($chars))),1);
957         print AUTH $apacheauthusername.":".crypt($apacheauthpassword, $salt)."\n";
958         close AUTH;
959         open(SITE,">>$::realhttpdconf") or warn "Insufficient priveleges to open $::realhttpdconf for writing.\n";
960         print SITE <<EOP
961
962 <Directory $::intranetdir>
963     AuthUserFile $::etcdir/kohaintranet.pass
964     AuthType Basic
965     AuthName "Koha Intranet (for librarians only)"
966     Require  valid-user
967 </Directory>
968 EOP
969     }
970     close(SITE);
971 }
972
973 $messages->{'InstallFiles'}->{en} = heading('INSTALLING FILES') . qq|
974 Copying files to installation directories:
975
976 |;
977
978
979 $messages->{'CopyingFiles'}->{en}="Copying %s to %s.\n";
980
981
982
983 sub installfiles {
984
985
986     showmessage(getmessage('InstallFiles'),'none');
987     print getmessage('CopyingFiles', ['intranet-html', "$::intranetdir/htdocs" ]);
988     system("cp -R intranet-html/* $::intranetdir/htdocs/");
989     print getmessage('CopyingFiles', ['intranet-cgi', "$::intranetdir/cgi-bin" ]);
990     system("cp -R intranet-cgi/* $::intranetdir/cgi-bin/");
991     print getmessage('CopyingFiles', ['stand-alone scripts', "$::intranetdir/scripts" ]);
992     system("cp -R scripts/* $::intranetdir/scripts/");
993     print getmessage('CopyingFiles', ['perl modules', "$::intranetdir/modules" ]);
994     system("cp -R modules/* $::intranetdir/modules/");
995     print getmessage('CopyingFiles', ['opac-html', "$::opacdir/htdocs" ]);
996     system("cp -R opac-html/* $::opacdir/htdocs/");
997     print getmessage('CopyingFiles', ['opac-cgi', "$::opacdir/cgi-bin" ]);
998     system("cp -R opac-cgi/* $::opacdir/cgi-bin/");
999     system("touch $::opacdir/cgi-bin/opac");
1000
1001     system("chown -R root:$::httpduser $::opacdir");
1002     system("chown -R root:$::httpduser $::intranetdir");
1003
1004     # Create /etc/koha.conf
1005
1006     my $old_umask = umask(027); # make sure koha.conf is never world-readable
1007     open(SITES,">$::etcdir/koha.conf.tmp") or warn "Couldn't create file at $::etcdir. Must have write capability.\n";
1008     print SITES qq|
1009 database=$::dbname
1010 hostname=$::hostname
1011 user=$::user
1012 pass=$::pass
1013 includes=$::opacdir/htdocs/includes
1014 intranetdir=$::intranetdir
1015 opacdir=$::opacdir
1016 kohalogdir=$::kohalogdir
1017 kohaversion=$::kohaversion
1018 httpduser=$::httpduser
1019 intrahtdocs=$::intranetdir/htdocs/intranet-tmpl
1020 opachtdocs=$::opacdir/htdocs/opac-tmpl
1021 |;
1022     close(SITES);
1023     umask($old_umask);
1024
1025     chown((getpwnam($::httpduser)) [2,3], "$::etcdir/koha.conf.tmp") or warn "can't chown koha.conf: $!";
1026     chmod 0440, "$::etcdir/koha.conf.tmp";
1027
1028     chmod 0750, "$::intranetdir/scripts/z3950daemon/z3950-daemon-launch.sh";
1029     chmod 0750, "$::intranetdir/scripts/z3950daemon/z3950-daemon-shell.sh";
1030     chmod 0750, "$::intranetdir/scripts/z3950daemon/processz3950queue";
1031     chown(0, (getpwnam($::httpduser)) [3], "$::intranetdir/scripts/z3950daemon/z3950-daemon-shell.sh") or warn "can't chown $::intranetdir/scripts/z3950daemon/z3950-daemon-shell.sh: $!";
1032     chown(0, (getpwnam($::httpduser)) [3], "$::intranetdir/scripts/z3950daemon/processz3950queue") or warn "can't chown $::intranetdir/scripts/z3950daemon/processz3950queue: $!";
1033
1034 }
1035
1036 $messages->{'MysqlRootPassword'}->{en} =
1037    heading('MYSQL ROOT USER PASSWORD') . qq|
1038 To allow us to create the koha database please supply your
1039 mysql server's root user password:
1040
1041 Enter MySQL root user password: |;
1042
1043 $messages->{'InvalidMysqlRootPassword'}->{en}="Invalid Password.  Please try again.";
1044
1045 $messages->{'CreatingDatabase'}->{en} = heading('CREATING DATABASE') . qq|
1046 Creating the MySQL database for Koha...
1047
1048 |;
1049
1050 $messages->{'CreatingDatabaseError'}->{en} =
1051    heading('ERROR CREATING DATABASE') . qq|
1052 Couldn't connect to the MySQL server for the reason given above.
1053 This is a serious problem, the database will not get installed.\a
1054
1055 Press <ENTER> to continue: |;
1056
1057 $messages->{'SampleData'}->{en} = heading('SAMPLE DATA') . qq|
1058 If you are installing Koha for evaluation purposes,  I have a batch of sample
1059 data that you can install now.
1060
1061 If you are installing Koha with the intention of populating it with your own
1062 data, you probably don't want this sample data installed.
1063
1064 Would you like to install the sample data? Y/[N]: |;
1065
1066 $messages->{'SampleDataInstalled'}->{en} =
1067    heading('SAMPLE DATA INSTALLED') . qq|
1068 Sample data has been installed.  For some suggestions on testing Koha, please
1069 read the file doc/HOWTO-Testing.  If you find any bugs, please submit them at
1070 http://bugs.koha.org/.  If you need help with testing Koha, you can post a
1071 question through the koha-devel mailing list, or you can check for a developer
1072 online at +irc.katipo.co.nz:6667 channel #koha.
1073
1074 You can find instructions for subscribing to the Koha mailing lists at:
1075
1076     http://www.koha.org
1077
1078
1079 Press <ENTER> to continue: |;
1080
1081 $messages->{'AddBranchPrinter'}->{en} = heading('Add Branch and Printer') . qq|
1082 Would you like to install an initial branch and printer? [Y]/N: |;
1083
1084 $messages->{'BranchName'}->{en}="Branch Name [%s]: ";
1085 $messages->{'BranchCode'}->{en}="Branch Code (4 letters or numbers) [%s]: ";
1086 $messages->{'PrinterQueue'}->{en}="Printer Queue [%s]: ";
1087 $messages->{'PrinterName'}->{en}="Printer Name [%s]: ";
1088 $messages->{'BlankMysqlPassword'}->{en} = heading('Blank MySQL Password') . qq|
1089 Do not leave your MySQL root password blank unless you know exactly what you
1090 are doing.  To change your MySQL root password use the mysqladmin command:
1091
1092 mysqladmin password NEWPASSWORDHERE
1093
1094 Press <ENTER> to continue:
1095 |;
1096
1097 sub databasesetup {
1098     $::mysqluser = 'root';
1099     $::mysqlpass = '';
1100
1101     foreach my $mysql (qw(/usr/local/mysql
1102                           /opt/mysql
1103                           /usr
1104                           )) {
1105        if ( -d $mysql  && -f "$mysql/bin/mysqladmin") {
1106             $::mysqldir=$mysql;
1107        }
1108     }
1109     if (!$::mysqldir){
1110         print "I don't see mysql in the usual places.\n";
1111         for (;;) {
1112             print "Where have you installed mysql? ";
1113             chomp($::mysqldir = <STDIN>);
1114             last if -f "$::mysqldir/bin/mysqladmin";
1115         print <<EOP;
1116
1117 I can't find it there either. If you compiled mysql yourself,
1118 please give the value of --prefix when you ran configure.
1119
1120 The file mysqladmin should be in bin/mysqladmin under the directory that you
1121 provide here.
1122
1123 EOP
1124         }
1125     }
1126
1127
1128     my $needpassword=1;
1129     while ($needpassword) {
1130         $::mysqlpass=showmessage(getmessage('MysqlRootPassword'), 'free');
1131         $::mysqlpass_quoted = $::mysqlpass;
1132         $::mysqlpass_quoted =~ s/"/\\"/g;
1133         $::mysqlpass_quoted="-p\"$::mysqlpass_quoted\"";
1134         $::mysqlpass eq '' and $::mysqlpass_quoted='';
1135         my $result=system("$::mysqldir/bin/mysqladmin -u$::mysqluser $::mysqlpass_quoted proc > /dev/null 2>&1");
1136         if ($result) {
1137             print getmessage('InvalidMysqlRootPassword');
1138         } else {
1139             if ($::mysqlpass eq '') {
1140                 showmessage(getmessage('BlankMysqlPassword'), 'PressEnter');
1141             }
1142             $needpassword=0;
1143         }
1144     }
1145
1146     showmessage(getmessage('CreatingDatabase'),'none');
1147
1148     my $result=system("$::mysqldir/bin/mysqladmin", "-u$::mysqluser", "-p$::mysqlpass", "create", "$::dbname");
1149     if ($result) {
1150         showmessage(getmessage('CreatingDatabaseError'),'PressEnter', '', 1);
1151     } else {
1152         # Populate the Koha database
1153         system("$::mysqldir/bin/mysql -u$::mysqluser $::mysqlpass_quoted $::dbname < koha.mysql");
1154         # Set up permissions
1155         system("$::mysqldir/bin/mysql -u$::mysqluser $::mysqlpass_quoted mysql -e \"insert into user (Host,User,Password) values ('$::hostname','$::user',password('$::pass'))\"\;");
1156         system("$::mysqldir/bin/mysql -u$::mysqluser $::mysqlpass_quoted mysql -e \"insert into db (Host,Db,User,Select_priv,Insert_priv,Update_priv,Delete_priv,Create_priv,Drop_priv, index_priv, alter_priv) values ('%','$::dbname','$::user','Y','Y','Y','Y','Y','Y','Y','Y')\"");
1157         system("$::mysqldir/bin/mysqladmin -u$::mysqluser $::mysqlpass_quoted reload");
1158
1159
1160
1161
1162
1163     }
1164
1165 }
1166
1167 $messages->{'UpdateMarcTables'}->{en} =
1168    heading('UPDATING MARC FIELD DEFINITION TABLES') . qq|
1169 You can import marc parameters for :
1170
1171   1 MARC21
1172   2 UNIMARC
1173   3 none
1174
1175 Please choose which parameter you want to install. Note if you choose 3,
1176 nothing will be added, and it can be a BIG job to manually create those tables
1177
1178 Choose MARC definition [1]: |;
1179
1180 $messages->{'Language'}->{en} = heading('CHOOSE LANGUAGES') . qq|
1181 This version of koha supports a few languages.
1182 Enter you languages preferences : either en, fr, es or pl.
1183 Note that the en is always choosen when the system does not finds the
1184 language you choose in a specific screen.
1185 fr : opac is translated (except pictures)
1186 es : a few intranet is translated (including pictures)
1187 pl : opac is translated (UNTESTED in this release)
1188 |;
1189
1190 sub updatedatabase {
1191     # At this point, $::etcdir/koha.conf must exist, for C4::Context
1192     # We must somehow temporarily enable $::etcdir/koha.conf. A symlink can
1193     # do this & at the same time facilitate detection of aborted installs.
1194         my $result=system ("perl -I $::intranetdir/modules scripts/updater/updatedatabase");
1195         if ($result) {
1196                 print "Problem updating database...\n";
1197                 exit;
1198         }
1199
1200         my $response=showmessage(getmessage('UpdateMarcTables'), 'restrictchar 123', '1');
1201
1202         if ($response == 1) {
1203                 system("cat scripts/misc/marc_datas/marc21_en/structure_def.sql | $::mysqldir/bin/mysql -u$::mysqluser $::mysqlpass_quoted $::dbname");
1204         }
1205         if ($response == 2) {
1206                 system("cat scripts/misc/marc_datas/unimarc_fr/structure_def.sql | $::mysqldir/bin/mysql -u$::mysqluser $::mysqlpass_quoted $::dbname");
1207                 system("cat scripts/misc/lang-datas/fr/stopwords.sql | $::mysqldir/bin/mysql -u$::mysqluser $::mysqlpass_quoted $::dbname");
1208         }
1209
1210         $result = system ("perl -I $::intranetdir/modules scripts/marc/updatedb2marc.pl");
1211         if ($result) {
1212                 print "Problem updating database to MARC...\n";
1213                 exit;
1214         }
1215
1216         print "\n\nFinished updating of database. Press <ENTER> to continue...";
1217         <STDIN>;
1218 }
1219
1220 sub populatedatabase {
1221         my $response=showmessage(getmessage('SampleData'), 'yn', 'n');
1222         if ($response =~/^y/i) {
1223                 system("gunzip -d < sampledata-1.2.gz | $::mysqldir/bin/mysql -u$::mysqluser $::mysqlpass_quoted $::dbname");
1224                 system("$::mysqldir/bin/mysql -u$::mysqluser $::mysqlpass_quoted $::dbname -e \"insert into branches (branchcode,branchname,issuing) values ('MAIN', 'Main Library', 1)\"");
1225                 system("$::mysqldir/bin/mysql -u$::mysqluser $::mysqlpass_quoted $::dbname -e \"insert into branchrelations (branchcode,categorycode) values ('MAIN', 'IS')\"");
1226                 system("$::mysqldir/bin/mysql -u$::mysqluser $::mysqlpass_quoted $::dbname -e \"insert into branchrelations (branchcode,categorycode) values ('MAIN', 'CU')\"");
1227                 system("$::mysqldir/bin/mysql -u$::mysqluser $::mysqlpass_quoted $::dbname -e \"insert into printers (printername,printqueue,printtype) values ('Circulation Desk Printer', 'lp', 'hp')\"");
1228                 showmessage(getmessage('SampleDataInstalled'), 'PressEnter','',1);
1229         } else {
1230                 my $input;
1231                 my $response=showmessage(getmessage('AddBranchPrinter'), 'yn', 'y');
1232
1233                 unless ($response =~/^n/i) {
1234                 my $branch='Main Library';
1235                 $branch=showmessage(getmessage('BranchName', [$branch]), 'free', $branch, 1);
1236                 $branch=~s/[^A-Za-z0-9\s]//g;
1237
1238                 my $branchcode=$branch;
1239                 $branchcode=~s/[^A-Za-z0-9]//g;
1240                 $branchcode=uc($branchcode);
1241                 $branchcode=substr($branchcode,0,4);
1242                 $branchcode=showmessage(getmessage('BranchCode', [$branchcode]), 'free', $branchcode, 1);
1243                 $branchcode=~s/[^A-Za-z0-9]//g;
1244                 $branchcode=uc($branchcode);
1245                 $branchcode=substr($branchcode,0,4);
1246                 $branchcode or $branchcode='DEF';
1247
1248                 system("$::mysqldir/bin/mysql -u$::mysqluser $::mysqlpass_quoted $::dbname -e \"insert into branches (branchcode,branchname,issuing) values ('$branchcode', '$branch', 1)\"");
1249                 system("$::mysqldir/bin/mysql -u$::mysqluser $::mysqlpass_quoted $::dbname -e \"insert into branchrelations (branchcode,categorycode) values ('MAIN', 'IS')\"");
1250                 system("$::mysqldir/bin/mysql -u$::mysqluser $::mysqlpass_quoted $::dbname -e \"insert into branchrelations (branchcode,categorycode) values ('MAIN', 'CU')\"");
1251
1252                 my $printername='Library Printer';
1253                 $printername=showmessage(getmessage('PrinterName', [$printername]), 'free', $printername, 1);
1254                 $printername=~s/[^A-Za-z0-9\s]//g;
1255
1256                 my $printerqueue='lp';
1257                 $printerqueue=showmessage(getmessage('PrinterQueue', [$printerqueue]), 'free', $printerqueue, 1);
1258                 $printerqueue=~s/[^A-Za-z0-9]//g;
1259                 system("$::mysqldir/bin/mysql -u$::mysqluser $::mysqlpass_quoted $::dbname -e \"insert into printers (printername,printqueue,printtype) values ('$printername', '$printerqueue', '')\"");
1260                 }
1261         my $language=showmessage(getmessage('Language'), 'free', 'en');
1262         system("$::mysqldir/bin/mysql -u$::mysqluser $::mysqlpass_quoted $::dbname -e \"update systempreferences set value='$language' where variable='opaclanguages'\"");
1263         }
1264 }
1265
1266 $messages->{'RestartApache'}->{en} = heading('RESTART APACHE') . qq|
1267 Apache needs to be restarted to load the new configuration for Koha.
1268
1269 Would you like to restart Apache now?  [Y]/N: |;
1270
1271 sub restartapache {
1272
1273     my $response=showmessage(getmessage('RestartApache'), 'yn', 'y');
1274
1275
1276
1277     unless ($response=~/^n/i) {
1278         # Need to support other init structures here?
1279         if (-e "/etc/rc.d/init.d/httpd") {
1280             system('/etc/rc.d/init.d/httpd restart');
1281         } elsif (-e "/etc/init.d/apache") {
1282             system('/etc//init.d/apache restart');
1283         } elsif (-e "/etc/init.d/apache-ssl") {
1284             system('/etc/init.d/apache-ssl restart');
1285         }
1286     }
1287
1288 }
1289
1290
1291 sub loadconfigfile {
1292     my %configfile;
1293
1294     open (KC, "<$::etcdir/koha.conf");
1295     while (<KC>) {
1296      chomp;
1297      (next) if (/^\s*#/);
1298      if (/(.*)\s*=\s*(.*)/) {
1299        my $variable=$1;
1300        my $value=$2;
1301        # Clean up white space at beginning and end
1302        $variable=~s/^\s*//g;
1303        $variable=~s/\s*$//g;
1304        $value=~s/^\s*//g;
1305        $value=~s/\s*$//g;
1306        $configfile{$variable}=$value;
1307      }
1308     }
1309
1310     $::intranetdir=$configfile{'intranetdir'};
1311     $::opacdir=$configfile{'opacdir'};
1312     $::kohaversion=$configfile{'kohaversion'};
1313     $::kohalogdir=$configfile{'kohalogdir'};
1314     $::database=$configfile{'database'};
1315     $::hostname=$configfile{'hostname'};
1316     $::user=$configfile{'user'};
1317     $::pass=$configfile{'pass'};
1318 }
1319
1320 END { }       # module clean-up code here (global destructor)
1321
1322 =back
1323
1324 =head1 SEE ALSO
1325
1326 buildrelease.pl,
1327 installer.pl
1328
1329 =cut
1330
1331 1;