package projects;

#use this when connecting from the web
#identify project, db, and db_user based on web login
sub get_project {
    my ($usr)=@_;

#default user is for pgn
    $usr ||= 'pgn';

#create known user/project pairs
#the values are @{$projects{'apache login'}}, 'project', 'database', 'database username'
    my %projects=();
    push @{$projects{'pgn'}}, 'pgn', 'pgn', 'web_usr';
    push @{$projects{'nestle'}},'cgn', 'cgn','web_usr';
    push @{$projects{'jmccarthy'}},'cgn','cgn', 'cgn_annotator';
    push @{$projects{'clin'}},'cgn','cgn','cgn_annotator';
    push @{$projects{'dilut_cgn'}},'cgn','cgn', 'cgn_annotator';
    push @{$projects{'fgp'}}, 'fgn', 'fgn', 'web_usr';
    push @{$projects{'dilut'}}, 'fgn', 'fgn', 'fgn_annotator';
    push @{$projects{'sangtae'}}, 'fgn', 'fgn', 'fgn_annotator';

    return @{$projects{$usr}};
}

#use this when connecting from back end scripts
#this returns a full privilege login, so don't use for the web
sub get_db_info {
    my ($project) = @_;
#create known project database/username pairs
    my %project_db=();;
    push @{$project_db{'cgn'}}, 'cgn', 'cgn_editor';
    push @{$project_db{'fgn'}}, 'fgn', 'fgp_editor';
    push @{$project_db{'pgn'}}, 'pgn', 'pgn_editor';

    return \@{$project_db{$project}};
}

return 1;