Einen Schönen allerseits!
Keine lange Rede, kurzer Sinn: dies hier ist eine Sub eines Agenten
Code
Sub ProcessMethods
On Error Goto errhandle
If loglvl = LOGVERBOSE Then
Call ALog(agentLog, 1, Time & ": Entering " & Getthreadinfo(1) & "...", DUMMY)
End If
Dim elmts, i As Integer
elmts = Ubound(pdoc_mets)
For i = 0 To elmts-1
If doc.HasItem(pdoc_mets(i)) And (Not doc.GetItemValue(pdoc_mets(i))(0) = "") Then
Call ALog(agentLog, 2, "Test1", DUMMY)
Select Case pdoc_mets(i)
Case "met_cp_srv" : Call Method_CreateCopy
Case "met_crft" : Call Method_CreateFtIdx
Case "met_gopt" : Call Method_GetOption
Case "met_mrkdel" : Call Method_MarkDelete
Case "met_rmidx" : Call Method_RmFtIdx
Case "met_sopt" : Call Method_SetOption
End Select
Elseif doc.HasItem(pdoc_mets(i)) And doc.GetItemValue(pdoc_mets(i))(0) = "" Then
Call ALog(agentLog, 2, "Test2", DUMMY)
If loglvl = VERBOSE Then
Call ALog(agentLog, 1, "Nothing to do for <" & pdoc_mets(i) & "> in " & sGetFullNoteID, DUMMY)
End If
Else
Call ALog(agentLog, 2, "Test3", DUMMY)
If loglvl = VERBOSE Then
Call ALog(agentLog, 2, "No known SUB for " & pdoc_mets(i), NOSUBFOUND)
End If
End If
Next
errhandle:
Call ALog(agentLog, 2, "Error " & Err & " in line " & Erl & " in " & Getthreadinfo(1) & " (" & Error & ")", Err)
End Sub
Alles anzeigen
Ich weiß: ist nicht schön, aber egal, darum geht's jetzt nicht...
Warum auch immer tut der Agent nur, wenn ich ihn über die Agentenliste anstarte. Tut das der Server, bzw. starte ich ihn mit tell amgr run ..., dann tut das nicht mehr. Ich seh dann nur noch die Logzeile im Error Handler.
Warum? Bin ich blöd, will der AMgr mich verar***en, steht der Mond ungünstig, oder was ist der Knackpunkt?
Und was soll der Fehlercode 0 in der Zeile 0 sein?
thx in advance
RW