Annotation of doc/install/redhat7.3/install.pl, revision 1.22

1.1       matthew     1: #!/usr/bin/perl -w
                      2: # The LearningOnline Network 
                      3: # Red Hat 7.3 installation script
                      4: #
1.22    ! matthew     5: # $Id: install.pl,v 1.21 2003/08/05 15:05:28 matthew Exp $
1.1       matthew     6: #
                      7: # Copyright Michigan State University Board of Trustees
                      8: #
                      9: # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
                     10: #
                     11: # LON-CAPA is free software; you can redistribute it and/or modify
                     12: # it under the terms of the GNU General Public License as published by
                     13: # the Free Software Foundation; either version 2 of the License, or
                     14: # (at your option) any later version.
                     15: #
                     16: # LON-CAPA is distributed in the hope that it will be useful,
                     17: # but WITHOUT ANY WARRANTY; without even the implied warranty of
                     18: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
                     19: # GNU General Public License for more details.
                     20: #
                     21: # You should have received a copy of the GNU General Public License
                     22: # along with LON-CAPA; if not, write to the Free Software
                     23: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
                     24: #
                     25: # http://www.lon-capa.org/
                     26: #
1.2       matthew    27: 
1.1       matthew    28: ##
                     29: ## Obvious flaws of this program: 
                     30: ##   Dieing on every error may be a little extreme.  On the other hand, 
                     31: ##       how the heck am I supposed to know what absurd things the user 
                     32: ##       has done with their system before inflicting LON-CAPA on it?
                     33: ##   The links to /etc/init.d for httpd and mysqld do not seem to work :(
                     34: ##   The user is never informed of the log file (/tmp/loncapa_install.log).
                     35: ##   It does not test the system at the end.  Again, there are limits to 
                     36: ##       what nonsense we can put up with.  Of course, we will have to 
                     37: ##       explain that to people at some point...
                     38: ##   There is probably an overuse of elipses (...) in the comments.
1.2       matthew    39: ##   It might be nice to check that all the files we need are here.
                     40: ##   Appletalk is installed but does not work and gives errors on
                     41: ##       boot up.  I have not been able to find a clean way to get the
                     42: ##       appletalk support working but the powers that be insist on it.
1.1       matthew    43: ##
1.2       matthew    44: 
                     45: #
                     46: # Needed files:
                     47: #
                     48: #    The following files are assumed to be present in the current
                     49: #    directory:
                     50: #      RPMS:
1.3       matthew    51: #        ImageMagick-5.4.3.11-1.i386.rpm
                     52: #        ImageMagick-devel-5.4.3.11-1.i386.rpm
                     53: #        ImageMagick-perl-5.4.3.11-1.i386.rpm
1.2       matthew    54: #        gnuplot-3.7.1-5.i386.rpm
                     55: #        libgd-1.3-4.i386.rpm
                     56: #        libungif-progs-4.1.0-9.i386.rpm
                     57: #        ncurses4-5.0-5.i386.rpm
                     58: #        readline-2.2.1-6.i386.rpm
                     59: #        readline-4.2a-4.i386.rpm
                     60: #        perl-DBD-MySQL-1.2216-4.i386.rpm
                     61: #        perl-DBI-1.21-1.i386.rpm
                     62: #        mod_perl-1.26-5.i386.rpm
                     63: #        perl-suidperl-5.6.1-34.99.6.i386.rpm
1.16      matthew    64: #        LON-CAPA-systemperl-3.5-rh7.i386.rpm
1.2       matthew    65: #        mysql-3.23.49-3.i386.rpm
                     66: #        mysqlclient9-3.23.22-6.i386.rpm
                     67: #        mysql-server-3.23.49-3.i386.rpm
                     68: #        hwcrypto-1.0-3.i386.rpm
                     69: #        m2crypto-0.05_snap4-2.i386.rpm
1.12      matthew    70: #        netpbm-9.24-3.i386.rpm
                     71: #        netpbm-progs-9.24-3.i386.rpm
                     72: #        krb5-libs-1.2.4-3.i386.rpm
