[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Tue Jun 29 12:24:00 EDT 2004
Update of /home/repository/moby/moby-live/Perl/scripts/Services
In directory pub.open-bio.org:/tmp/cvs-serv25852/scripts/Services

Modified Files:
	LocalServices.pm 
Log Message:
CommonSubs now accepts HTML markup in the service provision block.  LocalServices (the example services that I run) now correctly credit the SeqHound project.

moby-live/Perl/scripts/Services LocalServices.pm,1.62,1.63
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/Services/LocalServices.pm,v
retrieving revision 1.62
retrieving revision 1.63
diff -u -r1.62 -r1.63
--- /home/repository/moby/moby-live/Perl/scripts/Services/LocalServices.pm	2004/02/23 21:31:53	1.62
+++ /home/repository/moby/moby-live/Perl/scripts/Services/LocalServices.pm	2004/06/29 16:24:00	1.63
@@ -46,6 +46,8 @@
 
 my $debug = 1;
 
+my $SeqHoundCredit = "This data is provided by <a HREF='http://seqhound.blueprint.org'>SeqHound</a>; <a href='http://www.ncbi.nlm.nih.gov/entrez/query.fcgi?cmd=Retrieve&db=PubMed&list_uids=12401134&dopt=Abstract'>Michalickova K, Bader GD, Dumontier M, Lieu H, Betel D, Isserlin R, Hogue CW.  SeqHound: biological sequence and structure database as a platform forbioinformatics research. BMC Bioinformatics. 2002 Oct 25;3(1):32</a>";
+
 use vars qw(@ISA);
 
 ##################################################
@@ -118,7 +120,7 @@
 			$MOBY_RESPONSE .= collectionResponse(\@simples, "", $qID);
         }
     }
-    return SOAP::Data->type('base64' => (responseHeader("illuminae.com") . $MOBY_RESPONSE . responseFooter));    
+    return SOAP::Data->type('base64' => (responseHeader(-authority => "illuminae.com", -note => $SeqHoundCredit) . $MOBY_RESPONSE . responseFooter));    
 }
 
 
@@ -152,7 +154,7 @@
 			$MOBY_RESPONSE .= collectionResponse(\@simples, "", $qID);
         }
     }
-    return SOAP::Data->type('base64' => (responseHeader("illuminae.com") . $MOBY_RESPONSE . responseFooter));    
+    return SOAP::Data->type('base64' => (responseHeader(-authority => "illuminae.com", -note => $SeqHoundCredit) . $MOBY_RESPONSE . responseFooter));    
 }
 
 sub getSHoundProteinsFromOrganism {  # WORKS
@@ -185,7 +187,7 @@
 			$MOBY_RESPONSE .= collectionResponse(\@simples, "", $qID);
         }
     }
-    return SOAP::Data->type('base64' => (responseHeader("illuminae.com") . $MOBY_RESPONSE . responseFooter));    
+    return SOAP::Data->type('base64' => (responseHeader(-authority => "illuminae.com", -note => $SeqHoundCredit) . $MOBY_RESPONSE . responseFooter));    
 }
 
 
@@ -219,7 +221,7 @@
 			$MOBY_RESPONSE .= collectionResponse(\@simples, "", $qID);
         }
     }
-    return SOAP::Data->type('base64' => (responseHeader("illuminae.com") . $MOBY_RESPONSE . responseFooter));    
+    return SOAP::Data->type('base64' => (responseHeader(-authority => "illuminae.com", -note => $SeqHoundCredit) . $MOBY_RESPONSE . responseFooter));    
 }
 
 
@@ -253,7 +255,7 @@
 			$MOBY_RESPONSE .= collectionResponse(\@simples, "", $qID);
         }
     }
-    return SOAP::Data->type('base64' => (responseHeader("illuminae.com") . $MOBY_RESPONSE . responseFooter));    
+    return SOAP::Data->type('base64' => (responseHeader(-authority => "illuminae.com", -note => $SeqHoundCredit) . $MOBY_RESPONSE . responseFooter));    
 }
 
 sub getSHoundGODBGetParentOf {  # WORKS
@@ -290,7 +292,7 @@
 			$MOBY_RESPONSE .= collectionResponse(\@simples, "", $qID);
         }
     }
-    return SOAP::Data->type('base64' => (responseHeader("illuminae.com") . $MOBY_RESPONSE . responseFooter));    
+    return SOAP::Data->type('base64' => (responseHeader(-authority => "illuminae.com", -note => $SeqHoundCredit) . $MOBY_RESPONSE . responseFooter));    
 }
 
 sub getSHoundGODBGetChildrenOf {  # WORKS
@@ -327,7 +329,7 @@
 			$MOBY_RESPONSE .= collectionResponse(\@simples, "", $qID);
         }
     }
