|
|
| [back to An alternative to the OpenServer URL command]
Open Server agent
Here is the complete code for the Open Server agent:
Class DirList
Public level As Integer
Public prefix As String
Public entries List As String
End Class
Sub Initialize
'
' Certain system databases are hidden by OpenServer.
' We list these databases here. You can modify
' this list if you want.
Dim hidden List As String
hidden("admin4.nsf") = ""
hidden("busytime.nsf") = ""
hidden("setup.nsf") = ""
'
' Create a list of databases on the server
'
Dim pathmap List As DirList
Set session = New NotesSession
Set dbdir = session.GetDbDirectory("")
Set db = dbdir.GetFirstDatabase(DATABASE)
While Not (db Is Nothing)
' Check if this database is supposed to be hidden
If (Iselement(hidden(filePath))) Then Goto NextDb
' Change Windows backslashes to forward slashes
While (Instr(filePath,"\") > 0)
Mid(filePath,Instr(filePath,"\")) = "/"
Wend
' Get actual subdirectory path (everything before the file name)
path = Strleftback(filePath,"/")
' Normalize the path to start and end with a slash
If path = "" Then path = "/" Else path = "/" & path & "/"
If Not Iselement(pathmap(path)) Then
' Add this path to the directory list
Set pathmap(path) = New DirList
Set subdir = pathmap(path)
subdir.level = 0
subdir.prefix = ""
' Determine how many levels deep this path is
segment = Instr(path,"/")
While (segment > 0)
subdir.level = subdir.level + 1
If subdir.level > 1 Then subdir.prefix = subdir.prefix & ". . "
segment = Instr(segment + 1,path,"/")
Wend
End If
Set subdir = pathmap(path)
' Save the name to be displayed for this database
If (db.Title <> "") Then
subdir.entries(db.FileName) = db.Title
Else
subdir.entries(db.FileName) = "(No title: " & db.FileName & ")"
End If
NextDb:
Set db = dbdir.GetNextDatabase
Wend
'
' Generate HTML, looping over directories in sort order
'
Set server = New NotesName(session.CurrentDatabase.Server)
Print "<h2>"; server.Abbreviated; "</h2><ul>"
Do
' Search the directory list for the lowest-sorting path
lowest = ""
Forall p In pathmap
If lowest = "" Then
Elseif Listtag(p) < lowest Then
End If
End Forall
If lowest = "" Then Exit Do ' no entries left in list, so we're done
Set subdir = pathmap(lowest)
If subdir.level > 1 Then
' Generate HTML for subdirectory name
Print Mid(subdir.prefix,4);
Print {<img src="/icons/afolder.gif" border=0>};
Print Strright(lowest,"/",5,subdir.level - 1);{<br>}
End If
' Generate HTML for all entries in the database list for this path
Forall e In subdir.entries
Print subdir.prefix;
Print {<img src="/icons/abook.gif" border=0><a href="};
Print lowest;Listtag(e);{?OpenDatabase">};e;{</a><br>}
End Forall
' Done with this path, get it out of the list
End Sub
|
 | |
|