Work on install bugs (see bug 632)

[koha_fer] / misc / Install.pm

package Install; #assumes Install.pm


# Copyright 2000-2002 Katipo Communications
# Contains parts Copyright 2003 MJ Ray
#
# This file is part of Koha.
#
# Koha is free software; you can redistribute it and/or modify it under the
# terms of the GNU General Public License as published by the Free Software
# Foundation; either version 2 of the License, or (at your option) any later
# version.
#
# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License along with
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
# Suite 330, Boston, MA  02111-1307 USA
#
# Recent Authors
# MJR: my.cnf, etcdir, prefix, new display, apache conf, copying fixups

use strict;
use POSIX;
#MJR: everyone will have these modules, right?
# They look like part of perl core to me
use Term::Cap;
use Term::ANSIColor qw(:constants);
use Text::Wrap;
require Exporter;

use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

=head1 NAME

Install.pm - Perl module containing the bulk of the installation logic

=head1 DESCRIPTION

The Install.pm module contains the bulk
of the code to do installation;
this code is used by installer.pl
to perform an actual installation.

=head2 Internal functions (not meant to be used outside of Install.pm)

=over 4

=cut

# set the version for version checking
$VERSION = 0.01;

@ISA = qw(Exporter);
@EXPORT = qw(   &checkperlmodules
                &checkabortedinstall
                &getmessage
                &showmessage
                &releasecandidatewarning
                &getinstallationdirectories
                &getdatabaseinfo
                &getapacheinfo
                &getapachevhostinfo
                &updateapacheconf
                &basicauthentication
                &installfiles
                &databasesetup
                &updatedatabase
                &populatedatabase
                &restartapache
                &finalizeconfigfile
                &loadconfigfile
                &backupmycnf
                &restoremycnf
                );

use vars qw( $kohaversion );                    # set in installer.pl
use vars qw( $language );                       # set in installer.pl
use vars qw( $domainname );                     # set in installer.pl

use vars qw( $etcdir );                         # set in installer.pl, usu. /etc
use vars qw( $intranetdir $opacdir $kohalogdir );
use vars qw( $realhttpdconf $httpduser );
use vars qw( $servername $svr_admin $opacport $intranetport );
use vars qw( $mysqldir );
use vars qw( $database $mysqluser );
use vars qw( $mysqlpass );                      # normally should not be used
use vars qw( $dbname $hostname $user $pass );   # virtual hosting

use vars qw( $newversion );                     # XXX this seems to be unused

