Das Notes Forum

Domino 9 und frühere Versionen => Administration & Userprobleme => Thema gestartet von: Timo_Bakenecker am 28.06.02 - 14:06:19

Titel: Wo befindet sich das Agent Log File ??
Beitrag von: Timo_Bakenecker am 28.06.02 - 14:06:19

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

Titel: Re: Wo befindet sich das Agent Log File ??
Beitrag von: doliman am 28.06.02 - 16:03:55

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.

Titel: Re: Wo befindet sich das Agent Log File ??
Beitrag von: Timo_Bakenecker am 01.07.02 - 14:39:27

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

Titel: Re: Wo befindet sich das Agent Log File ??
Beitrag von: doliman am 01.07.02 - 14:59:04

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