Added module to interactively connect to database on floret

svn path=/; revision=12

diff --git a/interactome_scripts/DbiFloret.pm b/interactome_scripts/DbiFloret.pm
new file mode 100755 (executable)
index 0000000..e443260
--- /dev/null
+++ b/interactome_scripts/DbiFloret.pm
@@ -0,0 +1,37 @@
+
+package DbiFloret;
+
+use DBI;
+use Term::Screen::ReadLine;
+
+
+sub dbconnect {
+       my $self = @_;
+       
+       my $screen = Term::Screen::ReadLine->new();
+       # clear the screen
+       $screen->clrscr;
+       # ask for username
+       $screen->at(0,0)->puts("Username: ");
+       my $username = $screen->readline(ROW => 0, COL=>11);
+
+       # ask for password, replace character presses with stars
+       $screen->at(1,0)->puts("Password: ");
+       my $password = $screen->readline(ROW => 1, COL => 11, PASSWORD => 1);
+       
+       $screen->at(2,0)->puts("Database: ");
+       my $database = $screen->readline(ROW => 2, COL => 11);
+
+       $screen->at(3,0);
+       undef $screen;
+       
+       my $dbh = DBI->connect("DBI:mysql:$database;host=floret.cgrb.oregonstate.edu", $username, $password,
+               { RaiseError=> 1, AutoCommit=>1 }
+               ) or die "Failed to connect to database: $DBI::errstr";
+               
+       
+       return $dbh;
+}
+       
+
+return 1;