koha-dev.rot13.org Git - koha_fer/blob - misc/Install.pm

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