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.
140 To install this module, you will need the yaz client installed from
141 http://www.indexdata.dk/yaz/ and then you can install the perl module with the
144 perl -MCPAN -e 'install Net::Z3950'
146 Press the <ENTER> key to continue: |; #'
148 $messages->{'CheckingPerlModules'}->{en} = heading('PERL & MODULES') . qq|
149 Checking perl modules ...
152 $messages->{'PerlVersionFailure'}->{en}="Sorry, you need at least Perl %s\n";
154 $messages->{'MissingPerlModules'}->{en} = heading('MISSING PERL MODULES') . qq|
155 You are missing some Perl modules which are required by Koha.
156 Once these modules have been installed, rerun this installer.
157 They can be installed by running (as root) the following:
162 $messages->{'AllPerlModulesInstalled'}->{en} =
163 heading('ALL PERL MODULES INSTALLED') . qq|
164 All mandatory perl modules are installed.
166 Press <ENTER> to continue: |;
167 $messages->{'KohaVersionInstalled'}->{en}="You currently have Koha %s on your system.";
168 $messages->{'KohaUnknownVersionInstalled'}->{en}="I am not able to determine what version of Koha is installed now.";
169 $messages->{'KohaAlreadyInstalled'}->{en} =
170 heading('Koha already installed') . qq|
171 It looks like Koha is already installed on your system (%s/koha.conf exists
172 already). If you would like to upgrade your system to %s, please use
173 the koha.upgrade script in this directory.
178 $messages->{'GetOpacDir'}->{en} = heading('OPAC DIRECTORY') . qq|
179 Please supply the directory you want Koha to store its OPAC files in. This
180 directory will be auto-created for you if it doesn't exist.
182 OPAC Directory [%s]: |; #'
184 $messages->{'GetIntranetDir'}->{en} =
185 heading('INTRANET/LIBRARIANS DIRECTORY') . qq|
186 Please supply the directory you want Koha to store its Intranet/Librarians
187 files in. This directory will be auto-created for you if it doesn't exist.
189 Intranet Directory [%s]: |; #'
191 $messages->{'GetKohaLogDir'}->{en} = heading('KOHA LOG DIRECTORY') . qq|
192 Specify a log directory where any Koha daemons can create log files.
194 Koha Log Directory [%s]: |;
196 $messages->{'AuthenticationWarning'}->{en} = heading('Authentication') . qq|
197 This release of Koha has a new authentication module. If you are not already
198 using basic authentication on your intranet, you will be required to log in to
199 access some of the features of the intranet. You can log in using the userid
200 and password from the %s/koha.conf configuration file at any time. Use the
201 "Members" module to add passwords for other accounts and set their permissions.
203 Press the <ENTER> key to continue: |;
205 $messages->{'Completed'}->{en} = heading('KOHA INSTALLATION COMPLETE') . qq|
206 Congratulations ... your Koha installation is complete!
208 You will be able to connect to your Librarian interface at:
212 and the OPAC interface at :
216 Be sure to read the Hints file.
218 For more information visit http://www.koha.org
220 Press <ENTER> to exit the installer: |;
222 sub releasecandidatewarning {
223 my $message=getmessage('ReleaseCandidateWarning', [$newversion, $newversion]);
224 my $answer=showmessage($message, 'yn', 'n');
226 if ($answer =~ /y/i) {
227 print getmessage('continuing');
229 my $message=getmessage('WatchForReleaseAnnouncements');
238 =head2 Accessor functions (for installer.pl)
248 Sets the installation language, normally "en" (English).
249 In fact, only "en" is supported.
253 sub setlanguage ($) {
259 setdomainname('example.org');
261 Sets the domain name of the host.
263 The domain name should not contain a leading dot;
264 otherwise, the results are undefined.
268 sub setdomainname ($) {
276 Sets the sysconfdir, normally /etc.
277 This should be an absolute path; a trailing / is not required.
287 setkohaversion('1.3.3RC26');
289 Sets the Koha version as known by the installer.
293 sub setkohaversion ($) {
299 my $servername = getservername;
301 Gets the name of the Koha virtual server as specified by the user.
305 sub getservername () {
313 Gets the port that will run the Koha OPAC virtual server,
314 as specified by the user.
322 =item getintranetport
324 $port = getintranetport;
326 Gets the port that will run the Koha INTRANET virtual server,
327 as specified by the user.
331 sub getintranetport () {
337 =head2 Miscellaneous utility functions
347 Does the equivalent of dirname(1). Given a path $path, return the
348 parent directory of $path (best guess), except when $path seems to
349 be the same as /, in which case $path itself is returned unchanged.
355 if ($path =~ /[^\/]/s) {
357 $path =~ s/\/+[^\/]+\/*$//s;
368 mkdir_parents $path, $mode;
370 Does the equivalent of mkdir -p, or mkdir --parents. Given a path $path,
371 create the directory $path, recursively creating any intermediate
372 directories. If $mode is given, the directory will be created with
375 WARNING: If $path already exists, mkdir_parents will just return
376 successfully (just like mkdir -p), whether the mode of $path conforms
377 to $mode or not. (This is the behaviour of the mkdir -p command.)
381 sub mkdir_parents ($;$) {
382 my($path, $mode) = @_;
383 my $ok = -d($path)? 1: defined $mode? mkdir($path, $mode): mkdir($path);
385 if (!$ok && $! == ENOENT) {
386 my $parent = dirname($path);
387 $ok = mkdir_parents($parent, $mode);
389 # retry and at the same time make sure that $! is set correctly
390 $ok = defined $mode? mkdir($path, $mode): mkdir($path);
399 getmessage($msgid, $variables);
401 Gets a localized message (format string) with message id $msgid,
402 and, if an array reference of variables $variables is given,
403 substitutes variables in the format string with @$variables.
404 Returns the found message string, with variable substitutions
407 $msgid must be the message identifier corresponding to a defined
408 message string (a valid key to the $messages hash in the Installer
409 package). getmessage throws an exception if the message cannot be
415 my $messagename=shift;
417 my $message=$messages->{$messagename}->{$language} || $messages->{$messagename}->{en} || "Error: No message named $messagename in Install.pm\n";
418 if (defined($variables)) {
419 $message=sprintf $message, @$variables;
427 showmessage($message, 'none');
428 showmessage($message, 'none', undef, $noclear);
430 $result = showmessage($message, 'yn');
431 $result = showmessage($message, 'yn', $defaultresponse);
432 $result = showmessage($message, 'yn', $defaultresponse, $noclear);
434 $result = showmessage($message, 'restrictchar CHARS');
435 $result = showmessage($message, 'free');
436 $result = showmessage($message, 'numerical');
437 $result = showmessage($message, 'email');
438 $result = showmessage($message, 'PressEnter');
440 Shows a message and optionally gets a response from the user.
442 The first two arguments, the message and the response type,
443 are mandatory. The message must be the actual string to
444 display; the caller is responsible for calling getmessage if
447 The response type must be one of "none", "yn", "free",
448 "numerical", "email", "PressEnter", or a string consisting
449 of "restrictchar " followed by a list of allowed characters
450 (space can be specified). (Case is not significant, but case is
451 significant in the list of allowed characters.) If a response
452 type other than the above-listed is specified, the result is
455 Note that the response type "yn" is equivalent to "restrictchar yn".
456 Because "restrictchar" is case-sensitive, the user is expected
457 to enter "y" or "n" in lowercase only.
459 Note that the response type of "email" does not actually
460 guarantee that the returned value is a well-formed RFC-822
461 email address, nor does it accept all well-formed RFC-822 email
462 addresses. What it does is to restrict the returned value to a
463 string that is looks reasonably likely to be an email address
464 in the "real world", given the premise that the user is trying
465 to enter a real email address.
467 If a response type other than "none" or "PressEnter" is
468 specified, a third argument, specifying the default value, can
469 be specified: If this default response is not specified, the
470 default response is the first allowed character if the response
471 type is "restrictchar", otherwise the default response is the
472 empty string. This default response is used when the user does
473 not specify a value (i.e., presses Enter without typing in
474 anything), showmessage will assume that the default response is
477 Note that because the response type "yn" is equivalent to
478 "restrictchar yn", the default value for response type "yn",
479 if unspecified, is "y".
481 The screen is normally cleared before the message is displayed;
482 if a fourth argument is specified and is nonzero, this
483 screen-clearing is not done.
490 my $responsetype=shift;
491 my $defaultresponse=shift;
493 $noclear = 0 unless defined $noclear; # defaults to "clear"
494 ($noclear) || (system('clear'));
495 if ($responsetype =~ /^yn$/) {
496 $responsetype='restrictchar yn';
499 if ($responsetype =~/^restrictchar (.*)/i) {
502 until ($options=~/$response/) {
503 ($defaultresponse) || ($defaultresponse=substr($options,0,1));
506 (length($response)) || ($response=$defaultresponse);
507 unless ($options=~/$response/) {
508 ($noclear) || (system('clear'));
509 print "Invalid Response. Choose from [$options].\n\n";
514 } elsif ($responsetype =~/^free$/i) {
515 (defined($defaultresponse)) || ($defaultresponse='');
516 my $response=<STDIN>;
518 ($response) || ($response=$defaultresponse);
520 } elsif ($responsetype =~/^numerical$/i) {
521 (defined($defaultresponse)) || ($defaultresponse='');
523 until ($response=~/^\d+$/) {
526 ($response) || ($response=$defaultresponse);
527 unless ($response=~/^\d+$/) {
528 ($noclear) || (system('clear'));
529 print "Invalid Response ($response). Response must be a number.\n\n";
534 } elsif ($responsetype =~/^email$/i) {
535 (defined($defaultresponse)) || ($defaultresponse='');
537 until ($response=~/.*\@.*\..*/) {
540 ($response) || ($response=$defaultresponse);
541 unless ($response=~/.*\@.*\..*/) {
542 ($noclear) || (system('clear'));
543 print "Invalid Response ($response). Response must be a valid email address.\n\n";
548 } elsif ($responsetype =~/^PressEnter$/i) {
551 } elsif ($responsetype =~/^none$/i) {
554 # FIXME: There are a few places where we will get an undef as the
555 # response type. Should we thrown an exception here, or should we
556 # legitimize this usage and say "none" is the default if not specified?
557 #die "Illegal response type \"$responsetype\"";
564 =head2 Subtasks of doing an installation
570 =item checkabortedinstall
574 Checks whether a previous installation process has been abnormally
575 aborted, by checking whether $etcidr/koha.conf is a symlink matching
576 a particular pattern. If an aborted installation is detected, give
577 the user a chance to abort, before trying to recover the aborted
580 FIXME: The recovery is not complete; it only partially rolls back
585 sub checkabortedinstall () {
586 if (-l("$etcdir/koha.conf")
587 && readlink("$etcdir/koha.conf") =~ /\.tmp$/
590 I have detected that you tried to install Koha before, but the installation
591 was aborted. I will try to continue, but there might be problems if the
592 database is already created.
595 print "Please press <ENTER> to continue: ";
598 # Remove the symlink after the <STDIN>, so the user can back out
599 unlink "$etcdir/koha.conf"
600 || die "Failed to remove incomplete $etcdir/koha.conf: $!\n";
605 =item checkperlmodules
609 Test whether the version of Perl is new enough, whether Perl is
610 found at the expected location, and whether all required modules
615 sub checkperlmodules {
617 # Test for Perl and Modules
620 my $message = getmessage('CheckingPerlModules');
621 showmessage($message, 'none');
623 # FIXME: Perl 5.6 is BUGGY!!! IT SHOULD NOT BE USED in production!!!
624 unless (eval "require 5.006_000") {
625 die getmessage('PerlVersionFailure', ['5.6.0']);
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 my $message = getmessage('NETZ3950Missing');
638 showmessage($message, 'PressEnter', '', 1);
640 push @missing, "Net::Z3950";
645 # Print out a list of any missing modules
650 foreach my $module (@missing) {
651 $missing.=" perl -MCPAN -e 'install \"$module\"'\n";
653 my $message=getmessage('MissingPerlModules', [$missing]);
654 showmessage($message, 'none');
657 showmessage(getmessage('AllPerlModulesInstalled'), 'PressEnter', '', 1);
661 unless (-x "/usr/bin/perl") {
662 my $realperl=`which perl`;
664 $realperl = showmessage(getmessage('NoUsrBinPerl'), 'none');
665 until (-x $realperl) {
666 $realperl=showmessage(getmessage('AskLocationOfPerlExecutable', $realperl), 'free', $realperl, 1);
668 my $response=showmessage(getmessage('ConfirmPerlExecutableSymlink', $realperl), 'yn', 'y', 1);
669 unless ($response eq 'n') {
670 system("ln -s $realperl /usr/bin/perl");
677 $messages->{'NoUsrBinPerl'}->{en} =
678 heading('Perl is not located in /usr/bin/perl') . qq|
679 The Koha perl scripts expect to find the perl executable in the /usr/bin
680 directory. It is not there on your system.
684 $messages->{'AskLocationOfPerlExecutable'}->{en}=qq|Location of Perl Executable: [%s]: |;
685 $messages->{'ConfirmPerlExecutableSymlink'}->{en}=qq|
686 The Koha scripts will _not_ work without a symlink from %s to /usr/bin/perl
688 May I create this symlink? ([Y]/N):
692 =item getinstallationdirectories
694 getinstallationdirectories;
696 Get the various installation directories from the user, and then
697 create those directories (if they do not already exist).
699 These pieces of information are saved to global variables; the
700 function does not return any values.
704 sub getinstallationdirectories {
705 $opacdir = '/usr/local/koha/opac';
706 $intranetdir = '/usr/local/koha/intranet';
708 while ($getdirinfo) {
709 # Loop until opac directory and koha directory are different
710 my $message=getmessage('GetOpacDir', [$opacdir]);
711 $opacdir=showmessage($message, 'free', $opacdir);
713 $message=getmessage('GetIntranetDir', [$intranetdir]);
714 $intranetdir=showmessage($message, 'free', $intranetdir);
716 if ($intranetdir eq $opacdir) {
719 You must specify different directories for the OPAC and INTRANET files!
720 :: $intranetdir :: $opacdir ::
727 $kohalogdir='/var/log/koha';
728 my $message=getmessage('GetKohaLogDir', [$kohalogdir]);
729 $kohalogdir=showmessage($message, 'free', $kohalogdir);
732 # FIXME: Missing error handling for all mkdir calls here
733 unless ( -d $intranetdir ) {
734 mkdir_parents (dirname($intranetdir), 0775);
735 mkdir ($intranetdir, 0770);
736 chown (oct(0), (getgrnam($httpduser))[2], "$intranetdir");
737 chmod (oct(770), "$intranetdir");
739 mkdir_parents ("$intranetdir/htdocs", 0750);
740 mkdir_parents ("$intranetdir/cgi-bin", 0750);
741 mkdir_parents ("$intranetdir/modules", 0750);
742 mkdir_parents ("$intranetdir/scripts", 0750);
743 unless ( -d $opacdir ) {
744 mkdir_parents (dirname($opacdir), 0775);
745 mkdir ($opacdir, 0770);
746 chown (oct(0), (getgrnam($httpduser))[2], "$opacdir");
747 chmod (oct(770), "$opacdir");
749 mkdir_parents ("$opacdir/htdocs", 0750);
750 mkdir_parents ("$opacdir/cgi-bin", 0750);
753 unless ( -d $kohalogdir ) {
754 mkdir_parents (dirname($kohalogdir), 0775);
755 mkdir ($kohalogdir, 0770);
756 chown (oct(0), (getgrnam($httpduser))[2,3], "$kohalogdir");
757 chmod (oct(770), "$kohalogdir");
763 =item getdatabaseinfo
767 Get various pieces of information related to the Koha database:
768 the name of the database, the host on which the SQL server is
769 running, and the database user name.
771 These pieces of information are saved to global variables; the
772 function does not return any values.
776 $messages->{'DatabaseName'}->{en} = heading('Name of MySQL database') . qq|
777 Please provide the name of the mysql database for your koha installation.
779 Database name [%s]: |;
781 $messages->{'DatabaseHost'}->{en} = heading('Database Host') . qq|
782 Please provide the hostname for mysql. Unless the database is located on
783 another machine this will be "localhost".
785 Database host [%s]: |;
787 $messages->{'DatabaseUser'}->{en} = heading('Database User') . qq|
788 Please provide the name of the user, who will have full administrative rights
789 to the %s database, when authenticating from %s.
791 This user will also be used to access Koha's INTRANET interface.
793 Database user [%s]: |;
795 $messages->{'DatabasePassword'}->{en} = heading('Database Password') . qq|
796 Please provide a good password for the user %s.
798 This password will also be used to access Koha's INTRANET interface.
800 Password for database user %s: |;
802 $messages->{'BlankPassword'}->{en} = heading('BLANK PASSWORD') . qq|
803 You must not use a blank password for your MySQL user!
805 Press <ENTER> to try again:
808 sub getdatabaseinfo {
811 $hostname = 'localhost';
815 #Get the database name
817 my $message=getmessage('DatabaseName', [$dbname]);
818 $dbname=showmessage($message, 'free', $dbname);
820 #Get the hostname for the database
822 $message=getmessage('DatabaseHost', [$hostname]);
823 $hostname=showmessage($message, 'free', $hostname);
825 #Get the username for the database
827 $message=getmessage('DatabaseUser', [$dbname, $hostname, $user]);
828 $user=showmessage($message, 'free', $user);
830 #Get the password for the database user
832 while ($pass eq '') {
833 my $message=getmessage('DatabasePassword', [$user, $user]);
834 $pass=showmessage($message, 'free', $pass);
836 my $message=getmessage('BlankPassword');
837 showmessage($message,'PressEnter');
848 Get various pieces of information related to the Apache server:
849 the location of the configuration file and, if needed, the Unix
850 user that the Koha CGI will be run under.
852 These pieces of information are saved to global variables; the
853 function does not return any values.
857 $messages->{'FoundMultipleApacheConfFiles'}->{en} =
858 heading('MULTIPLE APACHE CONFIG FILES') . qq|
859 I found more than one possible Apache configuration file:
863 Choose the correct file [1]: |;
865 $messages->{'NoApacheConfFiles'}->{en} =
866 heading('NO APACHE CONFIG FILE FOUND') . qq|
867 I was not able to find your Apache configuration file.
869 The file is usually called httpd.conf or apache.conf.
871 Please specify the location of your config file: |;
873 $messages->{'NotAFile'}->{en} = heading('FILE DOES NOT EXIST') . qq|
874 The file %s does not exist.
876 Please press <ENTER> to continue: |;
878 $messages->{'EnterApacheUser'}->{en} = heading('NEED APACHE USER') . qq|
879 I was not able to determine the user that Apache is running as. This
880 information is necessary in order to set the access privileges correctly on
881 %s/koha.conf. This user should be set in one of the Apache configuration
882 files using the "User" directive.
884 Enter the Apache userid: |;
886 $messages->{'InvalidUserid'}->{en} = heading('INVALID USERID') . qq|
887 The userid %s is not a valid userid on this system.
889 Press <ENTER> to continue: |;
892 my @confpossibilities;
894 foreach my $httpdconf (qw(/usr/local/apache/conf/httpd.conf
895 /usr/local/etc/apache/httpd.conf
896 /usr/local/etc/apache/apache.conf
897 /var/www/conf/httpd.conf
898 /etc/apache/conf/httpd.conf
899 /etc/apache/conf/apache.conf
900 /etc/apache-ssl/conf/apache.conf
901 /etc/apache-ssl/httpd.conf
902 /etc/httpd/conf/httpd.conf
903 /etc/httpd/httpd.conf)) {
904 if ( -f $httpdconf ) {
905 push @confpossibilities, $httpdconf;
909 if ($#confpossibilities==-1) {
910 my $message=getmessage('NoApacheConfFiles');
912 until (-f $realhttpdconf) {
913 $choice=showmessage($message, "free", 1);
915 $realhttpdconf=$choice;
917 showmessage(getmessage('NotAFile', [$choice]),'PressEnter', '', 1);
920 } elsif ($#confpossibilities>0) {
924 foreach (@confpossibilities) {
925 $conffiles.=" $counter: $_\n";
926 $options.="$counter";
929 my $message=getmessage('FoundMultipleApacheConfFiles', [$conffiles]);
930 my $choice=showmessage($message, "restrictchar $options", 1);
931 $realhttpdconf=$confpossibilities[$choice-1];
933 $realhttpdconf=$confpossibilities[0];
935 unless (open (HTTPDCONF, "<$realhttpdconf")) {
936 warn "Insufficient privileges to open $realhttpdconf for reading.\n";
940 while (<HTTPDCONF>) {
941 if (/^\s*User\s+"?([-\w]+)"?\s*$/) {
950 unless ($httpduser) {
951 my $message=getmessage('EnterApacheUser', [$etcdir]);
952 until (length($httpduser) && getpwnam($httpduser)) {
953 $httpduser=showmessage($message, "free", '');
954 if (length($httpduser)>0) {
955 unless (getpwnam($httpduser)) {
956 my $message=getmessage('InvalidUserid', [$httpduser]);
957 showmessage($message,'PressEnter');
962 print "AU: $httpduser\n";
967 =item getapachevhostinfo
971 Gets various pieces of information related to virtual hosting:
972 the webmaster email address, virtual hostname, and the ports
973 that the OPAC and INTRANET modules run on.
975 These pieces of information are saved to global variables; the
976 function does not return any values.
980 $messages->{'ApacheConfigIntroduction'}->{en} =
981 heading('APACHE CONFIGURATION') . qq|
982 Koha needs to setup your Apache configuration file for the
983 OPAC and LIBRARIAN virtual hosts. By default this installer
984 will do this by using one ip address and two different ports
985 for the virtual hosts. There are other ways to set this up,
986 and the installer will leave comments in httpd.conf detailing
987 what these other options are.
990 Press <ENTER> to continue: |;
992 $messages->{'GetVirtualHostEmail'}->{en} =
993 heading('WEB SERVER E-MAIL CONTACT') . qq|
994 Enter the e-mail address to be used as a contact for the virtual hosts (this
995 address is displayed if any errors are encountered).
997 E-mail contact [%s]: |;
999 $messages->{'GetServerName'}->{en} =
1000 heading('WEB SERVER HOST NAME OR IP ADDRESS') . qq|
1001 Please enter the domain name or ip address of your computer.
1003 Host name or IP Address [%s]: |;
1005 $messages->{'GetOpacPort'}->{en} = heading('OPAC VIRTUAL HOST PORT') . qq|
1006 Please enter the port for your OPAC interface. This defaults to port 80, but
1007 if you are already serving web content from this server, you should change it
1008 to a different port (8000 might be a good choice).
1010 Enter the OPAC Port [%s]: |;
1012 $messages->{'GetIntranetPort'}->{en} =
1013 heading('INTRANET VIRTUAL HOST PORT') . qq|
1014 Please enter the port for your Intranet interface. This must be different from
1017 Enter the Intranet Port [%s]: |;
1020 sub getapachevhostinfo {
1022 $svr_admin = "webmaster\@$domainname";
1023 $servername=`hostname`;
1028 showmessage(getmessage('ApacheConfigIntroduction'), 'PressEnter');
1030 $svr_admin=showmessage(getmessage('GetVirtualHostEmail', [$svr_admin]), 'email', $svr_admin);
1031 $servername=showmessage(getmessage('GetServerName', [$servername]), 'free', $servername);
1034 $opacport=showmessage(getmessage('GetOpacPort', [$opacport]), 'numerical', $opacport);
1035 $intranetport=showmessage(getmessage('GetIntranetPort', [$opacport, $intranetport]), 'numerical', $intranetport);
1040 =item updateapacheconf
1044 Updates the Apache config file according to parameters previously
1045 specified by the user.
1047 It will append fully-commented directives at the end of the original
1048 Apache config file. The old config file is renamed with an extension
1051 If you need to uninstall Koha for any reason, the lines between
1053 # Ports to listen to for Koha
1055 and the block of comments beginning with
1057 # If you want to use name based Virtual Hosting:
1063 $messages->{'StartUpdateApache'}->{en} =
1064 heading('UPDATING APACHE CONFIGURATION') . qq|
1065 Checking for modules that need to be loaded...
1068 $messages->{'LoadingApacheModuleModEnv'}->{en}="Loading SetEnv Apache module.\n";
1070 $messages->{'LoadingApacheModuleModInc'}->{en}="Loading Includes Apache module.\n";
1072 $messages->{'ApacheConfigBackupFailed'}->{en} =
1073 heading('APACHE CONFIGURATION BACKUP FAILED') . qq|
1074 An error occurred while trying to make a backup copy of %s.
1078 No changes will be made to the apache configuration file at this time.
1080 Press <ENTER> to continue: |;
1083 $messages->{'ApacheAlreadyConfigured'}->{en} =
1084 heading('APACHE ALREADY CONFIGURED') . qq|
1085 %s appears to already have an entry for Koha
1086 Virtual Hosts. You may need to edit %s
1087 f anything has changed since it was last set up. This
1088 script will not attempt to modify an existing Koha apache
1091 Press <ENTER> to continue: |;
1093 sub updateapacheconf {
1094 my $logfiledir=`grep ^ErrorLog "$realhttpdconf"`;
1098 $logfiledir=~m#ErrorLog (.*)/[^/]*$#
1099 or die "Can't parse ErrorLog directive\n";
1103 unless ($logfiledir) {
1107 showmessage(getmessage('StartUpdateApache'), 'none');
1111 my $includesmodule=0;
1112 open HC, "<$realhttpdconf";
1114 if (/^\s*#\s*LoadModule env_module /) {
1116 showmessage(getmessage('LoadingApacheModuleModEnv'));
1119 if (/^\s*#\s*LoadModule includes_module /) {
1121 showmessage(getmessage('LoadingApacheModuleModInc'));
1123 if (/\s*LoadModule includes_module / ) {
1130 $backupfailed=`cp -f $realhttpdconf $realhttpdconf\.prekoha`;
1131 if ($backupfailed) {
1132 showmessage(getmessage('ApacheConfigBackupFailed', [$realhttpdconf,$backupfailed ]), 'PressEnter');
1136 if ($envmodule || $includesmodule) {
1137 open HC, ">$realhttpdconf";
1138 print HC $httpdconf;
1144 if (`grep 'VirtualHost $servername' "$realhttpdconf"`) {
1145 showmessage(getmessage('ApacheAlreadyConfigured', [$realhttpdconf, $realhttpdconf]), 'PressEnter');
1148 my $includesdirectives='';
1149 if ($includesmodule) {
1150 $includesdirectives.="Options +Includes\n";
1151 $includesdirectives.=" AddHandler server-parsed .html\n";
1153 open(SITE,">>$realhttpdconf") or warn "Insufficient priveleges to open $realhttpdconf for writing.\n";
1154 my $opaclisten = '';
1155 if ($opacport != 80) {
1156 $opaclisten="Listen $opacport";
1158 my $intranetlisten = '';
1159 if ($intranetport != 80) {
1160 $intranetlisten="Listen $intranetport";
1164 # Ports to listen to for Koha
1168 # NameVirtualHost is used by one of the optional configurations detailed below
1170 #NameVirtualHost 11.22.33.44
1172 # KOHA's OPAC Configuration
1173 <VirtualHost $servername\:$opacport>
1174 ServerAdmin $svr_admin
1175 DocumentRoot $opacdir/htdocs
1176 ServerName $servername
1177 ScriptAlias /cgi-bin/koha/ $opacdir/cgi-bin/
1178 ErrorLog $logfiledir/opac-error_log
1179 TransferLog $logfiledir/opac-access_log
1180 SetEnv PERL5LIB "$intranetdir/modules"
1184 # KOHA's INTRANET Configuration
1185 <VirtualHost $servername\:$intranetport>
1186 ServerAdmin $svr_admin
1187 DocumentRoot $intranetdir/htdocs
1188 ServerName $servername
1189 ScriptAlias /cgi-bin/koha/ "$intranetdir/cgi-bin/"
1190 ErrorLog $logfiledir/koha-error_log
1191 TransferLog $logfiledir/koha-access_log
1192 SetEnv PERL5LIB "$intranetdir/modules"
1196 # If you want to use name based Virtual Hosting:
1197 # 1. remove the two Listen lines
1198 # 2. replace $servername\:$opacport wih your.opac.domain.name
1199 # 3. replace ServerName $servername wih ServerName your.opac.domain.name
1200 # 4. replace $servername\:$intranetport wih your intranet domain name
1201 # 5. replace ServerName $servername wih ServerName your.intranet.domain.name
1203 # If you want to use NameVirtualHost'ing (using two names on one ip address):
1204 # 1. Follow steps 1-5 above
1205 # 2. Uncomment the NameVirtualHost line and set the correct ip address
1214 =item basicauthentication
1216 basicauthentication;
1218 Asks the user whether HTTP basic authentication is wanted, and,
1219 if so, the user name and password for the basic authentication.
1221 These pieces of information are saved to global variables; the
1222 function does not return any values.
1226 $messages->{'IntranetAuthenticationQuestion'}->{en} =
1227 heading('INTRANET AUTHENTICATION') . qq|
1228 I can set it up so that the Intranet/Librarian site is password protected using
1229 Apache's Basic Authorization.
1231 This is going to be phased out very soon. However, setting this up can provide
1232 an extra layer of security before the new authentication system is completely
1235 Would you like to do this ([Y]/N): |; #'
1237 $messages->{'BasicAuthUsername'}->{en}="Please enter a userid for intranet access [%s]: ";
1238 $messages->{'BasicAuthPassword'}->{en}="Please enter a password for %s: ";
1239 $messages->{'BasicAuthPasswordWasBlank'}->{en}="\nYou cannot use a blank password!\n\n";
1241 sub basicauthentication {
1242 my $message=getmessage('IntranetAuthenticationQuestion');
1243 my $answer=showmessage($message, 'yn', 'y');
1245 my $apacheauthusername='librarian';
1246 my $apacheauthpassword='';
1247 if ($answer=~/^y/i) {
1248 ($apacheauthusername) = showmessage(getmessage('BasicAuthUsername', [ $apacheauthusername]), 'free', $apacheauthusername, 1);
1249 $apacheauthusername=~s/[^a-zA-Z0-9]//g;
1250 while (! $apacheauthpassword) {
1251 ($apacheauthpassword) = showmessage(getmessage('BasicAuthPassword', [ $apacheauthusername]), 'free', 1);
1252 if (!$apacheauthpassword) {
1253 ($apacheauthpassword) = showmessage(getmessage('BasicAuthPasswordWasBlank'), 'none', '', 1);
1256 open AUTH, ">$etcdir/kohaintranet.pass";
1257 my $chars='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789';
1258 my $salt=substr($chars, int(rand(length($chars))),1);
1259 $salt.=substr($chars, int(rand(length($chars))),1);
1260 print AUTH $apacheauthusername.":".crypt($apacheauthpassword, $salt)."\n";
1262 open(SITE,">>$realhttpdconf") or warn "Insufficient priveleges to open $realhttpdconf for writing.\n";
1265 <Directory $intranetdir>
1266 AuthUserFile $etcdir/kohaintranet.pass
1268 AuthName "Koha Intranet (for librarians only)"
1281 Install the Koha files to the specified OPAC and INTRANET
1282 directories (usually in /usr/local/koha).
1284 The koha.conf file is created, but as koha.conf.tmp. The
1285 caller is responsible for calling finalizeconfigfile when
1286 installation is completed, to rename it back to koha.conf.
1290 $messages->{'InstallFiles'}->{en} = heading('INSTALLING FILES') . qq|
1291 Copying files to installation directories:
1296 $messages->{'CopyingFiles'}->{en}="Copying %s to %s.\n";
1303 showmessage(getmessage('InstallFiles'),'none');
1304 print getmessage('CopyingFiles', ['intranet-html', "$intranetdir/htdocs" ]);
1305 system("cp -R intranet-html/* $intranetdir/htdocs/");
1306 print getmessage('CopyingFiles', ['intranet-cgi', "$intranetdir/cgi-bin" ]);
1307 system("cp -R intranet-cgi/* $intranetdir/cgi-bin/");
1308 print getmessage('CopyingFiles', ['stand-alone scripts', "$intranetdir/scripts" ]);
1309 system("cp -R scripts/* $intranetdir/scripts/");
1310 print getmessage('CopyingFiles', ['perl modules', "$intranetdir/modules" ]);
1311 system("cp -R modules/* $intranetdir/modules/");
1312 print getmessage('CopyingFiles', ['opac-html', "$opacdir/htdocs" ]);
1313 system("cp -R opac-html/* $opacdir/htdocs/");
1314 print getmessage('CopyingFiles', ['opac-cgi', "$opacdir/cgi-bin" ]);
1315 system("cp -R opac-cgi/* $opacdir/cgi-bin/");
1316 system("touch $opacdir/cgi-bin/opac");
1318 system("chown -R root:$httpduser $opacdir");
1319 system("chown -R root:$httpduser $intranetdir");
1321 # Create /etc/koha.conf
1323 my $old_umask = umask(027); # make sure koha.conf is never world-readable
1324 open(SITES,">$etcdir/koha.conf.tmp") or warn "Couldn't create file at $etcdir. Must have write capability.\n";
1330 includes=$opacdir/htdocs/includes
1331 intranetdir=$intranetdir
1333 kohalogdir=$kohalogdir
1334 kohaversion=$kohaversion
1335 httpduser=$httpduser
1336 intrahtdocs=$intranetdir/htdocs/intranet-tmpl
1337 opachtdocs=$opacdir/htdocs/opac-tmpl
1342 chown((getpwnam($httpduser)) [2,3], "$etcdir/koha.conf.tmp") or warn "can't chown koha.conf: $!";
1343 chmod 0440, "$etcdir/koha.conf.tmp";
1345 chmod 0750, "$intranetdir/scripts/z3950daemon/z3950-daemon-launch.sh";
1346 chmod 0750, "$intranetdir/scripts/z3950daemon/z3950-daemon-shell.sh";
1347 chmod 0750, "$intranetdir/scripts/z3950daemon/processz3950queue";
1348 chown(0, (getpwnam($httpduser)) [3], "$intranetdir/scripts/z3950daemon/z3950-daemon-shell.sh") or warn "can't chown $intranetdir/scripts/z3950daemon/z3950-daemon-shell.sh: $!";
1349 chown(0, (getpwnam($httpduser)) [3], "$intranetdir/scripts/z3950daemon/processz3950queue") or warn "can't chown $intranetdir/scripts/z3950daemon/processz3950queue: $!";
1358 Finds out where the MySQL utitlities are located in the system,
1359 then create the Koha database structure and MySQL permissions.
1363 $messages->{'MysqlRootPassword'}->{en} =
1364 heading('MYSQL ROOT USER PASSWORD') . qq|
1365 To allow us to create the koha database please supply your
1366 mysql server's root user password:
1368 Enter MySQL root user password: |; #'
1370 $messages->{'InvalidMysqlRootPassword'}->{en}="Invalid Password. Please try again.";
1372 $messages->{'CreatingDatabase'}->{en} = heading('CREATING DATABASE') . qq|
1373 Creating the MySQL database for Koha...
1377 $messages->{'CreatingDatabaseError'}->{en} =
1378 heading('ERROR CREATING DATABASE') . qq|
1379 Couldn't connect to the MySQL server for the reason given above.
1380 This is a serious problem, the database will not get installed.
\a
1382 Press <ENTER> to continue: |; #'
1384 $messages->{'SampleData'}->{en} = heading('SAMPLE DATA') . qq|
1385 If you are installing Koha for evaluation purposes, I have a batch of sample
1386 data that you can install now.
1388 If you are installing Koha with the intention of populating it with your own
1389 data, you probably don't want this sample data installed.
1391 Would you like to install the sample data? Y/[N]: |; #'
1393 $messages->{'SampleDataInstalled'}->{en} =
1394 heading('SAMPLE DATA INSTALLED') . qq|
1395 Sample data has been installed. For some suggestions on testing Koha, please
1396 read the file doc/HOWTO-Testing. If you find any bugs, please submit them at
1397 http://bugs.koha.org/. If you need help with testing Koha, you can post a
1398 question through the koha-devel mailing list, or you can check for a developer
1399 online at +irc.katipo.co.nz:6667 channel #koha.
1401 You can find instructions for subscribing to the Koha mailing lists at:
1406 Press <ENTER> to continue: |;
1408 $messages->{'AddBranchPrinter'}->{en} = heading('Add Branch and Printer') . qq|
1409 Would you like to install an initial branch and printer? [Y]/N: |;
1411 $messages->{'BranchName'}->{en}="Branch Name [%s]: ";
1412 $messages->{'BranchCode'}->{en}="Branch Code (4 letters or numbers) [%s]: ";
1413 $messages->{'PrinterQueue'}->{en}="Printer Queue [%s]: ";
1414 $messages->{'PrinterName'}->{en}="Printer Name [%s]: ";
1415 $messages->{'BlankMysqlPassword'}->{en} = heading('Blank MySQL Password') . qq|
1416 Do not leave your MySQL root password blank unless you know exactly what you
1417 are doing. To change your MySQL root password use the mysqladmin command:
1419 mysqladmin password NEWPASSWORDHERE
1421 Press <ENTER> to continue:
1425 $mysqluser = 'root';
1428 foreach my $mysql (qw(/usr/local/mysql
1432 if ( -d $mysql && -f "$mysql/bin/mysqladmin") {
1437 print "I don't see mysql in the usual places.\n";
1439 print "Where have you installed mysql? ";
1440 chomp($mysqldir = <STDIN>);
1441 last if -f "$mysqldir/bin/mysqladmin";
1444 I can't find it there either. If you compiled mysql yourself,
1445 please give the value of --prefix when you ran configure.
1447 The file mysqladmin should be in bin/mysqladmin under the directory that you
1457 while ($needpassword) {
1458 $mysqlpass=showmessage(getmessage('MysqlRootPassword'), 'free');
1459 $mysqlpass_quoted = $mysqlpass;
1460 $mysqlpass_quoted =~ s/"/\\"/g;
1461 $mysqlpass_quoted="-p\"$mysqlpass_quoted\"";
1462 $mysqlpass eq '' and $mysqlpass_quoted='';
1463 my $result=system("$mysqldir/bin/mysqladmin -u$mysqluser $mysqlpass_quoted proc > /dev/null 2>&1");
1465 print getmessage('InvalidMysqlRootPassword');
1467 if ($mysqlpass eq '') {
1468 showmessage(getmessage('BlankMysqlPassword'), 'PressEnter');
1474 showmessage(getmessage('CreatingDatabase'),'none');
1476 my $result=system("$mysqldir/bin/mysqladmin", "-u$mysqluser", "-p$mysqlpass", "create", "$dbname");
1478 showmessage(getmessage('CreatingDatabaseError'),'PressEnter', '', 1);
1480 # Create the database structure
1481 system("$mysqldir/bin/mysql -u$mysqluser $mysqlpass_quoted $dbname < koha.mysql");
1482 # Set up permissions
1483 system("$mysqldir/bin/mysql -u$mysqluser $mysqlpass_quoted mysql -e \"insert into user (Host,User,Password) values ('$hostname','$user',password('$pass'))\"\;");
1484 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')\"");
1485 system("$mysqldir/bin/mysqladmin -u$mysqluser $mysqlpass_quoted reload");
1496 =item updatedatabase
1500 Updates the Koha database structure, including the addition of
1503 The MARC tables are also populated in addition to being created.
1505 Because updatedatabase calls scripts/updater/updatedatabase to
1506 do the actual update, and that script uses C4::Context,
1507 $etcdir/koha.conf must exist at this point. We use a symlink to
1508 do this and to also at the same time faciliate detection of
1509 ahorted installs. (See checkabortedinstall.)
1513 $messages->{'UpdateMarcTables'}->{en} =
1514 heading('UPDATING MARC FIELD DEFINITION TABLES') . qq|
1515 You can import marc parameters for :
1521 Please choose which parameter you want to install. Note if you choose 3,
1522 nothing will be added, and it can be a BIG job to manually create those tables
1524 Choose MARC definition [1]: |;
1526 $messages->{'Language'}->{en} = heading('CHOOSE LANGUAGES') . qq|
1527 This version of koha supports a few languages.
1528 Enter your language preference : either en, fr, es or pl.
1530 Note that the en is always choosen when the system does not finds the
1531 language you choose in a specific screen.
1533 fr : OPAC is translated (except pictures)
1534 es : a few intranet is translated (including pictures)
1535 pl : OPAC is translated (UNTESTED in this release)
1537 Whether you specify a language here, you can always go to the
1538 intranet interface and change it from the system preferences.
1540 Which language do you choose? |;
1542 sub updatedatabase {
1543 # At this point, $etcdir/koha.conf must exist, for C4::Context
1544 my $result=system ("perl -I $intranetdir/modules scripts/updater/updatedatabase");
1546 print "Problem updating database...\n";
1550 my $response=showmessage(getmessage('UpdateMarcTables'), 'restrictchar 12N', '1');
1552 if ($response eq '1') {
1553 system("cat scripts/misc/marc_datas/marc21_en/structure_def.sql | $mysqldir/bin/mysql -u$mysqluser $mysqlpass_quoted $dbname");
1555 if ($response eq '2') {
1556 system("cat scripts/misc/marc_datas/unimarc_fr/structure_def.sql | $mysqldir/bin/mysql -u$mysqluser $mysqlpass_quoted $dbname");
1557 system("cat scripts/misc/lang-datas/fr/stopwords.sql | $mysqldir/bin/mysql -u$mysqluser $mysqlpass_quoted $dbname");
1560 $result = system ("perl -I $intranetdir/modules scripts/marc/updatedb2marc.pl");
1562 print "Problem updating database to MARC...\n";
1566 print "\n\nFinished updating of database. Press <ENTER> to continue...";
1571 =item populatedatabase
1575 Populate the non-MARC tables. If the user wants to install the
1576 sample data, install them.
1580 sub populatedatabase {
1581 my $response=showmessage(getmessage('SampleData'), 'yn', 'n');
1582 if ($response =~/^y/i) {
1583 system("gunzip -d < sampledata-1.2.gz | $mysqldir/bin/mysql -u$mysqluser $mysqlpass_quoted $dbname");
1584 system("$mysqldir/bin/mysql -u$mysqluser $mysqlpass_quoted $dbname -e \"insert into branches (branchcode,branchname,issuing) values ('MAIN', 'Main Library', 1)\"");
1585 system("$mysqldir/bin/mysql -u$mysqluser $mysqlpass_quoted $dbname -e \"insert into branchrelations (branchcode,categorycode) values ('MAIN', 'IS')\"");
1586 system("$mysqldir/bin/mysql -u$mysqluser $mysqlpass_quoted $dbname -e \"insert into branchrelations (branchcode,categorycode) values ('MAIN', 'CU')\"");
1587 system("$mysqldir/bin/mysql -u$mysqluser $mysqlpass_quoted $dbname -e \"insert into printers (printername,printqueue,printtype) values ('Circulation Desk Printer', 'lp', 'hp')\"");
1588 showmessage(getmessage('SampleDataInstalled'), 'PressEnter','',1);
1591 my $response=showmessage(getmessage('AddBranchPrinter'), 'yn', 'y');
1593 unless ($response =~/^n/i) {
1594 my $branch='Main Library';
1595 $branch=showmessage(getmessage('BranchName', [$branch]), 'free', $branch, 1);
1596 $branch=~s/[^A-Za-z0-9\s]//g;
1598 my $branchcode=$branch;
1599 $branchcode=~s/[^A-Za-z0-9]//g;
1600 $branchcode=uc($branchcode);
1601 $branchcode=substr($branchcode,0,4);
1602 $branchcode=showmessage(getmessage('BranchCode', [$branchcode]), 'free', $branchcode, 1);
1603 $branchcode=~s/[^A-Za-z0-9]//g;
1604 $branchcode=uc($branchcode);
1605 $branchcode=substr($branchcode,0,4);
1606 $branchcode or $branchcode='DEF';
1608 system("$mysqldir/bin/mysql -u$mysqluser $mysqlpass_quoted $dbname -e \"insert into branches (branchcode,branchname,issuing) values ('$branchcode', '$branch', 1)\"");
1609 system("$mysqldir/bin/mysql -u$mysqluser $mysqlpass_quoted $dbname -e \"insert into branchrelations (branchcode,categorycode) values ('MAIN', 'IS')\"");
1610 system("$mysqldir/bin/mysql -u$mysqluser $mysqlpass_quoted $dbname -e \"insert into branchrelations (branchcode,categorycode) values ('MAIN', 'CU')\"");
1612 my $printername='Library Printer';
1613 $printername=showmessage(getmessage('PrinterName', [$printername]), 'free', $printername, 1);
1614 $printername=~s/[^A-Za-z0-9\s]//g;
1616 my $printerqueue='lp';
1617 $printerqueue=showmessage(getmessage('PrinterQueue', [$printerqueue]), 'free', $printerqueue, 1);
1618 $printerqueue=~s/[^A-Za-z0-9]//g;
1619 system("$mysqldir/bin/mysql -u$mysqluser $mysqlpass_quoted $dbname -e \"insert into printers (printername,printqueue,printtype) values ('$printername', '$printerqueue', '')\"");
1621 my $language=showmessage(getmessage('Language'), 'free', 'en');
1622 system("$mysqldir/bin/mysql -u$mysqluser $mysqlpass_quoted $dbname -e \"update systempreferences set value='$language' where variable='opaclanguages'\"");
1631 Asks the user whether to restart Apache, and restart it if the user
1634 FIXME: If the installer does not know how to restart the Apache
1635 server (e.g., if the user is not actually using Apache), it still
1640 $messages->{'RestartApache'}->{en} = heading('RESTART APACHE') . qq|
1641 Apache needs to be restarted to load the new configuration for Koha.
1643 Would you like to restart Apache now? [Y]/N: |;
1647 my $response=showmessage(getmessage('RestartApache'), 'yn', 'y');
1651 unless ($response=~/^n/i) {
1652 # Need to support other init structures here?
1653 if (-e "/etc/rc.d/init.d/httpd") {
1654 system('/etc/rc.d/init.d/httpd restart');
1655 } elsif (-e "/etc/init.d/apache") {
1656 system('/etc//init.d/apache restart');
1657 } elsif (-e "/etc/init.d/apache-ssl") {
1658 system('/etc/init.d/apache-ssl restart');
1665 =item finalizeconfigfile
1669 This function must be called when the installation is complete,
1670 to rename the koha.conf.tmp file to koha.conf.
1672 Currently, failure to rename the file results only in a warning.
1676 sub finalizeconfigfile {
1677 rename "$etcdir/koha.conf.tmp", "$etcdir/koha.conf"
1678 || showmessage(<<EOF, 'PressEnter', undef, 1);
1679 An unexpected error, $!, occurred
1680 while the Koha config file is being saved to its final location,
1683 Couldn't rename file at $etcdir. Must have write capability.
1685 Press Enter to continue.
1691 =item loadconfigfile
1695 Open the existing koha.conf file and get its values,
1696 saving the values to some global variables.
1698 If the existing koha.conf file cannot be opened for any reason,
1699 the file is silently ignored.
1703 sub loadconfigfile {
1706 open (KC, "<$etcdir/koha.conf");
1709 (next) if (/^\s*#/);
1710 if (/(.*)\s*=\s*(.*)/) {
1713 # Clean up white space at beginning and end
1714 $variable=~s/^\s*//g;
1715 $variable=~s/\s*$//g;
1718 $configfile{$variable}=$value;
1722 $intranetdir=$configfile{'intranetdir'};
1723 $opacdir=$configfile{'opacdir'};
1724 $kohaversion=$configfile{'kohaversion'};
1725 $kohalogdir=$configfile{'kohalogdir'};
1726 $database=$configfile{'database'};
1727 $hostname=$configfile{'hostname'};
1728 $user=$configfile{'user'};
1729 $pass=$configfile{'pass'};
1732 END { } # module clean-up code here (global destructor)