package DbiFloret;

use DBI;
use Term::ReadKey;


sub dbconnect {
	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=floret.cgrb.oregonstate.edu", $username, $password,
		{ RaiseError=> 1, AutoCommit=>1 }
		) or die "Failed to connect to database: $DBI::errstr";
		
	
	return $dbh;
}

sub dbconnect_auto {
		my $self =@_;
		
		my $username = $_[0];
		my $password = $_[1];
		my $database = $_[2];
		
		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;
}

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;