fixed seq qual length check

[biopieces.git] / code_perl / Maasha / SQL.pm

diff --git a/code_perl/Maasha/SQL.pm b/code_perl/Maasha/SQL.pm
index 5ce392708b94e96979f9894cd65d9497b65a595b..9f273756ffc470c49f24e1f76287b4473dbe86dc 100644 (file)
--- a/code_perl/Maasha/SQL.pm
+++ b/code_perl/Maasha/SQL.pm
@@ -28,12 +28,13 @@ package Maasha::SQL;
 # >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
 
 
+use warnings;
 use strict;
 use warnings;
 
 use DBI;
 use Data::Dumper;
-
+use Time::HiRes;
 use Maasha::Common;
 
 use vars qw( @ISA @EXPORT );
@@ -59,6 +60,21 @@ sub create_database
 }        
 
 
+sub delete_database
+{
+    my ( $database,
+         $user,
+         $password,
+       ) = @_;
+
+    die qq(ERROR: Protected database: "$database!\n" ) if $database =~/^(mysql|information_schema)$/i;
+    system( "mysqladmin drop $database --force --user=$user --password=$password > /dev/null 2>&1"  ) == 0 or
+    die qq(ERROR: Could not drop database "$database"!\n);
+
+    return;
+}        
+
+
 sub database_exists
 {
     # Martin A. Hansen, May 2008.
@@ -203,7 +219,6 @@ sub query_array
     # Returns a list.
 
     my ( $sth, $table, $errstr, @status );
-
     if ( not $sth = $dbh->prepare( $sql ) ) 
     {
             $errstr = $DBI::errstr;
@@ -219,7 +234,7 @@ sub query_array
             disconnect( $dbh );
             die qq(ERROR: $errstr, "SQL EXECUTE ERROR" );
     }
-    
+
     if ( $table = $sth->fetchall_arrayref( $out ) )
     {
             return wantarray ? @{ $table } : $table;
@@ -484,7 +499,7 @@ sub del_column
 }
 
 
-sub load_sql_file
+sub bulk_load_file
 {
     # Martin A. Hansen, January 2004.
 
@@ -504,7 +519,7 @@ sub load_sql_file
 
     $sql = qq( LOAD DATA LOCAL INFILE "$path" INTO TABLE $table FIELDS TERMINATED BY '$delimiter' );
 
-    SQL::request( $dbh, $sql );
+    request( $dbh, $sql );
 }