1.2       matthew    73: #      Other files:
                     74: #        httpd.conf
                     75: #        mod_auth_external-2.1.13.tar.gz
                     76: #
                     77: #    The contingency plan for a 7.2 install tells the user to install these
                     78: #    from the current directory.
                     79: #        perl-5.6.1-34.99.6.i386.rpm
                     80: #        perl-CGI-2.752-34.99.6.i386.rpm
                     81: #
                     82: 
1.1       matthew    83: use strict;
                     84: use File::Copy;
                     85: 
                     86: my $result; 
                     87: my $test;
                     88: 
                     89: # note: The filehandle LOG is global.
1.14      matthew    90: open LOG,">loncapa_install.log" || die "Unable to open log file.\n";
1.21      matthew    91: 
1.22    ! matthew    92: print LOG '$Id: install.pl,v 1.21 2003/08/05 15:05:28 matthew Exp $'."\n";
1.1       matthew    93: 
                     94: # Some friendly subroutines
                     95: sub die_if_nonempty {
                     96:     my ($string,$error)=@_;
                     97:     return if (! defined($error));
                     98:     chomp($string);chomp($error);
                     99:     if ($string ne '') {
                    100:         print_and_log("$error\nHalting.\n");
                    101:         die;
                    102:     }
                    103: }
                    104: 
                    105: sub make_link_or_die {
                    106:     my ($source,$dest)=@_;
                    107:     &die_if_nonempty
                    108:         (`ln -fs $source $dest`,"Unable to link $source to $dest.");
                    109:     print LOG "Link from $source to $dest made successfully\n";
                    110: }
                    111: 
                    112: sub writelog {
                    113:     while ($_ = shift) {
                    114:         chomp;
                    115:         print LOG "$_\n";
                    116:     }
                    117: }
                    118: 
                    119: sub print_and_log {
                    120:     while ($_=shift) {
                    121:         chomp;
                    122:         print "$_\n";
                    123:         print LOG "$_\n";
                    124:     }
                    125: }
                    126: 
                    127: ##
                    128: ## First, make sure it's a red hat system.
                    129: ##
                    130: if (! -e "/etc/redhat-release") {
                    131:     print_and_log(<<"END");
                    132: *********************************************************************
                    133: 
                    134: This does not a appear to be a Red-Hat system.  More than likely the 
                    135: installation will not be successful!  Press control-c to abort now, 
                    136: otherwise press enter to forge ahead and damn the torpedos.
                    137: 
                    138: *********************************************************************
                    139: END
                    140:     undef = <STDIN>;
                    141: }
                    142: 
                    143: 
                    144: 
                    145: #
                    146: # The installation work begins now...
                    147: #
                    148: 
                    149: print <<"END";
                    150: ********************************************************************
                    151: 
1.20      matthew   152:                     Welcome to LON-CAPA 
1.1       matthew   153: 
                    154: This script will install the base software that LON-CAPA needs to
                    155: run properly. 
                    156: 
                    157: ********************************************************************
                    158: END
                    159: 
                    160: ##
                    161: ## Install needed RPMS
                    162: ##
                    163: my $instdir = `pwd`;
                    164: chomp($instdir);
                    165: # 
                    166: # This list of rpms needs to be pared down to some extent.
                    167: #
                    168: 
1.4       matthew   169: my @apache_rpms = (
1.16      matthew   170:              "$instdir/apache-1.3.23-14.i386.rpm",
1.4       matthew   171:                    );
                    172: 
                    173: my @openssh_rpms = (
                    174:              "$instdir/openssh-3.1p1-6.i386.rpm",
                    175:              "$instdir/openssh-askpass-3.1p1-6.i386.rpm",
                    176:              "$instdir/openssh-clients-3.1p1-6.i386.rpm",
                    177:              "$instdir/openssh-server-3.1p1-6.i386.rpm"
                    178:                 );
1.16      matthew   179: 
1.4       matthew   180: # Check for gnome-askpass installation.
                    181: if (-e "/etc/profile.d/gnome-ssh-askpass.sh") {
                    182:     push @openssh_rpms,"$instdir/openssh-askpass-gnome-3.1p1-6.i386.rpm";
                    183: }
                    184: 
