Wo befindet sich das Agent Log File ??

[Timo_Bakenecker]

Hallo,

mal ne doofe Frage, aber ich finde einfach dieses Agent Log File nicht. Ist das eine Ansicht in der Log.nsf ? Dann habe ich diese nicht.

Oder muß ein miloggen der Agent Mgr Aktivitäten erst in der .ini angelegt werden ?

jaja ich muß wohl noch viel lernen !

Gruß,
Timo

[doliman]

Hi,

mit den ini Parametern kann man so viel ich weis die detaillierteren Protokollinformation des Agenten in das log.nsf eintragen. Die DB Agent log muß man selbst anlegen, allerdings kann man über die Lotus BackendKlasse NotesLog Agentenprotokolleinträge in diese DB schreiben. Mache ich auch um zu sehen was der Agen eigentlich macht. Besonders sinnvoll bei Serveragenten.

[Timo_Bakenecker]

Hallo,

ja das würde mir auch sehr weiterhelfen, leider bin ich mit Lotus Script noch nicht sehr conform. Könnstest Du mir das Script incl. kurzer Beschreibung zukommen lassen ??

Ich möchte wirklich mal sehen was meine server Agenten denn wirklich so treiben. Denn alle meine periodischen Agenten laufen nicht !!

Gruß,
Timo

[doliman]

Hi,

Wie gesagt die Datenbank "agenterrorlog.nsf" mus auf dem Server existieren und mit der Schablone alog4.ntf erstellt worgen sein.
Die Scriptzeilen dazwischen einfach rauslöschen,
so ähnlich könntest Du das abfertigen:

Sub Initialize
On Error Goto ErrorHandler
     
Dim doc As notesdocument
Dim agent As NotesAgent
Dim currentLog As NotesLog
Dim x As Integer
Dim dc As NotesDocumentCollection
Dim txtSearchFormula As String
     
Set agent = session.CurrentAgent
     Set currentLog = New NotesLog( agent.Name + " Agent in " + db.Title + " on " + db.Server )
     
'Öffnet die NotesLog-db auf dem Server um zu Protokollieren
     Call currentLog.OpenNotesLog( db.server, "agenterrorlog.nsf" )
     'Eintrag in Log-DB
     Call currentLog.LogAction( "StartRoutine: " + agent.Name + " " + Date$() + " " + Time$() )
     
     txtSearchFormula$ = "SELECT FCheckup_N & !FDeleted_N & IDProband_T=""""" & _
     " & DateCheckup_D <" & {@Today} & ""
     
     Call updateFullIndex
     
     Set dc = db.Search(txtSearchFormula$,Nothing,0)  
     Call currentLog.LogAction( "Es wurden: " + Str(dc.Count) + " alte, freie Us gefunden.")
     
     If dc.Count>=1 Then
           Set doc = dc.GetFirstDocument
           While( Not( doc Is Nothing ))
                 doc.FDeleted_N = 1
                 Call doc.save(True, True)
                 x% = x% + 1
                 Set doc = dc.GetNextDocument( doc )
           Wend
           Call currentLog.LogAction( "Es wurden: " + Str(x%) + " alte, freie Us gelöscht.")      
     End If      
     
TheEnd:
     Call currentLog.LogAction( "EndRoutine: " + agent.Name + " " + Date$() + " " + Time$()  )
     Call currentLog.Close
     Exit Sub
     
ErrorHandler:      
     Call currentLog.LogError _
     ( Err, "Error in: " & agent.Name & Chr(10) & "Error in line: " & Str(Erl) & Chr(10) & "Errormessage: " & Error )      
     Goto TheEnd
End Sub