Hierarchical name of server. The name is entered automatically during registration and consists of the server name specified during registration followed by the certifier name associated with the certifier ID used to register the server.
Page name:
revision
Style:
Style
Type:
Admin Preferences
Database
revision:
0S0E
DatabaseRevision
Do NOT edit or delete this document.
CloseB
0S0E
Categori_zel
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From Folder
Close
0S0E
Categori_ze
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From Folder
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Info
$WindowTitle
$$ScriptName
$$FormScript
$$$FormScript_O
$$FormAction6
DatabaseRevision
$Body
$V5ACTIONS
$ACTIONS
$PublicAccess
(pref_QSA)
(pref_QOA)
&Arial
Lotus Product
Preferences'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
Declare Sub Postopen(Source As Notesuidocument)
Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As NOTESUIDOCUMENT
Set Source = Bind(Objectname_)
On Event Postopen From Source Call Postopen
On Event Queryclose From Source Call Queryclose
End Sub
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)
Source.close
End Sub
'++LotusScript Development Environment:2:2:Queryclose:1:12
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Hierarchical name of server. The name is entered automatically during registration and consists of the server name specified during registration followed by the certifier name associated with the certifier ID used to register the server.
Page name:
Page^
0S0E
Menu Use
Who can -
Validated:
Validated
Required role(s):
MenuRole
MenuRole
TempRoles
Style:
Shared
Style
Shared | 0Novice | 1Advanced | 2Plain | 3
Type:
1. Data | Data3. HTML GUI pages | HTML GUI pages2. HTML code pages| HTML code pages4. Attachments | Attachments
'++LotusScript Development Environment:2:2:Debug:1:8
Sub Debug(msg As String)
If gDebug_out = True Then
Msgbox( msg$ )
End If
End Sub
Lotus Product
V0.0f
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$Flags
$PublicAccess
$ScriptLib
$ScriptLib_O
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Explicit
Use "Misc"
'Localization: Localize *ONLY* the strings below.
'You must NOT localize ANY other strings in this entire database.
'GUI styles in preferences document:
Public Const gcMsg_UI_BUTTON$ = "Button Interface"
Public Const gcMsg_UI_DROPDOWN$ = "Dropdown Interface"
Public Const gcMsg_UI_PLAIN$ = "Plain Interface"
'String for LogUserSession:
Public Const gcMsg_LOG_INIT$ = "Web Administration initiated by"
'Strings for upgrade messages:
Public Const gcMsg_UPGRADE_LINE$ = "--------------------------"
Public Const gcMsg_UPGRADE_TITLE$ = "Domino Web Administration:"
Public Const gcMsg_UPGRADE_PROCESS$ = "Auto-upgrading database..."
Public Const gcMsg_UPGRADE_SUCCESS$ = "Database successfully upgraded."
Public Const gcMsg_UPGRADE_FAILURE$ = "WARNING: Could not upgrade Domino Web Administration tool."
Public Const gcMsg_UPGRADE_NTF_ERROR$ = "WARNING: Server either could not find or must have at least reader access to template webadmin.ntf . Check release notes for more information."
Public Const gcMsg_UPGRADE_AGENT_NOT_FOUND$ = "WARNING: Auto-upgrade agent not found, please run the DESIGN task or delete webadmin.nsf and restart the HTTP server task."
Public Const gcMsg_UPGRADE_AGENT_EXEC_ERR$ = "WARNING: Could not execute auto-upgrade agent."
Public Const gcMsg_UPGRADE_NOT_COMPLETE$ = "Database upgrade not completed."
'Strings for ACL prepare:
Public Const gcMsg_ACL_NO_MANAGER$ = "WARNING: Manager access is required to auto-upgrade."
'Strings for LogUserSession:
Public Const gcMsg_UPGRADE_NOT_UPTODATE$ = "Needs upgrade. See release notes database."
Public Const gcMsg_UPGRADE_UPTODATE$ = "Up to date"
'Used in all dbtool agents
Public Const gcMsg_DBTOOL_DB$ = "Database "
Public Const gcMsg_DBTOOL_BACK_BUTTON$ = "Back..."
Public Const gcMsg_DBTOOL_GO_BACK$ = "Click here to go back:"
Public Const gcMsg_DBTOOL_DB_CREATOR$ = " created by "
'Used in DBNewCopy agents
Public Const gcMsg_DBTOOL_COPY_SUCCESS$ = "Database successfully copied to:"
Public Const gcMsg_DBTOOL_COPY_DOCCOUNT$ = "Documents copied:"
'Used in DBQuota agents
Public Const gcMsg_QUOTA_FAILURE$ = "The size quota could not be created because:"
Public Const gcMsg_QUOTA_MISSING$ = "You need to enter a valid <b>quota size</b> in Kb."
Public Const gcMsg_QUOTA_SUCCESS$ = "New size quota set to:"
'Used in DBQueryTemplates agents
Public Const gcMsg_DBTOOL_CREATE_SUCCESS$ = "Database successfully created:"
Public Const gcMsg_DBTOOL_CREATE_FAILURE$ = "The database could not be created because:"
Public Const gcMsg_DBTOOL_WRONG_TITLE$ = "You need to enter a valid <b>Database Title</b>"
Public Const gcMsg_DBTOOL_WRONG_FILE$ = "You need to enter a valid <b>Database Filename</b>"
Public Const gcMsg_DBTOOL_OPEN_FAILURE$ = "Unable to open database "
'Used in COMPACT agents
Public Const gcMsg_COMPACT_NO_ACCESS$ = "You need at least READER access to this database in order to compact it."
Public Const gcMsg_COMPACT_FINISHED$ = "Finished compacting"
Public Const gcMsg_COMPACT_RECOVERED$ = "Recovered diskspace: "
Public Const gcMsg_COMPACT_KB$ = " kb"
Public Const gcMsg_COMPACT_NEW_SPACE$ = "New space usage: "
'Used in DELETE agents
Public Const gcMsg_DEL_NO_ACCESS$ = "You need MANAGER access to this database in order to delete it."
Public Const gcMsg_DEL_SUCCESS$ = "Database successfully deleted:"
Public Const gcMsg_DEL_REMOVER$ = " deleted by "
'Used in FT agents
Public Const gcMsg_FT_NOT_INDEXED$ = "Database is not full text indexed"
Public Const gcMsg_FT_LAST_UPDATE$ = "Last index time: "
Public Const gcMsg_FT_NO_ACCESS$ = "You need DESIGNER access or higher to this database to create a full text index."
Public Const gcMsg_FT_OK$ = "Your request to index this database has been queued on the server..."
'Used in CreateReplica agents
Public Const gcMsg_REP_SUCCESS$ = "Successfully created new replica of:"
Public Const gcMsg_REP_FILENAME$ = "with filename:"
Public Const gcMsg_REP_CREATE_FAILURE$ = "Could not create new replica, because:"
'Used in QueryDatabases agents
Public Const gcMsg_QUERY_NO_TITLE$ = "<No title found>"
'Used in replication agents
Public Const gcMsg_REPLICATE_FAILURE$ = "ERROR: Could not successfully initiate replication for database:"
Public Const gcMsg_REPLICATE_SUCCESS$ = "Successfully initiated replication for database:"
Public Const gcMsg_REPLICATE_WITHSERVER$ = "with Domino server:"
Public Const gcMsg_REPLICATE_NO_PATH$ = "Possible cause: Unable to find path to server "
Public Const gcMsg_REPLICATE_MORE_INFO$ = "Select 'Analysis, Logfile, Miscellaneous Events' for more information."
'Used in OSTextFile agents
Public Const gcMsg_OSTF_NO_FILEHANDLES = "(Cannot obtain a free file handle from servers operating system.)"
Public Const gcMsg_OSTF_NO_FILEATTRIB = "(Cannot get file attributes)"
Public Const gcMsg_OSTF_FAILURE_OPEN_READ = "(Cannot open the file for read access.)"
Public Const gcMsg_OSTF_FAILURE_CLOSE = "(Cannot close the file.)"
Public Const gcMsg_OSTF_FAILURE_OPEN_UNIX = "(Cannot open the file on UNIX)"
Public Const gcMsg_OSTF_FILE_LOCKED = "(File is already locked.)"
Public Const gcMsg_OSTF_FAILURE_WRITE = "(Cannot write data to back to file.)"
Public Const gcMsg_OSTF_FILE_READ_ONLY = "Cannot save file because it is READ ONLY."
Public Const gcMsg_OSTF_SUCCESS_SAVE = "File successfully saved."
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub GetUserInterfaces (gSession As NotesSession, gPreferences As NotesDocument)
Declare Sub LogUserSession(gPreferences As Notesdocument, pUsername As String)
Declare Sub LogUpgradeMessage (Mode As Integer)
Declare Sub GetRevision (hSession As NotesSession, hPreferences As NotesDocument)
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim pLogEntry As String
'++LotusScript Development Environment:2:2:GetUserInterfaces:1:8
Sub GetUserInterfaces (gSession As NotesSession, gPreferences As NotesDocument)
On Error Goto GetUserInterfaces_ERROR
Call Debug ("RESOURCED: ->GetUserInterfaces")
'Get ALL available GUI's available to a specific browser
'Puts a list of all GUIs into "CFD_GUI_LIST" (computed for display).
'(Forced settings can be overidden in NOTES.INI)
Dim gItem As NotesItem
Set gItem = gPreferences.GetFirstItem( "CFD_GUI_LIST" )
'if browser platform is OS/2, force the plain UI
If gBrowser.OS = gcBrowserOS_OS2 And gDisableForceGUI = False Then
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As FIELD
Set Source = Bind(Objectname_)
End Sub
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
End Sub
Lotus Product
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As FIELD
Set Source = Bind(Objectname_)
End Sub
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
End Sub
Lotus Product
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Exiting(Source As Field)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As FIELD
Set Source = Bind(Objectname_)
On Event Exiting From Source Call Exiting
End Sub
'++LotusScript Development Environment:2:2:Exiting:1:12
Sub Exiting(Source As Field)
End Sub
Lotus Product
MsgTrack
Lotus Product
MsgTrackQuery'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As FIELD
Set Source = Bind(Objectname_)
End Sub
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
End Sub
Lotus Product
OBJECT
SaveOptions
LocalTimeZone
onLoad()=ResultsOut()
<BODY BGCOLOR='silver'><br><br><br><font size='2' face='Arial'><center><b>An error occured while processing your tracking request. Please try again...</b><br><br><Form>Click here to go back: <Input type='button' value='Back...' onclick='window.history.go(-1);'></Form></b></center></font>
$$Return
????????
Track a mail message:
From
size=31
InboundOriginator
0S0E
InboundOriginator
Sent to
size=31
InboundRecipient^
0S0E
InboundRecipient
Start where
size=31
Sender's Server
0S0E
InboundOriginator
Sender's Server
<BODY BGCOLOR='silver'><br><br><br><font size='2' face='Arial'><center><b>FROM: name is required if starting server name is not supplied</b><br><br><Form>Click here to go back: <Input type='button' value='Back...' onclick='window.history.go(-1);'></Form></b></center></font>
3S4S5S6S7S8S10S15S
When
Today
Today|TodayYesterday|YesterdayOver the last week|Over the last weekOver the last two weeks|Over the last two weeksOver the last month|Over the last monthAs long as information is available|As long as information is available