=item heading

    $messages->{'WelcomeToKohaInstaller'
        = heading('Welcome to the Koha Installer') . qq|...|;

The heading function takes one string, the text to be displayed as
the heading, and returns a formatted heading (currently formatted
with ANSI colours).

This reduces the likelihood of pod2man(1) etc. misinterpreting
a line of equal signs as illegal POD directives.

=cut

my $termios = POSIX::Termios->new();
$termios->getattr();
my $terminal = Term::Cap->Tgetent({OSPEED=>$termios->getospeed()});
my $clear_string = "\n\n"; #MJR: was $terminal->Tputs('cl');

sub heading ($) {
  my $title = shift;
  my $bal = 5;
  return($clear_string.ON_BLUE.WHITE.BOLD." "x$bal.uc($title)." "x$bal.RESET."\n\n");
}

my $mycnf = $ENV{HOME}."/.my.cnf";
my $mytmpcnf = `mktemp my.cnf.koha.XXXXXX`;
chomp($mytmpcnf);

my $messages;
$messages->{'continuing'}->{en}="Great!  Continuing setup.\n\n";
$messages->{'WelcomeToKohaInstaller'}->{en} =
   heading('Welcome to the Koha Installer') . qq|
Welcome to the Koha install script!  This script will prompt you for some
basic information about your desired setup, then install Koha for you.

If you want to install the Koha configuration file somewhere other than /etc
(eg for non-root installation, or multiple Koha versions on one system), you
should set the etcdir and prefix environment variables.  If this is your
only koha installation on this machine and you are running this as root, the
default should be OK.

To accept the default value for any question, simply hit Enter at the prompt.

Please be sure to read the documentation, or visit the Koha website at
http://www.koha.org for more information.

Are you ready to begin the installation? ([Y]/N): |;
$messages->{'ReleaseCandidateWarning'}->{en} =
   heading('RELEASE CANDIDATE') . qq|
WARNING WARNING WARNING WARNING WARNING

You are about to install Koha version %s.  This version of Koha is a
release candidate.  It is not intended to be installed on production systems.
It is being released so that users can test it before we release a final
version.

Are you sure you want to install Koha %s? (Y/[N]): |;
$messages->{'WatchForReleaseAnnouncements'}->{en}=qq|

Watch for announcements of Koha releases on the Koha mailing list or the Koha
web site (http://www.koha.org/).

|;

$messages->{'NETZ3950Missing'}->{en}=qq|

The Net::Z3950 module is missing.  This module is necessary if you want to use
Koha's Z39.50 client to download bibliographic records from other libraries.

To install this module, you will need the yaz client installed from
http://www.indexdata.dk/yaz/ and then you can install the perl module with the
command:

perl -MCPAN -e 'install Net::Z3950'

IMPORTANT NOTE : If you use PERL5.8.0 (RedHat 8.0 or Mandrake 9.x), you MUST install 
manually the Net::Z3950 and edit Makefile.PL and yazwrap/Makefile.PL to include:
    'DEFINE' => '-D_GNU_SOURCE',
Also note that some installations of Perl on Red Hat will generate a lot of
"'my_perl' undeclared" errors when running make in Net-Z3950.  This is fixed by
inserting the following line in yazwrap/ywpriv.h :
   #include "XSUB.h"

Press the <ENTER> key to continue: |;   #'

$messages->{'CheckingPerlModules'}->{en} = heading('PERL & MODULES') . qq|
Checking perl modules ...
|;

$messages->{'PerlVersionFailure'}->{en}="Sorry, you need at least Perl %s\n";

$messages->{'MissingPerlModules'}->{en} = heading('MISSING PERL MODULES') . qq|
You are missing some Perl modules which are required by Koha.
Once these modules have been installed, rerun this installer.
They can be installed by running (as root) the following:

%s
|;

$messages->{'AllPerlModulesInstalled'}->{en} =
   heading('ALL PERL MODULES INSTALLED') . qq|
All mandatory perl modules are installed.

Press <ENTER> to continue: |;
$messages->{'KohaVersionInstalled'}->{en}="You currently have Koha %s on your system.";
$messages->{'KohaUnknownVersionInstalled'}->{en}="I am not able to determine what version of Koha is installed now.";
$messages->{'KohaAlreadyInstalled'}->{en} =
   heading('Koha already installed') . qq|
It looks like Koha is already installed on your system (%s/koha.conf exists
already).  If you would like to upgrade your system to %s, please use
the koha.upgrade script in this directory.

%s

|;
$messages->{'GetOpacDir'}->{en} = heading('OPAC DIRECTORY') . qq|
Please supply the directory you want Koha to store its OPAC files in.  This
directory will be auto-created for you if it doesn't exist.

OPAC Directory [%s]: |; #'

$messages->{'GetIntranetDir'}->{en} =
   heading('INTRANET/LIBRARIANS DIRECTORY') . qq|
Please supply the directory you want Koha to store its Intranet/Librarians
files in.  This directory will be auto-created for you if it doesn't exist.

Intranet Directory [%s]: |;     #'

$messages->{'GetKohaLogDir'}->{en} = heading('KOHA LOG DIRECTORY') . qq|
Specify a log directory where any Koha daemons can create log files.

Koha Log Directory [%s]: |;

$messages->{'AuthenticationWarning'}->{en} = heading('Authentication') . qq|
This release of Koha has a new authentication module.  If you are not already
using basic authentication on your intranet, you will be required to log in to
access some of the features of the intranet.

IMPORTANT: You can log in using the userid and password from the %s/koha.conf configuration file at any time.
Use the "Members" module to add passwords for other accounts and set their permissions.

Press the <ENTER> key to continue: |;

$messages->{'Completed'}->{en} = heading('KOHA INSTALLATION COMPLETE') . qq|
Congratulations ... your Koha installation is complete!

You will be able to connect to your Librarian interface at:

   http://%s\:%s/
   use mysql login and password to connect to this interface. Then, go to admin page, and create whatever fits your needs.

and the OPAC interface at :

   http://%s\:%s/

Be sure to read the Hints file.

For more information visit http://www.koha.org

Press <ENTER> to exit the installer: |;

sub releasecandidatewarning {
    my $message=getmessage('ReleaseCandidateWarning', [$newversion, $newversion]);
    my $answer=showmessage($message, 'yn', 'n');

    if ($answer =~ /y/i) {
        print getmessage('continuing');
    } else {
        my $message=getmessage('WatchForReleaseAnnouncements');
        print $message."\n";
        exit;
    };
}


=back

=head2 Accessor functions (for installer.pl)

=over 4

=cut

=item setlanguage

    setlanguage('en');

Sets the installation language, normally "en" (English).
In fact, only "en" is supported.

=cut

sub setlanguage ($) {
    ($language) = @_;
}

=item setdomainname

    setdomainname('example.org');

Sets the domain name of the host.

The domain name should not contain a leading dot;
otherwise, the results are undefined.

=cut

sub setdomainname ($) {
    ($domainname) = @_;
}

=item setetcdir

    setetcdir('/etc');

Sets the sysconfdir, normally /etc.
This should be an absolute path; a trailing / is not required.

=cut

sub setetcdir ($) {
    ($etcdir) = @_;
}

=item setkohaversion

    setkohaversion('1.3.3RC26');

Sets the Koha version as known by the installer.

=cut

sub setkohaversion ($) {
    ($kohaversion) = @_;
}

=item getservername

    my $servername = getservername;

Gets the name of the Koha virtual server as specified by the user.

=cut

sub getservername () {
    $servername;
}

=item getopacport

    $port = getopacport;

Gets the port that will run the Koha OPAC virtual server,
as specified by the user.

=cut

sub getopacport () {
    $opacport;
}

=item getintranetport

    $port = getintranetport;

Gets the port that will run the Koha INTRANET virtual server,
as specified by the user.

=cut

sub getintranetport () {
    $intranetport;
}

=back

=head2 Miscellaneous utility functions

=over 4

=cut

=item dirname

    dirname $path;

Does the equivalent of dirname(1). Given a path $path, return the
parent directory of $path (best guess), except when $path seems to
be the same as /, in which case $path itself is returned unchanged.

=cut

sub dirname ($;$) {
    my($path) = @_;
    if ($path =~ /[^\/]/s) {
        if ($path =~ /\//) {
            $path =~ s/\/+[^\/]+\/*$//s;
        } else {
            $path = '.';
        }
    }
    return $path;
}

=item mkdir_parents

    mkdir_parents $path;
    mkdir_parents $path, $mode;

Does the equivalent of mkdir -p, or mkdir --parents. Given a path $path,
create the directory $path, recursively creating any intermediate
directories. If $mode is given, the directory will be created with
mode $mode.

WARNING: If $path already exists, mkdir_parents will just return
successfully (just like mkdir -p), whether the mode of $path conforms
to $mode or not. (This is the behaviour of the mkdir -p command.)

=cut

sub mkdir_parents {
    my($path, $mode) = @_;
    my $ok = -d($path)? 1: defined $mode? mkdir($path, $mode): mkdir($path);

    if (!$ok && $! == ENOENT) {
        my $parent = dirname($path);
        $ok = mkdir_parents($parent, $mode);

        # retry and at the same time make sure that $! is set correctly
        $ok = defined $mode? mkdir($path, $mode): mkdir($path);
    }
    return $ok;
}


=item getmessage

    getmessage($msgid);
    getmessage($msgid, $variables);

Gets a localized message (format string) with message id $msgid,
and, if an array reference of variables $variables is given,
substitutes variables in the format string with @$variables.
Returns the found message string, with variable substitutions
if specified.

$msgid must be the message identifier corresponding to a defined
message string (a valid key to the $messages hash in the Installer
package). getmessage throws an exception if the message cannot be
found.

=cut

sub getmessage {
    my $messagename=shift;
    my $variables=shift;
    my $message=$messages->{$messagename}->{$language} || $messages->{$messagename}->{en} || RED.BOLD."Error: No message named $messagename in Install.pm\n";
    if (defined($variables)) {
        $message=sprintf $message, @$variables;
    }
    return $message;
}


=item showmessage

    showmessage($message, 'none');
    showmessage($message, 'none', undef, $noclear);

    $result = showmessage($message, 'yn');
    $result = showmessage($message, 'yn', $defaultresponse);
    $result = showmessage($message, 'yn', $defaultresponse, $noclear);

    $result = showmessage($message, 'restrictchar CHARS');
    $result = showmessage($message, 'free');
    $result = showmessage($message, 'silentfree');
    $result = showmessage($message, 'numerical');
    $result = showmessage($message, 'email');
    $result = showmessage($message, 'PressEnter');

Shows a message and optionally gets a response from the user.

The first two arguments, the message and the response type,
are mandatory.  The message must be the actual string to
display; the caller is responsible for calling getmessage if
required.

The response type must be one of "none", "yn", "free", "silentfree"
"numerical", "email", "PressEnter", or a string consisting
of "restrictchar " followed by a list of allowed characters
(space can be specified). (Case is not significant, but case is
significant in the list of allowed characters.) If a response
type other than the above-listed is specified, the result is
undefined.

Note that the response type "yn" is equivalent to "restrictchar yn".
Because "restrictchar" is case-sensitive, the user is expected
to enter "y" or "n" in lowercase only.

Note that the response type of "email" does not actually
guarantee that the returned value is a well-formed RFC-822
email address, nor does it accept all well-formed RFC-822 email
addresses. What it does is to restrict the returned value to a
string that is looks reasonably likely to be an email address
in the "real world", given the premise that the user is trying
to enter a real email address.

If a response type other than "none" or "PressEnter" is
specified, a third argument, specifying the default value, can
be specified:  If this default response is not specified, the
default response is the first allowed character if the response
type is "restrictchar", otherwise the default response is the
empty string. This default response is used when the user does
not specify a value (i.e., presses Enter without typing in
anything), showmessage will assume that the default response is
the user's response.

Note that because the response type "yn" is equivalent to
"restrictchar yn", the default value for response type "yn",
if unspecified, is "y".

The screen is normally cleared before the message is displayed;
if a fourth argument is specified and is nonzero, this
screen-clearing is not done.

=cut
#'

sub showmessage {
    #MJR: Maybe refactor to use anonymous functions that
    # check the responses instead of RnP branching.
    my $message=join('',fill('','',(shift)));
    my $responsetype=shift;
    my $defaultresponse=shift;
    my $noclear=shift;
    $noclear = 0 unless defined $noclear; # defaults to "clear"
    ($noclear) || (print $clear_string);
    if ($responsetype =~ /^yn$/) {
        $responsetype='restrictchar ynYN';
    }
    print RESET.$message;
    if ($responsetype =~/^restrictchar (.*)/i) {
        my $response='\0';
        my $options=$1;
        until ($options=~/$response/) {
            (defined($defaultresponse)) || ($defaultresponse=substr($options,0,1));
            $response=<STDIN>;
            chomp $response;
            (length($response)) || ($response=$defaultresponse);
            if ( $response=~/.*[\:\(\)\^\$\*\!\\].*/ ) {
                ($noclear) || (print $clear_string);
                print RED."Response contains invalid characters.  Choose from [$options].\n\n";
                print RESET.$message;
                $response='\0';
            } else {
                unless ($options=~/$response/) {
                    ($noclear) || (print $clear_string);
                    print RED."Invalid Response.  Choose from [$options].\n\n";
                    print RESET.$message;
                }
            }
        }
        return $response;
    } elsif ($responsetype =~/^(silent)?free$/i) {
        (defined($defaultresponse)) || ($defaultresponse='');
        if ($responsetype =~/^(silent)/i) { setecho(0) }; 
        my $response=<STDIN>;
        if ($responsetype =~/^(silent)/i) { setecho(1) }; 
        chomp $response;
        ($response) || ($response=$defaultresponse);
        return $response;
    } elsif ($responsetype =~/^numerical$/i) {
        (defined($defaultresponse)) || ($defaultresponse='');
        my $response='';
        until ($response=~/^\d+$/) {
            $response=<STDIN>;
            chomp $response;
            ($response) || ($response=$defaultresponse);
            unless ($response=~/^\d+$/) {
                ($noclear) || (print $clear_string);
                print RED."Invalid Response ($response).  Response must be a number.\n\n";
                print RESET.$message;
            }
        }
        return $response;
    } elsif ($responsetype =~/^email$/i) {
        (defined($defaultresponse)) || ($defaultresponse='');
        my $response='';
        until ($response=~/.*\@.*\..*/) {
            $response=<STDIN>;
            chomp $response;
            ($response) || ($response=$defaultresponse);
            if ($response!~/.*\@.*\..*/) {
                        ($noclear) || (print $clear_string);
                        print RED."Invalid Response ($response).  Response must be a valid email address.\n\n";
                        print RESET.$message;
            }
        }
        return $response;
    } elsif ($responsetype =~/^PressEnter$/i) {
        <STDIN>;
        return;
    } elsif ($responsetype =~/^none$/i) {
        return;
    } else {
        # FIXME: There are a few places where we will get an undef as the
        # response type. Should we thrown an exception here, or should we
        # legitimize this usage and say "none" is the default if not specified?
        #die "Illegal response type \"$responsetype\"";
    }
}


=back

=item startsysout

        startsysout;

Changes the display to show system output until the next showmessage call.
At the time of writing, this means using red text.

=cut

sub startsysout {
        print RED."\n";
}


=back

=head2 Subtasks of doing an installation

=over 4

=cut

=item checkabortedinstall

    checkabortedinstall;

Checks whether a previous installation process has been abnormally
aborted, by checking whether $etcidr/koha.conf is a symlink matching
a particular pattern.  If an aborted installation is detected, give
the user a chance to abort, before trying to recover the aborted
installation.

FIXME: The recovery is not complete; it only partially rolls back
some changes.

=cut

sub checkabortedinstall () {
    if (-l("$etcdir/koha.conf")
        && readlink("$etcdir/koha.conf") =~ /\.tmp$/
    ) {
        print qq|
I have detected that you tried to install Koha before, but the installation
was aborted.  I will try to continue, but there might be problems if the
database is already created.

|;
        print "Please press <ENTER> to continue: ";
        <STDIN>;

        # Remove the symlink after the <STDIN>, so the user can back out
        unlink "$etcdir/koha.conf"
            || die "Failed to remove incomplete $etcdir/koha.conf: $!\n";
    }
}


=item checkperlmodules

    checkperlmodules;

Test whether the version of Perl is new enough, whether Perl is
found at the expected location, and whether all required modules
have been installed.

=cut

sub checkperlmodules {
#
# Test for Perl and Modules
#

    my $message = getmessage('CheckingPerlModules');
    showmessage($message, 'none');

    unless ($] >= 5.006001) {                   # Bug 179
        die getmessage('PerlVersionFailure', ['5.6.1']);
    }
        startsysout();

    my @missing = ();
    unless (eval {require DBI})              { push @missing,"DBI" };
    unless (eval {require Date::Manip})      { push @missing,"Date::Manip" };
    unless (eval {require DBD::mysql})       { push @missing,"DBD::mysql" };
    unless (eval {require HTML::Template})   { push @missing,"HTML::Template" };
#    unless (eval {require Set::Scalar})      { push @missing,"Set::Scalar" };
    unless (eval {require Digest::MD5})      { push @missing,"Digest::MD5" };
    unless (eval {require MARC::Record})     { push @missing,"MARC::Record" };
    unless (eval {require Mail::Sendmail})   { push @missing,"Mail::Sendmail" };
    unless (eval {require Event})       {
                if ($#missing>=0) { # only when $#missing >= 0 so this isn't fatal
                    push @missing, "Event";
                }
    }
    unless (eval {require Net::Z3950})       {
        showmessage(getmessage('NETZ3950Missing'), 'PressEnter', '', 1);
                if ($#missing>=0) { # see above note
                    push @missing, "Net::Z3950";
                }
    }

#
# Print out a list of any missing modules
#

    if (@missing > 0) {
        my $missing='';
        if (POSIX::setlocale(LC_ALL) != "C") {
                $missing.="   export LC_ALL=C\n";  
        }
        foreach my $module (@missing) {
            $missing.="   perl -MCPAN -e 'install \"$module\"'\n";
        }
        my $message=getmessage('MissingPerlModules', [$missing]);
        showmessage($message, 'none');
        print "\n";
        exit;
    } else {
        showmessage(getmessage('AllPerlModulesInstalled'), 'PressEnter', '', 1);
    }


        startsysout();
    unless (-x "/usr/bin/perl") {
        my $realperl=`which perl`;
        chomp $realperl;
        $realperl = showmessage(getmessage('NoUsrBinPerl'), 'none');
        until (-x $realperl) {
            $realperl=showmessage(getmessage('AskLocationOfPerlExecutable', $realperl), 'free', $realperl, 1);
        }
        my $response=showmessage(getmessage('ConfirmPerlExecutableSymlink', $realperl), 'yn', 'y', 1);
        unless ($response eq 'n') {
                startsysout();
            system("ln -s $realperl /usr/bin/perl");
        }
    }


}

