Return to sqltest.pl CVS log

Up to [LON-CAPA] / loncom / build / system_dependencies

reading loncapa.conf as well... (not using LONCAPA::Configuration
so as to reduce software dependency associated with this test)

    1: #!/usr/bin/perl
    2: #
    3: # The LearningOnline Network with CAPA
    4: #
    5: # Tests the MySQL layer of the metadata database.
    6: #
    7: # YEAR=2001
    8: # 9/25,9/30 Scott Harrison
    9: # YEAR=2002
   10: # 5/10,5/11 Scott Harrison
   11: 
   12: ###############################################################################
   13: ##                                                                           ##
   14: ## ORGANIZATION OF THIS PERL CGI SCRIPT                                      ##
   15: ##                                                                           ##
   16: ## 1. Status of this code                                                    ##
   17: ## 2. Purpose and description of program                                     ##
   18: ## 3. Modules used by this script                                            ##
   19: ## 4. Print MIME Content-type and other initialization                       ##
   20: ## 5. Make sure database can be accessed and that this is a library server   ##
   21: ##                                                                           ##
   22: ###############################################################################
   23: 
   24: # --------------------------------------------------------- Status of this code
   25: #
   26: # 1=horrible 2=poor 3=fair 4=good 5=excellent
   27: # Organization 5
   28: # Functionality 4
   29: # Has it been tested? 3
   30: #
   31: 
   32: # ------------------------------------------ Purpose and description of program
   33: #
   34: # This program tests the connection to the MySQL database.
   35: 
   36: # ------------------------------------------------- Modules used by this script
   37: use strict;
   38: use DBI;
   39: 
   40: # ---------------------------- Print MIME Content-type and other initialization
   41: $|=1;
   42: print 'Probing for SQL metadata database'."\n\n";
   43: 
   44: # --- Make sure that database can be accessed and that this is a library server
   45: # library server test
   46: my %perlvar;
   47: open (CONFIG,"/etc/httpd/conf/access.conf") || 
   48:     (print "Can't read access.conf\n" && exit);
   49: while (my $configline=<CONFIG>) {
   50:     if ($configline =~ /^[^\#]*PerlSetVar/) {
   51: 	my ($dummy,$varname,$varvalue)=split(/\s+/,$configline);
   52:         chomp($varvalue);
   53:         $perlvar{$varname}=$varvalue;
   54:     }
   55: }
   56: close(CONFIG);
   57: open (CONFIG,"/etc/httpd/conf/loncapa.conf") || 
   58:     (print "Can't read loncapa.conf\n" && exit);
   59: while (my $configline=<CONFIG>) {
   60:     if ($configline =~ /^[^\#]*PerlSetVar/) {
   61: 	my ($dummy,$varname,$varvalue)=split(/\s+/,$configline);
   62:         chomp($varvalue);
   63:         $perlvar{$varname}=$varvalue;
   64:     }
   65: }
   66: close(CONFIG);
   67: unless ($perlvar{'lonRole'} eq 'library') {
   68:     print "SQL testing can only be run on a library server. Skipping test..\n";
   69:     exit 0;
   70: }
   71: # database test
   72: my $dbh;
   73: {
   74:     unless (
   75: 	    $dbh = DBI->connect("DBI:mysql:loncapa","www",
   76: 				$perlvar{'lonSqlAccess'},
   77: 				{ RaiseError =>0,PrintError=>0})
   78: 	    ) { 
   79: 	print "Cannot connect to database!\n";
   80: 	my $checkDBImodule=`perl pmvers DBI 2>/dev/null`;
   81: 	my $checkMYSQLmodule=`perl pmvers Mysql 2>/dev/null`;
   82: 	my $checkprocess=`/etc/rc.d/init.d/mysqld status`;
   83: 	if (!$checkDBImodule) {
   84: 	    print "**** ERROR **** SYSTEM IS MISSING THE DBI PERL ".
   85: 		"MODULE (DBI.pm)\n";
   86: 	}
   87: 	elsif (!$checkMYSQLmodule) {
   88: 	    print "**** ERROR **** SYSTEM IS MISSING THE MYSQL PERL ".
   89: 		"MODULE (Mysql.pm)\n";
   90: 	}
   91: 	elsif (!-e '/etc/rc.d/init.d/mysqld') {
   92: 	    print "**** ERROR **** IT APPEARS THAT THE MYSQL SERVER HAS NOT ".
   93: 		"BEEN INSTALLED\n";
   94: 	}
   95: 	elsif ($checkprocess=~/is stopped/) {
   96: 	    print "**** ERROR **** IT APPEARS THAT THE MYSQL SERVER IS NOT ".
   97: 		"RUNNING\n";
   98: 	    print(<<END);
   99: To fix temporarily, run the command:
  100:    /etc/rc.d/init.d/mysqld start
  101: 
  102: You may also want to check and see that mysqld is started on boot time.
  103: 
  104:    /sbin/chkconfig --list mysqld
  105: 
  106: This is bad output:
  107: mysqld         0:off  1:off  2:off  3:off  4:off  5:off  6:off
  108: 
  109: This is good output:
  110: mysqld         0:off  1:off  2:off  3:on   4:on   5:on   6:off
  111: 
  112: To configure mysqld to launch correctly upon system startup, type the command:
  113:    /sbin/chkconfig --level 345 mysqld on
  114: END
  115: 	}
  116: 	else {
  117: 	    print "**** ERROR **** IT APPEARS THAT WWW\@LOCALHOST AND/OR ".
  118: 		"PASSWORD ARE NOT CORRECTLY ENABLED\n";
  119: 	    print(<<END);
  120: To diagnose, try logging in from the command line with
  121:        mysql -u www -p mysql
  122: and use the lonSqlAccess password
  123: listed in loncapa.conf (PerlSetVar lonSqlAccess ....).
  124: If this does not work, you may need to REMOVE the www\@localhost MySQL user.
  125: mysql -u root -p mysql
  126: mysql> delete from user where user='www'
  127: And then, you will need to repeat the MySQL configuration steps described at:
  128:        http://install.lon-capa.org/.
  129: 
  130: **** NOTE **** ANOTHER possibility is that you are not running
  131: a compatible set of DBI, Mysql perl modules and MySQL server software.
  132: END
  133: 	}
  134: 	exit 1;
  135:     }
  136: }
  137: %perlvar=(); # undefine it
  138: 
  139: print "SQL metadata database is found and is accessible\n";
  140: 
  141: # --------------------------------------------------- Close database connection
  142: $dbh->disconnect();