需求是要调用一个Domino上的WebService/JAVA来实现与人事管理系统里的人员同步,就是在人事管理系统中增加用户后,自动在Domino中注册该用户和邮箱。
考虑了一下,大概有几种方式可以实现
1.在Domino中建立webservice提供者,人事管理系统访问这个webservice将参数传过来,通过webservice实现用户注册;
2.通过java/lotusscript代理实现;
3.在人事管理系统引入Notes的类库,在人事管理系统中开发程序访问Domino DIIOP端口对Domino操作;
4.引入LDAP类,通过对Domino LDAP的读取进行同步。
因为webservice提供者和webservice使用者是Domino
8.5里的新功能,所以花了两天时间研究了一下,用webservice实现了这个需求。做好之后发现还是挺方便的,主要是接口统一了,和lotusscript代理比起来,与第三方系统集成就容易多了。
一、webservice提供者的开发
首先在domino应用程序里建立一个新的webservice提供者,命名叫regUser
在这个webservice里创建java
class,regUser.java,源代码的框架基本是自动生成的,自己编写需要处理的代码就好了,首先引入需要的类
import lotus.domino.*;
import java.net.*;
import java.io.*;
然后可以像java代理一样,通过domino session对domino进行用户注册操作
Session session;
session = WebServiceBase.getCurrentSession();
Registration reg = session.createRegistration();
reg.setRegistrationServer("Mail");
reg.setCreateMailDb(true);
reg.setCertifierIDFile("c:\IBM\Lotus\Domino\MailData\cert.id");
注册的代码就省略了,可以参考domino designer help里的registration类
因为注册类填写的用户信息较少,所以注册用户之后,需要把用户管理程序传过来的其他参数同步,同样可以像java代理一样直接对用户文档通过replaceItemValue进行操作
Database db = session.getDatabase("Mail","names.nsf");
View view = db.getView("People");
Document doc = view.getDocumentByKey(userName, false);
doc.replaceItemValue("EmployeeID", userId);
doc.save(false,false,true);
保存之后,还要修改webservice的属性里,端口类型类的值,改为我们调用的regUser方法
因为是注册用户和修改文档的操作,还要修改属性中“安全”的选项
这样这个webservice就做好了,非常简单,如果代码有错误,domino
designer也会自动提示在哪行有什么错误,而且可以提供快速修正的方法。
二、webservice使用者的开发
regUser服务做好之后,因为没有人事管理系统的访问权限,无法直接用第三方系统进行直接调试,我们可以先在domino中开发一个webservice使用者,通过用人事管理系统提供的接口,用相同的调用方式来访问这个regUser服务进行测试。
开发webservice使用者更加简单,新建一个webservice使用者,设置名称,输入webservice提供者的WSDL地址就可以了,类型用lotusscript或者java都没关系,因为只是调用服务,实际的工作是由regUser服务完成的,所以这里在webservice使用者中并不需要编写代码。
建好webservice使用者之后,代码是自动生成的,非常简单,就是读取了regUser的WSDl,为regUser服务定义了addUser方法(之前在webservice提供者中定义的注册用户方法命名为addUser,有22个参数要传递)
%INCLUDE "lsxsd.lss"
Class RegUser As PortTypeBase
NEW
Call
Service.Initialize ("UrnDefaultNamespaceregUserService", _
"regUserService.Domino",
"http://mail.cn.ibm.com:80/test.nsf/regUser?OpenWebService",
_
"RegUser")
End
Sub
Function
addUser(in0 As String, in1 As String, in2 As String, in3 As String,
in4 As String, _
in5 As
String, in6 As String, in7 As String, in8 As String, in9 As String,
in10 As Long, _
in11 As
String, in12 As String, in13 As String, in14 As String, in15 As
String, in16 As String, _
in17 As
String, in18 As String, in19 As String, in20 As String, in21 As
String, in22 As String) As String
Let addUser
= Service.Invoke("addUser", in0, in1, in2, in3, in4, in5, in6, in7,
in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18,
in19, in20, in21, in22)
End
Function
End Class
最后,编写一个lotusscript代理来访问这个webservice使用者,也很简单,就是调用addUser方法,传递测试数据。
Option Public
Option Declare
Use "regUserFromWebService"
Sub Initialize()
Dim service
As RegUser
Set
service=New RegUser
MsgBox
service.addUser("955123", "zhangsan",
"zhangsan","2000.07","2011.03","","000111","05","zhangsan","Male",33,"110101198001010016","123456","66666666","13800138000","zhangsan@cn.ibm.com","engineer","","China","","Beijing","","07")
End Sub
运行代理,成功啦!