$messages->{'NoUsrBinPerl'}->{en} =
   heading('Perl is not located in /usr/bin/perl') . qq|
The Koha perl scripts expect to find the perl executable in the /usr/bin
directory.  It is not there on your system.

|;

$messages->{'AskLocationOfPerlExecutable'}->{en}=qq|Location of Perl Executable: [%s]: |;
$messages->{'ConfirmPerlExecutableSymlink'}->{en}=qq|
The Koha scripts will _not_ work without a symlink from %s to /usr/bin/perl

May I create this symlink? ([Y]/N):
: |;

$messages->{'DirFailed'}->{en} = RED.qq|
We could not create %s, but continuing anyway...

|;



=item getinstallationdirectories

    getinstallationdirectories;

Get the various installation directories from the user, and then
create those directories (if they do not already exist).

These pieces of information are saved to global variables; the
function does not return any values.

=cut

sub getinstallationdirectories {
        if (!$ENV{prefix}) { $ENV{prefix} = "/usr/local"; }
    $opacdir = $ENV{prefix}.'/koha/opac';
    $intranetdir = $ENV{prefix}.'/koha/intranet';
    my $getdirinfo=1;
    while ($getdirinfo) {
        # Loop until opac directory and koha directory are different
        my $message=getmessage('GetOpacDir', [$opacdir]);
        $opacdir=showmessage($message, 'free', $opacdir);

        $message=getmessage('GetIntranetDir', [$intranetdir]);
        $intranetdir=showmessage($message, 'free', $intranetdir);

        if ($intranetdir eq $opacdir) {
            print qq|

You must specify different directories for the OPAC and INTRANET files!
 :: $intranetdir :: $opacdir ::
|;
<STDIN>
        } else {
            $getdirinfo=0;
        }
    }
    $kohalogdir=$ENV{prefix}.'/koha/log';
    my $message=getmessage('GetKohaLogDir', [$kohalogdir]);
    $kohalogdir=showmessage($message, 'free', $kohalogdir);


    # FIXME: Need better error handling for all mkdir calls here
    unless ( -d $intranetdir ) {
       mkdir_parents (dirname($intranetdir), 0775) || print getmessage('DirFailed',['parents of '.$intranetdir]);
       mkdir ($intranetdir,                  0770) || print getmessage('DirFailed',[$intranetdir]);
       if ($>==0) { chown (oct(0), (getgrnam($httpduser))[2], "$intranetdir"); }
       chmod 0770, "$intranetdir";
    }
    mkdir_parents ("$intranetdir/htdocs",    0750);
    mkdir_parents ("$intranetdir/cgi-bin",   0750);
    mkdir_parents ("$intranetdir/modules",   0750);
    mkdir_parents ("$intranetdir/scripts",   0750);
    unless ( -d $opacdir ) {
       mkdir_parents (dirname($opacdir),     0775) || print getmessage('DirFailed',['parents of '.$opacdir]);
       mkdir ($opacdir,                      0770) || print getmessage('DirFailed',[$opacdir]);
       if ($>==0) { chown (oct(0), (getgrnam($httpduser))[2], "$opacdir"); }
       chmod (oct(770), "$opacdir");
    }
    mkdir_parents ("$opacdir/htdocs",        0750);
    mkdir_parents ("$opacdir/cgi-bin",       0750);


    unless ( -d $kohalogdir ) {
       mkdir_parents (dirname($kohalogdir),  0775) || print getmessage('DirFailed',['parents of '.$kohalogdir]);
       mkdir ($kohalogdir,                   0770) || print getmessage('DirFailed',[$kohalogdir]);
       if ($>==0) { chown (oct(0), (getgrnam($httpduser))[2,3], "$kohalogdir"); }
       chmod (oct(770), "$kohalogdir");
    }
}



