# Saved by TopBraid on Mon Aug 11 16:49:16 PDT 2008
# baseURI: http://sparqlmotion.org/services/SendEmail
# imports: http://topbraid.org/sparqlmotionlib

@prefix xsd:     <http://www.w3.org/2001/XMLSchema#> .
@prefix email:   <http://topbraid.org/email#> .
@prefix sml:     <http://topbraid.org/sparqlmotionlib#> .
@prefix sm:      <http://topbraid.org/sparqlmotion#> .
@prefix rdfs:    <http://www.w3.org/2000/01/rdf-schema#> .
@prefix rdf:     <http://www.w3.org/1999/02/22-rdf-syntax-ns#> .
@prefix daml:    <http://www.daml.org/2001/03/daml+oil#> .
@prefix owl:     <http://www.w3.org/2002/07/owl#> .
@prefix :        <http://sparqlmotion.org/services/SendEmail#> .

<http://sparqlmotion.org/services/SendEmail>
      a       owl:Ontology ;
      owl:imports <http://topbraid.org/sparqlmotionlib> ;
      owl:versionInfo "Created with TopBraid Composer"^^xsd:string .

:BindWithSelectedResource
      a       sml:BindWithSelectedResource ;
      rdfs:label "Selected resource"^^xsd:string ;
      sm:next :SendEMail ;
      sm:outputVariable "resource" ;
      sml:askQuery """ASK {
	?resource email:to ?to
}"""^^xsd:string .

:CurrentRDF
      a       sml:ImportCurrentRDF ;
      rdfs:label "Current RDF"^^xsd:string ;
      sm:next :TestIfMultipleServersExist .

:GetFirstServer
      a       sml:BindBySelect ;
      rdfs:label "Get first server"^^xsd:string ;
      sml:selectQuery """SELECT ?smtpServer
WHERE {
	?smtpServer a email:Server .
}"""^^xsd:string .

:GetSubject
      a       sml:BindBySelect ;
      rdfs:label "Get subject"^^xsd:string ;
      sm:next :Message ;
      sml:selectQuery """SELECT ?subject 
WHERE {
	?resource email:subject ?subject
}"""^^xsd:string .

:Message
      a       sml:BindLiteralVariable ;
      rdfs:label "Create Success Message"^^xsd:string ;
      sm:next :SendThisMessage ;
      sm:outputVariable "text" ;
      sml:datatype xsd:string ;
      sml:template "EMail sent successfully: {?subject}"^^xsd:string .

:SelectServer
      a       sml:SelectInstance ;
      rdfs:label "Select server"^^xsd:string ;
      sm:outputVariable "smtpServer"^^xsd:string ;
      sml:selectInstanceClass
              email:Server .

:SendEMail
      a       sml:SendEMails ;
      rdfs:label "Send eMail"^^xsd:string ;
      sm:inputVariable :resource ;
      sm:next :GetSubject ;
      sml:selectQuery "SELECT ?resource WHERE {}"^^xsd:string .

:SendThisMessage
      a       sml:ReturnText ;
      rdfs:comment "This service can be used to send an EMail message.The message must be the currently selected resource." ;
      rdfs:label "Send this Message"^^xsd:string .

:TestIfMultipleServersExist
      a       sml:BranchByAsk ;
      rdfs:label "Test if multiple servers exist"^^xsd:string ;
      sm:else :GetFirstServer ;
      sm:if   :SelectServer ;
      sm:next :SendEMail ;
      sml:askQuery """ASK 
WHERE {
	?s1 a email:Server .
	?s2 a email:Server .
	FILTER (?s1 != ?s2)
}"""^^xsd:string .

:TestMessage
      a       email:Message ;
      rdfs:label "Test message"^^xsd:string ;
      email:body "Hello, World."^^xsd:string ;
      email:from <http://sparqlmotion.org/tests/HKEmails#holgerATtopquadrant.com> ;
      email:subject "Test message sent by SPARQLMotion service"^^xsd:string ;
      email:to <http://sparqlmotion.org/tests/HKEmails#holgerATknublauch.com> .

:resource
      a       sm:Variable ;
      rdfs:label "resource"^^xsd:string ;
      sm:name "resource"^^xsd:string .

:server
      a       sm:Variable ;
      rdfs:label "server"^^xsd:string ;
      sm:name "server"^^xsd:string .