Update all views in a database - web style

%REM
    Agent (webUpdateViews)
    Created Nov 23, 2010 by Stephan H Wissel/Singapore/IBM
    Description: Agent to refesh all views in the database using URL open
%END REM
Option Public
Option Declare

Public Const queryStringName = "QUERY_STRING_DECODED"

Sub Initialize
    Dim s As New NotesSession
    Dim db As NotesDatabase
    Dim workDB As NotesDatabase
   
    Dim doc As NotesDocument
   
    Set db = s. Currentdatabase
    Set doc = s. Documentcontext

    Dim dbNameItem As NotesItem
    Dim work As Variant 'For the evaluation of the database
   
    If Not doc. Hasitem (queryStringName ) Then
        Print "You need a querystring for this agent to work"
        Exit sub
    End If
   
    Set dbNameItem = doc. Getfirstitem (queryStringName )
    'Get the database name on the server
    work = Evaluate ( |@trim(@Left(@Right("|+dbNameItem. Text+ |&";"&database=");"&"))| )
   
    If work ( 0 ) = "" Then
        Print "You need to specify the database on the server with &database="
        Exit sub
    End If
   
    Set workDB = New NotesDatabase ( "",work ( 0 ) )
   
    If Not workDB. Isopen Then
        Call workDB. Open ( "", "" )
    End If
   
    If Not workDB. Isopen Then
        Print "Could not open the database "+work ( 0 )
        Exit sub
    End If
   
    Call RenderAjax (s, workDB )
   
End Sub


%REM
    Sub RenderAjax
    Description: Renders a HTML Page that goes nicely with Ajax
%END REM
Sub RenderAjax (s As NotesSession, db As NotesDatabase )
    Dim out As NotesStream
    Dim script As NotesStream
    Dim url As String
    Dim curVurl As String
    Dim i As Integer
    Dim v As NotesView
   
    If db. Httpurl = "" Then
        url = "http://localhost/__"+db. Replicaid+ ".nsf/"
    Else
        url = db. Httpurl+ "/"
    End If
    Set out = s. Createstream ( )
    Set script = s. Createstream ( )
    Call script. Writetext ( |<script language="JavaScript" type="text/javascript">|,EOL_PLATFORM )
    Call addJSFunctions (script )
   
    Call out. Writetext ( "<h1>Auto Refresh for "+db. Filepath + "</h1>",EOL_PLATFORM )
    Call out. Writetext ( |<h2>|,EOL_PLATFORM )
    Call out. Writetext (url,EOL_PLATFORM )
    Call out. Writetext ( |</h2>|,EOL_PLATFORM )
    Call out. Writetext ( |<div id="result">Result</div>|,EOL_PLATFORM )
    Call out. Writetext ( |<ol>|,EOL_PLATFORM )
   
    i = 0
    ForAll curV In db. Views
        Set v = curV
        If Not v. Isfolder Then 'No point updating folders
            'This is just for the Show
            Call out. Writetext ( |<li><a href="| )
            If IsArray (v. Aliases ) then
                If v. Aliases ( 0 ) <> "" Then
                    curVurl = url + v. Aliases ( 0 )
                Else
                    curVurl = url + v. Name 
                End If
            Else
                curVurl = url + v. Name
            End If
            Call out. Writetext (curVurl )        
            Call out. Writetext ( |?Open">|+v. Name+ |</a>|,EOL_PLATFORM )
            Call out. Writetext ( |</li>|,EOL_PLATFORM )
           
            'This is the real work
            Call script. Writetext ( |views[|+ CStr (i )+ |] = "|+curVurl+ |";|,EOL_PLATFORM )
            'Increment
            i = i + 1
        End If
    End ForAll

    Call script. Writetext ( |callAllViews(0)|,EOL_PLATFORM )
    Call script. Writetext ( |</script>|,EOL_PLATFORM )
    Call out. Writetext ( |</ol>|,EOL_PLATFORM )
   
    'Now write out
    out. Position = 0
    Print out. Readtext ( )
    script. Position = 0
    Print script. Readtext ( )
   
End Sub


%REM
    Sub addJSFunctions
    Description: Adds all the JavaScript needed
%END REM
Sub addJSFunctions (out As NotesStream )
   
Call out. Writetext ( |
    var views = [];
    function callAllViews(curIndex) {
        var r = createRequest();
        r.open("GET",views[curIndex],false);
        r.send(null);
        var resultEle = document.getElementsByTagName("LI");
        resultEle[curIndex].innerHTML += " - done";
        curIndex++;
        if (curIndex < views.length) {
            window.setTimeout(callAllViews(curIndex),10000);
        } else {
            // Here would be a check if that thing needs to run again
        }
    }

    function createRequest() {
        var request;
        try {
            request = new XMLHttpRequest();
            } catch (trymicrosoft) {
                try {
                    request = new ActiveXObject("Msxml2.XMLHTTP");
                } catch (othermicrosoft) {
                    try {
                        request = new ActiveXObject("Microsoft.XMLHTTP");
                    } catch (failed) {
                        request = false;
                    }
                }
            }

        if (!request) {
            alert("Error initializing XMLHttpRequest!");
        }

        return request;
   
    }

|,EOL_PLATFORM )
End Sub