#!/usr/local/bin/perl
if ( $#ARGV < 0 ) # No arguments
{
&printHeader("Family Lookup",1);
}
else
{
$targFam=&getEntry("Family");
if ($targFam=~/Not Found/) {}
else
{
print "
Entry | ";
print "EcoCyc | ";
print "CGSC | ";
print "SwissProt |
\n";
print "E.coli | Other Species |
\n";
open (SET,"$dpiDocsPath/$targFam.set");
while ( $_ = )
{
if (/^ID/)
{
if ($id=~/[a-zA-Z]/) { &output; }
($dum,$id)=split;
$#cgscXref=-1; $#spEco=-1; $#spOther=-1; $#egXref=-1;
}
elsif (/^XR\tEG/)
{
chop; split; $_[1]=~s/^EG//; push(@egXref,$_[1]);
}
elsif (/^XR\tCGSC/)
{
chop;
split;
$_[1] =~ s/^CGSC//;
push(@cgscXref,$_[1]);
}
elsif (/^SP/)
{
if (/_Ecoli/i)
{
push(@spEco,$_);
}
else
{
push(@spOther,$_);
}
}
elsif (m#^//#) { &output; }
}
if ($id=~/[a-zA-Z]/) { &output; }
}
print "
$claimer";
}
exit;
sub output
{
print "$id | ";
print "";
for ($i=0; $i<=$#egXref; $i++)
{
print "$egXref[$i] ";
}
print " | ";
print "";
for ($i=0; $i<=$#cgscXref; $i++)
{
print "$cgscXref[$i] ";
}
print " | ";
&outputSp(*spEco);
&outputSp(*spOther);
print "
\n";
$id="";
}
sub outputSp
{
local(*sp)=@_;
print "";
for ($i=0; $i<=$#sp; $i++)
{
($dum,$spName,$spAcc)=split(/[\t ]+/,$sp[$i]);
if ($spAcc=~/[a-zA-Z0-9]/) { $spLink=$spAcc; }
else { $spLink=$spName; }
print "$spName ";
}
print " | ";
}
#!/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