#!/usr/local/bin/perl
if ( $#ARGV < 0 ) # No arguments
{
&printHeader("Class Lookup",1);
}
else
{
$targClass=&getEntry("Class");
print "\n";
unless ( $targClass=~/Not Found/)
{
print "\n";
print "
Gene Families in This Class
\n";
open (SET,"$dpiDocsPath/$targClass.fset");
while ( $_ = )
{
if (m/^ID/)
{
s/[.]family//;
split;
print "- $_[1]";
}
}
print "
"; }
print "$claimer";
}
exit;
#!/usr/local/bin/perl
&primeRegSubs;
sub printHeader
{
($title,$isIndex,$notScript)=@_;
if ($notScript==1) {} else { print "Content-type: text/html\n"; }
print "\n";
print "\n";
print "DPInteract: $title\n";
if ($isIndex==1) { print "\n"; }
print "\n";
print "$title
\n";
}
sub primeRegSubs
{
$RelayBase = "http://golgi.harvard.edu/htbin/relay";
$Cgsc = "http://cgsc.biology.yale.edu/cgi-bin/sybgw/cgsc/Site/";
$GenbankA = "$RelayBase/genbank-acc?";
$Medline = "http://golgi.harvard.edu/htbin/dpinteract/medline-muid?";
$MedNeigh = 'http://atlas.nlm.nih.gov:5700/htbin/enf/entrezmmnei?';
$Pir = "http://www3.ncbi.nlm.nih.gov/htbin-post/Entrez/query?db=p&form=6&uid=";
$Pdb = 'http://expasy.hcuge.ch/cgi-bin/pdb_entry_or_image?';
$Prints = 'http://www.biochem.ucl.ac.uk/cgi-bin/attwood/DoPRINTS.pl?cmd_a=Display&qua_a=/Full&fun_a=Code&qst_a=';
$Blocks = 'http://www.blocks.fhcrc.org/blocks-bin/getblock.www?';
$dpiServer = "http://arep.med.harvard.edu";
$dpiCgi = "$dpiServer/cgi-bin/dpinteract";
$dpiDocsPath = "/usr/arep/a3/httpd/htdocs/dpinteract";
$dpiDocsUrl ="$dpiServer/dpinteract";
$dpiFam = "$dpiCgi/family?";
$dpiSfam = "$dpiCgi/subfamily?";
$dpiGene = "$dpiCgi/gene?";
$dpiClass = "$dpiCgi/class?";
$dpiMsearch = "$dpiCgi/msearch?";
$dpiSearch = "$dpiCgi/search?";
$dpiRefSearch = "$dpiCgi/ref?";
$dpiMrefSearch = "$dpiCgi/mref?";
$dpiSeqregSearch = "$dpiCgi/seqreg?";
$dpiBlastnSearch = "$dpiCgi/blastn";
$dpiMatSearch = "$dpiCgi/matsrch";
$Expasy = "http://expasy.hcuge.ch";
$Prosite = "$Expasy/cgi-bin/get-prosite-entry?";
$Prodoc = "$Expasy/cgi-bin/get-prodoc-entry?";
$Scop = "http://www.bio.cam.ac.uk/scop/data";
# $Sprot = "$Expasy/cgi-bin/get-sprot-entry?";
$Sprot = "http://expasy.hcuge.ch/cgi-bin/get-sprot-entry?";
$SprotPi = "http://expasy.hcuge.ch/cgi-bin/getpI?";
$seqAnalRef = "$Expasy/cgi-bin/get-seqanalr-entry?";
$ecocycGene="http://ecocyc.ai.sri.com:1555/new-image?type=GENE&object=EG";
$ecocycMap="http://ecocyc.ai.sri.com:1555/new-image?type=LOCUS-POSITION&object=EG";
$entrezProtein = "http://www3.ncbi.nlm.nih.gov/htbin-post/Entrez/query?db=p&form=6&Dopt=r&uid=";
$entrezMedline = "http://www3.ncbi.nlm.nih.gov/htbin-post/Entrez/query?db=m&form=6&Dopt=r&uid=";
$mailKr = 'krobison@nucleus.harvard.edu';
$claimer = "
Help: Overview, Fields
Note: This database copyright 1994 Harvard University.
Robison, K., and Church, G.M. DPInteract: A database on DNA-protein interactions. (1994). Electronically published and manuscript in preparation.
Please contact $mailKr to report additional data or problems with this database.
DPInteract Home