1.16      matthew   185: my @ImageMagick_rpms = ( 
1.3       matthew   186:              "$instdir/ImageMagick-5.4.3.11-1.i386.rpm",
                    187:              "$instdir/ImageMagick-devel-5.4.3.11-1.i386.rpm",
                    188:              "$instdir/ImageMagick-perl-5.4.3.11-1.i386.rpm",
                    189:                        );
                    190: 
1.16      matthew   191: my @mysql_rpms = (
                    192:              "$instdir/mysql-3.23.49-3.i386.rpm",
                    193:              "$instdir/mysqlclient9-3.23.22-6.i386.rpm",
                    194:              "$instdir/mysql-server-3.23.49-3.i386.rpm",
                    195:                   );
                    196: 
1.1       matthew   197: my @perl_rpms = ( 
                    198:              "$instdir/perl-DBD-MySQL-1.2216-4.i386.rpm",
                    199:              "$instdir/perl-DBI-1.21-1.i386.rpm",
                    200:              "$instdir/perl-suidperl-5.6.1-34.99.6.i386.rpm",
                    201:                  );
1.16      matthew   202: 
                    203: my @old_readline_rpms = (
                    204:              "$instdir/readline-2.2.1-6.i386.rpm", # requires -i --oldpackage, 
                    205:                                                    # not -Uvh
                    206:                          );
                    207: my @gnuplot_rpms = ( # must be done after readline-2.2.1-6
                    208:              "$instdir/libgd-1.3-4.i386.rpm", 
                    209:              "$instdir/libungif-progs-4.1.0-9.i386.rpm",
                    210:              "$instdir/ncurses4-5.0-5.i386.rpm",
                    211:              "$instdir/gnuplot-3.7.1-5.i386.rpm",
                    212:                     );
                    213: 
1.1       matthew   214: my @loncapa_perl_rpms = (
1.12      matthew   215:              "$instdir/netpbm-9.24-3.i386.rpm",
                    216:              "$instdir/netpbm-progs-9.24-3.i386.rpm",
                    217:              "$instdir/krb5-libs-1.2.4-3.i386.rpm",
1.13      matthew   218:              "$instdir/krb5-devel-1.2.4-3.i386.rpm",
1.12      matthew   219:              "$instdir/LON-CAPA-krb4-3.1-1.i386.rpm",
1.1       matthew   220:                     );
                    221: my @misc_rpms = (
1.16      matthew   222:              "$instdir/m2crypto-0.05_snap4-2.i386.rpm",
                    223:              "$instdir/tetex-dvips-1.0.7-47.i386.rpm",
                    224:              "$instdir/ntp-4.1.1-1.i386.rpm",
                    225:              "$instdir/libcap-1.10-8.i386.rpm",
1.1       matthew   226:              );
1.16      matthew   227: 
1.22    ! matthew   228: my $systemperl = "$instdir/LON-CAPA-systemperl-3.7-rh7.i386.rpm";
1.16      matthew   229: 
                    230: ##
                    231: ## Some of these rpm commands require being obnoxious (--force --nodeps)
                    232: ## this is not a nice thing to do and we should be careful about it.
1.1       matthew   233: ##
1.16      matthew   234: 
                    235: &print_and_log("Installing Apache packages.\n");
                    236: &writelog (`rpm -Uvh @apache_rpms`);
                    237: &print_and_log("Installing openssh packages.\n");
                    238: &writelog (`rpm -Uvh @openssh_rpms`);
                    239: &writelog(`/etc/init.d/sshd start`);
                    240: &print_and_log("Installing ImageMagick packages.\n");
                    241: &writelog (`rpm -Uvh @ImageMagick_rpms`);
                    242: &print_and_log("Installing mysql packages.\n");
                    243: &writelog (`rpm -Uvh @mysql_rpms`);
                    244: &print_and_log("Installing Perl packages.\n");
                    245: &writelog (`rpm -Uvh @perl_rpms`);
                    246: &print_and_log("Installing legacy readline package (required for gnuplot).");
                    247: &writelog(`rpm -i --oldpackage @old_readline_rpms`);
                    248: &print_and_log("Installing gnuplot packages.\n");
                    249: &writelog (`rpm -ivh --force --nodeps @gnuplot_rpms`);
                    250: &print_and_log("Installing LON-CAPA Perl packages.\n");
                    251: &writelog (`rpm -Uvh @loncapa_perl_rpms`);
                    252: &print_and_log("Installing misc packages.\n");
                    253: &writelog (`rpm -Uvh @misc_rpms`);
                    254: &print_and_log("Installing LON-CAPA systemperl rpm");
                    255: &writelog(`rpm -ivh --force --nodeps $systemperl`);
                    256: &print_and_log("\n");
                    257: 
                    258: 
                    259: ##
                    260: ## Remove conflicting packages
                    261: ##
                    262: my @php_rpms = ("php-imap-4.1.2-7",
                    263:                 "asp2php-0.76.2-1",
                    264:                 "php-ldap-4.1.2-7",
                    265:                 "php-devel-4.1.2-7",
1.19      matthew   266:                 "php-4.1.2-7",
                    267: 	        "php-pgsql-4.1.2-7");
