package Authentication;

use CGI qw/:all :html3/;
use dictyBaseCentralMod qw(:getInfo);
use ConfigPathdictyBase;
use ConfigURLdictyBase;

my $configPath = ConfigPathdictyBase->new;
my $configUrl  = ConfigURLdictyBase->new;

my $user     = param('user');
my $database = "dictyBase";


my ($dbuser, $dbpasswd) = &getUsernamePassword(uc($user), $database);

if ( !$dbuser || !$dbpasswd ) {
   print "location: ", $configUrl->dictyBaseCGIRoot, "dictyBase/curatorLogin\n";
   print "Content-type: text/html\n\n";
   exit;
}

1;