1 package Install; #assumes Install.pm
4 # Copyright 2000-2002 Katipo Communications
5 # Contains parts Copyright 2003 MJ Ray
7 # This file is part of Koha.
9 # Koha is free software; you can redistribute it and/or modify it under the
10 # terms of the GNU General Public License as published by the Free Software
11 # Foundation; either version 2 of the License, or (at your option) any later
14 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
15 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
16 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
18 # You should have received a copy of the GNU General Public License along with
19 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
20 # Suite 330, Boston, MA 02111-1307 USA
23 # MJR: my.cnf, etcdir, prefix, new display, apache conf, copying fixups
27 #MJR: everyone will have these modules, right?
28 # They look like part of perl core to me
30 use Term::ANSIColor qw(:constants);
34 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
38 Install.pm - Perl module containing the bulk of the installation logic
42 The Install.pm module contains the bulk
43 of the code to do installation;
44 this code is used by installer.pl
45 to perform an actual installation.
47 =head2 Internal functions (not meant to be used outside of Install.pm)
53 # set the version for version checking
57 @EXPORT = qw( &checkperlmodules
61 &releasecandidatewarning
62 &getinstallationdirectories
79 use vars qw( $kohaversion ); # set in installer.pl
80 use vars qw( $language ); # set in installer.pl
81 use vars qw( $domainname ); # set in installer.pl
83 use vars qw( $etcdir ); # set in installer.pl, usu. /etc
84 use vars qw( $intranetdir $opacdir $kohalogdir );
85 use vars qw( $realhttpdconf $httpduser );
86 use vars qw( $servername $svr_admin $opacport $intranetport );
87 use vars qw( $mysqldir );
88 use vars qw( $database $mysqluser );
89 use vars qw( $mysqlpass ); # normally should not be used
90 use vars qw( $dbname $hostname $user $pass ); # virtual hosting
92 use vars qw( $newversion ); # XXX this seems to be unused
96 $messages->{'WelcomeToKohaInstaller'
97 = heading('Welcome to the Koha Installer') . qq|...|;
99 The heading function takes one string, the text to be displayed as
100 the heading, and returns a formatted heading (currently formatted
103 This reduces the likelihood of pod2man(1) etc. misinterpreting
104 a line of equal signs as illegal POD directives.
108 my $termios = POSIX::Termios->new();
110 my $terminal = Term::Cap->Tgetent({OSPEED=>$termios->getospeed()});
111 my $clear_string = "\n\n"; #MJR: was $terminal->Tputs('cl');
116 return($clear_string.ON_BLUE.WHITE.BOLD." "x$bal.uc($title)." "x$bal.RESET."\n\n");
119 my $mycnf = $ENV{HOME}."/.my.cnf";
120 my $mytmpcnf = `mktemp my.cnf.koha.XXXXXX`;
124 $messages->{'continuing'}->{en}="Great! Continuing setup.\n\n";
125 $messages->{'WelcomeToKohaInstaller'}->{en} =
126 heading('Welcome to the Koha Installer') . qq|
127 Welcome to the Koha install script! This script will prompt you for some
128 basic information about your desired setup, then install Koha for you.
130 If you want to install the Koha configuration file somewhere other than /etc
131 (eg for non-root installation, or multiple Koha versions on one system), you
132 should set the etcdir and prefix environment variables. If this is your
133 only koha installation on this machine and you are running this as root, the
134 default should be OK.
136 To accept the default value for any question, simply hit Enter at the prompt.
138 Please be sure to read the documentation, or visit the Koha website at
139 http://www.koha.org for more information.
141 Are you ready to begin the installation? ([Y]/N): |;
142 $messages->{'ReleaseCandidateWarning'}->{en} =
143 heading('RELEASE CANDIDATE') . qq|
144 WARNING WARNING WARNING WARNING WARNING
146 You are about to install Koha version %s. This version of Koha is a
147 release candidate. It is not intended to be installed on production systems.
148 It is being released so that users can test it before we release a final
151 Are you sure you want to install Koha %s? (Y/[N]): |;
152 $messages->{'WatchForReleaseAnnouncements'}->{en}=qq|
154 Watch for announcements of Koha releases on the Koha mailing list or the Koha
155 web site (http://www.koha.org/).
159 $messages->{'NETZ3950Missing'}->{en}=qq|
161 The Net::Z3950 module is missing. This module is necessary if you want to use
162 Koha's Z39.50 client to download bibliographic records from other libraries.
164 To install this module, you will need the yaz client installed from
165 http://www.indexdata.dk/yaz/ and then you can install the perl module with the
168 perl -MCPAN -e 'install Net::Z3950'
170 IMPORTANT NOTE : If you use PERL5.8.0 (RedHat 8.0 or Mandrake 9.x), you MUST install
171 manually the Net::Z3950 and edit Makefile.PL and yazwrap/Makefile.PL to include:
172 'DEFINE' => '-D_GNU_SOURCE',
173 Also note that some installations of Perl on Red Hat will generate a lot of
174 "'my_perl' undeclared" errors when running make in Net-Z3950. This is fixed by
175 inserting the following line in yazwrap/ywpriv.h :
178 Press the <ENTER> key to continue: |; #'
180 $messages->{'CheckingPerlModules'}->{en} = heading('PERL & MODULES') . qq|
181 Checking perl modules ...
184 $messages->{'PerlVersionFailure'}->{en}="Sorry, you need at least Perl %s\n";
186 $messages->{'MissingPerlModules'}->{en} = heading('MISSING PERL MODULES') . qq|
187 You are missing some Perl modules which are required by Koha.
188 Once these modules have been installed, rerun this installer.
189 They can be installed by running (as root) the following:
194 $messages->{'AllPerlModulesInstalled'}->{en} =
195 heading('ALL PERL MODULES INSTALLED') . qq|
196 All mandatory perl modules are installed.
198 Press <ENTER> to continue: |;
199 $messages->{'KohaVersionInstalled'}->{en}="You currently have Koha %s on your system.";
200 $messages->{'KohaUnknownVersionInstalled'}->{en}="I am not able to determine what version of Koha is installed now.";
201 $messages->{'KohaAlreadyInstalled'}->{en} =
202 heading('Koha already installed') . qq|
203 It looks like Koha is already installed on your system (%s/koha.conf exists
204 already). If you would like to upgrade your system to %s, please use
205 the koha.upgrade script in this directory.
210 $messages->{'GetOpacDir'}->{en} = heading('OPAC DIRECTORY') . qq|
211 Please supply the directory you want Koha to store its OPAC files in. This
212 directory will be auto-created for you if it doesn't exist.
214 OPAC Directory [%s]: |; #'
216 $messages->{'GetIntranetDir'}->{en} =
217 heading('INTRANET/LIBRARIANS DIRECTORY') . qq|
218 Please supply the directory you want Koha to store its Intranet/Librarians
219 files in. This directory will be auto-created for you if it doesn't exist.
221 Intranet Directory [%s]: |; #'
223 $messages->{'GetKohaLogDir'}->{en} = heading('KOHA LOG DIRECTORY') . qq|
224 Specify a log directory where any Koha daemons can create log files.
226 Koha Log Directory [%s]: |;
228 $messages->{'AuthenticationWarning'}->{en} = heading('Authentication') . qq|
229 This release of Koha has a new authentication module. If you are not already
230 using basic authentication on your intranet, you will be required to log in to
231 access some of the features of the intranet.
233 IMPORTANT: You can log in using the userid and password from the %s/koha.conf configuration file at any time.
234 Use the "Members" module to add passwords for other accounts and set their permissions.
236 Press the <ENTER> key to continue: |;
238 $messages->{'Completed'}->{en} = heading('KOHA INSTALLATION COMPLETE') . qq|
239 Congratulations ... your Koha installation is complete!
241 You will be able to connect to your Librarian interface at:
244 use mysql login and password to connect to this interface. Then, go to admin page, and create whatever fits your needs.
246 and the OPAC interface at :
250 Be sure to read the Hints file.
252 For more information visit http://www.koha.org
254 Press <ENTER> to exit the installer: |;
256 sub releasecandidatewarning {
257 my $message=getmessage('ReleaseCandidateWarning', [$newversion, $newversion]);
258 my $answer=showmessage($message, 'yn', 'n');
260 if ($answer =~ /y/i) {
261 print getmessage('continuing');
263 my $message=getmessage('WatchForReleaseAnnouncements');
272 =head2 Accessor functions (for installer.pl)
282 Sets the installation language, normally "en" (English).
283 In fact, only "en" is supported.
287 sub setlanguage ($) {
293 setdomainname('example.org');
295 Sets the domain name of the host.
297 The domain name should not contain a leading dot;
298 otherwise, the results are undefined.
302 sub setdomainname ($) {
310 Sets the sysconfdir, normally /etc.
311 This should be an absolute path; a trailing / is not required.
321 setkohaversion('1.3.3RC26');
323 Sets the Koha version as known by the installer.
327 sub setkohaversion ($) {
333 my $servername = getservername;
335 Gets the name of the Koha virtual server as specified by the user.
339 sub getservername () {
347 Gets the port that will run the Koha OPAC virtual server,
348 as specified by the user.
356 =item getintranetport
358 $port = getintranetport;
360 Gets the port that will run the Koha INTRANET virtual server,
361 as specified by the user.
365 sub getintranetport () {
371 =head2 Miscellaneous utility functions
381 Does the equivalent of dirname(1). Given a path $path, return the
382 parent directory of $path (best guess), except when $path seems to
383 be the same as /, in which case $path itself is returned unchanged.
389 if ($path =~ /[^\/]/s) {
391 $path =~ s/\/+[^\/]+\/*$//s;
402 mkdir_parents $path, $mode;
404 Does the equivalent of mkdir -p, or mkdir --parents. Given a path $path,
405 create the directory $path, recursively creating any intermediate
406 directories. If $mode is given, the directory will be created with
409 WARNING: If $path already exists, mkdir_parents will just return
410 successfully (just like mkdir -p), whether the mode of $path conforms
411 to $mode or not. (This is the behaviour of the mkdir -p command.)
416 my($path, $mode) = @_;
417 my $ok = -d($path)? 1: defined $mode? mkdir($path, $mode): mkdir($path);
419 if (!$ok && $! == ENOENT) {
420 my $parent = dirname($path);
421 $ok = mkdir_parents($parent, $mode);
423 # retry and at the same time make sure that $! is set correctly
424 $ok = defined $mode? mkdir($path, $mode): mkdir($path);
433 getmessage($msgid, $variables);
435 Gets a localized message (format string) with message id $msgid,
436 and, if an array reference of variables $variables is given,
437 substitutes variables in the format string with @$variables.
438 Returns the found message string, with variable substitutions
441 $msgid must be the message identifier corresponding to a defined
442 message string (a valid key to the $messages hash in the Installer
443 package). getmessage throws an exception if the message cannot be
449 my $messagename=shift;
451 my $message=$messages->{$messagename}->{$language} || $messages->{$messagename}->{en} || RED.BOLD."Error: No message named $messagename in Install.pm\n";
452 if (defined($variables)) {
453 $message=sprintf $message, @$variables;
461 showmessage($message, 'none');
462 showmessage($message, 'none', undef, $noclear);
464 $result = showmessage($message, 'yn');
465 $result = showmessage($message, 'yn', $defaultresponse);
466 $result = showmessage($message, 'yn', $defaultresponse, $noclear);
468 $result = showmessage($message, 'restrictchar CHARS');
469 $result = showmessage($message, 'free');
470 $result = showmessage($message, 'silentfree');
471 $result = showmessage($message, 'numerical');
472 $result = showmessage($message, 'email');
473 $result = showmessage($message, 'PressEnter');
475 Shows a message and optionally gets a response from the user.
477 The first two arguments, the message and the response type,
478 are mandatory. The message must be the actual string to
479 display; the caller is responsible for calling getmessage if
482 The response type must be one of "none", "yn", "free", "silentfree"
483 "numerical", "email", "PressEnter", or a string consisting
484 of "restrictchar " followed by a list of allowed characters
485 (space can be specified). (Case is not significant, but case is
486 significant in the list of allowed characters.) If a response
487 type other than the above-listed is specified, the result is
490 Note that the response type "yn" is equivalent to "restrictchar yn".
491 Because "restrictchar" is case-sensitive, the user is expected
492 to enter "y" or "n" in lowercase only.
494 Note that the response type of "email" does not actually
495 guarantee that the returned value is a well-formed RFC-822
496 email address, nor does it accept all well-formed RFC-822 email
497 addresses. What it does is to restrict the returned value to a
498 string that is looks reasonably likely to be an email address
499 in the "real world", given the premise that the user is trying
500 to enter a real email address.
502 If a response type other than "none" or "PressEnter" is
503 specified, a third argument, specifying the default value, can
504 be specified: If this default response is not specified, the
505 default response is the first allowed character if the response
506 type is "restrictchar", otherwise the default response is the
507 empty string. This default response is used when the user does
508 not specify a value (i.e., presses Enter without typing in
509 anything), showmessage will assume that the default response is
512 Note that because the response type "yn" is equivalent to
513 "restrictchar yn", the default value for response type "yn",
514 if unspecified, is "y".
516 The screen is normally cleared before the message is displayed;
517 if a fourth argument is specified and is nonzero, this
518 screen-clearing is not done.
524 #MJR: Maybe refactor to use anonymous functions that
525 # check the responses instead of RnP branching.
526 my $message=join('',fill('','',(shift)));
527 my $responsetype=shift;
528 my $defaultresponse=shift;
530 $noclear = 0 unless defined $noclear; # defaults to "clear"
531 ($noclear) || (print $clear_string);
532 if ($responsetype =~ /^yn$/) {
533 $responsetype='restrictchar ynYN';
535 print RESET.$message;
536 if ($responsetype =~/^restrictchar (.*)/i) {
539 until ($options=~/$response/) {
540 (defined($defaultresponse)) || ($defaultresponse=substr($options,0,1));
543 (length($response)) || ($response=$defaultresponse);
544 if ( $response=~/.*[\:\(\)\^\$\*\!\\].*/ ) {
545 ($noclear) || (print $clear_string);
546 print RED."Response contains invalid characters. Choose from [$options].\n\n";
547 print RESET.$message;
550 unless ($options=~/$response/) {
551 ($noclear) || (print $clear_string);
552 print RED."Invalid Response. Choose from [$options].\n\n";
553 print RESET.$message;
558 } elsif ($responsetype =~/^(silent)?free$/i) {
559 (defined($defaultresponse)) || ($defaultresponse='');
560 if ($responsetype =~/^(silent)/i) { setecho(0) };
561 my $response=<STDIN>;
562 if ($responsetype =~/^(silent)/i) { setecho(1) };
564 ($response) || ($response=$defaultresponse);
566 } elsif ($responsetype =~/^numerical$/i) {
567 (defined($defaultresponse)) || ($defaultresponse='');
569 until ($response=~/^\d+$/) {
572 ($response) || ($response=$defaultresponse);
573 unless ($response=~/^\d+$/) {
574 ($noclear) || (print $clear_string);
575 print RED."Invalid Response ($response). Response must be a number.\n\n";
576 print RESET.$message;
580 } elsif ($responsetype =~/^email$/i) {
581 (defined($defaultresponse)) || ($defaultresponse='');
583 until ($response=~/.*\@.*\..*/) {
586 ($response) || ($response=$defaultresponse);
587 if ($response!~/.*\@.*\..*/) {
588 ($noclear) || (print $clear_string);
589 print RED."Invalid Response ($response). Response must be a valid email address.\n\n";
590 print RESET.$message;
594 } elsif ($responsetype =~/^PressEnter$/i) {
597 } elsif ($responsetype =~/^none$/i) {
600 # FIXME: There are a few places where we will get an undef as the
601 # response type. Should we thrown an exception here, or should we
602 # legitimize this usage and say "none" is the default if not specified?
603 #die "Illegal response type \"$responsetype\"";
614 Changes the display to show system output until the next showmessage call.
615 At the time of writing, this means using red text.
626 =head2 Subtasks of doing an installation
632 =item checkabortedinstall
636 Checks whether a previous installation process has been abnormally
637 aborted, by checking whether $etcidr/koha.conf is a symlink matching
638 a particular pattern. If an aborted installation is detected, give
639 the user a chance to abort, before trying to recover the aborted
642 FIXME: The recovery is not complete; it only partially rolls back
647 sub checkabortedinstall () {
648 if (-l("$etcdir/koha.conf")
649 && readlink("$etcdir/koha.conf") =~ /\.tmp$/
652 I have detected that you tried to install Koha before, but the installation
653 was aborted. I will try to continue, but there might be problems if the
654 database is already created.
657 print "Please press <ENTER> to continue: ";
660 # Remove the symlink after the <STDIN>, so the user can back out
661 unlink "$etcdir/koha.conf"
662 || die "Failed to remove incomplete $etcdir/koha.conf: $!\n";
667 =item checkperlmodules
671 Test whether the version of Perl is new enough, whether Perl is
672 found at the expected location, and whether all required modules
677 sub checkperlmodules {
679 # Test for Perl and Modules
682 my $message = getmessage('CheckingPerlModules');
683 showmessage($message, 'none');
685 unless ($] >= 5.006001) { # Bug 179
686 die getmessage('PerlVersionFailure', ['5.6.1']);
691 unless (eval {require DBI}) { push @missing,"DBI" };
692 unless (eval {require Date::Manip}) { push @missing,"Date::Manip" };
693 unless (eval {require DBD::mysql}) { push @missing,"DBD::mysql" };
694 unless (eval {require HTML::Template}) { push @missing,"HTML::Template" };
695 # unless (eval {require Set::Scalar}) { push @missing,"Set::Scalar" };
696 unless (eval {require Digest::MD5}) { push @missing,"Digest::MD5" };
697 unless (eval {require MARC::Record}) { push @missing,"MARC::Record" };
698 unless (eval {require Mail::Sendmail}) { push @missing,"Mail::Sendmail" };
699 unless (eval {require Event}) {
700 if ($#missing>=0) { # only when $#missing >= 0 so this isn't fatal
701 push @missing, "Event";
704 unless (eval {require Net::Z3950}) {
705 showmessage(getmessage('NETZ3950Missing'), 'PressEnter', '', 1);
706 if ($#missing>=0) { # see above note
707 push @missing, "Net::Z3950";
712 # Print out a list of any missing modules
717 if (POSIX::setlocale(LC_ALL) != "C") {
718 $missing.=" export LC_ALL=C\n";
720 foreach my $module (@missing) {
721 $missing.=" perl -MCPAN -e 'install \"$module\"'\n";
723 my $message=getmessage('MissingPerlModules', [$missing]);
724 showmessage($message, 'none');
728 showmessage(getmessage('AllPerlModulesInstalled'), 'PressEnter', '', 1);
733 unless (-x "/usr/bin/perl") {
734 my $realperl=`which perl`;
736 $realperl = showmessage(getmessage('NoUsrBinPerl'), 'none');
737 until (-x $realperl) {
738 $realperl=showmessage(getmessage('AskLocationOfPerlExecutable', $realperl), 'free', $realperl, 1);
740 my $response=showmessage(getmessage('ConfirmPerlExecutableSymlink', $realperl), 'yn', 'y', 1);
741 unless ($response eq 'n') {
743 system("ln -s $realperl /usr/bin/perl");
750 $messages->{'NoUsrBinPerl'}->{en} =
751 heading('Perl is not located in /usr/bin/perl') . qq|
752 The Koha perl scripts expect to find the perl executable in the /usr/bin
753 directory. It is not there on your system.
757 $messages->{'AskLocationOfPerlExecutable'}->{en}=qq|Location of Perl Executable: [%s]: |;
758 $messages->{'ConfirmPerlExecutableSymlink'}->{en}=qq|
759 The Koha scripts will _not_ work without a symlink from %s to /usr/bin/perl
761 May I create this symlink? ([Y]/N):
764 $messages->{'DirFailed'}->{en} = RED.qq|
765 We could not create %s, but continuing anyway...
771 =item getinstallationdirectories
773 getinstallationdirectories;
775 Get the various installation directories from the user, and then
776 create those directories (if they do not already exist).
778 These pieces of information are saved to global variables; the
779 function does not return any values.
783 sub getinstallationdirectories {
784 if (!$ENV{prefix}) { $ENV{prefix} = "/usr/local"; }
785 $opacdir = $ENV{prefix}.'/koha/opac';
786 $intranetdir = $ENV{prefix}.'/koha/intranet';
788 while ($getdirinfo) {
789 # Loop until opac directory and koha directory are different
790 my $message=getmessage('GetOpacDir', [$opacdir]);
791 $opacdir=showmessage($message, 'free', $opacdir);
793 $message=getmessage('GetIntranetDir', [$intranetdir]);
794 $intranetdir=showmessage($message, 'free', $intranetdir);
796 if ($intranetdir eq $opacdir) {
799 You must specify different directories for the OPAC and INTRANET files!
800 :: $intranetdir :: $opacdir ::
807 $kohalogdir=$ENV{prefix}.'/koha/log';
808 my $message=getmessage('GetKohaLogDir', [$kohalogdir]);
809 $kohalogdir=showmessage($message, 'free', $kohalogdir);
812 # FIXME: Need better error handling for all mkdir calls here
813 unless ( -d $intranetdir ) {
814 mkdir_parents (dirname($intranetdir), 0775) || print getmessage('DirFailed',['parents of '.$intranetdir]);
815 mkdir ($intranetdir, 0770) || print getmessage('DirFailed',[$intranetdir]);
816 if ($>==0) { chown (oct(0), (getgrnam($httpduser))[2], "$intranetdir"); }
817 chmod 0770, "$intranetdir";
819 mkdir_parents ("$intranetdir/htdocs", 0750);
820 mkdir_parents ("$intranetdir/cgi-bin", 0750);
821 mkdir_parents ("$intranetdir/modules", 0750);
822 mkdir_parents ("$intranetdir/scripts", 0750);
823 unless ( -d $opacdir ) {
824 mkdir_parents (dirname($opacdir), 0775) || print getmessage('DirFailed',['parents of '.$opacdir]);
825 mkdir ($opacdir, 0770) || print getmessage('DirFailed',[$opacdir]);
826 if ($>==0) { chown (oct(0), (getgrnam($httpduser))[2], "$opacdir"); }
827 chmod (oct(770), "$opacdir");
829 mkdir_parents ("$opacdir/htdocs", 0750);
830 mkdir_parents ("$opacdir/cgi-bin", 0750);
833 unless ( -d $kohalogdir ) {
834 mkdir_parents (dirname($kohalogdir), 0775) || print getmessage('DirFailed',['parents of '.$kohalogdir]);
835 mkdir ($kohalogdir, 0770) || print getmessage('DirFailed',[$kohalogdir]);
836 if ($>==0) { chown (oct(0), (getgrnam($httpduser))[2,3], "$kohalogdir"); }
837 chmod (oct(770), "$kohalogdir");
843 =item getdatabaseinfo
847 Get various pieces of information related to the Koha database:
848 the name of the database, the host on which the SQL server is
849 running, and the database user name.
851 These pieces of information are saved to global variables; the
852 function does not return any values.
856 $messages->{'DatabaseName'}->{en} = heading('Name of MySQL database') . qq|
857 Please provide the name that you wish to give your koha database.
858 It must not exist already on the database server.
860 Database name [%s]: |;
862 $messages->{'DatabaseHost'}->{en} = heading('Database Host') . qq|
863 Please provide the hostname for mysql. Unless the database is located on
864 another machine this will be "localhost".
866 Database host [%s]: |;
868 $messages->{'DatabaseUser'}->{en} = heading('Database User') . qq|
869 Please provide the name of the user who will have full administrative rights
870 to the %s database, when authenticating from %s.
872 This user will also be used to access Koha's INTRANET interface.
874 Database user [%s]: |;
876 $messages->{'DatabasePassword'}->{en} = heading('Database Password') . qq|
877 Please provide a good password for the user %s.
879 IMPORTANT: You can log in using this userid and password at any time.
881 Password for database user %s: |;
883 $messages->{'BlankPassword'}->{en} = heading('BLANK PASSWORD') . qq|
884 You must not use a blank password for your MySQL user.
886 Press <ENTER> to try again:
889 sub getdatabaseinfo {
892 $hostname = 'localhost';
896 #Get the database name
898 my $message=getmessage('DatabaseName', [$dbname]);
899 $dbname=showmessage($message, 'free', $dbname);
901 #Get the hostname for the database
903 $message=getmessage('DatabaseHost', [$hostname]);
904 $hostname=showmessage($message, 'free', $hostname);
906 #Get the username for the database
908 $message=getmessage('DatabaseUser', [$dbname, $hostname, $user]);
909 $user=showmessage($message, 'free', $user);
911 #Get the password for the database user
913 while ($pass eq '') {
914 my $message=getmessage('DatabasePassword', [$user, $user]);
915 $pass=showmessage($message, 'free', $pass);
917 my $message=getmessage('BlankPassword');
918 showmessage($message,'PressEnter');
929 Get various pieces of information related to the Apache server:
930 the location of the configuration file and, if needed, the Unix
931 user that the Koha CGI will be run under.
933 These pieces of information are saved to global variables; the
934 function does not return any values.
938 $messages->{'FoundMultipleApacheConfFiles'}->{en} =
939 heading('MULTIPLE APACHE CONFIG FILES') . qq|
940 I found more than one possible Apache configuration file:
944 Choose the correct file [1]: |;
946 $messages->{'NoApacheConfFiles'}->{en} =
947 heading('NO APACHE CONFIG FILE FOUND') . qq|
948 I was not able to find your Apache configuration file.
950 The file is usually called httpd.conf or apache.conf.
952 Please specify the location of your config file: |;
954 $messages->{'NotAFile'}->{en} = heading('FILE DOES NOT EXIST') . qq|
955 The file %s does not exist.
957 Please press <ENTER> to continue: |;
959 $messages->{'EnterApacheUser'}->{en} = heading('NEED APACHE USER') . qq|
960 I was not able to determine the user that Apache is running as. This
961 information is necessary in order to set the access privileges correctly on
962 %s/koha.conf. This user should be set in one of the Apache configuration
963 files using the "User" directive.
965 Enter the Apache userid: |;
967 $messages->{'InvalidUserid'}->{en} = heading('INVALID USERID') . qq|
968 The userid %s is not a valid userid on this system.
970 Press <ENTER> to continue: |;
973 my @confpossibilities;
975 foreach my $httpdconf (qw(/usr/local/apache/conf/httpd.conf
976 /usr/local/etc/apache/httpd.conf
977 /usr/local/etc/apache/apache.conf
978 /var/www/conf/httpd.conf
979 /etc/apache2/httpd.conf
980 /etc/apache2/apache.conf
981 /etc/apache/conf/httpd.conf
982 /etc/apache/conf/apache.conf
983 /etc/apache-ssl/conf/apache.conf
984 /etc/apache-ssl/httpd.conf
985 /etc/httpd/conf/httpd.conf
986 /etc/httpd/httpd.conf)) {
987 if ( -f $httpdconf ) {
988 push @confpossibilities, $httpdconf;
992 if ($#confpossibilities==-1) {
993 my $message=getmessage('NoApacheConfFiles');
995 until (-f $realhttpdconf) {
996 $choice=showmessage($message, "free", 1);
998 $realhttpdconf=$choice;
1000 showmessage(getmessage('NotAFile', [$choice]),'PressEnter', '', 1);
1003 } elsif ($#confpossibilities>0) {
1007 foreach (@confpossibilities) {
1008 $conffiles.=" $counter: $_\n";
1009 $options.="$counter";
1012 my $message=getmessage('FoundMultipleApacheConfFiles', [$conffiles]);
1013 my $choice=showmessage($message, "restrictchar $options", 1);
1014 $realhttpdconf=$confpossibilities[$choice-1];
1016 $realhttpdconf=$confpossibilities[0];
1018 unless (open (HTTPDCONF, "<$realhttpdconf")) {
1019 warn RED."Insufficient privileges to open $realhttpdconf for reading.\n";
1023 while (<HTTPDCONF>) {
1024 if (/^\s*User\s+"?([-\w]+)"?\s*$/) {
1030 unless (defined($httpduser)) {
1031 my $message=getmessage('EnterApacheUser', [$etcdir]);
1032 until (defined($httpduser) && length($httpduser) && getpwnam($httpduser)) {
1033 $httpduser=showmessage($message, "free", '');
1034 if (length($httpduser)>0) {
1035 unless (getpwnam($httpduser)) {
1036 my $message=getmessage('InvalidUserid', [$httpduser]);
1037 showmessage($message,'PressEnter');
1046 =item getapachevhostinfo
1050 Gets various pieces of information related to virtual hosting:
1051 the webmaster email address, virtual hostname, and the ports
1052 that the OPAC and INTRANET modules run on.
1054 These pieces of information are saved to global variables; the
1055 function does not return any values.
1059 $messages->{'ApacheConfigIntroduction'}->{en} =
1060 heading('APACHE CONFIGURATION') . qq|
1061 Koha needs to write an Apache configuration file for the
1062 OPAC and LIBRARIAN virtual hosts. By default this installer
1063 will do this by using one ip address and two different ports
1064 for the virtual hosts. There are other ways to set this up,
1065 and the installer will leave comments in
1066 %s/koha-httpd.conf detailing
1067 what these other options are.
1069 NOTE: You will need to add lines to your main httpd.conf to
1070 Include %s/koha-httpd.conf
1071 and to make sure it is listening on the right ports
1072 (using the Listen directive).
1074 Press <ENTER> to continue: |;
1076 $messages->{'GetVirtualHostEmail'}->{en} =
1077 heading('WEB SERVER E-MAIL CONTACT') . qq|
1078 Enter the e-mail address to be used as a contact for the virtual hosts (this
1079 address is displayed if any errors are encountered).
1081 E-mail contact [%s]: |;
1083 $messages->{'GetServerName'}->{en} =
1084 heading('WEB SERVER HOST NAME OR IP ADDRESS') . qq|
1085 Please enter the host name or IP address that you wish to use for koha.
1086 Normally, this should be a name or IP that belongs to this machine.
1088 Host name or IP Address [%s]: |;
1090 $messages->{'GetOpacPort'}->{en} = heading('OPAC VIRTUAL HOST PORT') . qq|
1091 Please enter the port for your OPAC interface. This defaults to port 80, but
1092 if you are already serving web content from this host, you should change it
1093 to a different port (8000 might be a good choice).
1095 Enter the OPAC Port [%s]: |;
1097 $messages->{'GetIntranetPort'}->{en} =
1098 heading('INTRANET VIRTUAL HOST PORT') . qq|
1099 Please enter the port for your Intranet interface. This must be different from
1102 Enter the Intranet Port [%s]: |;
1105 sub getapachevhostinfo {
1107 $svr_admin = "webmaster\@$domainname";
1108 $servername=`hostname`;
1113 showmessage(getmessage('ApacheConfigIntroduction',[$etcdir,$etcdir]), 'PressEnter');
1115 $svr_admin=showmessage(getmessage('GetVirtualHostEmail', [$svr_admin]), 'email', $svr_admin);
1116 $servername=showmessage(getmessage('GetServerName', [$servername]), 'free', $servername);
1119 $opacport=showmessage(getmessage('GetOpacPort', [$opacport]), 'numerical', $opacport);
1120 $intranetport=showmessage(getmessage('GetIntranetPort', [$opacport, $intranetport]), 'numerical', $intranetport);
1125 =item updateapacheconf
1129 Updates the Apache config file according to parameters previously
1130 specified by the user.
1132 It will append fully-commented directives at the end of the original
1133 Apache config file. The old config file is renamed with an extension
1136 If you need to uninstall Koha for any reason, the lines between
1138 # Ports to listen to for Koha
1140 and the block of comments beginning with
1142 # If you want to use name based Virtual Hosting:
1148 $messages->{'StartUpdateApache'}->{en} =
1149 heading('UPDATING APACHE CONFIGURATION') . qq|
1150 Checking for modules that need to be loaded...
1153 $messages->{'ApacheConfigMissingModules'}->{en} =
1154 heading('APACHE CONFIGURATION NEEDS UPDATE') . qq|
1155 Koha uses the mod_env and mod_include apache features, but the
1156 installer did not find statements for them in your config. Please
1157 make sure that they are enabled for your Koha host.
1159 Press <ENTER> to continue: |;
1162 $messages->{'ApacheAlreadyConfigured'}->{en} =
1163 heading('APACHE ALREADY CONFIGURED') . qq|
1164 %s appears to already have an entry for Koha
1165 Virtual Hosts. You may need to edit %s
1166 if anything has changed since it was last set up. This
1167 script will not attempt to modify an existing Koha apache
1170 Press <ENTER> to continue: |;
1172 sub updateapacheconf {
1173 my $logfiledir=$kohalogdir;
1174 my $httpdconf = $etcdir."/koha-httpd.conf";
1176 showmessage(getmessage('StartUpdateApache'), 'none');
1177 # to be polite about it: I don't think this should touch the main httpd.conf
1179 # QUESTION: Should we warn for includes_module too?
1181 my $includesmodule=0;
1182 open HC, "<$realhttpdconf";
1184 if (/^\s*#\s*LoadModule env_module /) {
1185 showmessage(getmessage('ApacheConfigMissingModules'));
1188 if (/\s*LoadModule includes_module / ) {
1194 if (`grep -q 'VirtualHost $servername' "$httpdconf"`) {
1195 showmessage(getmessage('ApacheAlreadyConfigured', [$httpdconf, $httpdconf]), 'PressEnter');
1198 my $includesdirectives='';
1199 if ($includesmodule) {
1200 $includesdirectives.="Options +Includes\n";
1201 $includesdirectives.=" AddHandler server-parsed .html\n";
1203 open(SITE,">$httpdconf") or warn "Insufficient priveleges to open $httpdconf for writing.\n";
1204 my $opaclisten = '';
1205 if ($opacport != 80) {
1206 $opaclisten="Listen $opacport";
1208 my $intranetlisten = '';
1209 if ($intranetport != 80) {
1210 $intranetlisten="Listen $intranetport";
1214 # Ports to listen to for Koha
1215 # uncomment these if they aren't already in main httpd.conf
1219 # NameVirtualHost is used by one of the optional configurations detailed below
1221 #NameVirtualHost 11.22.33.44
1223 # KOHA's OPAC Configuration
1224 <VirtualHost $servername\:$opacport>
1225 ServerAdmin $svr_admin
1226 DocumentRoot $opacdir/htdocs
1227 ServerName $servername
1228 ScriptAlias /cgi-bin/koha/ $opacdir/cgi-bin/
1229 ErrorLog $logfiledir/opac-error_log
1230 TransferLog $logfiledir/opac-access_log
1231 SetEnv PERL5LIB "$intranetdir/modules"
1232 SetEnv KOHA_CONF "$etcdir/koha.conf"
1236 # KOHA's INTRANET Configuration
1237 <VirtualHost $servername\:$intranetport>
1238 ServerAdmin $svr_admin
1239 DocumentRoot $intranetdir/htdocs
1240 ServerName $servername
1241 ScriptAlias /cgi-bin/koha/ "$intranetdir/cgi-bin/"
1242 ErrorLog $logfiledir/koha-error_log
1243 TransferLog $logfiledir/koha-access_log
1244 SetEnv PERL5LIB "$intranetdir/modules"
1245 SetEnv KOHA_CONF "$etcdir/koha.conf"
1249 # If you want to use name based Virtual Hosting:
1250 # 1. remove the two Listen lines
1251 # 2. replace $servername\:$opacport wih your.opac.domain.name
1252 # 3. replace ServerName $servername wih ServerName your.opac.domain.name
1253 # 4. replace $servername\:$intranetport wih your intranet domain name
1254 # 5. replace ServerName $servername wih ServerName your.intranet.domain.name
1256 # If you want to use NameVirtualHost'ing (using two names on one ip address):
1257 # 1. Follow steps 1-5 above
1258 # 2. Uncomment the NameVirtualHost line and set the correct ip address
1267 =item basicauthentication
1269 basicauthentication;
1271 Asks the user whether HTTP basic authentication is wanted, and,
1272 if so, the user name and password for the basic authentication.
1274 These pieces of information are saved to global variables; the
1275 function does not return any values.
1279 $messages->{'IntranetAuthenticationQuestion'}->{en} =
1280 heading('INTRANET AUTHENTICATION') . qq|
1281 I can set it up so that the Intranet/Librarian site is password protected using
1282 Apache's Basic Authorization.
1284 This is going to be phased out very soon. However, setting this up can provide
1285 an extra layer of security before the new authentication system is completely
1288 Would you like to do this ([Y]/N): |; #'
1290 $messages->{'BasicAuthUsername'}->{en}="Please enter a userid for intranet access [%s]: ";
1291 $messages->{'BasicAuthPassword'}->{en}="Please enter a password for %s: ";
1292 $messages->{'BasicAuthPasswordWasBlank'}->{en}="\nYou cannot use a blank password!\n\n";
1294 sub basicauthentication {
1295 my $message=getmessage('IntranetAuthenticationQuestion');
1296 my $answer=showmessage($message, 'yn', 'y');
1297 my $httpdconf = $etcdir."/koha-httpd.conf";
1299 my $apacheauthusername='librarian';
1300 my $apacheauthpassword='';
1301 if ($answer=~/^y/i) {
1302 ($apacheauthusername) = showmessage(getmessage('BasicAuthUsername', [ $apacheauthusername]), 'free', $apacheauthusername, 1);
1303 $apacheauthusername=~s/[^a-zA-Z0-9]//g;
1304 while (! $apacheauthpassword) {
1305 ($apacheauthpassword) = showmessage(getmessage('BasicAuthPassword', [ $apacheauthusername]), 'free', 1);
1306 if (!$apacheauthpassword) {
1307 ($apacheauthpassword) = showmessage(getmessage('BasicAuthPasswordWasBlank'), 'none', '', 1);
1310 open AUTH, ">$etcdir/kohaintranet.pass";
1311 my $chars='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789';
1312 my $salt=substr($chars, int(rand(length($chars))),1);
1313 $salt.=substr($chars, int(rand(length($chars))),1);
1314 print AUTH $apacheauthusername.":".crypt($apacheauthpassword, $salt)."\n";
1316 open(SITE,">>$httpdconf") or warn "Insufficient priveleges to open $realhttpdconf for writing.\n";
1319 <Directory $intranetdir>
1320 AuthUserFile $etcdir/kohaintranet.pass
1322 AuthName "Koha Intranet (for librarians only)"
1335 Install the Koha files to the specified OPAC and INTRANET
1336 directories (usually in /usr/local/koha).
1338 The koha.conf file is created, but as koha.conf.tmp. The
1339 caller is responsible for calling finalizeconfigfile when
1340 installation is completed, to rename it back to koha.conf.
1344 $messages->{'InstallFiles'}->{en} = heading('INSTALLING FILES') . qq|
1345 Copying files to installation directories:
1350 $messages->{'CopyingFiles'}->{en}="Copying %s to %s.\n";
1356 #MJR: preserve old files, just in case
1363 print getmessage('CopyingFiles', ["old ".$desc,$tgt.".old"]);
1365 system("mv ".$tgt." ".$tgt.".old");
1368 print getmessage('CopyingFiles', [$desc,$tgt]);
1370 system("cp -R ".$src." ".$tgt);
1373 showmessage(getmessage('InstallFiles'),'none');
1375 neatcopy("admin templates", 'intranet-html', "$intranetdir/htdocs");
1376 neatcopy("admin interface", 'intranet-cgi', "$intranetdir/cgi-bin");
1377 neatcopy("main scripts", 'scripts', "$intranetdir/scripts");
1378 neatcopy("perl modules", 'modules', "$intranetdir/modules");
1379 neatcopy("OPAC templates", 'opac-html', "$opacdir/htdocs");
1380 neatcopy("OPAC interface", 'opac-cgi', "$opacdir/cgi-bin");
1382 system("touch $opacdir/cgi-bin/opac");
1384 #MJR: is this necessary?
1386 system("chown -R $httpduser:$httpduser $opacdir $intranetdir");
1388 system("chmod -R a+rx $opacdir $intranetdir");
1390 # Create /etc/koha.conf
1392 my $old_umask = umask(027); # make sure koha.conf is never world-readable
1393 open(SITES,">$etcdir/koha.conf.tmp") or warn "Couldn't create file at $etcdir. Must have write capability.\n";
1399 includes=$opacdir/htdocs/includes
1400 intranetdir=$intranetdir
1402 kohalogdir=$kohalogdir
1403 kohaversion=$kohaversion
1404 httpduser=$httpduser
1405 intrahtdocs=$intranetdir/htdocs/intranet-tmpl
1406 opachtdocs=$opacdir/htdocs/opac-tmpl
1412 #MJR: can't help but this be broken, can we?
1413 chmod 0440, "$etcdir/koha.conf.tmp";
1415 #MJR: does this contain any passwords?
1416 chmod 0755, "$intranetdir/scripts/z3950daemon/z3950-daemon-launch.sh", "$intranetdir/scripts/z3950daemon/z3950-daemon-shell.sh", "$intranetdir/scripts/z3950daemon/processz3950queue";
1419 chown((getpwnam($httpduser)) [2,3], "$etcdir/koha.conf.tmp") or warn "can't chown koha.conf: $!";
1420 chown(0, (getpwnam($httpduser)) [3], "$intranetdir/scripts/z3950daemon/z3950-daemon-shell.sh") or warn "can't chown $intranetdir/scripts/z3950daemon/z3950-daemon-shell.sh: $!";
1421 chown(0, (getpwnam($httpduser)) [3], "$intranetdir/scripts/z3950daemon/processz3950queue") or warn "can't chown $intranetdir/scripts/z3950daemon/processz3950queue: $!";
1422 } #MJR: FIXME: Should report that we haven't chown()d.
1430 Finds out where the MySQL utitlities are located in the system,
1431 then create the Koha database structure and MySQL permissions.
1435 $messages->{'MysqlRootPassword'}->{en} =
1436 heading('MYSQL ROOT USER PASSWORD') . qq|
1437 To allow us to create the koha database please enter your
1438 mysql server's root user password:
1442 $messages->{'CreatingDatabase'}->{en} = heading('CREATING DATABASE') . qq|
1443 Creating the MySQL database for Koha...
1447 $messages->{'CreatingDatabaseError'}->{en} =
1448 heading('ERROR CREATING DATABASE') . qq|
1449 Couldn't connect to the MySQL server for the reason given above.
1450 This is a serious problem, the database will not get installed.
\a
1452 Press <ENTER> to continue: |; #'
1454 $messages->{'SampleData'}->{en} = heading('SAMPLE DATA') . qq|
1455 If you are installing Koha for evaluation purposes, I have a batch of sample
1456 data that you can install now.
1458 If you are installing Koha with the intention of populating it with your own
1459 data, you probably don't want this sample data installed.
1461 Would you like to install the sample data? Y/[N]: |; #'
1463 $messages->{'SampleDataInstalled'}->{en} =
1464 heading('SAMPLE DATA INSTALLED') . qq|
1465 Sample data has been installed. For some suggestions on testing Koha, please
1466 read the file doc/HOWTO-Testing. If you find any bugs, please submit them at
1467 http://bugs.koha.org/. If you need help with testing Koha, you can post a
1468 question through the koha-devel mailing list, or you can check for a developer
1469 online at +irc.katipo.co.nz:6667 channel #koha.
1471 You can find instructions for subscribing to the Koha mailing lists at:
1476 Press <ENTER> to continue: |;
1478 $messages->{'AddBranchPrinter'}->{en} = heading('Add Branch and Printer') . qq|
1479 Would you like to install an initial branch and printer? [Y]/N: |;
1481 $messages->{'BranchName'}->{en}="Branch Name [%s]: ";
1482 $messages->{'BranchCode'}->{en}="Branch Code (4 letters or numbers) [%s]: ";
1483 $messages->{'PrinterQueue'}->{en}="Printer Queue [%s]: ";
1484 $messages->{'PrinterName'}->{en}="Printer Name [%s]: ";
1487 $mysqluser = 'root';
1490 foreach my $mysql (qw(/usr/local/mysql
1494 if ( -d $mysql && -f "$mysql/bin/mysqladmin") {
1499 print "I don't see mysql in the usual places.\n";
1501 print "Where have you installed mysql? ";
1502 chomp($mysqldir = <STDIN>);
1503 last if -f "$mysqldir/bin/mysqladmin";
1506 I can't find it there either. If you compiled mysql yourself,
1507 please give the value of --prefix when you ran configure.
1509 The file mysqladmin should be in bin/mysqladmin under the directory that you
1516 # we must not put the mysql root password on the command line
1517 $mysqlpass= showmessage(getmessage('MysqlRootPassword'),'silentfree');
1519 showmessage(getmessage('CreatingDatabase'),'none');
1521 setmysqlclipass($mysqlpass);
1522 # Set up permissions
1524 print system("$mysqldir/bin/mysql -u$mysqluser mysql -e \"insert into user (Host,User,Password) values ('$hostname','$user',password('$pass'))\"\;");
1525 system("$mysqldir/bin/mysql -u$mysqluser 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')\"");
1526 system("$mysqldir/bin/mysqladmin -u$mysqluser reload");
1527 # Change to admin user login
1528 setmysqlclipass($pass);
1529 my $result=system("$mysqldir/bin/mysqladmin", "-u$user", "create", "$dbname");
1531 showmessage(getmessage('CreatingDatabaseError'),'PressEnter', '', 1);
1533 # Create the database structure
1535 system("$mysqldir/bin/mysql -u$user $dbname < koha.mysql");
1541 =item updatedatabase
1545 Updates the Koha database structure, including the addition of
1548 The MARC tables are also populated in addition to being created.
1550 Because updatedatabase calls scripts/updater/updatedatabase to
1551 do the actual update, and that script uses C4::Context,
1552 $etcdir/koha.conf must exist at this point. We use the KOHA_CONF
1553 environment variable to do this.
1555 FIXME: (See checkabortedinstall as it depends on old symlink way.)
1559 $messages->{'UpdateMarcTables'}->{en} =
1560 heading('UPDATING MARC FIELD DEFINITION TABLES') . qq|
1561 You can import marc parameters for :
1567 Please choose which parameter you want to install. Note if you choose N,
1568 nothing will be added, and it can be a BIG job to manually create those tables
1570 Choose MARC definition [1]: |;
1572 $messages->{'Language'}->{en} = heading('CHOOSE LANGUAGES') . qq|
1573 This version of koha supports a few languages.
1574 Enter your language preference : either en, fr, es, pl or zh_TW
1576 Note that the en is always choosen when the system does not finds the
1577 language you choose in a specific screen.
1579 fr : all is translated (except pictures)
1580 es : a few intranet is translated (including pictures)
1581 pl : OPAC and a few intranet is translated
1582 zh_TW : partial translation
1584 Whether you specify a language here, you can always go to the
1585 intranet interface and change it from the system preferences.
1587 Which language do you choose? |;
1589 sub updatedatabase {
1590 # At this point, $etcdir/koha.conf must exist, for C4::Context
1591 $ENV{"KOHA_CONF"}=$etcdir.'/koha.conf.tmp';
1593 my $result=system ("perl -I $intranetdir/modules scripts/updater/updatedatabase");
1596 print "Problem updating database...\n";
1600 my $response=showmessage(getmessage('UpdateMarcTables'), 'restrictchar 12N', '1');
1603 if ($response eq '1') {
1604 system("cat scripts/misc/marc_datas/marc21_en/structure_def.sql | $mysqldir/bin/mysql -u$user $dbname");
1606 if ($response eq '2') {
1607 system("cat scripts/misc/marc_datas/unimarc_fr/structure_def.sql | $mysqldir/bin/mysql -u$user $dbname");
1608 system("cat scripts/misc/lang-datas/fr/stopwords.sql | $mysqldir/bin/mysql -u$user $dbname");
1611 $result = system ("perl -I $intranetdir/modules scripts/marc/updatedb2marc.pl");
1613 print "Problem updating database to MARC...\n";
1617 delete($ENV{"KOHA_CONF"});
1619 print RESET."\n\nFinished updating of database. Press <ENTER> to continue...";
1624 =item populatedatabase
1628 Populate the non-MARC tables. If the user wants to install the
1629 sample data, install them.
1633 sub populatedatabase {
1634 # my $response=showmessage(getmessage('SampleData'), 'yn', 'n');
1635 # if ($response =~/^y/i) {
1637 # FIXME: These calls are now unsafe and should either be removed
1638 # or updated to use -u$user and no mysqlpass_quoted
1640 # system("gunzip -d < sampledata-1.2.gz | $mysqldir/bin/mysql -u$mysqluser $mysqlpass_quoted $dbname");
1641 # system("$mysqldir/bin/mysql -u$mysqluser $mysqlpass_quoted $dbname -e \"insert into branches (branchcode,branchname,issuing) values ('MAIN', 'Main Library', 1)\"");
1642 # system("$mysqldir/bin/mysql -u$mysqluser $mysqlpass_quoted $dbname -e \"insert into branchrelations (branchcode,categorycode) values ('MAIN', 'IS')\"");
1643 # system("$mysqldir/bin/mysql -u$mysqluser $mysqlpass_quoted $dbname -e \"insert into branchrelations (branchcode,categorycode) values ('MAIN', 'CU')\"");
1644 # system("$mysqldir/bin/mysql -u$mysqluser $mysqlpass_quoted $dbname -e \"insert into printers (printername,printqueue,printtype) values ('Circulation Desk Printer', 'lp', 'hp')\"");
1645 # showmessage(getmessage('SampleDataInstalled'), 'PressEnter','',1);
1648 my $response=showmessage(getmessage('AddBranchPrinter'), 'yn', 'y');
1650 unless ($response =~/^n/i) {
1651 my $branch='Main Library';
1652 $branch=showmessage(getmessage('BranchName', [$branch]), 'free', $branch, 1);
1653 $branch=~s/[^A-Za-z0-9\s]//g;
1655 my $branchcode=$branch;
1656 $branchcode=~s/[^A-Za-z0-9]//g;
1657 $branchcode=uc($branchcode);
1658 $branchcode=substr($branchcode,0,4);
1659 $branchcode=showmessage(getmessage('BranchCode', [$branchcode]), 'free', $branchcode, 1);
1660 $branchcode=~s/[^A-Za-z0-9]//g;
1661 $branchcode=uc($branchcode);
1662 $branchcode=substr($branchcode,0,4);
1663 $branchcode or $branchcode='DEF';
1666 system("$mysqldir/bin/mysql -u$user $dbname -e \"insert into branches (branchcode,branchname,issuing) values ('$branchcode', '$branch', 1)\"");
1667 system("$mysqldir/bin/mysql -u$user $dbname -e \"insert into branchrelations (branchcode,categorycode) values ('MAIN', 'IS')\"");
1668 system("$mysqldir/bin/mysql -u$user $dbname -e \"insert into branchrelations (branchcode,categorycode) values ('MAIN', 'CU')\"");
1670 my $printername='Library Printer';
1671 $printername=showmessage(getmessage('PrinterName', [$printername]), 'free', $printername, 1);
1672 $printername=~s/[^A-Za-z0-9\s]//g;
1674 my $printerqueue='lp';
1675 $printerqueue=showmessage(getmessage('PrinterQueue', [$printerqueue]), 'free', $printerqueue, 1);
1676 $printerqueue=~s/[^A-Za-z0-9]//g;
1678 system("$mysqldir/bin/mysql -u$user $dbname -e \"insert into printers (printername,printqueue,printtype) values ('$printername', '$printerqueue', '')\"");
1680 my $language=showmessage(getmessage('Language'), 'free', 'en');
1682 system("$mysqldir/bin/mysql -u$user $dbname -e \"update systempreferences set value='$language' where variable='opaclanguages'\"");
1691 Asks the user whether to restart Apache, and restart it if the user
1694 FIXME: If the installer does not know how to restart the Apache
1695 server (e.g., if the user is not actually using Apache), it still
1700 $messages->{'RestartApache'}->{en} = heading('RESTART APACHE') . qq|
1701 Apache needs to be restarted to load the new configuration for Koha.
1702 This requires the root password.
1704 Would you like to try to restart Apache now? [Y]/N: |;
1708 my $response=showmessage(getmessage('RestartApache'), 'yn', 'y');
1712 unless ($response=~/^n/i) {
1714 # Need to support other init structures here?
1715 if (-e "/etc/rc.d/init.d/httpd") {
1716 system('su root -c /etc/rc.d/init.d/httpd restart');
1717 } elsif (-e "/etc/init.d/apache") {
1718 system('su root -c /etc/init.d/apache restart');
1719 } elsif (-e "/etc/init.d/apache-ssl") {
1720 system('su root -c /etc/init.d/apache-ssl restart');
1727 =item finalizeconfigfile
1731 This function must be called when the installation is complete,
1732 to rename the koha.conf.tmp file to koha.conf.
1734 Currently, failure to rename the file results only in a warning.
1738 sub finalizeconfigfile {
1740 rename "$etcdir/koha.conf.tmp", "$etcdir/koha.conf"
1741 || showmessage(<<EOF, 'PressEnter', undef, 1);
1742 An unexpected error, $!, occurred
1743 while the Koha config file is being saved to its final location,
1746 Couldn't rename file at $etcdir. Must have write capability.
1748 Press Enter to continue.
1754 =item loadconfigfile
1758 Open the existing koha.conf file and get its values,
1759 saving the values to some global variables.
1761 If the existing koha.conf file cannot be opened for any reason,
1762 the file is silently ignored.
1766 sub loadconfigfile {
1769 open (KC, "<$etcdir/koha.conf");
1772 (next) if (/^\s*#/);
1773 if (/(.*)\s*=\s*(.*)/) {
1776 # Clean up white space at beginning and end
1777 $variable=~s/^\s*//g;
1778 $variable=~s/\s*$//g;
1781 $configfile{$variable}=$value;
1785 $intranetdir=$configfile{'intranetdir'};
1786 $opacdir=$configfile{'opacdir'};
1787 $kohaversion=$configfile{'kohaversion'};
1788 $kohalogdir=$configfile{'kohalogdir'};
1789 $database=$configfile{'database'};
1790 $hostname=$configfile{'hostname'};
1791 $user=$configfile{'user'};
1792 $pass=$configfile{'pass'};
1795 END { } # module clean-up code here (global destructor)
1797 ### These things may move
1801 my $t = POSIX::Termios->new;
1805 $t->setlflag(($t->getlflag) | &POSIX::ECHO);
1808 $t->setlflag(($t->getlflag) & !(&POSIX::ECHO));
1813 sub setmysqlclipass {
1815 open(MYCNF,">$mycnf");
1817 print MYCNF "[client]\npassword=$pass\n";
1823 rename $mycnf,$mytmpcnf;
1832 rename $mytmpcnf,$mycnf;