LDD Today: Lotus Notes/Domino 7 Web サービス

<wsdl:message name="getNthSubjectRequest"> （4）
　<wsdl:part name="dbname" type="xsd:string"/> （5）
　<wsdl:part name="viewname" type="xsd:string"/> （5）
　<wsdl:part name="n" type="xsd:int"/> (5)
</wsdl:message>
<wsdl:message name="getNthSubjectResponse"> （4）
<wsdl:part name="getNthSubjectReturn" type="xsd:string"/> （6）
</wsdl:message>
<wsdl:portType name="GetSubjectPortType"> （1）
　<wsdl:operation name="getNthSubject"
　　parameterOrder="dbname viewname n"> （2）                   
　<wsdl:input message="impl:getnthSubjectRequest" name="GetNthSubjectRequest"/> （3） 
　<wsdl:output message="impl:getNthSubjectResponse" name="GetNthSubjectResponse"/> （3） 
　</wsdl:operation>
</wsdl:portType>

Public Function getNthSubject(dbname As String, viewname As String, n As Long) As String

public String getNthSubject(String dbname, String viewname, int n)

Option Public
%INCLUDE "lsxsd.lss"
Dim s As NotesSession
Class GetSubject
　Sub NEW
　　Set s = New NotesSession
　End Sub
　Function getNthSubject(dbname As String, viewname As String, n As Long) As String
　　　　! Code for doing the operation goes here
　End Function
End Class

import lotus.domino.*;
import lotus.domino.types.*;
public class GetSubject {
　Session s;
　public GetSubject() {
　　s = WebServiceBase.getCurrentSession();
　}
　public String getNthSubject(String dbname, String viewname, int n) {
　　　　// Code for doing operation goes here
　}
}

Option Public
%INCLUDE "lsxsd.lss"
Dim s As NotesSession
Class GetSubject

　Sub NEW
　　Set s = New NotesSession
　End Sub

　Function getNthSubject(dbname As String, viewname As String, n As Long) As String
　　Dim db As NotesDatabase
　　Dim view As NotesView
　　Dim doc As NotesDocument
　　Set db = s.GetDatabase("", dbname)
　　If Not(db.IsOpen) Then
　　　getNthSubject = "Cannot open database " & dbname
　　　Exit Function
　　End If
　　Set view = db.GetView(viewname)
　　If view Is Nothing Then
　　　getNthSubject = "Cannot open view " & viewname
　　　Exit Function
　　End If
　　Set doc = view.GetNthDocument(n)
　　If doc Is Nothing Then
　　　getNthSubject = "Cannot get document " & n
　　　Exit Function
　　End If
　　If doc.HasItem("Subject") Then
　　　getNthSubject = doc.GetItemValue("Subject")(0)
　　Else
　　　getNthSubject = "Document does not have Subject"
　　End If
　End Function
End Class

import lotus.domino.*;
import lotus.domino.types.*;
public class GetSubject {

　Session s;

　public GetSubject() {
　　s = WebServiceBase.getCurrentSession();
　}
　public String getNthSubject(String dbname, String viewname, int n) {
　　String subject = null;
　　try {
　　　Database db = s.getDatabase(null, dbname);
　　　if (!db.isOpen()) subject = "Cannot open database " + dbname;
　　　else {
　　　　View view = db.getView(viewname);
　　　　if (view == null) subject = "Cannot open view " + viewname;
　　　　else {
　　　　　Document doc = view.getNthDocument(n);
　　　　　if (doc == null) subject = "Cannot get document " + n;
　　　　　else {
　　　　　　　if (doc.hasItem("Subject"))
　　　　　　　subject = doc.getItemValueString("Subject");
　　　　　　else subject = "Document does not have Subject";
　　　　　}
　　　　}
　　　}
　　}
　　catch(Exception e) {
　　　subject = e.toString();
　　　e.printStackTrace();
　　}

　　return subject;
　}
}

http://rperron300pl.notesdev.ibm.com/Webservices2.nsf/GetSubject? OpenWebService

<SOAP-ENV:Envelope
　ENV="http://schemas.xmlsoap.org/soap/envelope/"
　xmlns:xsd="http://www.w3.org/2001/XMLSchema"
　xmlns:xsd="http://www.w3.org/2001/XMLSchema"
　<SOAP-ENV:Body>
　　<ns0:getNthSubject （1） 
　　SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
　　xmlns:ns0="urn:DefaultNamespace">
　　<dbname xsi:type="xsd:string">Webservices2</dbname> （2） 
　　<viewname xsi:type="xsd:string">Main View</viewname> （2） 
　　<n xsi:type="xsd:int">2</n> （2） 
　</ns0:getNthSubject>
　</SOAP-ENV:Body>
</SOAP-ENV:Envelope>

<?xml version="1.0" encoding="UTF-8"?>
<wsdl:definitions targetNamespace="urn:DefaultNamespace" 
xmlns="http://schemas.xmlsoap.org/wsdl/" xmlns:apachesoap="http://xml.apache.org/xml-soap" 
xmlns:impl="urn:DefaultNamespace" xmlns:intf="urn:DefaultNamespace" 
xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" 
xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/" xmlns:wsdlsoap="http://schemas.xmlsoap.org/wsdl/soap/"
　xmlns:xsd="http://www.w3.org/2001/XMLSchema">
　<wsdl:message name="getNthSubjectResponse">
　　<wsdl:part name="getNthSubjectReturn" type="xsd:string"/> （6） 
　</wsdl:message>
　<wsdl:message name="getNthSubjectRequest">
　<wsdl:part name="dbname" type="xsd:string"/> （6） 
　<wsdl:part name="viewname" type="xsd:string"/> （6） 
　<wsdl:part name="n" type="xsd:int"/> （6） 
</wsdl:message>
　<wsdl:portType name="GetSubjectPortType"> （1） 
　　<wsdl:operation name="getNthSubject"
　　　　parameterOrder="dbname viewname n">
　　<wsdl:input message="impl:getNthSubjectRequest"
　　　　　　　　　　name="getNthSubjectRequest"/>
　　<wsdl:output message="impl:getNthSubjectResponse"
　　　　　　　　　　name="getNthSubjectResponse"/>
　　</wsdl:operation>
　</wsdl:portType>
　　<wsdl:binding name="GetSubjectPortSoapBinding"
　　　　　　　　type="impl:GetSubjectPortType">
　<wsdlsoap:binding style="rpc" （4） 
　　　　　　　　transport="http://schemas.xmlsoap.org/soap/http"/>
　<wsdl:operation name="getNthSubject">
　　<wsdlsoap:operation soapAction=""/> （7） 
　　<wsdl:input name="getNthSubjectRequest">
　　　<wsdlsoap:body
　　　encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" （5） 
　　　namespace="urn:DefaultNamespace" use="encoded"/> （5） 
　</wsdl:input>
　　<wsdl:output name="getNthSubjectResponse">
　　　<wsdlsoap:body
　　　　encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" （5） 
　　　　namespace="urn:DefaultNamespace" use="encoded"/> （5） 
　　</wsdl:output>
　　</wsdl:operation>
　</wsdl:binding>
　<wsdl:service name="GetSubjectElement"> （2） 
　　<wsdl:port binding="impl:GetSubjectPortSoapBinding"
　　　　　　　　name="GetSubjectPort"> （3） 
　　　<wsdlsoap:address location="http://localhost"/>
　　</wsdl:port>
　</wsdl:service>
</wsdl:definitions>

<wsdl:types>
　<schema targetNamespace="urn:DefaultNamespace"
　　　　　xmlns="http://www.w3.org/2001/XMLSchema">
　　<element name="dbname" type="xsd:string"/>
　　<element name="viewname" type="xsd:string"/>
　　<element name="n" type="xsd:int"/>
　　<element name="getNthSubjectReturn" type="xsd:string"/>
　</schema>
</wsdl:types>
<wsdl:message name="getNthSubjectResponse">
　<wsdl:part element="impl:getNthSubjectReturn"
　　　　　　　name="getNthSubjectReturn"/>
</wsdl:message>
<wsdl:message name="getNthSubjectRequest">
　　<wsdl:part element="impl:dbname" name="dbname"/>
　　<wsdl:part element="impl:viewname" name="viewname"/>
　　<wsdl:part element="impl:n" name="n"/>
</wsdl:message>

<wsdl:types>
　<schema targetNamespace="urn:DefaultNamespace"
　　　　　xmlns="http://www.w3.org/2001/XMLSchema">
　<element name="getNthSubject">
　　<complexType>
　　　<sequence>
　　　　<element name="dbname" type="xsd:string"/>
　　　　<element name="viewname" type="xsd:string"/>
　　　<element name="n" type="xsd:int"/>
　　　</sequence>
　　</complexType>
　</element>
　<element name="getNthSubjectResponse">
　　<complexType>
　　<sequence>
　　　<element name="getNthSubjectReturn" type="xsd:string"/>
　　　</sequence>
　　</complexType>
　　</element>
　</schema>
</wsdl:types>
<wsdl:message name="getNthSubjectResponse">
　<wsdl:part element="impl:getNthSubjectResponse" name="parameters"/>
</wsdl:message>
<wsdl:message name="getNthSubjectRequest">
　<wsdl:part element="impl:getNthSubject" name="parameters"/>
</wsdl:message>

Option Public
%INCLUDE "lsxsd.lss"
Dim s As NotesSession
Dim agent As NotesAgent
Class GetAgentContext

　Sub NEW
　　Set s = New NotesSession
　　Set agent = s.CurrentAgent
　End Sub

　Function getAgentName() As String
　　getAgentName = agent.Name
　End Function

　Function getEffectiveUserName() As String
　　getEffectiveUserName = s.EffectiveUserName
　End Function

　Function getDatabaseFileName() As String
　　Dim db As NotesDatabase
　　Set db = s.CurrentDatabase
　　getDatabaseFileName = db.FileName
　End Function

End Class

import lotus.domino.*;
import lotus.domino.types.*;
public class GetAgentContext {

　Session s;
　AgentContext ac;

　public GetAgentContext() {
　　s = WebServiceBase.getCurrentSession();
　　try {
　　　ac = s.getAgentContext();
　　} catch(Exception e) {
　　　e.printStackTrace(); }
　}
　public java.lang.String getAgentName() {
　　String agentName = null;
　　try {
　　　Agent agent = ac.getCurrentAgent();
　　　agentName = agent.getName();  }
　　catch(Exception e) {
　　　e.printStackTrace(); }
　　return agentName;
　}
　public java.lang.String getEffectiveUserName() {
　　String userName = null;
　　try {
　　　userName = ac.getEffectiveUserName();  }
　　catch(Exception e) {
　　　e.printStackTrace(); }
　　return userName;
　}
　public java.lang.String getCurrentDatabase() {
　　String dbFileName = null;
　　try {
　　　Database db = ac.getCurrentDatabase();
　　　dbFileName = db.getFileName();  }
　　catch(Exception e) {
　　　e.printStackTrace(); }
　　return dbFileName;
　}
}

public java.lang.String[] getAll() {
　String[] info = new String[3];
　try {
　　info[0] = ac.getEffectiveUserName();
　　info[1] = s.getPlatform();
　　info[2] = s.getNotesVersion(); }
　catch(Exception e) {
　　e.printStackTrace(); }
　return info;
}

- <wsdl:types>
　- <schema targetNamespace="urn:DefaultNamespace"
　　　xmlns="http://www.w3.org/2001/XMLSchema">
　　　<import namespace="http://schemas.xmlsoap.org/soap/encoding/" /> 
　　- <complexType name="ArrayOf_xsd_string">
　　　- <complexContent>
　　　　- <restriction base="soapenc:Array">
　　　　　　<attribute ref="soapenc:arrayType"
　　　　　　　wsdl:arrayType="xsd:string[]" /> 
　　　　　　</restriction>
　　　　　</complexContent>
　　　　</complexType>
　　　</schema>
　　</wsdl:types>
- <wsdl:message name="getAllResponse">
　　<wsdl:part name="getAllReturn" type="impl:ArrayOf_xsd_string" /> 
　</wsdl:message>

Option Public
%INCLUDE "lsxsd.lss"
Dim s As NotesSession
Class infoArray
　Public info() As String
End Class
Class GetSessionInfo
　Sub NEW
　　Set s = New NotesSession
　End Sub

　Function getItAll() As infoArray
　　Set getItAll = New infoArray
　　Redim getItAll.info(1 To 3)
　　getItAll.info(1) = s.EffectiveUserName
　　getItAll.info(2) = s.Platform
　　getItAll.info(3) = s.NotesVersion
　End Function
End Class

public InfoClass getAll2() {
　InfoClass info = new InfoClass();
　try {
　　info.effectiveUserName = ac.getEffectiveUserName();
　　info.platform = s.getPlatform();
　　info.notesVersion = s.getNotesVersion(); }
　catch(Exception e) {
　　e.printStackTrace(); }
　return info;
}
public class InfoClass {
　public String effectiveUserName;
　public String platform;
　public String notesVersion;
}

- <wsdl:types>
　- <schema targetNamespace="urn:DefaultNamespace"
　　　xmlns="http://www.w3.org/2001/XMLSchema">
　　　<import namespace="http://schemas.xmlsoap.org/soap/encoding/" />
　　- <complexType name="InfoClass">
　　　- <sequence>
　　　　　<element name="notesVersion"
　　　　　　nillable="true" type="xsd:string" /> 
　　　　　<element name="platform"
　　　　　　nillable="true" type="xsd:string" /> 
　　　　　<element name="effectiveUserName"
　　　　　　nillable="true" type="xsd:string" /> 
　　　　</sequence>
　　　</complexType>
　　</schema>
　</wsdl:types>
- <wsdl:message name="getAll2Response">
　　<wsdl:part name="getAll2Return" type="impl:InfoClass" /> 
　</wsdl:message>

Option Public
%INCLUDE "lsxsd.lss"
Dim s As NotesSession
Class InfoClass
　Public EffectiveUserName As String
　Public Platform As String
　Public NotesVersion As String
End Class
Class GetSessionInfo
　Sub NEW
　　Set s = New NotesSession
　End Sub

　Function getItAll2() As InfoClass
　　Set getItAll2 = New InfoClass
　　getItAll2.EffectiveUserName = s.EffectiveUserName
　　getItAll2.Platform = s.Platform
　　getItAll2.NotesVersion = s.NotesVersion
　End Function
End Class

- <wsdl:message name="getNthSubjectResponse"> 
　　<wsdl:part name="getNthSubjectReturn" type="xsd:string" />（1） 
　　<wsdl:part name="dbname" type="xsd:string" />（2） 
　　<wsdl:part name="viewname" type="xsd:string" />（3） 
　　<wsdl:part name="n" type="xsd:int" />（4） 
　</wsdl:message>
- <wsdl:message name="getNthSubjectRequest"> 
　　<wsdl:part name="dbname" type="xsd:string" />（2）
　　<wsdl:part name="viewname" type="xsd:string" />（3） 
　　<wsdl:part name="n" type="xsd:int" />（4） 
　</wsdl:message> 

import lotus.domino.*;
import lotus.domino.types.*;
public class GetSubject {

　Session s;

　public GetSubject() {
　　s = WebServiceBase.getCurrentSession();
　}
　public String getNthSubject(javax.xml.rpc.holders.StringHolder dbname,
　　　javax.xml.rpc.holders.StringHolder viewname,
　　　javax.xml.rpc.holders.IntHolder n) {
　　String subject = null;
　　try {
　　　Database db = s.getDatabase(null, dbname.value);
　　　if (!db.isOpen()) subject = "Cannot open database " + dbname.value;
　　　else {
　　　　View view = db.getView(viewname.value);
　　　　if (view == null) subject = "Cannot open view " + viewname.value;
　　　　else {
　　　　　Document doc = view.getNthDocument(n.value);
　　　　　if (doc == null) subject = "Cannot get document " + n.value;
　　　　　else {
　　　　　　　if (doc.hasItem("Subject"))
　　　　　　　subject = doc.getItemValueString("Subject");
　　　　　　else subject = "Document does not have Subject";
　　　　　}
　　　　}
　　　}
　　}
　　catch(Exception e) {
　　　e.printStackTrace();
　　}

　　return subject;
　}
}

Option Public
%INCLUDE "lsxsd.lss"
Dim s As NotesSession
Class GetSubject

　Sub NEW
　　Set s = New NotesSession
　End Sub

　Function getNthSubject(dbname As String_Holder, _
　viewname As String_Holder, _
　n As Long_Holder) As String
　　Dim db As NotesDatabase
　　Dim view As NotesView
　　Dim doc As NotesDocument
　　Set db = s.GetDatabase("", dbname.Value)
　　If Not(db.IsOpen) Then
　　　getNthSubject = "Cannot open database " & _
　　　　　dbname.Value
　　　Exit Function
　　End If

　　Set view = db.GetView(viewname.Value)
　　If view Is Nothing Then
　　　getNthSubject = "Cannot open view " & _
　　　　　　viewname.Value
　　　Exit Function
　　End If
　　Set doc = view.GetNthDocument(n.Value)
　　If doc Is Nothing Then
　　　getNthSubject = "Cannot get document " & _
　　　　　n.Value
　　　Exit Function
　　End If
　　If doc.HasItem("Subject") Then
　　　getNthSubject = doc.GetItemValue("Subject")(0)
　　Else
　　　getNthSubject = "Document does not have Subject"
　　End If
　End Function

End Class

import lotus.domino.*;
import lotus.domino.types.*;
public class GetDatabaseInfo {

　Session s;
　AgentContext ac;
　Database db;

　public GetDatabaseInfo() {
　　s = WebServiceBase.getCurrentSession();
　　try {
　　　ac = s.getAgentContext();
　　　db = ac.getCurrentDatabase();
　　} catch(Exception e) {
　　　e.printStackTrace(); }
　}
　public Boolean doesViewExist(String viewName) {
　　Boolean b = null;
　　try {
　　　if (db.getView(viewName) == null)
　　　　b = new Boolean(false);
　　　else
　　　　b = new Boolean(true);
　　} catch(Exception e) {
　　　　e.printStackTrace(); }
　　return b;
　}
}

Option Public
%INCLUDE "lsxsd.lss"
Dim s As NotesSession
Dim db As NotesDatabase
Class GetDatabaseInfo

　Sub NEW
　　Set s = New NotesSession
　　Set db = s.CurrentDatabase
　End Sub

　Function DoesViewExist(viewName As String) As XSD_BOOLEAN
　　Set b = New XSD_BOOLEAN
　　If db.GetView(viewName) Is Nothing Then
　　　Call b.SetValueAsString("False")
　　Else
　　　Call b.SetValueAsString("True")
　　End If
　　　Set DoesViewExist = b
　End Function
　
End Class

Dim s As NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim msg As String
Class GetSubject

　Sub NEW
　　Set s = New NotesSession
　End Sub

　Function getFirstSubject(dbname As String, viewname As String) As String
　　If openDatabase(dbname) Then
　　　If openView(viewname) Then
　　　　Set doc = view.GetFirstDocument
　　　　If doc Is Nothing Then
　　　　　msg = "Cannot get first document "
　　　　Else
　　　　　Call getSubject
　　　　End If
　　　End If
　　End If
　　getFirstSubject = msg
　End Function
Function getLastSubject(dbname As String, viewname As String) As String
　　If openDatabase(dbname) Then
　　　If openView(viewname) Then
　　　　Set doc = view.GetLastDocument
　　　　If doc Is Nothing Then
　　　　　msg = "Cannot get last document "
　　　　Else
　　　　　Call getSubject
　　　　End If
　　　End If
　　End If
　　getLastSubject = msg
　End Function