1.16      matthew   268: 
                    269: &print_and_log("Removing php packages");
                    270: foreach my $php_rpm (@php_rpms) {
                    271:     my $remove_error = system("rpm -e --nodeps ".$php_rpm);
                    272:     if ($remove_error) {
                    273:         &print_and_log("Unable to remove ".$php_rpm.".  ".
                    274:                        "Assuming it is not present.\n");
                    275:     } else {
                    276:         &writelog("Successfully removed ".$php_rpm);
                    277:     }
                    278: }
1.1       matthew   279: 
                    280: ##
                    281: ## Fix that stupid little sendmail bug
                    282: ##
                    283: print_and_log("changing permissions on root directory.\n");
                    284: $result = `chmod g-w,u+w /`;
                    285: if ($result eq '') {
                    286:     $result = "successful\n";
                    287: } else {
                    288:     die "Unable to change permissions on root directory.  Halting.\n";
                    289: }
                    290: writelog ($result);
                    291: print_and_log("\n");
                    292: 
                    293: ##
                    294: ## Set up www and authentication
                    295: ##
                    296: print_and_log("Creating user 'www'\n");
                    297: $result = `/usr/sbin/useradd www`;
                    298: if (! (($result eq '') || ($result =~ /user www exists/))) {
                    299:     die "Unable to add user www.  Halting.\n";
                    300: }
                    301: writelog ($result);
                    302: my $num = `grep ^www /etc/passwd | cut -d':' -f3`;
                    303: chomp $num;
                    304: if (int($num) == $num) {
                    305:     writelog ("uid of www = $num\n");
                    306: } else {
                    307:     die "Unable to determine UID of user www\n  Halting.\n";
                    308: }
                    309: print_and_log("\n");
                    310: 
                    311: ##
                    312: ## Patch mod_auth_external
                    313: ##
                    314: print_and_log("Setting up authentication for 'www'\n");
                    315: my $patch = <<"ENDPATCH";
                    316: 148c148
                    317: < #define SERVER_UIDS 99		/* user "nobody" */
                    318: ---
                    319: > #define SERVER_UIDS $num		/* user "www" */
                    320: ENDPATCH
                    321: 
                    322: if (! -e "/usr/bin/patch") {
                    323:     print_and_log("You must install the software development tools package ".
                    324:                   "when installing RedHat.\n");
                    325:     die;
                    326: }
                    327: &die_if_nonempty(`cd /tmp; tar zxf $instdir/mod_auth_external-2.1.13.tar.gz`,
                    328:                  "Unable to extract mod_auth_external\n");
                    329: my $dir = "/tmp/mod_auth_external-2.1.13/pwauth";
                    330: open PATCH, "| patch $dir/config.h" || 
                    331:     die "Unable to start patch for mod_auth_external.  Halting\n";
                    332: print PATCH $patch;
                    333: close PATCH;
                    334: print_and_log("\n");
                    335: 
                    336: ##
                    337: ## Compile patched pwauth
                    338: ##
                    339: print_and_log("Compiling pwauth\n");
                    340: $result = `cd $dir/; make`;
                    341: my $expected = <<"END";
                    342: gcc -g    -c -o pwauth.o pwauth.c
                    343: gcc -o pwauth -g  pwauth.o -lcrypt
                    344: END
                    345: 
                    346: if ($result ne $expected) {
                    347:     die "Unable to compile patched pwauth.  Halting.\n";
                    348: }    
                    349: print_and_log( $result );
                    350: 
                    351: ##
                    352: ## Install patched pwauth
                    353: ##
                    354: print_and_log("Copying pwauth to /usr/local/sbin\n");
                    355: if (! copy "$dir/pwauth","/usr/local/sbin/pwauth") {
                    356:     die "Unable to copy $dir/pwauth to /usr/local/sbin/pwauth.\n$!\nHalting\n";
                    357: }
                    358: if (! chmod (06755, "/usr/local/sbin/pwauth")) {
                    359:     die "Unable to set permissions on /usr/local/sbin/pwauth.\n";
                    360: }
                    361: print_and_log("\n");
                    362: 
                    363: ##
                    364: ## Set up mysql
                    365: ##
                    366: print_and_log("Setting mysqld to start on boot up.\n");
