#!/usr/local/bin/perl
#
# EXDStart: This program is the entry point to the ExpressDB web interface
#
# It does a select on the EDS table and gives the user a choice of which
# one to view.
#
# Copyright (c) 1998, 1999 by John Aach and the President and Fellows of Harvard University
# Created 12/03/98-12/09/98 by John Aach
# Modified: 01/05/99 - cosmetics; use $DIRECTORY for HREF hotlinks and ACTIONs; added
# DB Availability Check
#
# Modified: 01/07/99 - put out EDSes in alphabetical order by EDSName
# modified: 02/15/99 - implemented subnet level security on EDS presentation
# modified: 07/15/99 - put in help hotlinks
# modified: 09/02/99 by Wayne Rindone to handle all organisms
# modified: 12/20/99 by Wayne Rindone to link to ExpressDBera queries
$MODULE = "EXDStart";
#use lib "/usr/local/lib/perl5/site_perl/";
#use lib "/usr/local/lib/perl5/site_perl/alpha-dec_osf/auto";
#use Sybase::DBlib;
$SUCCEED = 1;
$FAIL = 0;
use FileHandle;
autoflush STDOUT 1; # Set up STDOUT for autoflush
#use EXDutilities;
#use EXDGetSession;
#use EXDDBAvailabilityCheck;
# print out header info, including Javascript procedure to save cookie
print <<_HTML0
Content-type: text/html
ExpressDB RNA Expression Database
_HTML0
;
# Get Sybase session
# $dbh = EXDGetSession->Get("ExpressDBGuest","ExpressDBGuest", "ExpressDB");
#
# DB Availability check
#
# EXDDBAvailabilityCheck->Perform($dbh);
# Do a select on the EDS database and get back EDSName, EDSNo, and
# short description information
# SelectEDS($dbh,\@EDSName,\@EDSNo, \@EDSShortDescrip);
# set up variables for HTML page
print <<_HTML1
Welcome to the ExpressDB RNA Expression Database
The ExpressDB database is a collection of RNA expression datasets created at the
Church Labs and at other laboratories. You can normally query the database for measures of
interest and for selections of ORFs and other features.
Our Sybase database server is down, we hope temporarily. We are currently waiting for Sybase Technical Support to get back to us so we can learn if it will be possible to get it working again. 15 December 2004.