=item getdatabaseinfo

    getdatabaseinfo;

Get various pieces of information related to the Koha database:
the name of the database, the host on which the SQL server is
running, and the database user name.

These pieces of information are saved to global variables; the
function does not return any values.

=cut

$messages->{'DatabaseName'}->{en} = heading('Name of MySQL database') . qq|
Please provide the name that you wish to give your koha database.
It must not exist already on the database server.

Database name [%s]: |;

$messages->{'DatabaseHost'}->{en} = heading('Database Host') . qq|
Please provide the hostname for mysql.  Unless the database is located on
another machine this will be "localhost".

Database host [%s]: |;

$messages->{'DatabaseUser'}->{en} = heading('Database User') . qq|
Please provide the name of the user who will have full administrative rights
to the %s database, when authenticating from %s.

This user will also be used to access Koha's INTRANET interface.

Database user [%s]: |;

$messages->{'DatabasePassword'}->{en} = heading('Database Password') . qq|
Please provide a good password for the user %s.

IMPORTANT: You can log in using this userid and password at any time.

Password for database user %s: |;

$messages->{'BlankPassword'}->{en} = heading('BLANK PASSWORD') . qq|
You must not use a blank password for your MySQL user.

Press <ENTER> to try again: 
|;

sub getdatabaseinfo {

    $dbname = 'Koha';
    $hostname = 'localhost';
    $user = 'kohaadmin';
    $pass = '';

#Get the database name

    my $message=getmessage('DatabaseName', [$dbname]);
    $dbname=showmessage($message, 'free', $dbname);

#Get the hostname for the database
    
    $message=getmessage('DatabaseHost', [$hostname]);
    $hostname=showmessage($message, 'free', $hostname);

#Get the username for the database

    $message=getmessage('DatabaseUser', [$dbname, $hostname, $user]);
    $user=showmessage($message, 'free', $user);

#Get the password for the database user

    while ($pass eq '') {
        my $message=getmessage('DatabasePassword', [$user, $user]);
        $pass=showmessage($message, 'free', $pass);
        if ($pass eq '') {
            my $message=getmessage('BlankPassword');
            showmessage($message,'PressEnter');
        }
    }
}



=item getapacheinfo

    getapacheinfo;

Get various pieces of information related to the Apache server:
the location of the configuration file and, if needed, the Unix
user that the Koha CGI will be run under.

These pieces of information are saved to global variables; the
function does not return any values.

=cut

$messages->{'FoundMultipleApacheConfFiles'}->{en} = 
   heading('MULTIPLE APACHE CONFIG FILES') . qq|
I found more than one possible Apache configuration file:

%s

Choose the correct file [1]: |;

$messages->{'NoApacheConfFiles'}->{en} =
   heading('NO APACHE CONFIG FILE FOUND') . qq|
I was not able to find your Apache configuration file.

The file is usually called httpd.conf or apache.conf.

Please specify the location of your config file: |;

$messages->{'NotAFile'}->{en} = heading('FILE DOES NOT EXIST') . qq|
The file %s does not exist.

Please press <ENTER> to continue: |;

$messages->{'EnterApacheUser'}->{en} = heading('NEED APACHE USER') . qq|
The installer could not find the user that Apache is running as.  
This is used to set up access permissions of
%s/koha.conf.  This user should be set in one of the Apache configuration
files with the "User" line.
Please try to find it and enter the user name below.

Enter the Apache userid: |;

$messages->{'InvalidUserid'}->{en} = heading('INVALID USERID') . qq|
The userid %s is not a valid userid on this system.

Press <ENTER> to continue: |;

