[BACK]Return to sqltest.pl CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / build / system_dependencies

Diff for /loncom/build/system_dependencies/sqltest.pl between versions 1.1 and 1.3

version 1.1, 2001/09/30 20:57:58 version 1.3, 2002/05/10 01:32:38
Line 38  use DBI; Line 38  use DBI;
   
 # ---------------------------- Print MIME Content-type and other initialization  # ---------------------------- Print MIME Content-type and other initialization
 $|=1;  $|=1;
 print 'Content-type: text/plain'."\n\n";  print 'Probing for SQL metadata database'."\n\n";
   
 # --- Make sure that database can be accessed and that this is a library server  # --- Make sure that database can be accessed and that this is a library server
 # library server test  # library server test
Line 66  my $dbh; Line 66  my $dbh;
  { RaiseError =>0,PrintError=>0})   { RaiseError =>0,PrintError=>0})
     ) {       ) { 
  print "Cannot connect to database!\n";   print "Cannot connect to database!\n";
    my $checkDBImodule=`perl pmvers DBI 2>/dev/null`;
    my $checkMYSQLmodule=`perl pmvers Mysql 2>/dev/null`;
    my $checkprocess=`/etc/rc.d/init.d/mysqld status`;
    if (!$checkDBImodule) {
       print "**** ERROR **** SYSTEM IS MISSING THE DBI PERL ".
    "MODULE (DBI.pm)\n";
    }
    elsif (!$checkMYSQLmodule) {
       print "**** ERROR **** SYSTEM IS MISSING THE MYSQL PERL ".
    "MODULE (Mysql.pm)\n";
    }
    elsif (!-e '/etc/rc.d/init.d/mysqld') {
       print "**** ERROR **** IT APPEARS THAT THE MYSQL SERVER HAS NOT ".
    "BEEN INSTALLED\n";
    }
    elsif ($checkprocess=~/is stopped/) {
       print "**** ERROR **** IT APPEARS THAT THE MYSQL SERVER IS NOT ".
    "RUNNING\n";
       print(<<END);
   To fix temporarily, run the command:
      /etc/rc.d/init.d/mysqld start
   
   You may also want to check and see that mysqld is started on boot time.
   
      /sbin/chkconfig --list mysqld
   
   This is bad output:
   mysqld         0:off  1:off  2:off  3:off  4:off  5:off  6:off
   
   This is good output:
   mysqld         0:off  1:off  2:off  3:on   4:on   5:on   6:off
   
   To configure mysqld to launch correctly upon system startup, type the command:
      /sbin/chkconfig --level 345 mysqld on
   END
    }
    else {
       print "**** ERROR **** IT APPEARS THAT WWW\@LOCALHOST AND/OR ".
    "PASSWORD ARE NOT CORRECTLY ENABLED\n";
       print(<<END);
   To diagnose, try logging in from the command line with
          mysql -u www -p mysql
   and use the lonSqlAccess password
   listed in loncapa.conf (PerlSetVar lonSqlAccess ....).
   If this does not work, you may need to REMOVE the www\@localhost MySQL user.
   mysql -u root -p mysql
   mysql> delete from user where user='www'
   And then, you will need to repeat the MySQL configuration steps described at:
          http://install.lon-capa.org/.
   
   **** NOTE **** ANOTHER possibility is that you are not running
   a compatible set of DBI, Mysql perl modules and MySQL server software.
   END
    }
  exit 1;   exit 1;
     }      }
 }  }
 %perlvar=(); # undefine it  %perlvar=(); # undefine it
   
   print "SQL metadata database is found and is accessible\n";
   
 # --------------------------------------------------- Close database connection  # --------------------------------------------------- Close database connection
 $dbh->disconnect();  $dbh->disconnect();
Removed from v.1.1  
changed lines
  Added in v.1.3

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