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