Return to configure_mysql_db.pl CVS log

Up to [LON-CAPA] / loncom / metadata_database

- TYPE=MYISAM was replaced with ENGINE=MYISAM in MySQL 4.
- TYPE was deprecated in 4 and 5.0/5.1.  It is no longer supported in 5.5.

    1: #!/usr/bin/perl -w
    2: # The LearningOnline Network 
    3: # Red Hat 7.3 installation script
    4: #
    5: # $Id: configure_mysql_db.pl,v 1.4 2011/05/31 02:40:08 raeburn Exp $
    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: #
   27: use strict;
   28: use lib '/home/httpd/lib/perl/';
   29: use LONCAPA::Configuration;
   30: 
   31: my $runstatus = shift();
   32: if (! defined($runstatus)) {
   33:     $runstatus = 'firstrun';
   34: }
   35: my $rhver=`perl ../build/distprobe`;
   36: my $rpmname;
   37: if ($rhver eq 'redhat9') {
   38:     $rpmname = "perl-DBD-MySQL-2.9002-1.i386.rpm";
   39: } else {
   40:     $rpmname = "perl-DBD-MySQL-1.2216-4.i386.rpm";
   41: }
   42: 
   43: my $perlvar = &LONCAPA::Configuration::read_conf('loncapa.conf');
   44: delete($perlvar->{'lonReceipt'}); # remove since sensitive and not needed
   45: 
   46: ##
   47: ## Set up mysql to run on boot
   48: ##
   49: my $add_result = system("/sbin/chkconfig --add mysqld 2>/dev/null");
   50: my $on_result = system("/sbin/chkconfig mysqld on 2>/dev/null");
   51: if ($add_result != 0 || $on_result != 0) {
   52:     print "Your system is misconfigured.  ".
   53:         "You do not have MySQL installed.\n";
   54:     exit 1;
   55: }
   56: 
   57: ##
   58: ## Make sure it is running now
   59: ##
   60: my $status = system("/etc/rc.d/init.d/mysqld status 1>/dev/null");
   61: if ($status != 0) {
   62:     print(`/etc/rc.d/init.d/mysqld restart`);
   63:     print("Waiting 5 seconds for mysql daemon to restart.\n");
   64:     sleep 5;
   65:     my $status = system("/etc/rc.d/init.d/mysqld status");
   66:     if ($status != 0) {
   67:         die "Unable to start mysql daemon\nHalting\n";
   68:     }
   69: }
   70: 
   71: ##
   72: ## Make sure the mysql is configured
   73: ##
   74: if ($runstatus eq 'firstrun' && (! exists($perlvar->{'lonSqlAccess'}) || 
   75:                                  ! defined($perlvar->{'lonSqlAccess'}))) {
   76:     ##
   77:     ## Get root password for mysql client
   78:     print <<END;
   79: Please enter a root password for the MySQL database.
   80: It does not have to match your root account password, but you will need
   81: to remember it.
   82: END
   83:     my $rootpass = <>;
   84:     chomp $rootpass;
   85:     print("\n");
   86: 
   87:     my $extraargs;
   88:     if ($rhver eq 'redhat9') { $extraargs=",'Y','Y'"; }
   89:     print("Starting mysql client and setting up permissions\n");
   90:     open MYSQL, "|mysql -u root mysql" || die "Unable to start mysql\n";
   91:     print MYSQL <<"ENDMYSQLPERMISSIONINIT";
   92: CREATE DATABASE IF NOT EXISTS loncapa;
   93: USE mysql;
   94: INSERT IGNORE INTO user (Host, User, Password)
   95:     VALUES ('localhost','www',password('localhostkey'));
   96: INSERT IGNORE INTO db VALUES ('localhost','loncapa','www',
   97:     'Y','Y','Y','Y','Y','Y','N','Y','Y','Y'$extraargs);
   98: SET PASSWORD FOR root\@localhost=PASSWORD('$rootpass');
   99: DELETE FROM user WHERE host<>'localhost';
  100: FLUSH PRIVILEGES;
  101: EXIT
  102: ENDMYSQLPERMISSIONINIT
  103:     $perlvar->{'lonSqlAccess'} = 'localhostkey';
  104: }
  105: 
  106: my $dbi_is_present = eval "use DBI;"; # will be defined on error
  107: if (defined($dbi_is_present)) {
  108:     print "Your system is misconfigured.  ".
  109:         "You are missing the perl DBI package\n";
  110:     exit 1;
  111: } else {
  112:     use DBI;
  113: }
  114: 
  115: my $dbh;
  116: my $MySQL_Check = eval '$dbh = DBI->connect("DBI:mysql:loncapa","www",$perlvar->{\'lonSqlAccess\'});';
  117: if (! defined($MySQL_Check)) {
  118:     if ($runstatus ne 'firstrun') {
  119:         print "Your system is misconfigured.\n";
  120:         exit 1;
  121:     }
  122:     #
  123:     # Try to install from the current directory.  
  124:     # This is potentially dangerous
  125:     my $install_result = system("rpm -Uvh $rpmname 2>/dev/null 1>/dev/null");
  126:     if (defined($install_result) && $install_result ne '0') {
  127:         print "Your system is misconfigured.  ".
  128:             "You are missing the perl DBD MySQL package\n";
  129:         exit 1;
  130:     }
  131:     exec "./".$0." secondrun";
  132: }
  133: 
  134: use DBI;
  135: $dbh = DBI->connect("DBI:mysql:loncapa","www",$perlvar->{'lonSqlAccess'});
  136: if (! defined($dbh)) {
  137:     die "Unable to connect to mysql database.\n";
  138: }
  139: $dbh->do(<<ENDDBINIT);
  140: CREATE TABLE IF NOT EXISTS metadata (title TEXT, 
  141:                                      author TEXT, 
  142:                                      subject TEXT, 
  143:                                      url TEXT, 
  144:                                      keywords TEXT, 
  145:                                      version TEXT, 
  146:                                      notes TEXT, 
  147:                                      abstract TEXT, 
  148:                                      mime TEXT, 
  149:                                      language TEXT, 
  150:                                      creationdate DATETIME, 
  151:                                      lastrevisiondate DATETIME, 
  152:                                      owner TEXT, 
  153:                                      copyright TEXT, 
  154:                                      FULLTEXT idx_title (title), 
  155:                                      FULLTEXT idx_author (author), 
  156:                                      FULLTEXT idx_subject (subject), 
  157:                                      FULLTEXT idx_url (url), 
  158:                                      FULLTEXT idx_keywords (keywords), 
  159:                                      FULLTEXT idx_version (version), 
  160:                                      FULLTEXT idx_notes (notes), 
  161:                                      FULLTEXT idx_abstract (abstract), 
  162:                                      FULLTEXT idx_mime (mime), 
  163:                                      FULLTEXT idx_language (language), 
  164:                                      FULLTEXT idx_owner (owner), 
  165:                                      FULLTEXT idx_copyright (copyright)
  166:                                      ) ENGINE=MYISAM
  167: ENDDBINIT
  168: 
  169: $dbh->do(<<ENDDBINIT);
  170: CREATE TABLE IF NOT EXISTS dynamicmetadata (url TEXT NOT NULL, 
  171:                                             count INT UNSIGNED,
  172:                                             num_uses INT UNSIGNED,
  173:                                             clear REAL UNSIGNED,
  174:                                             depth REAL UNSIGNED,
  175:                                             helpful REAL UNSIGNED,
  176:                                             correct REAL UNSIGNED,
  177:                                             technical REAL UNSIGNED,
  178:                                             avetries REAL UNSIGNED,
  179:                                             stdno INT UNSIGNED)
  180: 
  181: ENDDBINIT
  182: 
  183: if ($dbh->err) {
  184:     print "Error creating tables: ".$dbh->errstr()."\n";
  185: }
  186: $dbh->disconnect();
  187: 
  188: