在两个代理之间传递参数2

Everyone (well, almost everyone) knows that agents can call other agents. A LotusScript agent can call another LotusScript agent using the Run method. You can use the same method to invoke a Java agent, or to invoke a LotusScript agent from a Java agent. When using the Run method, the calling and the called agents will be executed on the same machine (either client or server). An agent running on the client can execute a server-based agent using the RunOnServer method. Again, it doesn"t matter whether the agent is written in Java or LotusScript. Great, right? What else could you want?

Well, release 5.0.2 of Notes/Domino introduces the ability to add parameters to the Run and RunOnServer methods, so that you can pass information between client agents and server agents. In this article, you"ll learn how these methods worked prior to 5.0.2, why the new features solve many problems, and see examples of agents using the new parameters.

The problem: Passing information
Suppose you wanted to pass some information between agents. If you were passing information on the same machine using the Run method, you could use NOTES.INI settings, environment variables, profile documents, or regular documents to store the information you wanted to share. If you were using the RunOnServer method, things get a little more problematic because different clients could invoke the same server-based agent.

You could come up with a scheme by which both the calling agents and the called agents know how to find the same document, and if you wanted to have unique information associated with each user, your scheme would have to key off the user name. But this is not the end of your worries, you also have to worry about the race conditions.

Prior to release 5.0.2 of Notes/Domino, in order to pass information to the agent invoked by the RunOnServer method, you could have used:

• A profile document based on the identity of an EffectiveUser of each calling agent.
• A statically-named regular document, which will be used by all users, where each of the user names would be used as a key.
• A shared document where each user can have his or her own data in the shared document. A separate field is created for each user, with the field name being based on the user"s name. The agent then goes through all the fields on the document, uses the field value as parameters, and sets a new field value to pass back to the invoker. When the invoker gets back control, it retrieves the return value from the same field, and removes the field to mark the job as completed. You can add Authors and Readers fields to the created fields for security.

Each of these approaches potentially has some pitfalls depending on exactly what you are trying to accomplish and how your agent will be used. For example:

• If the authority used in the calling agent is different from the authority used in the called agent, a simple scheme for finding the proper profile document will not work.
• If you are operating in the multiuser dynamic environment where many users can call the same server-based agent, you have to be concerned about replication conflicts if you are using a statically-named document for passing information.
• If the database resides in two locations, the parameter documents could replicate at a wrong time, and contain partial updated data. If the parameter document replicates before the agent clears the value, the agent on the other server will find out-of-date parameter field data when it is invoked, and run incorrectly.

So until now RunOnServer was best suited for invoking standardized processes on demand instead of on a schedule, or in an environment where you don"t need any context.

The solution: Parameters in Run and RunOnServer methods
Release 5.0.2 of Notes/Domino eliminates the problems described above by allowing you to add parameters to both the Run and RunOnServer methods. Both of these methods now accept an optional Note ID parameter. The document identified by the Note ID is accessible from both the calling and the called agents, and can be used to pass parameters between the agents.

The parameter document can be used for both input and output parameters. You must save the document used for parameter passing before it is accessed by another agent. You can delete this document as soon as it is no longer needed. Also, a new agent property called ParameterDocID has been added. This property allows you to retrieve the parameter document ID in the called agent.

The security framework of how Run and RunOnServer works has not changed in this release -- the agents executing on the client run with the authority of the invoker and the agents running on the server run with the authority of the agent signer. For complete information on agent security, see the Agent security at a glance sidebar of the Iris Today article Troubleshooting agents.

The RunOnServer method continues to execute the calling agent on the client and the called agent on the server. So if the calling agent is being invoked by a person other than the signer of the called agent, it is possible for the calling agents and the called agents to run under different authorities. Note that the server-based agent is not executed by the Agent Manager process, but rather in a separate thread created by the client on the server for execution of a given RunOnServer agent.

The Run method is valid both on the client (foreground and background) and on the server (in scheduled, event driven, and Web browser agents). The RunOnServer method is only valid in the agent running on the client (foreground and background).

In Release 5.0.2, if the RunOnServer method is invoked on the server, it will be mapped to the Run method. In prior releases this scenario generated a run time error "RunOnServer must be used with a remote database."