sub getapacheinfo {
    my @confpossibilities;

    foreach my $httpdconf (qw(/usr/local/apache/conf/httpd.conf
                          /usr/local/etc/apache/httpd.conf
                          /usr/local/etc/apache/apache.conf
                          /var/www/conf/httpd.conf
                          /etc/apache2/httpd.conf
                          /etc/apache2/apache2.conf
                          /etc/apache/conf/httpd.conf
                          /etc/apache/conf/apache.conf
                          /etc/apache-ssl/conf/apache.conf
                          /etc/apache-ssl/httpd.conf
                          /etc/httpd/conf/httpd.conf
                          /etc/httpd/httpd.conf)) {
        if ( -f $httpdconf ) {
            push @confpossibilities, $httpdconf;
        }
    }

    if ($#confpossibilities==-1) {
        my $message=getmessage('NoApacheConfFiles');
        my $choice='';
        until (-f $realhttpdconf) {
            $choice=showmessage($message, "free", 1);
            if (-f $choice) {
                $realhttpdconf=$choice;
            } else {
                showmessage(getmessage('NotAFile', [$choice]),'PressEnter', '', 1);
            }
        }
    } elsif ($#confpossibilities>0) {
        my $conffiles='';
        my $counter=1;
        my $options='';
        foreach (@confpossibilities) {
            $conffiles.="   $counter: $_\n";
            $options.="$counter";
            $counter++;
        }
        my $message=getmessage('FoundMultipleApacheConfFiles', [$conffiles]);
        my $choice=showmessage($message, "restrictchar $options", 1);
        $realhttpdconf=$confpossibilities[$choice-1];
    } else {
        $realhttpdconf=$confpossibilities[0];
    }
    unless (open (HTTPDCONF, "<$realhttpdconf")) {
        warn RED."Insufficient privileges to open $realhttpdconf for reading.\n";
        sleep 4;
    }

    while (<HTTPDCONF>) {
        if (/^\s*User\s+"?([-\w]+)"?\s*$/) {
            $httpduser = $1;
        }
    }
    close(HTTPDCONF);

    unless (defined($httpduser)) {
        my $message=getmessage('EnterApacheUser', [$etcdir]);
        until (defined($httpduser) && length($httpduser) && getpwnam($httpduser)) {
            $httpduser=showmessage($message, "free", '');
            if (length($httpduser)>0) {
                unless (getpwnam($httpduser)) {
                    my $message=getmessage('InvalidUserid', [$httpduser]);
                    showmessage($message,'PressEnter');
                }
            } else {
            }
        }
    }
}


=item getapachevhostinfo

    getapachevhostinfo;

Gets various pieces of information related to virtual hosting:
the webmaster email address, virtual hostname, and the ports
that the OPAC and INTRANET modules run on.

These pieces of information are saved to global variables; the
function does not return any values.

=cut

$messages->{'ApacheConfigIntroduction'}->{en} =
   heading('APACHE CONFIGURATION') . qq|
Koha needs to write an Apache configuration file for the
OPAC and LIBRARIAN virtual hosts.  By default this installer
will do this by using one ip address and two different ports
for the virtual hosts.  There are other ways to set this up,
and the installer will leave comments in
%s/koha-httpd.conf detailing
what these other options are.

NOTE: You will need to add lines to your main httpd.conf to
include %s/koha-httpd.conf
and to make sure it is listening on the right ports
(using the Listen directive).

Press <ENTER> to continue: |;

$messages->{'GetVirtualHostEmail'}->{en} =
   heading('WEB SERVER E-MAIL CONTACT') . qq|
Enter the e-mail address to be used as a contact for the virtual hosts (this
address is displayed if any errors are encountered).

E-mail contact [%s]: |;

$messages->{'GetServerName'}->{en} =
   heading('WEB SERVER HOST NAME OR IP ADDRESS') . qq|
Please enter the host name or IP address that you wish to use for koha.
Normally, this should be a name or IP that belongs to this machine.

Host name or IP Address [%s]: |;

$messages->{'GetOpacPort'}->{en} = heading('OPAC VIRTUAL HOST PORT') . qq|
Please enter the port for your OPAC interface.  This defaults to port 80, but
if you are already serving web content from this host, you should change it
to a different port (8000 might be a good choice).

Enter the OPAC Port [%s]: |;

$messages->{'GetIntranetPort'}->{en} =
   heading('INTRANET VIRTUAL HOST PORT') . qq|
Please enter the port for your Intranet interface.  This must be different from
the OPAC port (%s).

Enter the Intranet Port [%s]: |;


sub getapachevhostinfo {

    $svr_admin = "webmaster\@$domainname";
    $servername=`hostname`;
    chomp $servername;
    $opacport=80;
    $intranetport=8080;

    showmessage(getmessage('ApacheConfigIntroduction',[$etcdir,$etcdir]), 'PressEnter');

    $svr_admin=showmessage(getmessage('GetVirtualHostEmail', [$svr_admin]), 'email', $svr_admin);
    $servername=showmessage(getmessage('GetServerName', [$servername]), 'free', $servername);


    $opacport=showmessage(getmessage('GetOpacPort', [$opacport]), 'numerical', $opacport);
    $intranetport=showmessage(getmessage('GetIntranetPort', [$opacport, $intranetport]), 'numerical', $intranetport);

}


=item updateapacheconf

    updateapacheconf;

Updates the Apache config file according to parameters previously
specified by the user.

It will append fully-commented directives at the end of the original
Apache config file.  The old config file is renamed with an extension
of .prekoha.

If you need to uninstall Koha for any reason, the lines between

    # Ports to listen to for Koha

and the block of comments beginning with

    # If you want to use name based Virtual Hosting:

must be removed.

=cut

$messages->{'StartUpdateApache'}->{en} =
   heading('UPDATING APACHE CONFIGURATION') . qq|
Checking for modules that need to be loaded...
|;

$messages->{'ApacheConfigMissingModules'}->{en} =
   heading('APACHE CONFIGURATION NEEDS UPDATE') . qq|
Koha uses the mod_env and mod_include apache features, but the
installer did not find statements for them in your config.  Please
make sure that they are enabled for your Koha host.

Press <ENTER> to continue: |;


$messages->{'ApacheAlreadyConfigured'}->{en} =
   heading('APACHE ALREADY CONFIGURED') . qq|
%s appears to already have an entry for Koha
Virtual Hosts.  You may need to edit %s
if anything has changed since it was last set up.  This
script will not attempt to modify an existing Koha apache
configuration.

Press <ENTER> to continue: |;

sub updateapacheconf {
    my $logfiledir=$kohalogdir;
    my $httpdconf = $etcdir."/koha-httpd.conf";
   
    showmessage(getmessage('StartUpdateApache'), 'none');
        # to be polite about it: I don't think this should touch the main httpd.conf

        # QUESTION: Should we warn for includes_module too?
    my $envmodule=0;
    my $includesmodule=0;
    open HC, "<$realhttpdconf";
    while (<HC>) {
        if (/^\s*#\s*LoadModule env_module /) {
            showmessage(getmessage('ApacheConfigMissingModules'));
            $envmodule=1;
        }
        if (/\s*LoadModule includes_module / ) {
            $includesmodule=1;
        }
    }

        startsysout;
    if (`grep -q 'VirtualHost $servername' "$httpdconf" 2>/dev/null`) {
        showmessage(getmessage('ApacheAlreadyConfigured', [$httpdconf, $httpdconf]), 'PressEnter');
        return;
    } else {
        my $includesdirectives='';
        if ($includesmodule) {
            $includesdirectives.="Options +Includes\n";
            $includesdirectives.="   AddHandler server-parsed .html\n";
        }
        open(SITE,">$httpdconf") or warn "Insufficient priveleges to open $httpdconf for writing.\n";
        my $opaclisten = '';
        if ($opacport != 80) {
            $opaclisten="Listen $opacport";
        }
        my $intranetlisten = '';
        if ($intranetport != 80) {
            $intranetlisten="Listen $intranetport";
        }
        print SITE <<EOP

# Ports to listen to for Koha
# uncomment these if they aren't already in main httpd.conf
#$opaclisten
#$intranetlisten

# NameVirtualHost is used by one of the optional configurations detailed below

#NameVirtualHost 11.22.33.44

# KOHA's OPAC Configuration
<VirtualHost $servername\:$opacport>
   ServerAdmin $svr_admin
   DocumentRoot $opacdir/htdocs
   ServerName $servername
   ScriptAlias /cgi-bin/koha/ $opacdir/cgi-bin/
   ErrorLog $logfiledir/opac-error_log
   TransferLog $logfiledir/opac-access_log
   SetEnv PERL5LIB "$intranetdir/modules"
   SetEnv KOHA_CONF "$etcdir/koha.conf"
   $includesdirectives
</VirtualHost>

# KOHA's INTRANET Configuration
<VirtualHost $servername\:$intranetport>
   ServerAdmin $svr_admin
   DocumentRoot $intranetdir/htdocs
   ServerName $servername
   ScriptAlias /cgi-bin/koha/ "$intranetdir/cgi-bin/"
   ErrorLog $logfiledir/koha-error_log
   TransferLog $logfiledir/koha-access_log
   SetEnv PERL5LIB "$intranetdir/modules"
   SetEnv KOHA_CONF "$etcdir/koha.conf"
   $includesdirectives
</VirtualHost>

# If you want to use name based Virtual Hosting:
#   1. remove the two Listen lines
#   2. replace $servername\:$opacport wih your.opac.domain.name
#   3. replace ServerName $servername wih ServerName your.opac.domain.name
#   4. replace $servername\:$intranetport wih your intranet domain name
#   5. replace ServerName $servername wih ServerName your.intranet.domain.name
#
# If you want to use NameVirtualHost'ing (using two names on one ip address):
#   1.  Follow steps 1-5 above
#   2.  Uncomment the NameVirtualHost line and set the correct ip address

EOP


    }
}


