A LotusScript agent that works around the Ajax cross-domain limitation

SearchDomino.com member Sean Burgess explains how to create a simple LotusScript agent that can retrieve Ajax data from other domains.

This tip was submitted to the SearchDomino.com tip library by member Sean Burgess. Please let others know how useful it is via the rating scale at the end of the tip. Do you have a useful Lotus Notes, Domino, Workplace or WebSphere tip or code snippet to share? Submit it to our monthly tip contest and you could win a prize.


Ajax is a great tool for building slick applications, but it has one limitation that has made me dismiss using it in the past. After speaking to Chris Toohey, and getting inspiration for (i.e., stealing) some code from him, I've come up with a simple LotusScript agent that allows me to retrieve Ajax data from other domains.

Before I explain further, you should know that, while this LotusScript agent is incredibly simple, I have no idea what kind of impact it will have on the server -- so test it thoroughly before you implement it within your Lotus Notes environment.

First, create a new LotusScript agent and set the "runtime security level" to 2 and allow "Restricted Operations." The agent can be as complex as you want, but the code below is all that's necessary.

Now create an Ajax call on your page that calls the LotusScript agent you've created, then pass the URL you want to retrieve as a query string parameter. That's all it takes to have one Ajax call access another Ajax call to retrieve data from a different domain.

 
Dim s As New NotesSession Dim doc as NotesDocument Dim xml 
As Variant Dim temp As String Set doc = session.DocumentContext temp = 
StrRight(doc.Query_String_Decoded(0),"url=") Set xml = 
CreateObject("Microsoft.XMLHTTP") xml.Open "GET", temp , False xml.Send 
Print "Content-Type:text/html" Print "Cache-Control:NoCache" 
Print Cstr(xml.ResponseText) Set xml = nothing

Do you have comments on this tip? Let us know.

Related information from SearchDomino.com:

  • Ajax Learning Guide
  • FAQ: LotusScript
  • LotusScript Learning Guide
  • This was first published in April 2006
    This Content Component encountered an error

    0 comments

    Oldest 

    Forgot Password?

    No problem! Submit your e-mail address below. We'll send you an email containing your password.

    Your password has been sent to:

    -ADS BY GOOGLE

    SearchWinIT

    Search400

    • iSeries tutorials

      Search400.com's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

    • V6R1 upgrade planning checklist

      When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

    • Connecting multiple iSeries systems through DDM

      Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...

    SearchEnterpriseLinux

    SearchVirtualDataCentre.co.UK

    Close