The following table summarizes where Run and RunOnServer are valid:

	Server	Workstation	HTTP	DIIOP
Back- ground	Run, RunOnServer mapped into Run	Run, RunOnServer	Run, RunOnServer mapped into Run	Run, RunOnServer mapped into Run
Fore- ground	n/a	Run, RunOnServer	n/a	n/a

Release 5.0.2 also includes improved error handling for the RunOnServer method. This method returns a status -- zero in the case of success and a non-zero value in the case of failure. In all cases a status of non-zero generates a run-time error. This error can be caught and processed with an on-error method. You no longer need to check the value of the returned status. The non-zero value contains an internal code that does not map to the defined error messages.

Now, let"s look at some examples to illustrate how the enhanced methods work.

Example 1
In the following LotusScript example, the calling agent named "Top agent" will call the "Bottom agent" using the Run method. The two agents pass information in the field called "status."

Top agent
Sub Initialize Dim sess As New NotesSession
Dim db As NotesDatabase
Dim agent As NotesAgent
Dim doc As NotesDocument
Dim item As NotesItem
Dim paramid As String

Set db = sess.CurrentDatabase
Set agent = db.GetAgent("bottom agent")

" Create document that will be used for parameter passing
Set doc = db.CreateDocument

" Add the field that will contain the value
Set item = doc.AppendItemValue("status", "none")

" Save the document
Call doc.save(True, False)

" Set the parameter value
paramid = doc.Noteid

Call Agent.Run(paramid)

" Delete in-memory document, it does not contain up-to-date info
Delete doc

" Retrieve the updated version of the document
Set doc = db.GetDocumentById(paramid)

" Obtain the value set by the other agent
Set item = doc.GetFirstItem("status")
status = item.text
Msgbox "status of bottom agent = " & status

" Remove the document used for parameter passing
Call doc.remove(True) End Sub

Bottom agent
Sub Initialize Dim sess As NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim it As NotesItem
Dim agent As NotesAgent
Dim status As String

Set sess = New NotesSession
Set db = sess.CurrentDatabase
Set agent = sess.CurrentAgent

" Obtain the parameter passed by the calling agent
NoteId = agent.ParameterDocID

" Get the document containing the parameters
Set doc = db.GetDocumentById(NoteId)

" Here you can have some processing
" if error is encountered the status could be set to the error code
" if processing is successful status is set to "done"
Set it = doc.ReplaceItemValue("status"," done")

" Save the document so the top agent can see the updated value
Call doc.save(True, False) End Sub

Example 2
The following LotusScript example illustrates parameter passing using the RunOnServer method. In this method a client-based agent will invoke an agent running LSDO on the server.

Top agent
Sub Initialize Dim sess As New NotesSession
Dim db As NotesDatabase
Dim agent As NotesAgent
Dim doc As NotesDocument
Dim item As NotesItem
Dim paramid As String

Set db = sess.CurrentDatabase
Set agent = db.GetAgent("oracle-connect")

"Create parameter document
Set doc = db.CreateDocument

" Populate the parameters
Set item = doc.AppendItemValue("status", "none")
Set item = doc.AppendItemValue("datasource", "ORACLE")
Set item = doc.AppendItemValue("userid", "tigger")
Set item = doc.AppendItemValue("passwd", "pooh")

" Save the parameter document
Call doc.save(True, False)
paramid = doc.Noteid

Call Agent.RunOnServer(paramid)

" Delete in-memory document that does not have updated data
Delete doc

" Get the updated document
Set doc = db.GetDocumentById(paramid)

" Get the updated status
Set item = doc.GetFirstItem("status")
status = item.text
Msgbox "return status = " & status

" Delete the document from the disk
Call doc.remove(True) End Sub

Bottom agent
Sub Initialize Dim con As New odbcconnection
Dim sess As New NotesSession

Dim db As NotesDatabase
Dim agent As NotesAgent
Dim doc As NotesDocument
Dim item As NotesItem
Dim sdatasource As String
Dim suserid As String
Dim spasswd As String
Dim status As String