=item basicauthentication

    basicauthentication;

Asks the user whether HTTP basic authentication is wanted, and,
if so, the user name and password for the basic authentication.

These pieces of information are saved to global variables; the
function does not return any values.

=cut

$messages->{'IntranetAuthenticationQuestion'}->{en} =
   heading('INTRANET AUTHENTICATION') . qq|
I can set it up so that the Intranet/Librarian site is password protected using
Apache's Basic Authorization.

This is going to be phased out very soon. However, setting this up can provide
an extra layer of security before the new authentication system is completely
in place.

Would you like to do this ([Y]/N): |;   #'

$messages->{'BasicAuthUsername'}->{en}="Please enter a userid for intranet access [%s]: ";
$messages->{'BasicAuthPassword'}->{en}="Please enter a password for %s: ";
$messages->{'BasicAuthPasswordWasBlank'}->{en}="\nYou cannot use a blank password!\n\n";

sub basicauthentication {
    my $message=getmessage('IntranetAuthenticationQuestion');
    my $answer=showmessage($message, 'yn', 'y');
    my $httpdconf = $etcdir."/koha-httpd.conf";

    my $apacheauthusername='librarian';
    my $apacheauthpassword='';
    if ($answer=~/^y/i) {
        ($apacheauthusername) = showmessage(getmessage('BasicAuthUsername', [ $apacheauthusername]), 'free', $apacheauthusername, 1);
        $apacheauthusername=~s/[^a-zA-Z0-9]//g;
        while (! $apacheauthpassword) {
            ($apacheauthpassword) = showmessage(getmessage('BasicAuthPassword', [ $apacheauthusername]), 'free', 1);
            if (!$apacheauthpassword) {
                ($apacheauthpassword) = showmessage(getmessage('BasicAuthPasswordWasBlank'), 'none', '', 1);
            }
        }
        open AUTH, ">$etcdir/kohaintranet.pass";
        my $chars='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789';
        my $salt=substr($chars, int(rand(length($chars))),1);
        $salt.=substr($chars, int(rand(length($chars))),1);
        print AUTH $apacheauthusername.":".crypt($apacheauthpassword, $salt)."\n";
        close AUTH;
        open(SITE,">>$httpdconf") or warn "Insufficient priveleges to open $realhttpdconf for writing.\n";
        print SITE <<EOP

<Directory $intranetdir>
    AuthUserFile $etcdir/kohaintranet.pass
    AuthType Basic
    AuthName "Koha Intranet (for librarians only)"
    Require  valid-user
</Directory>
EOP
    }
    close(SITE);
}


=item installfiles

    installfiles

Install the Koha files to the specified OPAC and INTRANET
directories (usually in /usr/local/koha).

The koha.conf file is created, but as koha.conf.tmp. The
caller is responsible for calling finalizeconfigfile when
installation is completed, to rename it back to koha.conf.

=cut

$messages->{'InstallFiles'}->{en} = heading('INSTALLING FILES') . qq|
Copying files to installation directories:

|;


$messages->{'CopyingFiles'}->{en}="Copying %s to %s.\n";



sub installfiles {

        #MJR: preserve old files, just in case
        sub neatcopy {
                my $desc = shift;
                my $src = shift;
                my $tgt = shift;
                
                if (-d $tgt) {
                print getmessage('CopyingFiles', ["old ".$desc,$tgt.".old"]);
                        startsysout;
                        system("mv ".$tgt." ".$tgt.".old");
                }

        print getmessage('CopyingFiles', [$desc,$tgt]);
        startsysout;
            system("cp -R ".$src." ".$tgt);
        }

    showmessage(getmessage('InstallFiles'),'none');

    neatcopy("admin templates", 'intranet-html', "$intranetdir/htdocs");
    neatcopy("admin interface", 'intranet-cgi', "$intranetdir/cgi-bin");
    neatcopy("main scripts", 'scripts', "$intranetdir/scripts");
    neatcopy("perl modules", 'modules', "$intranetdir/modules");
    neatcopy("OPAC templates", 'opac-html', "$opacdir/htdocs");
    neatcopy("OPAC interface", 'opac-cgi', "$opacdir/cgi-bin");
        startsysout();
    system("touch $opacdir/cgi-bin/opac");

        #MJR: is this necessary?
        if ($> == 0) {
            system("chown -R $httpduser:$httpduser $opacdir $intranetdir");
    }
        system("chmod -R a+rx $opacdir $intranetdir");

    # Create /etc/koha.conf

    my $old_umask = umask(027); # make sure koha.conf is never world-readable
    open(SITES,">$etcdir/koha.conf.tmp") or warn "Couldn't create file at $etcdir. Must have write capability.\n";
    print SITES qq|
database=$dbname
hostname=$hostname
user=$user
pass=$pass
includes=$opacdir/htdocs/includes
intranetdir=$intranetdir
opacdir=$opacdir
kohalogdir=$kohalogdir
kohaversion=$kohaversion
httpduser=$httpduser
intrahtdocs=$intranetdir/htdocs/intranet-tmpl
opachtdocs=$opacdir/htdocs/opac-tmpl
|;
    close(SITES);
    umask($old_umask);

        startsysout();
        #MJR: can't help but this be broken, can we?
    chmod 0440, "$etcdir/koha.conf.tmp";
        
        #MJR: does this contain any passwords?
    chmod 0755, "$intranetdir/scripts/z3950daemon/z3950-daemon-launch.sh", "$intranetdir/scripts/z3950daemon/z3950-daemon-shell.sh", "$intranetdir/scripts/z3950daemon/processz3950queue";

        #MJR: generate our own settings, to remove the /home/paul hardwired links
    open(FILE,">$intranetdir/scripts/z3950daemon/z3950-daemon-options");
    print FILE "RunAsUser=apache\nKohaZ3950Dir=$intranetdir/scripts/z3950daemon\nKohaModuleDir=$intranetdir/modules\nLogDir=$kohalogdir\nKohaConf=$etcdir/koha.conf";
    close(FILE);

        if ($> == 0) {
            chown((getpwnam($httpduser)) [2,3], "$etcdir/koha.conf.tmp") or warn "can't chown koha.conf: $!";
        chown(0, (getpwnam($httpduser)) [3], "$intranetdir/scripts/z3950daemon/z3950-daemon-shell.sh") or warn "can't chown $intranetdir/scripts/z3950daemon/z3950-daemon-shell.sh: $!";
        chown(0, (getpwnam($httpduser)) [3], "$intranetdir/scripts/z3950daemon/processz3950queue") or warn "can't chown $intranetdir/scripts/z3950daemon/processz3950queue: $!";
        } #MJR: FIXME: Should report that we haven't chown()d.
}