1.18      harris41  367: system("/sbin/chkconfig --add mysqld");
                    368: system("/sbin/chkconfig mysqld on");
                    369: &writelog(`/sbin/chkconfig --list mysqld`);
1.1       matthew   370: 
                    371: writelog("mysql links created successfully\n");
                    372: writelog(`/etc/rc.d/init.d/mysqld start`);
                    373: print_and_log("Waiting for mysql daemon to start.\n");
                    374: sleep 5;
1.4       matthew   375: my $status = system("/etc/rc.d/init.d/mysqld status");
                    376: if ($status != 0) {
1.1       matthew   377:     die "Unable to start mysql daemon\nHalting\n";
1.4       matthew   378: } else {
                    379:     print_and_log("Mysql daemon is running.\n");
1.1       matthew   380: }
                    381: print_and_log("\n");
                    382: 
                    383: ##
                    384: ## Get root password for mysql client
                    385: ##
                    386: print <<END;
                    387: Please enter a root password for the mysql database.
                    388: It does not have to match your root account password, but you will need
                    389: to remember it.
                    390: END
                    391: my $rootpass = <>;
                    392: chomp $rootpass;
                    393: print_and_log("\n");
                    394: 
                    395: ##
                    396: ## Run the damn thing (mysql, not LON-CAPA)
                    397: ##
                    398: print_and_log("Starting mysql client.\n");
                    399: open MYSQL, "|mysql -u root mysql" || die "Unable to start mysql\n";
                    400: print MYSQL <<"ENDMYSQL";
                    401: CREATE DATABASE loncapa;
                    402: INSERT INTO user (Host, User, Password)
                    403: VALUES ('localhost','www',password('localhostkey'));
1.11      harris41  404: INSERT INTO db VALUES ('localhost','loncapa','www',
                    405: 'Y','Y','Y','Y','Y','Y','N','Y','Y','Y');
1.1       matthew   406: SET PASSWORD FOR root\@localhost=PASSWORD('$rootpass');
                    407: DELETE FROM user WHERE host<>'localhost';
                    408: FLUSH PRIVILEGES;
                    409: USE loncapa;
                    410: CREATE TABLE IF NOT EXISTS metadata (title TEXT, author TEXT, subject TEXT, url TEXT, keywords TEXT, version TEXT, notes TEXT, abstract TEXT, mime TEXT, language TEXT, creationdate DATETIME, lastrevisiondate DATETIME, owner TEXT, copyright TEXT, FULLTEXT idx_title (title), FULLTEXT idx_author (author), FULLTEXT idx_subject (subject), FULLTEXT idx_url (url), FULLTEXT idx_keywords (keywords), FULLTEXT idx_version (version), FULLTEXT idx_notes (notes), FULLTEXT idx_abstract (abstract), FULLTEXT idx_mime (mime), FULLTEXT idx_language (language), FULLTEXT idx_owner (owner), FULLTEXT idx_copyright (copyright)) TYPE=MYISAM;
                    411: EXIT
                    412: ENDMYSQL
                    413: 
                    414: close MYSQL;
                    415: print_and_log("\n");
                    416: 
                    417: ##
1.17      matthew   418: ## Remove the firewall.
1.1       matthew   419: ##
1.18      harris41  420: system("/sbin/chkconfig ipchains off");
1.17      matthew   421: system("/etc/init.d/ipchains stop");
1.19      matthew   422: system("/sbin/chkconfig iptables off");
                    423: system("/etc/init.d/iptables stop");
