package db_link_pgn;

use lib '/usr/lib/perl5/site_perl/5.005/i386-linux';

#global packages to use
use DBI;
use DBD::mysql ();

sub connect_db {
	my ($db, $usr) = @_;

#default user
	$usr ||= 'web_usr';


#known user/password hash
	my %pwd=();
	$pwd{'web_usr'}='tomato';
	$pwd{'cgn_editor'}='coffee';
	$pwd{'fgp_editor'}='flower';
	$pwd{'pgn_editor'}='plants';
	$pwd{'cgn_annotator'}='coffee_writer';
	$pwd{'fgn_annotator'}='flower_writer';
	$pwd{'koni'}='bitchbadass';

	my $dsn= "dbi:mysql:$db";

	# try to open the database	  
	my $dbh = DBI->connect($dsn, $usr, $pwd{$usr}, { RaiseError => 1}) or die "Can't connect to $dsn: $DBI::errstr";
	
	# Set larger max buffer size so that long sequences don't get truncated on retrieval
	my	$newsize = 20480;
	($rc = $dbh->{LongReadLen} = $newsize) or die "Error setting LongReadLen to $newsize: $DBI::errstr";
	
	return $dbh;
}

sub disconnect_db {
	my ($dbh) = @_;
	$rc = $dbh->disconnect;
}

return 1;