Manchmal ist sehr nützlich, sich die HTTP Daten so anzuschauen, wie sie auf dem Dominoserver auch ankommen. Dafür ist dieser kleine Agent gedacht, den man in einer beliebeigen Datenbank ablegen kann und dann mittels
http://server/pfad/zur/db.nsf/HTTPDebug?OpenAgent
aufrufen kann.
Hier der Code:
REM Agent HTTPDebug Created Sep 2, 2011 by Sven Hasselbach %END REM Option Public Option Declare Sub Initialize Dim session As New NotesSession Dim doc As NotesDocument Dim item As NotesItem Set doc = session.Documentcontext Print |<html><head><title>HTTPDebug</title></head>| Print |<body><table border="1" width="100%">| ForAll it In doc.Items Set item = it Print |<tr><td><b>| & item.Name & |</b></td>| Print |<td>| & item.Text & |</td></tr>| End ForAll Print |</table></body></html>| End Sub
