#!/usr/bin/perl -w
# Access the information at the GenBank system using the accession number
$version = 'V1.01';
# March 4, 2003. V1.01. Add test for accession number containing trailing
# underscores and remove them. Change messages when accession
# number is unavailable and undefined to be more precise. rcg.
# R. Groman February 27, 2003 V1.00
# Assumptions
# 1. Accession number is passed as only argument
$accession_number = $ARGV[0];
print STDOUT ("Content-type: text/html\n\n");
print STDOUT ('Accessing NCBI GenBank Nucleotide Database (Version ',
$version, ') ', "\n",
'![ZooGene Logo]()
',
'Accessing NCBI GenBank Nucleotide Database',
'
',
'This retrieval is being done at NCBI GenBank Nucleotide database; we ',
'gratefully acknowledge access to this information. ',
"\nFor NCBI's Disclaimer and Copywrite notice click\n",
'',
'here. ',
"\n",'
');
if ($accession_number =~ m/^nd/ ) {$accession_number = 'nd'}
if (defined $accession_number and
$accession_number eq 'nd' ) {
print STDOUT ('Accession number is not available so ',
'cannot do the search.', "\n");
}
elsif (defined $accession_number ) {
print STDOUT (
'GenBank Accession No. is ', $accession_number, "\n",
'
Please be patient while we locate the GenBank entry.',
' Thank you.
', "\n",
'',"\n");
}
else {
print STDOUT (
'GenBank Accession No. is undefined. Please contact',
'the DMO.');
}
print STDOUT ("\n\n