Function getNthSubject(dbname As String, viewname As String, n As Integer) As String
　　If openDatabase(dbname) Then
　　　If openView(viewname) Then
　　　　Set doc = view.GetNthDocument(n)
　　　　If doc Is Nothing Then
　　　　　msg = "Cannot get document " & n
　　　　Else
　　　　　Call getSubject
　　　　End If
　　　End If
　　End If
　　getNthSubject = msg
　End Function

　Private  Function openDatabase(dbname As String) As Boolean
　　Set db = s.GetDatabase("", dbname)
　　If db.IsOpen Then
　　　openDatabase = True
　　Else
　　　openDatabase = False
　　　msg = "Cannot open database " & dbname
　　End If
　End Function

　Private Function openView(viewname As String) As Boolean
　　Set view = db.GetView(viewname)
　　If view Is Nothing Then
　　　openView = False
　　　msg = "Cannot open view " & viewname
　　Else
　　　openView = True
　　End If
　End Function

　Private Sub getSubject
　　If doc.HasItem("Subject") Then
　　　msg = doc.GetItemValue("Subject")(0)
　　Else
　　　msg = "Document does not have Subject"
　　End If
　End Sub

End Class

import lotus.domino.*;
import lotus.domino.types.*;
public class GetSubject {

　Session s;
　Database db;
　View view;
　Document doc;
　String msg;

　public GetSubject() {
　　s = WebServiceBase.getCurrentSession();
　}
　public String getFirstSubject(String dbname, String viewname) {
　　try {
　　　if (openDatabase(dbname)) {
　　　　if (openView(viewname)) {
　　　　　doc = view.getFirstDocument();
　　　　　if (doc == null)
　　　　　　msg = "Cannot get first document ";
　　　　　else
　　　　　　getSubject();
　　　　}
　　　}
　　}
　　catch(Exception e) {
　　　e.printStackTrace();
　　}
　　return msg;
　}
　public String getLastSubject(String dbname, String viewname) {
　　try {
　　　if (openDatabase(dbname)) {
　　　　if (openView(viewname)) {
　　　　　doc = view.getLastDocument();
　　　　　if (doc == null)
　　　　　　msg = "Cannot get last document ";
　　　　　else
　　　　　　getSubject();
　　　　}
　　　}
　　}
　　catch(Exception e) {
　　　e.printStackTrace();
　　}
　　return msg;
　}
　public String getNthSubject(String dbname, String viewname, int n) {
　　try {
　　　if (openDatabase(dbname)) {
　　　　if (openView(viewname)) {
　　　　　doc = view.getNthDocument(n);
　　　　　if (doc == null)
　　　　　　msg = "Cannot get document " + n;
　　　　　else
　　　　　　getSubject();
　　　　}
　　　}
　　}
　　catch(Exception e) {
　　　e.printStackTrace();
　　}
　　return msg;
　}
　private boolean openDatabase(String dbname) {
　　boolean b = false;
　　try {
　　　db = s.getDatabase(null, dbname);
　　　if (db.isOpen())
　　　　b = true;
　　　else
　　　　msg = "Cannot open database " + dbname;
　　}
　　catch(Exception e) {
　　　　e.printStackTrace();
　　}
　　return b;
　}
　private boolean openView(String viewname) {
　　boolean b = false;
　　try {
　　　view = db.getView(viewname);
　　　if (view != null)
　　　　b = true;
　　　else
　　　　msg = "Cannot open view " + viewname;
　　}
　　catch(Exception e) {
　　　e.printStackTrace();
　　}
　　return b;
　}
　private void getSubject() {
　　try {
　　　if (doc.hasItem("Subject"))
　　　　msg = doc.getItemValueString("Subject");
　　　else
　　　　msg = "Document does not have Subject";
　　}
　　catch(Exception e) {
　　　　e.printStackTrace();
　　}
　}

}