|
function DeleteTwoMessages( MessageHandle1, MessageHandle2 )
{
var Tl, DuplicatedTl;
// Both taglists start out the same
Tl = CAS.New();
CAS.AddTag(Tl,"DELETE_MESSAGE","");
CAS.AddTag(Tl,"REGISTERED_NAME",UserName);
CAS.AddTag(Tl,"REGISTERED_PASSWORD",UserPassword);
// Create a copy of the taglist before they diverge
DuplicatedTl = CAS.DupTagList(Tl);
// Add unique MESSAGE_HANDLE tag to each taglist and Send
// the function on an open session
CAS.AddTag(Tl,"MESSAGE_HANDLE",MessageHandle1);
Tl = CAS.Send(Instance,Tl);
CAS.Delete(Tl);
CAS.AddTag(DuplicatedTl,"MESSAGE_HANDLE",MessageHandle2);
DuplicatedTl = CAS.Send(Instance,DuplicatedTl);
CAS.Delete(DuplicatedTl);
}
|