=item databasesetup

    databasesetup;

Finds out where the MySQL utitlities are located in the system,
then create the Koha database structure and MySQL permissions.

=cut

$messages->{'MysqlRootPassword'}->{en} =
   heading('MYSQL ROOT USER PASSWORD') . qq|
To allow us to create the koha database please enter your
mysql server's root user password:

Password: |;    #'

$messages->{'CreatingDatabase'}->{en} = heading('CREATING DATABASE') . qq|
Creating the MySQL database for Koha...

|;

$messages->{'CreatingDatabaseError'}->{en} =
   heading('ERROR CREATING DATABASE') . qq|
Couldn't connect to the MySQL server for the reason given above.
This is a serious problem, the database will not get installed.\a

Press <ENTER> to continue: |;   #'

$messages->{'SampleData'}->{en} = heading('SAMPLE DATA') . qq|
If you are installing Koha for evaluation purposes,  I have a batch of sample
data that you can install now.

If you are installing Koha with the intention of populating it with your own
data, you probably don't want this sample data installed.

Would you like to install the sample data? Y/[N]: |;    #'

$messages->{'SampleDataInstalled'}->{en} =
   heading('SAMPLE DATA INSTALLED') . qq|
Sample data has been installed.  For some suggestions on testing Koha, please
read the file doc/HOWTO-Testing.  If you find any bugs, please submit them at
http://bugs.koha.org/.  If you need help with testing Koha, you can post a
question through the koha-devel mailing list, or you can check for a developer
online at +irc.katipo.co.nz:6667 channel #koha.

You can find instructions for subscribing to the Koha mailing lists at:

    http://www.koha.org


Press <ENTER> to continue: |;

$messages->{'AddBranchPrinter'}->{en} = heading('Add Branch and Printer') . qq|
Would you like to install an initial branch and printer? [Y]/N: |;

$messages->{'BranchName'}->{en}="Branch Name [%s]: ";
$messages->{'BranchCode'}->{en}="Branch Code (4 letters or numbers) [%s]: ";
$messages->{'PrinterQueue'}->{en}="Printer Queue [%s]: ";
$messages->{'PrinterName'}->{en}="Printer Name [%s]: ";

sub databasesetup {
    $mysqluser = 'root';
    $mysqlpass = '';

    foreach my $mysql (qw(/usr/local/mysql
                          /opt/mysql
                          /usr
                          )) {
       if ( -d $mysql  && -f "$mysql/bin/mysqladmin") {
            $mysqldir=$mysql;
       }
    }
    if (!$mysqldir){
        print "I don't see mysql in the usual places.\n";
        for (;;) {
            print "Where have you installed mysql? ";
            chomp($mysqldir = <STDIN>);
            last if -f "$mysqldir/bin/mysqladmin";
        print <<EOP;

I can't find it there either. If you compiled mysql yourself,
please give the value of --prefix when you ran configure.

The file mysqladmin should be in bin/mysqladmin under the directory that you
provide here.

EOP
#'
        }
    }
    # we must not put the mysql root password on the command line
        $mysqlpass=     showmessage(getmessage('MysqlRootPassword'),'silentfree');
        
        showmessage(getmessage('CreatingDatabase'),'none');
        # set the login up
        setmysqlclipass($mysqlpass);
        # Set up permissions
        startsysout();
        print system("$mysqldir/bin/mysql -u$mysqluser mysql -e \"insert into user (Host,User,Password) values ('$hostname','$user',password('$pass'))\"\;");
        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')\"");
        system("$mysqldir/bin/mysqladmin -u$mysqluser reload");
        # Change to admin user login
        setmysqlclipass($pass);
        my $result=system("$mysqldir/bin/mysqladmin", "-u$user", "create", "$dbname");
        if ($result) {
                showmessage(getmessage('CreatingDatabaseError'),'PressEnter', '', 1);
        } else {
                # Create the database structure
                startsysout();
                system("$mysqldir/bin/mysql -u$user $dbname < koha.mysql");
        }

}


=item updatedatabase

    updatedatabase;

Updates the Koha database structure, including the addition of
MARC tables.

The MARC tables are also populated in addition to being created.

Because updatedatabase calls scripts/updater/updatedatabase to
do the actual update, and that script uses C4::Context,
$etcdir/koha.conf must exist at this point. We use the KOHA_CONF
environment variable to do this.

FIXME: (See checkabortedinstall as it depends on old symlink way.)

=cut

$messages->{'UpdateMarcTables'}->{en} =
   heading('UPDATING MARC FIELD DEFINITION TABLES') . qq|
You can import marc parameters for :

  1 MARC21
  2 UNIMARC
  N none

Please choose which parameter you want to install. Note if you choose N,
nothing will be added, and it can be a BIG job to manually create those tables

Choose MARC definition [1]: |;

$messages->{'Language'}->{en} = heading('CHOOSE LANGUAGES') . qq|
This version of koha supports a few languages.
Enter your language preference : either en, fr, es, pl or zh_TW

Note that the en is always choosen when the system does not finds the
language you choose in a specific screen.

fr : all is translated (except pictures)
es : a few intranet is translated (including pictures)
pl : OPAC and a few intranet is translated
zh_TW : partial translation

Whether you specify a language here, you can always go to the
intranet interface and change it from the system preferences.

Which language do you choose? |;

sub updatedatabase {
    # At this point, $etcdir/koha.conf must exist, for C4::Context
    $ENV{"KOHA_CONF"}=$etcdir.'/koha.conf.tmp';
        startsysout();  
        my $result=system ("perl -I $intranetdir/modules scripts/updater/updatedatabase");
        if ($result) {
                restoremycnf();
                print "Problem updating database...\n";
                exit;
        }

        my $response=showmessage(getmessage('UpdateMarcTables'), 'restrictchar 12N', '1');

        startsysout();
        if ($response eq '1') {
                system("cat scripts/misc/marc_datas/marc21_en/structure_def.sql | $mysqldir/bin/mysql -u$user $dbname");
        }
        if ($response eq '2') {
                system("cat scripts/misc/marc_datas/unimarc_fr/structure_def.sql | $mysqldir/bin/mysql -u$user $dbname");
                system("cat scripts/misc/lang-datas/fr/stopwords.sql | $mysqldir/bin/mysql -u$user $dbname");
        }

        $result = system ("perl -I $intranetdir/modules scripts/marc/updatedb2marc.pl");
        if ($result) {
                print "Problem updating database to MARC...\n";
                restoremycnf();
                exit;
        }
        delete($ENV{"KOHA_CONF"});

        print RESET."\n\nFinished updating of database. Press <ENTER> to continue...";
        <STDIN>;
}


=item populatedatabase

    populatedatabase;

