installer.pl

   1 #!/usr/bin/perl -w # please develop with -w
   2
   3 use diagnostics;
   4 use strict; # please develop with the strict pragma
   5
   6 unless ($< == 0) {
   7     print "You must be root to run this script.\n";
   8     exit 1;
   9 }
  10
  11 system('clear');
  12 print qq|
  13 **********************************
  14 * Welcome to the Koha Installer  *
  15 **********************************
  16 Welcome to the Koha install script!  This script will prompt you for some
  17 basic information about your desired setup, then install Koha according to
  18 your specifications.  To accept the default value for any question, simply hit
  19 Enter at the prompt.
  20
  21 Please be sure to read the documentation, or visit the Koha website at
  22 http://www.koha.org for more information.
  23
  24 Are you ready to begin the installation? (Y/[N]):
  25 |;
  26
  27 my $answer = <STDIN>;
  28 chomp $answer;
  29
  30 if ($answer eq "Y" || $answer eq "y") {
  31         print "Great! continuing setup... \n";
  32     } else {
  33     print qq|
  34 This installer currently does not support an completely automated
  35 setup.
  36
  37 Please be sure to read the documentation, or visit the Koha website
  38 at http://www.koha.org for more information.
  39 |;
  40     exit;
  41 };
  42
  43 print "\n";
  44
  45 #
  46 # Test for Perl and Modules
  47 #
  48 print qq|
  49
  50 PERL & MODULES
  51 ==============
  52
  53 |;
  54
  55 print "\nChecking perl modules ...\n";
  56     unless (eval "require 5.004") {
  57     die "Sorry, you need at least Perl 5.004\n";
  58 }
  59
  60 my @missing = ();
  61 unless (eval {require DBI})               { push @missing,"DBI" };
  62 unless (eval {require Date::Manip})       { push @missing,"Date::Manip" };
  63 unless (eval {require DBD::mysql})        { push @missing,"DBD::mysql" };
  64 unless (eval {require Set::Scalar})       { push @missing,"Set::Scalar" };
  65 unless (eval {require Net::Z3950})        {
  66     print qq|
  67
  68 The Net::Z3950 module is missing.  This module is necessary if you want to use
  69 Koha's Z39.50 client to download bibliographic records from other libraries.
  70 To install this module, you will need the yaz client installed from
  71 http://www.indexdata.dk/yaz/ and then you can install the perl module with the
  72 command:
  73
  74 perl -MCPAN -e 'install Net::Z3950'
  75
  76 Press the <ENTER> key to continue:
  77 |;
  78     <STDIN>;
  79 }
  80
  81 #
  82 # Print out a list of any missing modules
  83 #
  84 if (@missing > 0) {
  85     print "\n\n";
  86     print "You are missing some Perl modules which are required by Koha.\n";
  87     print "Once these modules have been installed, rerun this installer.\n";
  88     print "They can be installed by running (as root) the following:\n";
  89     foreach my $module (@missing) {
  90         print "   perl -MCPAN -e 'install \"$module\"'\n";
  91         exit(1);
  92     }} else{
  93     print "All modules appear to be installed, continuing...\n";
  94 };
  95
  96
  97 print "\n";
  98 my $input;
  99 my $domainname = `hostname -d`;
 100 chomp $domainname;
 101 my $opacdir = '/usr/local/koha/opac';
 102 my $kohadir = '/usr/local/koha/intranet';
 103 my $getdirinfo=1;
 104 while ($getdirinfo) {
 105     # Loop until opac directory and koha directory are different
 106     print qq|
 107
 108 OPAC DIRECTORY
 109 ==============
 110 Please supply the directory you want Koha to store its OPAC files in.  Leave off
 111 the trailing slash.  This directory will be auto-created for you if it doesn't
 112 exist.
 113
 114 Usually $opacdir
 115 |;
 116
 117     print "Enter directory [$opacdir]: ";
 118     chomp($input = <STDIN>);
 119
 120     if ($input) {
 121       $opacdir = $input;
 122     }
 123
 124
 125     print qq|
 126
 127 INTRANET/LIBRARIANS DIRECTORY
 128 =============================
 129 Please supply the directory you want Koha to store its Intranet/Librarians files
 130 in.  Leave off the trailing slash.  This directory will be auto-created for you if
 131 it doesn't exist.
 132
 133 |;
 134
 135     print "Enter directory [$kohadir]: ";
 136     chomp($input = <STDIN>);
 137
 138     if ($input) {
 139       $kohadir = $input;
 140     }
 141     if ($kohadir eq $opacdir) {
 142         print qq|
 143
 144 You must specify different directories for the OPAC and INTRANET files!
 145
 146 |;
 147     } else {
 148         $getdirinfo=0;
 149     }
 150 }
 151
 152 #
 153 #KOHA conf
 154 #
 155 my $etcdir = '/etc';
 156 my $dbname = 'Koha';
 157 my $hostname = 'localhost';
 158 my $user = 'kohaadmin';
 159 my $pass = '';
 160
 161 print qq|
 162
 163 KOHA.CONF
 164 =========
 165 Koha uses a small configuration file that is usually placed in your /etc/ files
 166 directory. The configuration file, will be created in this directory
 167
 168 |;
 169
 170 #Get the path to the koha.conf directory
 171 print "Enter the path to your configuration directory [$etcdir]: ";
 172 chomp($input = <STDIN>);
 173
 174 if ($input) {
 175   $etcdir = $input;
 176 }
 177
 178
 179 #Get the database name
 180 print qq|
 181
 182 Please provide the name of the mysql database for your koha installation.
 183 This is normally "$dbname".
 184
 185 |;
 186
 187 print "Enter database name [$dbname]: ";
 188 chomp($input = <STDIN>);
 189
 190 if ($input) {
 191   $dbname = $input;
 192 }
 193
 194
 195 #Get the hostname for the database
 196 print qq|
 197
 198 Please provide the hostname for mysql.  Unless the database is located on another
 199 machine this will be "localhost".
 200 |;
 201
 202 print "Enter hostname [$hostname]: ";
 203 chomp($input = <STDIN>);
 204
 205 if ($input) {
 206   $hostname = $input;
 207 }
 208
 209 #Get the username for the database
 210 print qq|
 211
 212 Please provide the name of the user, who will have full administrative rights
 213 to the $dbname database, when authenticating from $hostname.
 214
 215 If no user is entered it will default to $user.
 216 |;
 217
 218 print "Enter username [$user]:";
 219 chomp($input = <STDIN>);
 220
 221 if ($input) {
 222   $user = $input;
 223 }
 224
 225 #Get the password for the database user
 226 print qq|
 227
 228 Please provide a good password for the user $user.
 229 |;
 230
 231 print "Enter password:";
 232 chomp($input = <STDIN>);
 233
 234 if ($input) {
 235   $pass = $input;
 236 }
 237
 238 print "\n";
 239
 240
 241 #Create the configuration file
 242 open(SITES,">$etcdir/koha.conf") or warn "Couldn't create file
 243 at $etcdir.  Must have write capability.\n";
 244 print SITES <<EOP
 245 database=$dbname
 246 hostname=$hostname
 247 user=$user
 248 pass=$pass
 249 includes=$kohadir/htdocs/includes
 250 EOP
 251 ;
 252 close(SITES);
 253
 254 print "Successfully created the Koha configuration file.\n";
 255
 256 my $httpduser;
 257 my $realhttpdconf;
 258
 259 foreach my $httpdconf (qw(/usr/local/apache/conf/httpd.conf
 260                       /usr/local/etc/apache/httpd.conf
 261                       /usr/local/etc/apache/apache.conf
 262                       /var/www/conf/httpd.conf
 263                       /etc/apache/conf/httpd.conf
 264                       /etc/apache/conf/apache.conf
 265                       /etc/httpd/conf/httpd.conf
 266                       /etc/httpd/httpd.conf)) {
 267    if ( -f $httpdconf ) {
 268             $realhttpdconf=$httpdconf;
 269             open (HTTPDCONF, $httpdconf) or warn "Insufficient privileges to open $httpdconf for reading.\n";
 270       while (<HTTPDCONF>) {
 271          if (/^\s*User\s+"?([-\w]+)"?\s*$/) {
 272             $httpduser = $1;
 273          }
 274       }
 275       close(HTTPDCONF);
 276    }
 277 }
 278 $httpduser ||= 'Undetermined';
 279
 280 #
 281 # Set ownership of the koha.conf file for security
 282 #
 283 chown((getpwnam($httpduser)) [2,3], "$etcdir/koha.conf") or warn "can't chown koha.conf: $!";
 284 chmod 0440, "$etcdir/koha.conf";
 285
 286 #
 287 #SETUP opac
 288 #
 289 my $svr_admin = "webmaster\@$domainname";
 290 my $servername=`hostname -f`;
 291 chomp $servername;
 292 my $opacport=80;
 293 my $kohaport=8080;
 294
 295 print qq|
 296
 297 OPAC and KOHA/LIBRARIAN CONFIGURATION
 298 =====================================
 299 Koha needs to setup your Apache configuration file for the
 300 OPAC and LIBRARIAN virtual hosts.  By default this installer
 301 will do this by using one ip address and two different ports
 302 for the virtual hosts.  There are other ways to set this up,
 303 and the installer will leave comments in httpd.conf detailing
 304 what these other options are.
 305
 306 Please enter the e-mail address for your webserver admin.
 307 Usually $svr_admin
 308 |;
 309
 310 print "Enter e-mail address [$svr_admin]:";
 311 chomp($input = <STDIN>);
 312
 313 if ($input) {
 314   $svr_admin = $input;
 315 }
 316
 317
 318 print qq|
 319
 320
 321 Please enter the domain name or ip address of your computer.
 322 |;
 323 print "Enter server name/ip address [$servername]:";
 324 chomp($input = <STDIN>);
 325
 326 if ($input) {
 327   $servername = $input;
 328 }
 329
 330 print qq|
 331
 332 Please enter the port for your OPAC interface.
 333 |;
 334 print "Enter OPAC port [$opacport]:";
 335 chomp($input = <STDIN>);
 336
 337 if ($input) {
 338   $opacport = $input;
 339 }
 340
 341 print qq|
 342
 343 Please enter the port for your Intranet/Librarian interface.
 344 |;
 345 print "Enter intranet port [$kohaport]:";
 346 chomp($input = <STDIN>);
 347
 348 if ($input) {
 349   $kohaport = $input;
 350 }
 351
 352
 353 #
 354 # Update Apache Conf File.
 355 #
 356 #
 357
 358 my $logfiledir=`grep ^ErrorLog $realhttpdconf`;
 359 chomp $logfiledir;
 360
 361 if ($logfiledir) {
 362     $logfiledir=~m#ErrorLog (.*)/[^/]*$#;
 363     $logfiledir=$1;
 364 }
 365
 366 unless ($logfiledir) {
 367     $logfiledir='logs';
 368 }
 369 print qq|
 370
 371 UPDATING APACHE.CONF
 372 ====================
 373
 374 |;
 375
 376
 377 print "Checking for modules that need to be loaded...\n";
 378 my $httpdconf='';
 379 my $envmodule=0;
 380 my $includesmodule=0;
 381 open HC, $realhttpdconf;
 382 while (<HC>) {
 383     if (/^\s*#\s*LoadModule env_module /) {
 384         s/^\s*#\s*//;
 385         print "  Loading env_module in httpd.conf\n";
 386         $envmodule=1;
 387     }
 388     if (/^\s*#\s*LoadModule includes_module /) {
 389         s/^\s*#\s*//;
 390         print "  Loading includes_module in httpd.conf\n";
 391     }
 392     if (/\s*LoadModule includes_module / ) {
 393         $includesmodule=1;
 394     }
 395     $httpdconf.=$_;
 396 }
 397
 398 if ($envmodule || $includesmodule) {
 399     system("mv -f $realhttpdconf $realhttpdconf\.prekoha");
 400     open HC, ">$realhttpdconf";
 401     print HC $httpdconf;
 402     close HC;
 403 }
 404
 405
 406 if (`grep 'VirtualHost $servername' $realhttpdconf`) {
 407     print qq|
 408 $realhttpdconf appears to already have an entry for Koha
 409 Virtual Hosts.  You may need to edit $realhttpdconf
 410 if anything has changed since it was last set up.  This
 411 script will not attempt to modify an existing Koha apache
 412 configuration.
 413
 414 |;
 415     print "Press <ENTER> to continue...";
 416     <STDIN>;
 417     print "\n";
 418 } else {
 419     my $includesdirectives='';
 420     if ($includesmodule) {
 421         $includesdirectives.="Options +Includes\n";
 422         $includesdirectives.="AddHandler server-parsed .html\n";
 423     }
 424     open(SITE,">>$realhttpdconf") or warn "Insufficient priveleges to open $realhttpdconf for writing.\n";
 425     print SITE <<EOP
 426
 427
 428 # Ports to listen to for Koha
 429 Listen $opacport
 430 Listen $kohaport
 431
 432 # NameVirtualHost is used by one of the optional configurations detailed below
 433
 434 #NameVirtualHost 11.22.33.44
 435
 436 # KOHA's OPAC Configuration
 437 <VirtualHost $servername\:$opacport>
 438    ServerAdmin $svr_admin
 439    DocumentRoot $opacdir/htdocs
 440    ServerName $servername
 441    ScriptAlias /cgi-bin/koha/ $opacdir/cgi-bin/
 442    ErrorLog $logfiledir/opac-error_log
 443    TransferLog $logfiledir/opac-access_log
 444    SetEnv PERL5LIB "$kohadir/modules"
 445    $includesdirectives
 446 </VirtualHost>
 447
 448 # KOHA's INTRANET Configuration
 449 <VirtualHost $servername\:$kohaport>
 450    ServerAdmin $svr_admin
 451    DocumentRoot $kohadir/htdocs
 452    ServerName $servername
 453    ScriptAlias /cgi-bin/koha/ "$kohadir/cgi-bin/"
 454    ErrorLog $logfiledir/koha-error_log
 455    TransferLog $logfiledir/koha-access_log
 456    SetEnv PERL5LIB "$kohadir/modules"
 457    $includesdirectives
 458 </VirtualHost>
 459
 460 # If you want to use name based Virtual Hosting:
 461 #   1. remove the two Listen lines
 462 #   2. replace $servername\:$opacport wih your.opac.domain.name
 463 #   3. replace ServerName $servername wih ServerName your.opac.domain.name
 464 #   4. replace $servername\:$kohaport wih your intranet domain name
 465 #   5. replace ServerName $servername wih ServerName your.intranet.domain.name
 466 #
 467 # If you want to use NameVirtualHost'ing (using two names on one ip address):
 468 #   1.  Follow steps 1-5 above
 469 #   2.  Uncomment the NameVirtualHost line and set the correct ip address
 470
 471 EOP
 472 ;
 473     close(SITE);
 474     print "Successfully updated Apache Configuration file.\n";
 475 }
 476
 477 #
 478 # Setup the modules directory
 479 #
 480 print qq|
 481
 482 CREATING REQUIRED DIRECTORIES
 483 =============================
 484
 485 |;
 486
 487
 488 unless ( -d $kohadir ) {
 489    print "Creating $kohadir...\n";
 490    my $result=mkdir ($kohadir, oct(770));
 491    if ($result==0) {
 492        my @dirs = split(m#/#, $kohadir);
 493         my $checkdir='';
 494         foreach (@dirs) {
 495             $checkdir.="$_/";
 496             unless (-e "$checkdir") {
 497                 mkdir($checkdir, 0775);
 498             }
 499         }
 500    }
 501    chown (oct(0), (getgrnam($httpduser))[2], "$kohadir");
 502    chmod (oct(770), "$kohadir");
 503 }
 504 unless ( -d "$kohadir/htdocs" ) {
 505    print "Creating $kohadir/htdocs...\n";
 506    mkdir ("$kohadir/htdocs", oct(750));
 507 }
 508 unless ( -d "$kohadir/cgi-bin" ) {
 509    print "Creating $kohadir/cgi-bin...\n";
 510    mkdir ("$kohadir/cgi-bin", oct(750));
 511 }
 512 unless ( -d "$kohadir/modules" ) {
 513    print "Creating $kohadir/modules...\n";
 514    mkdir ("$kohadir/modules", oct(750));
 515 }
 516 unless ( -d $opacdir ) {
 517    print "Creating $opacdir...\n";
 518    my $result=mkdir ($opacdir, oct(770));
 519    if ($result==0) {
 520        my @dirs = split(m#/#, $opacdir);
 521         my $checkdir='';
 522         foreach (@dirs) {
 523             $checkdir.="$_/";
 524             unless (-e "$checkdir") {
 525                 mkdir($checkdir, 0775);
 526             }
 527         }
 528    }
 529    chown (oct(0), (getgrnam($httpduser))[2], "$opacdir");
 530    chmod (oct(770), "$opacdir");
 531 }
 532 unless ( -d "$opacdir/htdocs" ) {
 533    print "Creating $opacdir/htdocs...\n";
 534    mkdir ("$opacdir/htdocs", oct(750));
 535 }
 536 unless ( -d "$opacdir/cgi-bin" ) {
 537    print "Creating $opacdir/cgi-bin...\n";
 538    mkdir ("$opacdir/cgi-bin", oct(750));
 539 }
 540
 541
 542
 543 print "\n\nINSTALLING KOHA...\n";
 544 print "\n\n==================\n";
 545 print "Copying internet-html files to $kohadir/htdocs...\n";
 546 system("cp -R intranet-html/* $kohadir/htdocs/");
 547 print "Copying intranet-cgi files to $kohadir/cgi-bin...\n";
 548 system("cp -R intranet-cgi/* $kohadir/cgi-bin/");
 549 print "Copying script files to $kohadir/modules...\n";
 550 system("cp -R modules/* $kohadir/modules/");
 551 print "Copying opac-html files to $opacdir/htdocs...\n";
 552 system("cp -R opac-html/* $opacdir/htdocs/");
 553 print "Copying opac-cgi files to $opacdir/cgi-bin...\n";
 554 system("cp -R opac-cgi/* $opacdir/cgi-bin/");
 555
 556 system("chown -R root.$httpduser $opacdir");
 557 system("chown -R root.$httpduser $kohadir");
 558
 559 print qq|
 560
 561 MYSQL CONFIGURATION
 562 ===================
 563 |;
 564 my $mysql;
 565 my $mysqldir;
 566 my $mysqluser = 'root';
 567 my $mysqlpass = '';
 568
 569 foreach my $mysql (qw(/usr/local/mysql
 570                       /opt/mysql
 571                       )) {
 572    if ( -d $mysql ) {
 573             $mysqldir=$mysql;
 574    }
 575 }
 576 if (!$mysqldir){
 577     $mysqldir='/usr';
 578 }
 579 print qq|
 580 To allow us to create the koha database please supply the
 581 mysql\'s root users password
 582 |;
 583
 584 print "Enter mysql\'s root users password: ";
 585 chomp($input = <STDIN>);
 586
 587 if ($input) {
 588   $mysqlpass = $input;
 589 }
 590
 591
 592 print qq|
 593
 594 CREATING DATABASE
 595 =================
 596 |;
 597 my $result=system("$mysqldir/bin/mysqladmin -u$mysqluser -p$mysqlpass create $dbname");
 598 if ($result) {
 599     print "\nCouldn't connect to the MySQL server for the reason given above.\n";
 600     print "This is a serious problem, the database will not get installed.\a\n";
 601     print "Press <ENTER> to continue...";
 602     <STDIN>;
 603     print "\n";
 604 } else {
 605     system("$mysqldir/bin/mysql -u$mysqluser -p$mysqlpass $dbname < koha.mysql");
 606     system("$mysqldir/bin/mysql -u$mysqluser -p$mysqlpass mysql -e \"insert into user (Host,User,Password) values ('$hostname','$user',password('$pass'))\"\;");
 607     system("$mysqldir/bin/mysql -u$mysqluser -p$mysqlpass 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')\"");
 608     system("$mysqldir/bin/mysqladmin -u$mysqluser -p$mysqlpass reload");
 609
 610     system ("perl -I $kohadir/modules scripts/updater/updatedatabase");
 611
 612
 613
 614
 615     print "\n\nWould you like to add a branch and printer? [Y]/N: ";
 616     chomp($input = <STDIN>);
 617
 618
 619     unless ($input =~/^n/i) {
 620         my $branch='Main Library';
 621         print "Enter a name for the library branch [$branch]: ";
 622         chomp($input = <STDIN>);
 623         if ($input) {
 624             $branch=$input;
 625         }
 626         $branch=~s/[^A-Za-z0-9\s]//g;
 627         my $branchcode=$branch;
 628         $branchcode=~s/[^A-Za-z0-9]//g;
 629         $branchcode=uc($branchcode);
 630         $branchcode=substr($branchcode,0,4);
 631         print "Enter a four letter code for your branch [$branchcode]: ";
 632         chomp($input = <STDIN>);
 633         if ($input) {
 634             $branchcode=$input;
 635         }
 636         $branchcode=~s/[^A-Z]//g;
 637         $branchcode=uc($branchcode);
 638         $branchcode=substr($branchcode,0,4);
 639         print "Adding branch '$branch' with code '$branchcode'.\n";
 640         system("$mysqldir/bin/mysql -u$mysqluser -p$mysqlpass Koha -e \"insert into branches (branchcode,branchname,issuing) values ('$branchcode', '$branch', 1)\"");
 641         my $printername='Library Printer';
 642         print "Enter a name for the printer [$printername]: ";
 643         chomp($input = <STDIN>);
 644         if ($input) {
 645             $printername=$input;
 646         }
 647         $printername=~s/[^A-Za-z0-9\s]//g;
 648         my $printerqueue='lp';
 649         print "Enter the queue for the printer [$printerqueue]: ";
 650         chomp($input = <STDIN>);
 651         if ($input) {
 652             $printerqueue=$input;
 653         }
 654         $printerqueue=~s/[^A-Za-z0-9]//g;
 655         system("$mysqldir/bin/mysql -u$mysqluser -p$mysqlpass Koha -e \"insert into printers (printername,printqueue,printtype) values ('$printername', '$printerqueue', '')\"");
 656     }
 657
 658
 659 }
 660
 661
 662 #RESTART APACHE
 663 #system('clear');
 664 print "\n\n";
 665 print qq|
 666 COMPLETED
 667 =========
 668 Congratulations ... your Koha installation is almost complete!
 669 The final step is to restart your webserver.
 670
 671 You will be able to connect to your Librarian interface at:
 672
 673    http://$servername\:$kohaport/
 674
 675 and the OPAC interface at :
 676
 677    http://$servername\:$opacport/
 678
 679
 680 Be sure to read the INSTALL, and Hints files.
 681
 682 For more information visit http://www.koha.org
 683
 684 Would you like to restart your webserver now? (Y/[N]):
 685 |;
 686
 687 my $restart = <STDIN>;
 688 chomp $restart;
 689
 690 if ($answer eq "Y" || $answer eq "y") {
 691         # Need to support other init structures here?
 692         if (-e "/etc/rc.d/init.d/httpd") {
 693             system('/etc/rc.d/init.d/httpd restart');
 694         } elsif (-e "/etc/init.d/apache") {
 695             system('/etc//init.d/apache restart');
 696         } elsif (-e "/etc/init.d/apache-ssl") {
 697             system('/etc/init.d/apache-ssl restart');
 698         }
 699     } else {
 700     print qq|
 701 print "\nCongratulations ... your Koha installation is complete!\n";
 702 print "\nYou will need to restart your webserver before using Koha!\n";
 703 |;
 704     exit;
 705 };