-    return SOAP::Data->type('base64' => (responseHeader("illuminae.com") . $MOBY_RESPONSE . responseFooter));    
+    return SOAP::Data->type('base64' => (responseHeader(-authority => "illuminae.com", -note => $SeqHoundCredit) . $MOBY_RESPONSE . responseFooter));    
 }
 
 sub getSHoundDNAFromOrganism {  # WORKS
@@ -360,7 +362,7 @@
 			$MOBY_RESPONSE .= collectionResponse(\@simples, "", $qID);
         }
     }
-    return SOAP::Data->type('base64' => (responseHeader("illuminae.com") . $MOBY_RESPONSE . responseFooter));    
+    return SOAP::Data->type('base64' => (responseHeader(-authority => "illuminae.com", -note => $SeqHoundCredit) . $MOBY_RESPONSE . responseFooter));    
 }
 
 sub getTaxChildNodes {  # WORKS
@@ -393,7 +395,7 @@
 			$MOBY_RESPONSE .= collectionResponse(\@simples, "", $qID);
         }
     }
-    return SOAP::Data->type('base64' => (responseHeader("illuminae.com") . $MOBY_RESPONSE . responseFooter));    
+    return SOAP::Data->type('base64' => (responseHeader(-authority => "illuminae.com", -note => $SeqHoundCredit) . $MOBY_RESPONSE . responseFooter));    
 }
 
 sub getTaxParent { # now it works.
@@ -419,7 +421,7 @@
 			$parent && ($MOBY_RESPONSE .= simpleResponse("<Object namespace='taxon' id='$parent'/>", "", $qID));
         }
     }
-    return SOAP::Data->type('base64' => (responseHeader("illuminae.com") . $MOBY_RESPONSE . responseFooter));    
+    return SOAP::Data->type('base64' => (responseHeader(-authority => "illuminae.com", -note => $SeqHoundCredit) . $MOBY_RESPONSE . responseFooter));    
 }
 
 
@@ -449,7 +451,7 @@
 													   "</CrossReference>$name</String>", "", $qID));
         }
     }
-    return SOAP::Data->type('base64' => (responseHeader("illuminae.com") . $MOBY_RESPONSE . responseFooter));    
+    return SOAP::Data->type('base64' => (responseHeader(-authority => "illuminae.com", -note => $SeqHoundCredit) . $MOBY_RESPONSE . responseFooter));    
 }
 
 sub getGoTerm {
@@ -679,7 +681,7 @@
     }
 	$aa = SHoundFini();
 	#print STDERR responseHeader("illuminae.com") . $MOBY_RESPONSE . responseFooter;
-    return SOAP::Data->type('base64' => (responseHeader("illuminae.com") . $MOBY_RESPONSE . responseFooter));    
+    return SOAP::Data->type('base64' => (responseHeader(-authority => "illuminae.com", -note => $SeqHoundCredit) . $MOBY_RESPONSE . responseFooter));    
 }
 
 sub _makeSeqObj {
@@ -778,7 +780,7 @@
     }
 	$aa = SHoundFini();
 #	print STDERR responseHeader("illuminae.com") . $MOBY_RESPONSE . responseFooter;
-    return SOAP::Data->type('base64' => (responseHeader("illuminae.com") . $MOBY_RESPONSE . responseFooter));    
+    return SOAP::Data->type('base64' => (responseHeader(-authority => "illuminae.com", -note => $SeqHoundCredit) . $MOBY_RESPONSE . responseFooter));    
 }
 
 sub MOBYSHoundGetGenBankWhateverSequence {
@@ -865,7 +867,7 @@
     }
 	$aa = SHoundFini();
 #	print STDERR responseHeader("illuminae.com") . $MOBY_RESPONSE . responseFooter;
-    return SOAP::Data->type('base64' => (responseHeader("illuminae.com") . $MOBY_RESPONSE . responseFooter));    
+    return SOAP::Data->type('base64' => (responseHeader(-authority => "illuminae.com", -note => $SeqHoundCredit) . $MOBY_RESPONSE . responseFooter));    
 }
 
 sub MOBYSHoundGetGenBankFasta {
@@ -927,7 +929,7 @@
     }
 	$aa = SHoundFini();
 	#print STDERR responseHeader("illuminae.com") . $MOBY_RESPONSE . responseFooter;
-    return SOAP::Data->type('base64' => (responseHeader("illuminae.com") . $MOBY_RESPONSE . responseFooter));    
+    return SOAP::Data->type('base64' => (responseHeader(-authority => "illuminae.com", -note => $SeqHoundCredit) . $MOBY_RESPONSE . responseFooter));    
 }