Populate the non-MARC tables. If the user wants to install the
sample data, install them.

=cut

sub populatedatabase {
#       my $response=showmessage(getmessage('SampleData'), 'yn', 'n');
#       if ($response =~/^y/i) {
#
# FIXME: These calls are now unsafe and should either be removed
# or updated to use -u$user and no mysqlpass_quoted
#
#               system("gunzip -d < sampledata-1.2.gz | $mysqldir/bin/mysql -u$mysqluser $mysqlpass_quoted $dbname");
#               system("$mysqldir/bin/mysql -u$mysqluser $mysqlpass_quoted $dbname -e \"insert into branches (branchcode,branchname,issuing) values ('MAIN', 'Main Library', 1)\"");
#               system("$mysqldir/bin/mysql -u$mysqluser $mysqlpass_quoted $dbname -e \"insert into branchrelations (branchcode,categorycode) values ('MAIN', 'IS')\"");
#               system("$mysqldir/bin/mysql -u$mysqluser $mysqlpass_quoted $dbname -e \"insert into branchrelations (branchcode,categorycode) values ('MAIN', 'CU')\"");
#               system("$mysqldir/bin/mysql -u$mysqluser $mysqlpass_quoted $dbname -e \"insert into printers (printername,printqueue,printtype) values ('Circulation Desk Printer', 'lp', 'hp')\"");
#               showmessage(getmessage('SampleDataInstalled'), 'PressEnter','',1);
#       } else {
                my $input;
                my $response=showmessage(getmessage('AddBranchPrinter'), 'yn', 'y');

                unless ($response =~/^n/i) {
                my $branch='Main Library';
                $branch=showmessage(getmessage('BranchName', [$branch]), 'free', $branch, 1);
                $branch=~s/[^A-Za-z0-9\s]//g;

                my $branchcode=$branch;
                $branchcode=~s/[^A-Za-z0-9]//g;
                $branchcode=uc($branchcode);
                $branchcode=substr($branchcode,0,4);
                $branchcode=showmessage(getmessage('BranchCode', [$branchcode]), 'free', $branchcode, 1);
                $branchcode=~s/[^A-Za-z0-9]//g;
                $branchcode=uc($branchcode);
                $branchcode=substr($branchcode,0,4);
                $branchcode or $branchcode='DEF';

                startsysout();
                system("$mysqldir/bin/mysql -u$user $dbname -e \"insert into branches (branchcode,branchname,issuing) values ('$branchcode', '$branch', 1)\"");
                system("$mysqldir/bin/mysql -u$user $dbname -e \"insert into branchrelations (branchcode,categorycode) values ('MAIN', 'IS')\"");
                system("$mysqldir/bin/mysql -u$user $dbname -e \"insert into branchrelations (branchcode,categorycode) values ('MAIN', 'CU')\"");

                my $printername='Library Printer';
                $printername=showmessage(getmessage('PrinterName', [$printername]), 'free', $printername, 1);
                $printername=~s/[^A-Za-z0-9\s]//g;

                my $printerqueue='lp';
                $printerqueue=showmessage(getmessage('PrinterQueue', [$printerqueue]), 'free', $printerqueue, 1);
                $printerqueue=~s/[^A-Za-z0-9]//g;
                startsysout();  
                system("$mysqldir/bin/mysql -u$user $dbname -e \"insert into printers (printername,printqueue,printtype) values ('$printername', '$printerqueue', '')\"");
#               }
        my $language=showmessage(getmessage('Language'), 'free', 'en');
        startsysout();  
        system("$mysqldir/bin/mysql -u$user $dbname -e \"update systempreferences set value='$language' where variable='opaclanguages'\"");
        }
}


=item restartapache

    restartapache;

Asks the user whether to restart Apache, and restart it if the user
wants so.

FIXME: If the installer does not know how to restart the Apache
server (e.g., if the user is not actually using Apache), it still
asks the question.

=cut

$messages->{'RestartApache'}->{en} = heading('RESTART APACHE') . qq|
Apache needs to be restarted to load the new configuration for Koha.
This requires the root password.

Would you like to try to restart Apache now?  [Y]/N: |;

sub restartapache {

    my $response=showmessage(getmessage('RestartApache'), 'yn', 'y');



    unless ($response=~/^n/i) {
        startsysout();
        # Need to support other init structures here?
        if (-e "/etc/rc.d/init.d/httpd") {
            system('su root -c /etc/rc.d/init.d/httpd restart');
        } elsif (-e "/etc/init.d/apache") {
            system('su root -c /etc/init.d/apache restart');
        } elsif (-e "/etc/init.d/apache-ssl") {
            system('su root -c /etc/init.d/apache-ssl restart');
        }
    }

}


=item finalizeconfigfile

   finalizeconfigfile;

This function must be called when the installation is complete,
to rename the koha.conf.tmp file to koha.conf.

Currently, failure to rename the file results only in a warning.

=cut

sub finalizeconfigfile {
        restoremycnf();
   rename "$etcdir/koha.conf.tmp", "$etcdir/koha.conf"
      || showmessage(<<EOF, 'PressEnter', undef, 1);
An unexpected error, $!, occurred
while the Koha config file is being saved to its final location,
$etcdir/koha.conf.

Couldn't rename file at $etcdir. Must have write capability.

Press Enter to continue.
EOF
#'
}


=item loadconfigfile

   loadconfigfile

Open the existing koha.conf file and get its values,
saving the values to some global variables.

If the existing koha.conf file cannot be opened for any reason,
the file is silently ignored.

=cut

sub loadconfigfile {
    my %configfile;

        #MJR: reverted to r1.53.  Please call setetcdir().  Do NOT hardcode this.
    open (KC, "<$etcdir/koha.conf");
    while (<KC>) {
     chomp;
     (next) if (/^\s*#/);
     if (/(.*)\s*=\s*(.*)/) {
       my $variable=$1;
       my $value=$2;
       # Clean up white space at beginning and end
       $variable=~s/^\s*//g;
       $variable=~s/\s*$//g;
       $value=~s/^\s*//g;
       $value=~s/\s*$//g;
       $configfile{$variable}=$value;
     }
    }

    $::intranetdir=$configfile{'intranetdir'};
    $::opacdir=$configfile{'opacdir'};
    $::kohaversion=$configfile{'kohaversion'};
    $::kohalogdir=$configfile{'kohalogdir'};
    $::database=$configfile{'database'};
    $::hostname=$configfile{'hostname'};
    $::user=$configfile{'user'};
    $::pass=$configfile{'pass'};
}

END { }       # module clean-up code here (global destructor)

### These things may move

sub setecho {
my $state=shift;
my $t = POSIX::Termios->new;

$t->getattr();
if ($state) {
  $t->setlflag(($t->getlflag) | &POSIX::ECHO);
  }
else {
  $t->setlflag(($t->getlflag) & !(&POSIX::ECHO));
  }
$t->setattr();
}

sub setmysqlclipass {
        my $pass = shift;
        open(MYCNF,">$mycnf");
        chmod(0600,$mycnf);
        print MYCNF "[client]\npassword=$pass\n";
        close(MYCNF);
}

sub backupmycnf {
        if (-e $mycnf) {
                rename $mycnf,$mytmpcnf;
        }
}

sub restoremycnf {
        if (-e $mycnf) {
                unlink($mycnf);
        }
        if (-e $mytmpcnf) {
                rename $mytmpcnf,$mycnf;
        }
}

=back

=head1 SEE ALSO

buildrelease.pl,
installer.pl

=cut

1;