" Get the current agent and the parameter associated with it
Set db = sess.CurrentDatabase
db.delayupdates = False
Set agent = sess.CurrentAgent
NoteId = agent.ParameterDocID

" Get the parameter document
Set doc = db.GetDocumentById(NoteId)

" Obtain the parameters
Set item = doc.GetFirstItem("datasource")
sdatasource = item.Text
Set item = doc.GetFirstItem("userid")
suserid = item.Text
Set item = doc.GetFirstItem("passwd")
spasswd = item.Text

Set item = doc.ReplaceItemValue("status", "before connect")
status = item.text

con.SilentMode = True
If Not con.connectto( sdatasource, suserid, spasswd) Then nErrNum = con.GetError strErrMsg = con.GetExtendedErrorMessage(nErrNum)
Call doc.ReplaceItemValue("status", "Connect Failed")
Goto Terminate Else Messagebox "Connect was successful"
Call doc.ReplaceItemValue("status", "Connect Succeeded") End If

" Save the parameter doc
Call doc.save(True, False)

Delete doc
con.disconnect Terminate: Msgbox "terminating ..." End Sub

Example 3
The following Java examples illustrate parameter passing using
agent.runOnServer(NoteID).

JavaAgentROS
import lotus.domino.*;
import java.util.*;

public class JavaAgent extends AgentBase {

public void NotesMain() {
try { Session session = getSession();
AgentContext agentContext = session.getAgentContext();
Database db = agentContext.getCurrentDatabase();
Agent ag1 = agentContext.getCurrentAgent();
Agent ag2 = db.getAgent("JavaAgentGetParameterDocID");
Document doc = db.createDocument();
// Document item "AgentList" will collect the names of
agents called
doc.replaceItemValue("AgentList", ag1.getName() + "
performing agent.run(NoteID)");
doc.save(true,true);
String paramid = doc.getNoteID();
ag2.runOnServer(paramid);
// remove old doc object from db cache
doc.recycle();
// get updated document
Document doc2 = db.getDocumentByID(paramid);
Vector v = doc2.getItemValue("AgentList");
String sAgList = (String)v.elementAt(0);
System.out.println("Agent calling sequence: " + sAgList );
// cleanup
doc2.remove(true);
} catch(Exception e) {
e.printStackTrace(); } } }

JavaAgentGetParameterDocID
import lotus.domino.*;
import java.util.*;

public class JavaAgent extends AgentBase {
public void NotesMain() { try { Session session = getSession();
AgentContext agentContext = session.getAgentContext();
Database db = agentContext.getCurrentDatabase();
Agent ag1 = agentContext.getCurrentAgent();
String paramid = ag1.getParameterDocID();
Document doc = db.getDocumentByID(paramid);
Vector v = doc.getItemValue("AgentList");
String sAgList = (String)v.elementAt(0);
doc.replaceItemValue("AgentList", sAgList + " > " +
ag1.getName());
doc.save(true,true);
} catch(Exception e) {
e.printStackTrace(); } } }

Conclusion
By enhancing the Run and RunOnServer methods and introducing the ParameterDocID property in the Agent class, you can now pass information between agents.

Adding new features in a QMR (Quarterly Maintenance Release) is unusual, but we felt that this was one of those special cases where the rules had to broken to address customer needs. We hope this article helped you take advantage of the new features.

ABOUT JULIE
Julie Kadashevich came to Iris in March of 1997 after working at FTP Software on Java and C++ mobile agent technology. This is her sixth article for Iris Today . She has been focusing on the Agent Manager as well as Java. Previously, she worked in the area of applied Artificial Intelligence at Wang Labs and received five patents in the field. She has Bachelor"s and Master"s degrees from Boston University, both in computer science. Outside of work, her new hobby is kayaking. She recently bought her own kayak and is working on taming it.

ABOUT LAKSHMI
Lakshmi Annavajhala has been a User Assistance Writer at Lotus for the past two and a half years. She is part of the Programming documentation team for Domino Designer. This includes the conceptual and reference material for LotusScript objects, Formula Language, and XML for Domino

if ($ != jQuery) { $ = jQuery.noConflict(); }

转载于:https://www.cnblogs.com/hannover/archive/2011/11/02/2232382.html