Add dbconnect_local subroutine

svn path=/; revision=661

diff --git a/interactome_scripts/DbiFloret.pm b/interactome_scripts/DbiFloret.pm
index a4dc781e1e8469295f7e9a807b463a46a1a91576..6433273f2982a33555d71f7944c009b5cdeb950d 100755 (executable)
--- a/interactome_scripts/DbiFloret.pm
+++ b/interactome_scripts/DbiFloret.pm
@@ -39,6 +39,26 @@ sub dbconnect_auto {
        
        return $dbh;
 }
+
+sub dbconnect_local {
+       my $self = @_;
+       
+       print "Username: ";
+       chomp(my $username = <STDIN>);
+       print "Password: ";
+       ReadMode('noecho');
+       chomp(my $password = <STDIN>);
+       ReadMode(0);
+       print "\nDatabase: ";
+       chomp(my $database = <STDIN>);
+       
+       my $dbh = DBI->connect("DBI:mysql:$database;host=localhost", $username, $password,
+               { RaiseError=> 1, AutoCommit=>1 }
+               ) or die "Failed to connect to database: $DBI::errstr";
+               
+       
+       return $dbh;
+}
        
 
 return 1;