1.17      matthew   424: 
                    425: # Someday we will add these to /etc/sysconfig/ipchains.
                    426: #  "-A input -s 0/0 -d 0/0 8080 -p tcp -y -j ACCEPT",
                    427: #  "-A input -s 0/0 -d 0/0 5663 -p tcp -y -j ACCEPT"
                    428: # Someday we will deal with iptables, too.  Soon.
1.1       matthew   429: 
                    430: ##
                    431: ## Set up httpd 
                    432: ##
                    433: print_and_log("Setting httpd to start on boot up.\n");
1.18      harris41  434: system("/sbin/chkconfig httpd on");
1.1       matthew   435: 
                    436: ##
                    437: ## Copy our (probably lousy) httpd.conf to its rightful place
                    438: ##
                    439: print_and_log("Copying our httpd.conf to /etc/httpd/conf/httpd.conf\n");
                    440: copy "$instdir/httpd.conf","/etc/httpd/conf/httpd.conf";
                    441: chmod 0444,"/etc/httpd/conf/httpd.conf";
                    442: print_and_log("\n");
                    443: 
                    444: ##
                    445: ## Retrieve loncapa.tar.gz
                    446: ##
1.15      matthew   447: my $lctarball = 'loncapa-current.tar.gz';
                    448: if (! -e "$instdir/$lctarball") {
                    449:     print_and_log("Retrieving LON-CAPA source files from install.loncapa.org\n")
                    450: ;
1.16      matthew   451:     system("wget http://install.loncapa.org/versions/$lctarball 2>/dev/null 1>/dev/null");
1.15      matthew   452:     if (! -e "./$lctarball") {
1.1       matthew   453:         die("Unable to retrieve LON-CAPA source files from\n".
1.15      matthew   454:             "http://install.loncapa.org/versions/$lctarball\n");
1.1       matthew   455:     }
                    456:     print_and_log("\n");
                    457: } else {
                    458:     print_and_log(<<"END");
                    459: ------------------------------------------------------------------------
                    460: 
1.5       harris41  461: You seem to have a version of loncapa-current.tar.gz in $instdir.  
1.1       matthew   462: This copy will be used and a new version will NOT be downloaded.  
                    463: If you wish, you may download a new version by executing:
                    464: 
1.5       harris41  465: wget http://install.loncapa.org/versions/loncapa-current.tar.gz
1.1       matthew   466: 
                    467: ------------------------------------------------------------------------
                    468: END
                    469: }
                    470: 
                    471: ##
                    472: ## untar loncapa.tar.gz
                    473: ##
                    474: print_and_log("Extracting LON-CAPA source files\n");
1.5       harris41  475: writelog(`cd ~root; tar zxf $instdir/loncapa-current.tar.gz`);
1.1       matthew   476: print_and_log("\n");
                    477: 
                    478: my $version = `cat /etc/redhat-release`;
                    479: if ($version =~ /7\.2/) {
                    480:     print_and_log(<<"END");
                    481: This appears to be a Red Hat 7.2 system.  You need to execute the following
                    482: commands now:
                    483: rpm -Uvh perl-5.6.1-34.99.6.i386.rpm
                    484: rpm -Uvh perl-CGI-2.752-34.99.6.i386.rpm
                    485: 
1.7       harris41  486: cd /root/loncapa-N.N     (N.N should correspond to a version number like '0.4')
1.1       matthew   487: ./UPDATE
                    488: 
                    489: END
                    490: } else {
                    491:     ##
                    492:     ## Assure them that everything worked okay....
                    493:     ##
                    494:     print <<"ENDMSG";
                    495: All of the extra files seem to have been installed correctly.  It remains for 
                    496: you to execute the following commands:
                    497: 
1.7       harris41  498: cd /root/loncapa-N.N     (N.N should correspond to a version number like '0.4')
1.1       matthew   499: ./UPDATE
                    500: 
1.5       harris41  501: If you have any trouble, please see http://install.loncapa.org/ and 
                    502: http://help.loncapa.org/.  
1.1       matthew   503: ENDMSG
                    504: }
                    505: 
                    506: close LOG;
1.4       matthew   507: 

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>