1 package Install; #assumes Install.pm
4 # Copyright 2000-2002 Katipo Communications
6 # This file is part of Koha.
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
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.
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
25 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
29 Install.pm - Perl module containing the bulk of the installation logic
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.
38 =head2 Internal functions (not meant to be used outside of Install.pm)
44 # set the version for version checking
48 @EXPORT = qw( &checkperlmodules
52 &releasecandidatewarning
53 &getinstallationdirectories
68 use vars qw( $kohaversion ); # set in installer.pl
69 use vars qw( $language ); # set in installer.pl
70 use vars qw( $domainname ); # set in installer.pl
72 use vars qw( $etcdir ); # set in installer.pl, usu. /etc
73 use vars qw( $intranetdir $opacdir $kohalogdir );
74 use vars qw( $realhttpdconf $httpduser );
75 use vars qw( $servername $svr_admin $opacport $intranetport );
76 use vars qw( $mysqldir );
77 use vars qw( $database $mysqluser );
78 use vars qw( $mysqlpass ); # normally should not be used
79 use vars qw( $mysqlpass_quoted ); # quoted, contains -p as needed
80 use vars qw( $dbname $hostname $user $pass ); # virtual hosting
82 use vars qw( $newversion ); # XXX this seems to be unused
86 $messages->{'WelcomeToKohaInstaller'
87 = heading('Welcome to the Koha Installer') . qq|...|;
89 The heading function takes one string, the text to be displayed as
90 the heading, and returns a formatted heading (currently formatted
91 in the "traditional Koha installer" style, i.e., surrounded by a
94 This reduces the likelihood of pod2man(1) etc. misinterpreting
95 a line of equal signs as illegal POD directives.
101 my $n = length($s) + 4;
102 my $line = ('=' x $n) . "\n";
103 "\n$line= $s =\n$line\n";
107 $messages->{'continuing'}->{en}="Great! Continuing setup.\n\n";
108 $messages->{'WelcomeToKohaInstaller'}->{en} =
109 heading('Welcome to the Koha Installer') . qq|
110 Welcome to the Koha install script! This script will prompt you for some
111 basic information about your desired setup, then install Koha according to
112 your specifications. To accept the default value for any question, simply hit
115 Please be sure to read the documentation, or visit the Koha website at
116 http://www.koha.org for more information.
118 Are you ready to begin the installation? (Y/[N]): |;
119 $messages->{'ReleaseCandidateWarning'}->{en} =
120 heading('RELEASE CANDIDATE') . qq|
121 WARNING WARNING WARNING WARNING WARNING
123 You are about to install Koha version %s. This version of Koha is a
124 release candidate. It is not intended to be installed on production systems.
125 It is being released so that users can test it before we release a final
128 Are you sure you want to install Koha %s? (Y/[N]): |;
129 $messages->{'WatchForReleaseAnnouncements'}->{en}=qq|
131 Watch for announcements of Koha releases on the Koha mailing list or the Koha
132 web site (http://www.koha.org/).
136 $messages->{'NETZ3950Missing'}->{en}=qq|
138 The Net::Z3950 module is missing. This module is necessary if you want to use
139 Koha's Z39.50 client to download bibliographic records from other libraries.
141 To install this module, you will need the yaz client installed from
142 http://www.indexdata.dk/yaz/ and then you can install the perl module with the
145 perl -MCPAN -e 'install Net::Z3950'
147 Press the <ENTER> key to continue: |; #'
149 $messages->{'CheckingPerlModules'}->{en} = heading('PERL & MODULES') . qq|
150 Checking perl modules ...
153 $messages->{'PerlVersionFailure'}->{en}="Sorry, you need at least Perl %s\n";
155 $messages->{'MissingPerlModules'}->{en} = heading('MISSING PERL MODULES') . qq|
156 You are missing some Perl modules which are required by Koha.
157 Once these modules have been installed, rerun this installer.
158 They can be installed by running (as root) the following:
163 $messages->{'AllPerlModulesInstalled'}->{en} =
164 heading('ALL PERL MODULES INSTALLED') . qq|
165 All mandatory perl modules are installed.
167 Press <ENTER> to continue: |;
168 $messages->{'KohaVersionInstalled'}->{en}="You currently have Koha %s on your system.";
169 $messages->{'KohaUnknownVersionInstalled'}->{en}="I am not able to determine what version of Koha is installed now.";
170 $messages->{'KohaAlreadyInstalled'}->{en} =
171 heading('Koha already installed') . qq|
172 It looks like Koha is already installed on your system (%s/koha.conf exists
173 already). If you would like to upgrade your system to %s, please use
174 the koha.upgrade script in this directory.
179 $messages->{'GetOpacDir'}->{en} = heading('OPAC DIRECTORY') . qq|
180 Please supply the directory you want Koha to store its OPAC files in. This
181 directory will be auto-created for you if it doesn't exist.
183 OPAC Directory [%s]: |; #'
185 $messages->{'GetIntranetDir'}->{en} =
186 heading('INTRANET/LIBRARIANS DIRECTORY') . qq|
187 Please supply the directory you want Koha to store its Intranet/Librarians
188 files in. This directory will be auto-created for you if it doesn't exist.
190 Intranet Directory [%s]: |; #'
192 $messages->{'GetKohaLogDir'}->{en} = heading('KOHA LOG DIRECTORY') . qq|
193 Specify a log directory where any Koha daemons can create log files.
195 Koha Log Directory [%s]: |;
197 $messages->{'AuthenticationWarning'}->{en} = heading('Authentication') . qq|
198 This release of Koha has a new authentication module. If you are not already
199 using basic authentication on your intranet, you will be required to log in to
200 access some of the features of the intranet. You can log in using the userid
201 and password from the %s/koha.conf configuration file at any time. Use the
202 "Members" module to add passwords for other accounts and set their permissions.
204 Press the <ENTER> key to continue: |;
206 $messages->{'Completed'}->{en} = heading('KOHA INSTALLATION COMPLETE') . qq|
207 Congratulations ... your Koha installation is complete!
209 You will be able to connect to your Librarian interface at:
213 and the OPAC interface at :
217 Be sure to read the Hints file.
219 For more information visit http://www.koha.org
221 Press <ENTER> to exit the installer: |;
223 sub releasecandidatewarning {
224 my $message=getmessage('ReleaseCandidateWarning', [$newversion, $newversion]);
225 my $answer=showmessage($message, 'yn', 'n');
227 if ($answer =~ /y/i) {
228 print getmessage('continuing');
230 my $message=getmessage('WatchForReleaseAnnouncements');
239 =head2 Accessor functions (for installer.pl)
249 Sets the installation language, normally "en" (English).
250 In fact, only "en" is supported.
254 sub setlanguage ($) {
260 setdomainname('example.org');
262 Sets the domain name of the host.
264 The domain name should not contain a leading dot;
265 otherwise, the results are undefined.
269 sub setdomainname ($) {
277 Sets the sysconfdir, normally /etc.
278 This should be an absolute path; a trailing / is not required.
288 setkohaversion('1.3.3RC26');
290 Sets the Koha version as known by the installer.
294 sub setkohaversion ($) {
300 my $servername = getservername;
302 Gets the name of the Koha virtual server as specified by the user.
306 sub getservername () {
314 Gets the port that will run the Koha OPAC virtual server,
315 as specified by the user.
323 =item getintranetport
325 $port = getintranetport;
327 Gets the port that will run the Koha INTRANET virtual server,
328 as specified by the user.
332 sub getintranetport () {
338 =head2 Miscellaneous utility functions
348 Does the equivalent of dirname(1). Given a path $path, return the
349 parent directory of $path (best guess), except when $path seems to
350 be the same as /, in which case $path itself is returned unchanged.
356 if ($path =~ /[^\/]/s) {
358 $path =~ s/\/+[^\/]+\/*$//s;
369 mkdir_parents $path, $mode;
371 Does the equivalent of mkdir -p, or mkdir --parents. Given a path $path,
372 create the directory $path, recursively creating any intermediate
373 directories. If $mode is given, the directory will be created with
376 WARNING: If $path already exists, mkdir_parents will just return
377 successfully (just like mkdir -p), whether the mode of $path conforms
378 to $mode or not. (This is the behaviour of the mkdir -p command.)
382 sub mkdir_parents ($;$) {
383 my($path, $mode) = @_;
384 my $ok = -d($path)? 1: defined $mode? mkdir($path, $mode): mkdir($path);
386 if (!$ok && $! == ENOENT) {
387 my $parent = dirname($path);
388 $ok = mkdir_parents($parent, $mode);
390 # retry and at the same time make sure that $! is set correctly
391 $ok = defined $mode? mkdir($path, $mode): mkdir($path);
400 getmessage($msgid, $variables);
402 Gets a localized message (format string) with message id $msgid,
403 and, if an array reference of variables $variables is given,
404 substitutes variables in the format string with @$variables.
405 Returns the found message string, with variable substitutions
408 $msgid must be the message identifier corresponding to a defined
409 message string (a valid key to the $messages hash in the Installer
410 package). getmessage throws an exception if the message cannot be
416 my $messagename=shift;
418 my $message=$messages->{$messagename}->{$language} || $messages->{$messagename}->{en} || "Error: No message named $messagename in Install.pm\n";
419 if (defined($variables)) {
420 $message=sprintf $message, @$variables;
428 showmessage($message, 'none');
429 showmessage($message, 'none', undef, $noclear);
431 $result = showmessage($message, 'yn');
432 $result = showmessage($message, 'yn', $defaultresponse);
433 $result = showmessage($message, 'yn', $defaultresponse, $noclear);
435 $result = showmessage($message, 'restrictchar CHARS');
436 $result = showmessage($message, 'free');
437 $result = showmessage($message, 'numerical');
438 $result = showmessage($message, 'email');
439 $result = showmessage($message, 'PressEnter');
441 Shows a message and optionally gets a response from the user.
443 The first two arguments, the message and the response type,
444 are mandatory. The message must be the actual string to
445 display; the caller is responsible for calling getmessage if
448 The response type must be one of "none", "yn", "free",
449 "numerical", "email", "PressEnter", or a string consisting
450 of "restrictchar " followed by a list of allowed characters
451 (space can be specified). (Case is not significant, but case is
452 significant in the list of allowed characters.) If a response
453 type other than the above-listed is specified, the result is
456 Note that the response type "yn" is equivalent to "restrictchar yn".
457 Because "restrictchar" is case-sensitive, the user is expected
458 to enter "y" or "n" in lowercase only.
460 Note that the response type of "email" does not actually
461 guarantee that the returned value is a well-formed RFC-822
462 email address, nor does it accept all well-formed RFC-822 email
463 addresses. What it does is to restrict the returned value to a
464 string that is looks reasonably likely to be an email address
465 in the "real world", given the premise that the user is trying
466 to enter a real email address.
468 If a response type other than "none" or "PressEnter" is
469 specified, a third argument, specifying the default value, can
470 be specified: If this default response is not specified, the
471 default response is the first allowed character if the response
472 type is "restrictchar", otherwise the default response is the
473 empty string. This default response is used when the user does
474 not specify a value (i.e., presses Enter without typing in
475 anything), showmessage will assume that the default response is
478 Note that because the response type "yn" is equivalent to
479 "restrictchar yn", the default value for response type "yn",
480 if unspecified, is "y".
482 The screen is normally cleared before the message is displayed;
483 if a fourth argument is specified and is nonzero, this
484 screen-clearing is not done.
491 my $responsetype=shift;
492 my $defaultresponse=shift;
494 $noclear = 0 unless defined $noclear; # defaults to "clear"
495 ($noclear) || (system('clear'));
496 if ($responsetype =~ /^yn$/) {
497 $responsetype='restrictchar yn';
500 if ($responsetype =~/^restrictchar (.*)/i) {
503 until ($options=~/$response/) {
504 ($defaultresponse) || ($defaultresponse=substr($options,0,1));
507 (length($response)) || ($response=$defaultresponse);
508 unless ($options=~/$response/) {
509 ($noclear) || (system('clear'));
510 print "Invalid Response. Choose from [$options].\n\n";
515 } elsif ($responsetype =~/^free$/i) {
516 (defined($defaultresponse)) || ($defaultresponse='');
517 my $response=<STDIN>;
519 ($response) || ($response=$defaultresponse);
521 } elsif ($responsetype =~/^numerical$/i) {
522 (defined($defaultresponse)) || ($defaultresponse='');
524 until ($response=~/^\d+$/) {
527 ($response) || ($response=$defaultresponse);
528 unless ($response=~/^\d+$/) {
529 ($noclear) || (system('clear'));
530 print "Invalid Response ($response). Response must be a number.\n\n";
535 } elsif ($responsetype =~/^email$/i) {
536 (defined($defaultresponse)) || ($defaultresponse='');
538 until ($response=~/.*\@.*\..*/) {
541 ($response) || ($response=$defaultresponse);
542 unless ($response=~/.*\@.*\..*/) {
543 ($noclear) || (system('clear'));
544 print "Invalid Response ($response). Response must be a valid email address.\n\n";
549 } elsif ($responsetype =~/^PressEnter$/i) {
552 } elsif ($responsetype =~/^none$/i) {
555 # FIXME: There are a few places where we will get an undef as the
556 # response type. Should we thrown an exception here, or should we
557 # legitimize this usage and say "none" is the default if not specified?
558 #die "Illegal response type \"$responsetype\"";
565 =head2 Subtasks of doing an installation
571 =item checkabortedinstall
575 Checks whether a previous installation process has been abnormally
576 aborted, by checking whether $etcidr/koha.conf is a symlink matching
577 a particular pattern. If an aborted installation is detected, give
578 the user a chance to abort, before trying to recover the aborted
581 FIXME: The recovery is not complete; it only partially rolls back
586 sub checkabortedinstall () {
587 if (-l("$etcdir/koha.conf")
588 && readlink("$etcdir/koha.conf") =~ /\.tmp$/
591 I have detected that you tried to install Koha before, but the installation
592 was aborted. I will try to continue, but there might be problems if the
593 database is already created.
596 print "Please press <ENTER> to continue: ";
599 # Remove the symlink after the <STDIN>, so the user can back out
600 unlink "$etcdir/koha.conf"
601 || die "Failed to remove incomplete $etcdir/koha.conf: $!\n";
606 =item checkperlmodules
610 Test whether the version of Perl is new enough, whether Perl is
611 found at the expected location, and whether all required modules
616 sub checkperlmodules {
618 # Test for Perl and Modules
621 my $message = getmessage('CheckingPerlModules');
622 showmessage($message, 'none');
624 unless ($] >= 5.006001) { # Bug 179
625 die getmessage('PerlVersionFailure', ['5.6.1']);
629 unless (eval {require DBI}) { push @missing,"DBI" };
630 unless (eval {require Date::Manip}) { push @missing,"Date::Manip" };
631 unless (eval {require DBD::mysql}) { push @missing,"DBD::mysql" };
632 unless (eval {require HTML::Template}) { push @missing,"HTML::Template" };
633 unless (eval {require Set::Scalar}) { push @missing,"Set::Scalar" };
634 unless (eval {require Digest::MD5}) { push @missing,"Digest::MD5" };
635 unless (eval {require MARC::Record}) { push @missing,"MARC::Record" };
636 unless (eval {require Net::Z3950}) {
637 showmessage(getmessage('NETZ3950Missing'), 'PressEnter', '', 1);
638 if ($#missing>=0) { # XXX why only when $#missing >= 0?
639 push @missing, "Net::Z3950";
644 # Print out a list of any missing modules
649 foreach my $module (@missing) {
650 $missing.=" perl -MCPAN -e 'install \"$module\"'\n";
652 my $message=getmessage('MissingPerlModules', [$missing]);
653 showmessage($message, 'none');
656 showmessage(getmessage('AllPerlModulesInstalled'), 'PressEnter', '', 1);
660 unless (-x "/usr/bin/perl") {
661 my $realperl=`which perl`;
663 $realperl = showmessage(getmessage('NoUsrBinPerl'), 'none');
664 until (-x $realperl) {
665 $realperl=showmessage(getmessage('AskLocationOfPerlExecutable', $realperl), 'free', $realperl, 1);
667 my $response=showmessage(getmessage('ConfirmPerlExecutableSymlink', $realperl), 'yn', 'y', 1);
668 unless ($response eq 'n') {
669 system("ln -s $realperl /usr/bin/perl");
676 $messages->{'NoUsrBinPerl'}->{en} =
677 heading('Perl is not located in /usr/bin/perl') . qq|
678 The Koha perl scripts expect to find the perl executable in the /usr/bin
679 directory. It is not there on your system.
683 $messages->{'AskLocationOfPerlExecutable'}->{en}=qq|Location of Perl Executable: [%s]: |;
684 $messages->{'ConfirmPerlExecutableSymlink'}->{en}=qq|
685 The Koha scripts will _not_ work without a symlink from %s to /usr/bin/perl
687 May I create this symlink? ([Y]/N):
691 =item getinstallationdirectories
693 getinstallationdirectories;
695 Get the various installation directories from the user, and then
696 create those directories (if they do not already exist).
698 These pieces of information are saved to global variables; the
699 function does not return any values.
703 sub getinstallationdirectories {
704 $opacdir = '/usr/local/koha/opac';
705 $intranetdir = '/usr/local/koha/intranet';
707 while ($getdirinfo) {
708 # Loop until opac directory and koha directory are different
709 my $message=getmessage('GetOpacDir', [$opacdir]);
710 $opacdir=showmessage($message, 'free', $opacdir);
712 $message=getmessage('GetIntranetDir', [$intranetdir]);
713 $intranetdir=showmessage($message, 'free', $intranetdir);
715 if ($intranetdir eq $opacdir) {
718 You must specify different directories for the OPAC and INTRANET files!
719 :: $intranetdir :: $opacdir ::
726 $kohalogdir='/var/log/koha';
727 my $message=getmessage('GetKohaLogDir', [$kohalogdir]);
728 $kohalogdir=showmessage($message, 'free', $kohalogdir);
731 # FIXME: Missing error handling for all mkdir calls here
732 unless ( -d $intranetdir ) {
733 mkdir_parents (dirname($intranetdir), 0775);
734 mkdir ($intranetdir, 0770);
735 chown (oct(0), (getgrnam($httpduser))[2], "$intranetdir");
736 chmod (oct(770), "$intranetdir");
738 mkdir_parents ("$intranetdir/htdocs", 0750);
739 mkdir_parents ("$intranetdir/cgi-bin", 0750);
740 mkdir_parents ("$intranetdir/modules", 0750);
741 mkdir_parents ("$intranetdir/scripts", 0750);
742 unless ( -d $opacdir ) {
743 mkdir_parents (dirname($opacdir), 0775);
744 mkdir ($opacdir, 0770);
745 chown (oct(0), (getgrnam($httpduser))[2], "$opacdir");
746 chmod (oct(770), "$opacdir");
748 mkdir_parents ("$opacdir/htdocs", 0750);
749 mkdir_parents ("$opacdir/cgi-bin", 0750);
752 unless ( -d $kohalogdir ) {
753 mkdir_parents (dirname($kohalogdir), 0775);
754 mkdir ($kohalogdir, 0770);
755 chown (oct(0), (getgrnam($httpduser))[2,3], "$kohalogdir");
756 chmod (oct(770), "$kohalogdir");
762 =item getdatabaseinfo
766 Get various pieces of information related to the Koha database:
767 the name of the database, the host on which the SQL server is
768 running, and the database user name.
770 These pieces of information are saved to global variables; the
771 function does not return any values.
775 $messages->{'DatabaseName'}->{en} = heading('Name of MySQL database') . qq|
776 Please provide the name of the mysql database for your koha installation.
778 Database name [%s]: |;
780 $messages->{'DatabaseHost'}->{en} = heading('Database Host') . qq|
781 Please provide the hostname for mysql. Unless the database is located on
782 another machine this will be "localhost".
784 Database host [%s]: |;
786 $messages->{'DatabaseUser'}->{en} = heading('Database User') . qq|
787 Please provide the name of the user, who will have full administrative rights
788 to the %s database, when authenticating from %s.
790 This user will also be used to access Koha's INTRANET interface.
792 Database user [%s]: |;
794 $messages->{'DatabasePassword'}->{en} = heading('Database Password') . qq|
795 Please provide a good password for the user %s.
797 This password will also be used to access Koha's INTRANET interface.
799 Password for database user %s: |;
801 $messages->{'BlankPassword'}->{en} = heading('BLANK PASSWORD') . qq|
802 You must not use a blank password for your MySQL user!
804 Press <ENTER> to try again:
807 sub getdatabaseinfo {
810 $hostname = 'localhost';
814 #Get the database name
816 my $message=getmessage('DatabaseName', [$dbname]);
817 $dbname=showmessage($message, 'free', $dbname);
819 #Get the hostname for the database
821 $message=getmessage('DatabaseHost', [$hostname]);
822 $hostname=showmessage($message, 'free', $hostname);
824 #Get the username for the database
826 $message=getmessage('DatabaseUser', [$dbname, $hostname, $user]);
827 $user=showmessage($message, 'free', $user);
829 #Get the password for the database user
831 while ($pass eq '') {
832 my $message=getmessage('DatabasePassword', [$user, $user]);
833 $pass=showmessage($message, 'free', $pass);
835 my $message=getmessage('BlankPassword');
836 showmessage($message,'PressEnter');
847 Get various pieces of information related to the Apache server:
848 the location of the configuration file and, if needed, the Unix
849 user that the Koha CGI will be run under.
851 These pieces of information are saved to global variables; the
852 function does not return any values.
856 $messages->{'FoundMultipleApacheConfFiles'}->{en} =
857 heading('MULTIPLE APACHE CONFIG FILES') . qq|
858 I found more than one possible Apache configuration file:
862 Choose the correct file [1]: |;
864 $messages->{'NoApacheConfFiles'}->{en} =
865 heading('NO APACHE CONFIG FILE FOUND') . qq|
866 I was not able to find your Apache configuration file.
868 The file is usually called httpd.conf or apache.conf.
870 Please specify the location of your config file: |;
872 $messages->{'NotAFile'}->{en} = heading('FILE DOES NOT EXIST') . qq|
873 The file %s does not exist.
875 Please press <ENTER> to continue: |;
877 $messages->{'EnterApacheUser'}->{en} = heading('NEED APACHE USER') . qq|
878 I was not able to determine the user that Apache is running as. This
879 information is necessary in order to set the access privileges correctly on
880 %s/koha.conf. This user should be set in one of the Apache configuration
881 files using the "User" directive.
883 Enter the Apache userid: |;
885 $messages->{'InvalidUserid'}->{en} = heading('INVALID USERID') . qq|
886 The userid %s is not a valid userid on this system.
888 Press <ENTER> to continue: |;
891 my @confpossibilities;
893 foreach my $httpdconf (qw(/usr/local/apache/conf/httpd.conf
894 /usr/local/etc/apache/httpd.conf
895 /usr/local/etc/apache/apache.conf
896 /var/www/conf/httpd.conf
897 /etc/apache/conf/httpd.conf
898 /etc/apache/conf/apache.conf
899 /etc/apache-ssl/conf/apache.conf
900 /etc/apache-ssl/httpd.conf
901 /etc/httpd/conf/httpd.conf
902 /etc/httpd/httpd.conf)) {
903 if ( -f $httpdconf ) {
904 push @confpossibilities, $httpdconf;
908 if ($#confpossibilities==-1) {
909 my $message=getmessage('NoApacheConfFiles');
911 until (-f $realhttpdconf) {
912 $choice=showmessage($message, "free", 1);
914 $realhttpdconf=$choice;
916 showmessage(getmessage('NotAFile', [$choice]),'PressEnter', '', 1);
919 } elsif ($#confpossibilities>0) {
923 foreach (@confpossibilities) {
924 $conffiles.=" $counter: $_\n";
925 $options.="$counter";
928 my $message=getmessage('FoundMultipleApacheConfFiles', [$conffiles]);
929 my $choice=showmessage($message, "restrictchar $options", 1);
930 $realhttpdconf=$confpossibilities[$choice-1];
932 $realhttpdconf=$confpossibilities[0];
934 unless (open (HTTPDCONF, "<$realhttpdconf")) {
935 warn "Insufficient privileges to open $realhttpdconf for reading.\n";
939 while (<HTTPDCONF>) {
940 if (/^\s*User\s+"?([-\w]+)"?\s*$/) {
949 unless ($httpduser) {
950 my $message=getmessage('EnterApacheUser', [$etcdir]);
951 until (length($httpduser) && getpwnam($httpduser)) {
952 $httpduser=showmessage($message, "free", '');
953 if (length($httpduser)>0) {
954 unless (getpwnam($httpduser)) {
955 my $message=getmessage('InvalidUserid', [$httpduser]);
956 showmessage($message,'PressEnter');
961 print "AU: $httpduser\n";
966 =item getapachevhostinfo
970 Gets various pieces of information related to virtual hosting:
971 the webmaster email address, virtual hostname, and the ports
972 that the OPAC and INTRANET modules run on.
974 These pieces of information are saved to global variables; the
975 function does not return any values.
979 $messages->{'ApacheConfigIntroduction'}->{en} =
980 heading('APACHE CONFIGURATION') . qq|
981 Koha needs to setup your Apache configuration file for the
982 OPAC and LIBRARIAN virtual hosts. By default this installer
983 will do this by using one ip address and two different ports
984 for the virtual hosts. There are other ways to set this up,
985 and the installer will leave comments in httpd.conf detailing
986 what these other options are.
989 Press <ENTER> to continue: |;
991 $messages->{'GetVirtualHostEmail'}->{en} =
992 heading('WEB SERVER E-MAIL CONTACT') . qq|
993 Enter the e-mail address to be used as a contact for the virtual hosts (this
994 address is displayed if any errors are encountered).
996 E-mail contact [%s]: |;
998 $messages->{'GetServerName'}->{en} =
999 heading('WEB SERVER HOST NAME OR IP ADDRESS') . qq|
1000 Please enter the domain name or ip address of your computer.
1002 Host name or IP Address [%s]: |;
1004 $messages->{'GetOpacPort'}->{en} = heading('OPAC VIRTUAL HOST PORT') . qq|
1005 Please enter the port for your OPAC interface. This defaults to port 80, but
1006 if you are already serving web content from this server, you should change it
1007 to a different port (8000 might be a good choice).
1009 Enter the OPAC Port [%s]: |;
1011 $messages->{'GetIntranetPort'}->{en} =
1012 heading('INTRANET VIRTUAL HOST PORT') . qq|
1013 Please enter the port for your Intranet interface. This must be different from
1016 Enter the Intranet Port [%s]: |;
1019 sub getapachevhostinfo {
1021 $svr_admin = "webmaster\@$domainname";
1022 $servername=`hostname`;
1027 showmessage(getmessage('ApacheConfigIntroduction'), 'PressEnter');
1029 $svr_admin=showmessage(getmessage('GetVirtualHostEmail', [$svr_admin]), 'email', $svr_admin);
1030 $servername=showmessage(getmessage('GetServerName', [$servername]), 'free', $servername);
1033 $opacport=showmessage(getmessage('GetOpacPort', [$opacport]), 'numerical', $opacport);
1034 $intranetport=showmessage(getmessage('GetIntranetPort', [$opacport, $intranetport]), 'numerical', $intranetport);
1039 =item updateapacheconf
1043 Updates the Apache config file according to parameters previously
1044 specified by the user.
1046 It will append fully-commented directives at the end of the original
1047 Apache config file. The old config file is renamed with an extension
1050 If you need to uninstall Koha for any reason, the lines between
1052 # Ports to listen to for Koha
1054 and the block of comments beginning with
1056 # If you want to use name based Virtual Hosting:
1062 $messages->{'StartUpdateApache'}->{en} =
1063 heading('UPDATING APACHE CONFIGURATION') . qq|
1064 Checking for modules that need to be loaded...
1067 $messages->{'LoadingApacheModuleModEnv'}->{en}="Loading SetEnv Apache module.\n";
1069 $messages->{'LoadingApacheModuleModInc'}->{en}="Loading Includes Apache module.\n";
1071 $messages->{'ApacheConfigBackupFailed'}->{en} =
1072 heading('APACHE CONFIGURATION BACKUP FAILED') . qq|
1073 An error occurred while trying to make a backup copy of %s.
1077 No changes will be made to the apache configuration file at this time.
1079 Press <ENTER> to continue: |;
1082 $messages->{'ApacheAlreadyConfigured'}->{en} =
1083 heading('APACHE ALREADY CONFIGURED') . qq|
1084 %s appears to already have an entry for Koha
1085 Virtual Hosts. You may need to edit %s
1086 f anything has changed since it was last set up. This
1087 script will not attempt to modify an existing Koha apache
1090 Press <ENTER> to continue: |;
1092 sub updateapacheconf {
1093 my $logfiledir=`grep ^ErrorLog "$realhttpdconf"`;
1097 $logfiledir=~m#ErrorLog (.*)/[^/]*$#
1098 or die "Can't parse ErrorLog directive\n";
1102 unless ($logfiledir) {
1106 showmessage(getmessage('StartUpdateApache'), 'none');
1110 my $includesmodule=0;
1111 open HC, "<$realhttpdconf";
1113 if (/^\s*#\s*LoadModule env_module /) {
1115 showmessage(getmessage('LoadingApacheModuleModEnv'));
1118 if (/^\s*#\s*LoadModule includes_module /) {
1120 showmessage(getmessage('LoadingApacheModuleModInc'));
1122 if (/\s*LoadModule includes_module / ) {
1129 $backupfailed=`cp -f $realhttpdconf $realhttpdconf\.prekoha`;
1130 if ($backupfailed) {
1131 showmessage(getmessage('ApacheConfigBackupFailed', [$realhttpdconf,$backupfailed ]), 'PressEnter');
1135 if ($envmodule || $includesmodule) {
1136 open HC, ">$realhttpdconf";
1137 print HC $httpdconf;
1143 if (`grep 'VirtualHost $servername' "$realhttpdconf"`) {
1144 showmessage(getmessage('ApacheAlreadyConfigured', [$realhttpdconf, $realhttpdconf]), 'PressEnter');
1147 my $includesdirectives='';
1148 if ($includesmodule) {
1149 $includesdirectives.="Options +Includes\n";
1150 $includesdirectives.=" AddHandler server-parsed .html\n";
1152 open(SITE,">>$realhttpdconf") or warn "Insufficient priveleges to open $realhttpdconf for writing.\n";
1153 my $opaclisten = '';
1154 if ($opacport != 80) {
1155 $opaclisten="Listen $opacport";
1157 my $intranetlisten = '';
1158 if ($intranetport != 80) {
1159 $intranetlisten="Listen $intranetport";
1163 # Ports to listen to for Koha
1167 # NameVirtualHost is used by one of the optional configurations detailed below
1169 #NameVirtualHost 11.22.33.44
1171 # KOHA's OPAC Configuration
1172 <VirtualHost $servername\:$opacport>
1173 ServerAdmin $svr_admin
1174 DocumentRoot $opacdir/htdocs
1175 ServerName $servername
1176 ScriptAlias /cgi-bin/koha/ $opacdir/cgi-bin/
1177 ErrorLog $logfiledir/opac-error_log
1178 TransferLog $logfiledir/opac-access_log
1179 SetEnv PERL5LIB "$intranetdir/modules"
1183 # KOHA's INTRANET Configuration
1184 <VirtualHost $servername\:$intranetport>
1185 ServerAdmin $svr_admin
1186 DocumentRoot $intranetdir/htdocs
1187 ServerName $servername
1188 ScriptAlias /cgi-bin/koha/ "$intranetdir/cgi-bin/"
1189 ErrorLog $logfiledir/koha-error_log
1190 TransferLog $logfiledir/koha-access_log
1191 SetEnv PERL5LIB "$intranetdir/modules"
1195 # If you want to use name based Virtual Hosting:
1196 # 1. remove the two Listen lines
1197 # 2. replace $servername\:$opacport wih your.opac.domain.name
1198 # 3. replace ServerName $servername wih ServerName your.opac.domain.name
1199 # 4. replace $servername\:$intranetport wih your intranet domain name
1200 # 5. replace ServerName $servername wih ServerName your.intranet.domain.name
1202 # If you want to use NameVirtualHost'ing (using two names on one ip address):
1203 # 1. Follow steps 1-5 above
1204 # 2. Uncomment the NameVirtualHost line and set the correct ip address
1213 =item basicauthentication
1215 basicauthentication;
1217 Asks the user whether HTTP basic authentication is wanted, and,
1218 if so, the user name and password for the basic authentication.
1220 These pieces of information are saved to global variables; the
1221 function does not return any values.
1225 $messages->{'IntranetAuthenticationQuestion'}->{en} =
1226 heading('INTRANET AUTHENTICATION') . qq|
1227 I can set it up so that the Intranet/Librarian site is password protected using
1228 Apache's Basic Authorization.
1230 This is going to be phased out very soon. However, setting this up can provide
1231 an extra layer of security before the new authentication system is completely
1234 Would you like to do this ([Y]/N): |; #'
1236 $messages->{'BasicAuthUsername'}->{en}="Please enter a userid for intranet access [%s]: ";
1237 $messages->{'BasicAuthPassword'}->{en}="Please enter a password for %s: ";
1238 $messages->{'BasicAuthPasswordWasBlank'}->{en}="\nYou cannot use a blank password!\n\n";
1240 sub basicauthentication {
1241 my $message=getmessage('IntranetAuthenticationQuestion');
1242 my $answer=showmessage($message, 'yn', 'y');
1244 my $apacheauthusername='librarian';
1245 my $apacheauthpassword='';
1246 if ($answer=~/^y/i) {
1247 ($apacheauthusername) = showmessage(getmessage('BasicAuthUsername', [ $apacheauthusername]), 'free', $apacheauthusername, 1);
1248 $apacheauthusername=~s/[^a-zA-Z0-9]//g;
1249 while (! $apacheauthpassword) {
1250 ($apacheauthpassword) = showmessage(getmessage('BasicAuthPassword', [ $apacheauthusername]), 'free', 1);
1251 if (!$apacheauthpassword) {
1252 ($apacheauthpassword) = showmessage(getmessage('BasicAuthPasswordWasBlank'), 'none', '', 1);
1255 open AUTH, ">$etcdir/kohaintranet.pass";
1256 my $chars='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789';
1257 my $salt=substr($chars, int(rand(length($chars))),1);
1258 $salt.=substr($chars, int(rand(length($chars))),1);
1259 print AUTH $apacheauthusername.":".crypt($apacheauthpassword, $salt)."\n";
1261 open(SITE,">>$realhttpdconf") or warn "Insufficient priveleges to open $realhttpdconf for writing.\n";
1264 <Directory $intranetdir>
1265 AuthUserFile $etcdir/kohaintranet.pass
1267 AuthName "Koha Intranet (for librarians only)"
1280 Install the Koha files to the specified OPAC and INTRANET
1281 directories (usually in /usr/local/koha).
1283 The koha.conf file is created, but as koha.conf.tmp. The
1284 caller is responsible for calling finalizeconfigfile when
1285 installation is completed, to rename it back to koha.conf.
1289 $messages->{'InstallFiles'}->{en} = heading('INSTALLING FILES') . qq|
1290 Copying files to installation directories:
1295 $messages->{'CopyingFiles'}->{en}="Copying %s to %s.\n";
1302 showmessage(getmessage('InstallFiles'),'none');
1303 print getmessage('CopyingFiles', ['intranet-html', "$intranetdir/htdocs" ]);
1304 system("cp -R intranet-html/* $intranetdir/htdocs/");
1305 print getmessage('CopyingFiles', ['intranet-cgi', "$intranetdir/cgi-bin" ]);
1306 system("cp -R intranet-cgi/* $intranetdir/cgi-bin/");
1307 print getmessage('CopyingFiles', ['stand-alone scripts', "$intranetdir/scripts" ]);
1308 system("cp -R scripts/* $intranetdir/scripts/");
1309 print getmessage('CopyingFiles', ['perl modules', "$intranetdir/modules" ]);
1310 system("cp -R modules/* $intranetdir/modules/");
1311 print getmessage('CopyingFiles', ['opac-html', "$opacdir/htdocs" ]);
1312 system("cp -R opac-html/* $opacdir/htdocs/");
1313 print getmessage('CopyingFiles', ['opac-cgi', "$opacdir/cgi-bin" ]);
1314 system("cp -R opac-cgi/* $opacdir/cgi-bin/");
1315 system("touch $opacdir/cgi-bin/opac");
1317 system("chown -R root:$httpduser $opacdir");
1318 system("chown -R root:$httpduser $intranetdir");
1320 # Create /etc/koha.conf
1322 my $old_umask = umask(027); # make sure koha.conf is never world-readable
1323 open(SITES,">$etcdir/koha.conf.tmp") or warn "Couldn't create file at $etcdir. Must have write capability.\n";
1329 includes=$opacdir/htdocs/includes
1330 intranetdir=$intranetdir
1332 kohalogdir=$kohalogdir
1333 kohaversion=$kohaversion
1334 httpduser=$httpduser
1335 intrahtdocs=$intranetdir/htdocs/intranet-tmpl
1336 opachtdocs=$opacdir/htdocs/opac-tmpl
1341 chown((getpwnam($httpduser)) [2,3], "$etcdir/koha.conf.tmp") or warn "can't chown koha.conf: $!";
1342 chmod 0440, "$etcdir/koha.conf.tmp";
1344 chmod 0750, "$intranetdir/scripts/z3950daemon/z3950-daemon-launch.sh";
1345 chmod 0750, "$intranetdir/scripts/z3950daemon/z3950-daemon-shell.sh";
1346 chmod 0750, "$intranetdir/scripts/z3950daemon/processz3950queue";
1347 chown(0, (getpwnam($httpduser)) [3], "$intranetdir/scripts/z3950daemon/z3950-daemon-shell.sh") or warn "can't chown $intranetdir/scripts/z3950daemon/z3950-daemon-shell.sh: $!";
1348 chown(0, (getpwnam($httpduser)) [3], "$intranetdir/scripts/z3950daemon/processz3950queue") or warn "can't chown $intranetdir/scripts/z3950daemon/processz3950queue: $!";
1357 Finds out where the MySQL utitlities are located in the system,
1358 then create the Koha database structure and MySQL permissions.
1362 $messages->{'MysqlRootPassword'}->{en} =
1363 heading('MYSQL ROOT USER PASSWORD') . qq|
1364 To allow us to create the koha database please supply your
1365 mysql server's root user password:
1367 Enter MySQL root user password: |; #'
1369 $messages->{'InvalidMysqlRootPassword'}->{en}="Invalid Password. Please try again.";
1371 $messages->{'CreatingDatabase'}->{en} = heading('CREATING DATABASE') . qq|
1372 Creating the MySQL database for Koha...
1376 $messages->{'CreatingDatabaseError'}->{en} =
1377 heading('ERROR CREATING DATABASE') . qq|
1378 Couldn't connect to the MySQL server for the reason given above.
1379 This is a serious problem, the database will not get installed.
\a
1381 Press <ENTER> to continue: |; #'
1383 $messages->{'SampleData'}->{en} = heading('SAMPLE DATA') . qq|
1384 If you are installing Koha for evaluation purposes, I have a batch of sample
1385 data that you can install now.
1387 If you are installing Koha with the intention of populating it with your own
1388 data, you probably don't want this sample data installed.
1390 Would you like to install the sample data? Y/[N]: |; #'
1392 $messages->{'SampleDataInstalled'}->{en} =
1393 heading('SAMPLE DATA INSTALLED') . qq|
1394 Sample data has been installed. For some suggestions on testing Koha, please
1395 read the file doc/HOWTO-Testing. If you find any bugs, please submit them at
1396 http://bugs.koha.org/. If you need help with testing Koha, you can post a
1397 question through the koha-devel mailing list, or you can check for a developer
1398 online at +irc.katipo.co.nz:6667 channel #koha.
1400 You can find instructions for subscribing to the Koha mailing lists at:
1405 Press <ENTER> to continue: |;
1407 $messages->{'AddBranchPrinter'}->{en} = heading('Add Branch and Printer') . qq|
1408 Would you like to install an initial branch and printer? [Y]/N: |;
1410 $messages->{'BranchName'}->{en}="Branch Name [%s]: ";
1411 $messages->{'BranchCode'}->{en}="Branch Code (4 letters or numbers) [%s]: ";
1412 $messages->{'PrinterQueue'}->{en}="Printer Queue [%s]: ";
1413 $messages->{'PrinterName'}->{en}="Printer Name [%s]: ";
1414 $messages->{'BlankMysqlPassword'}->{en} = heading('Blank MySQL Password') . qq|
1415 Do not leave your MySQL root password blank unless you know exactly what you
1416 are doing. To change your MySQL root password use the mysqladmin command:
1418 mysqladmin password NEWPASSWORDHERE
1420 Press <ENTER> to continue:
1424 $mysqluser = 'root';
1427 foreach my $mysql (qw(/usr/local/mysql
1431 if ( -d $mysql && -f "$mysql/bin/mysqladmin") {
1436 print "I don't see mysql in the usual places.\n";
1438 print "Where have you installed mysql? ";
1439 chomp($mysqldir = <STDIN>);
1440 last if -f "$mysqldir/bin/mysqladmin";
1443 I can't find it there either. If you compiled mysql yourself,
1444 please give the value of --prefix when you ran configure.
1446 The file mysqladmin should be in bin/mysqladmin under the directory that you
1456 while ($needpassword) {
1457 $mysqlpass=showmessage(getmessage('MysqlRootPassword'), 'free');
1458 $mysqlpass_quoted = $mysqlpass;
1459 $mysqlpass_quoted =~ s/"/\\"/g;
1460 $mysqlpass_quoted="-p\"$mysqlpass_quoted\"";
1461 $mysqlpass eq '' and $mysqlpass_quoted='';
1462 my $result=system("$mysqldir/bin/mysqladmin -u$mysqluser $mysqlpass_quoted proc > /dev/null 2>&1");
1464 print getmessage('InvalidMysqlRootPassword');
1466 if ($mysqlpass eq '') {
1467 showmessage(getmessage('BlankMysqlPassword'), 'PressEnter');
1473 showmessage(getmessage('CreatingDatabase'),'none');
1475 my $result=system("$mysqldir/bin/mysqladmin", "-u$mysqluser", "-p$mysqlpass", "create", "$dbname");
1477 showmessage(getmessage('CreatingDatabaseError'),'PressEnter', '', 1);
1479 # Create the database structure
1480 system("$mysqldir/bin/mysql -u$mysqluser $mysqlpass_quoted $dbname < koha.mysql");
1481 # Set up permissions
1482 system("$mysqldir/bin/mysql -u$mysqluser $mysqlpass_quoted mysql -e \"insert into user (Host,User,Password) values ('$hostname','$user',password('$pass'))\"\;");
1483 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')\"");
1484 system("$mysqldir/bin/mysqladmin -u$mysqluser $mysqlpass_quoted reload");
1495 =item updatedatabase
1499 Updates the Koha database structure, including the addition of
1502 The MARC tables are also populated in addition to being created.
1504 Because updatedatabase calls scripts/updater/updatedatabase to
1505 do the actual update, and that script uses C4::Context,
1506 $etcdir/koha.conf must exist at this point. We use a symlink to
1507 do this and to also at the same time faciliate detection of
1508 ahorted installs. (See checkabortedinstall.)
1512 $messages->{'UpdateMarcTables'}->{en} =
1513 heading('UPDATING MARC FIELD DEFINITION TABLES') . qq|
1514 You can import marc parameters for :
1520 Please choose which parameter you want to install. Note if you choose 3,
1521 nothing will be added, and it can be a BIG job to manually create those tables
1523 Choose MARC definition [1]: |;
1525 $messages->{'Language'}->{en} = heading('CHOOSE LANGUAGES') . qq|
1526 This version of koha supports a few languages.
1527 Enter your language preference : either en, fr, es or pl.
1529 Note that the en is always choosen when the system does not finds the
1530 language you choose in a specific screen.
1532 fr : OPAC is translated (except pictures)
1533 es : a few intranet is translated (including pictures)
1534 pl : OPAC is translated (UNTESTED in this release)
1536 Whether you specify a language here, you can always go to the
1537 intranet interface and change it from the system preferences.
1539 Which language do you choose? |;
1541 sub updatedatabase {
1542 # At this point, $etcdir/koha.conf must exist, for C4::Context
1543 my $result=system ("perl -I $intranetdir/modules scripts/updater/updatedatabase");
1545 print "Problem updating database...\n";
1549 my $response=showmessage(getmessage('UpdateMarcTables'), 'restrictchar 12N', '1');
1551 if ($response eq '1') {
1552 system("cat scripts/misc/marc_datas/marc21_en/structure_def.sql | $mysqldir/bin/mysql -u$mysqluser $mysqlpass_quoted $dbname");
1554 if ($response eq '2') {
1555 system("cat scripts/misc/marc_datas/unimarc_fr/structure_def.sql | $mysqldir/bin/mysql -u$mysqluser $mysqlpass_quoted $dbname");
1556 system("cat scripts/misc/lang-datas/fr/stopwords.sql | $mysqldir/bin/mysql -u$mysqluser $mysqlpass_quoted $dbname");
1559 $result = system ("perl -I $intranetdir/modules scripts/marc/updatedb2marc.pl");
1561 print "Problem updating database to MARC...\n";
1565 print "\n\nFinished updating of database. Press <ENTER> to continue...";
1570 =item populatedatabase
1574 Populate the non-MARC tables. If the user wants to install the
1575 sample data, install them.
1579 sub populatedatabase {
1580 my $response=showmessage(getmessage('SampleData'), 'yn', 'n');
1581 if ($response =~/^y/i) {
1582 system("gunzip -d < sampledata-1.2.gz | $mysqldir/bin/mysql -u$mysqluser $mysqlpass_quoted $dbname");
1583 system("$mysqldir/bin/mysql -u$mysqluser $mysqlpass_quoted $dbname -e \"insert into branches (branchcode,branchname,issuing) values ('MAIN', 'Main Library', 1)\"");
1584 system("$mysqldir/bin/mysql -u$mysqluser $mysqlpass_quoted $dbname -e \"insert into branchrelations (branchcode,categorycode) values ('MAIN', 'IS')\"");
1585 system("$mysqldir/bin/mysql -u$mysqluser $mysqlpass_quoted $dbname -e \"insert into branchrelations (branchcode,categorycode) values ('MAIN', 'CU')\"");
1586 system("$mysqldir/bin/mysql -u$mysqluser $mysqlpass_quoted $dbname -e \"insert into printers (printername,printqueue,printtype) values ('Circulation Desk Printer', 'lp', 'hp')\"");
1587 showmessage(getmessage('SampleDataInstalled'), 'PressEnter','',1);
1590 my $response=showmessage(getmessage('AddBranchPrinter'), 'yn', 'y');
1592 unless ($response =~/^n/i) {
1593 my $branch='Main Library';
1594 $branch=showmessage(getmessage('BranchName', [$branch]), 'free', $branch, 1);
1595 $branch=~s/[^A-Za-z0-9\s]//g;
1597 my $branchcode=$branch;
1598 $branchcode=~s/[^A-Za-z0-9]//g;
1599 $branchcode=uc($branchcode);
1600 $branchcode=substr($branchcode,0,4);
1601 $branchcode=showmessage(getmessage('BranchCode', [$branchcode]), 'free', $branchcode, 1);
1602 $branchcode=~s/[^A-Za-z0-9]//g;
1603 $branchcode=uc($branchcode);
1604 $branchcode=substr($branchcode,0,4);
1605 $branchcode or $branchcode='DEF';
1607 system("$mysqldir/bin/mysql -u$mysqluser $mysqlpass_quoted $dbname -e \"insert into branches (branchcode,branchname,issuing) values ('$branchcode', '$branch', 1)\"");
1608 system("$mysqldir/bin/mysql -u$mysqluser $mysqlpass_quoted $dbname -e \"insert into branchrelations (branchcode,categorycode) values ('MAIN', 'IS')\"");
1609 system("$mysqldir/bin/mysql -u$mysqluser $mysqlpass_quoted $dbname -e \"insert into branchrelations (branchcode,categorycode) values ('MAIN', 'CU')\"");
1611 my $printername='Library Printer';
1612 $printername=showmessage(getmessage('PrinterName', [$printername]), 'free', $printername, 1);
1613 $printername=~s/[^A-Za-z0-9\s]//g;
1615 my $printerqueue='lp';
1616 $printerqueue=showmessage(getmessage('PrinterQueue', [$printerqueue]), 'free', $printerqueue, 1);
1617 $printerqueue=~s/[^A-Za-z0-9]//g;
1618 system("$mysqldir/bin/mysql -u$mysqluser $mysqlpass_quoted $dbname -e \"insert into printers (printername,printqueue,printtype) values ('$printername', '$printerqueue', '')\"");
1620 my $language=showmessage(getmessage('Language'), 'free', 'en');
1621 system("$mysqldir/bin/mysql -u$mysqluser $mysqlpass_quoted $dbname -e \"update systempreferences set value='$language' where variable='opaclanguages'\"");
1630 Asks the user whether to restart Apache, and restart it if the user
1633 FIXME: If the installer does not know how to restart the Apache
1634 server (e.g., if the user is not actually using Apache), it still
1639 $messages->{'RestartApache'}->{en} = heading('RESTART APACHE') . qq|
1640 Apache needs to be restarted to load the new configuration for Koha.
1642 Would you like to restart Apache now? [Y]/N: |;
1646 my $response=showmessage(getmessage('RestartApache'), 'yn', 'y');
1650 unless ($response=~/^n/i) {
1651 # Need to support other init structures here?
1652 if (-e "/etc/rc.d/init.d/httpd") {
1653 system('/etc/rc.d/init.d/httpd restart');
1654 } elsif (-e "/etc/init.d/apache") {
1655 system('/etc//init.d/apache restart');
1656 } elsif (-e "/etc/init.d/apache-ssl") {
1657 system('/etc/init.d/apache-ssl restart');
1664 =item finalizeconfigfile
1668 This function must be called when the installation is complete,
1669 to rename the koha.conf.tmp file to koha.conf.
1671 Currently, failure to rename the file results only in a warning.
1675 sub finalizeconfigfile {
1676 rename "$etcdir/koha.conf.tmp", "$etcdir/koha.conf"
1677 || showmessage(<<EOF, 'PressEnter', undef, 1);
1678 An unexpected error, $!, occurred
1679 while the Koha config file is being saved to its final location,
1682 Couldn't rename file at $etcdir. Must have write capability.
1684 Press Enter to continue.
1690 =item loadconfigfile
1694 Open the existing koha.conf file and get its values,
1695 saving the values to some global variables.
1697 If the existing koha.conf file cannot be opened for any reason,
1698 the file is silently ignored.
1702 sub loadconfigfile {
1705 open (KC, "<$etcdir/koha.conf");
1708 (next) if (/^\s*#/);
1709 if (/(.*)\s*=\s*(.*)/) {
1712 # Clean up white space at beginning and end
1713 $variable=~s/^\s*//g;
1714 $variable=~s/\s*$//g;
1717 $configfile{$variable}=$value;
1721 $intranetdir=$configfile{'intranetdir'};
1722 $opacdir=$configfile{'opacdir'};
1723 $kohaversion=$configfile{'kohaversion'};
1724 $kohalogdir=$configfile{'kohalogdir'};
1725 $database=$configfile{'database'};
1726 $hostname=$configfile{'hostname'};
1727 $user=$configfile{'user'};
1728 $pass=$configfile{'pass'};
1731 END { } # module clean-up code here (global destructor)