loncom/interface/lonmysql.pm - diff

Return to lonmysql.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.12, 2003/03/21 16:04:42
+version 1.13, 2003/04/18 15:50:55
  Line 348  sub connect_to_db {
  =pod
+ =item &verify_sql_connection()
+ Inputs: none.
+ Returns: 0 (failure) or 1 (success)
+ Checks to make sure the database can be connected to.  It does not
+ initialize anything in the lonmysql package.
+ =cut
+ ###############################
+ sub verify_sql_connection {
+     my $connection;
+     if (! ($connection = DBI->connect("DBI:mysql:loncapa","www",
+                                       $Apache::lonnet::perlvar{'lonSqlAccess'},
+                                       { RaiseError=>0,PrintError=>0}))) {
+         return 0;
+     }
+     undef($connection);
+     return 1;
+ }
+ ###############################
+ =pod
  =item &disconnect_from_db()
  Inputs: none.