#!/lab/bin/perl
# Prints the username/password for the requested database.

=NAME 

  get_dbconnection.pl  -n db_name

=head1 SYNOPSIS

  get_dbconnection.pl -n db_name

 Options:
  -n  The desired database (sequence/map/ontology/phenotype/go-curator)

=head1 DESCRIPTION

This will return the corresponding username/password for one of the above database names.

=head1 AUTHOR

  Leonid Teytelman teytelman@cshl.org

=cut

use lib $ENV{'GrameneCodeDir'}."/lib/perl";

use CSHL::Config;
use Getopt::Long;
use Pod::Usage;
use strict;
      
my %option=();
my %db_names_hash=(sequence=>SequenceName.'/'.SequencePass,
		  map=> MapName.'/'.MapPass, 
		  ontology=>OntologyName.'/'.OntologyPass,
		  curator=>CuratorName.'/'.CuratorPass,
		  mutant=>MutantName.'/'.MutantPass,
		  );
my ($db_name,$help);

GetOptions("n|name=s"=>\$db_name,
	   "h|help"=>\$help) or pod2usage(0);
pod2usage(-verbose=>2) if $help;
pod2usage(0) unless $db_name;
pod2usage(0) unless exists $db_names_hash{$db_name};
print $db_names_hash{$db_name};





