Backend Agent lauft nicht scheduled

[TMC]

Hi,

war schon öfter hier gefragt à la "Agent läuft nur lokal", aber die Volltextsuche hat mich leider nicht weitergebracht.

Habe folgenden Agenten:

Sub Initialize

   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim arcdb As New NotesDatabase("IchBinServer" , "IchBinEinDir/IchBinDieDB.nsf")
   Dim dc As NotesDocumentCollection
   Dim doc As NotesDocument
   Dim wert As Variant
   Dim nextdoc As notesdocument
   
   Set db = session.CurrentDatabase
   Set dc = db.AllDocuments
   Set doc = dc.GetFirstDocument
   
   Do Until doc Is Nothing
      Set nextdoc = dc.getnextdocument(doc)
      wert = doc.GetItemValue("IchBinDerStatus") 'Status
      If wert(0) = "Archiv" Then
         Call doc.CopyToDatabase(arcdb)                
         Call Doc.Remove( True )      
      End If
      Set doc = nextdoc
   Loop
   
End Sub   

Der läuft auch auf dem Server, aber nur wenn ich ihn manuell anstoße.
Er läuft aber nicht scheduled (jeden Sonntag, 4:00 Uhr). Sagen zumindest die Agent-Daten, wenn man sich "Last Run" ansieht.
Andere Agenten laufen scheduled, hab nochmal alle Agenten-Eigenschaften/Einstellungen verglichen, daran scheitert es wohl nicht.

Woran könnte das dann liegen?

TMC

[eknori]

spontan:
Agent ist nicht mit ServerID Signiert
Server hat keinen Zugriff auf DB
Server hat keine Rechte auf arcdb

eknori

[TMC]

thanks so weit für die Antwort.

> Agent ist nicht mit ServerID Signiert
Da kenn ich mich leider nicht/zuwenig aus.
Anderes Bsp.: ich stelle einen neuen scheduled Agenten rein, der z.B. jede Nacht um 3:00 eine Mail sendet, wenn Feld Status = "jip". Dann läuft der auch. Daher bin ich jetzt davon ausgegangen, dass nix dagegen spricht, dass der hier gepostete Agent auch anläuft.

> Server hat keinen Zugriff auf DB
> Server hat keine Rechte auf arcdb
hmm, doch, müßte er. DB und arcdb liegen auf dem selben Server, ACL passt auch soweit. Und manuell den Agenten starten klappt auch, Doks werden dann schön rüberkopiert.

Aber wie schon geschrieben, bei Zulassungen/Signierungen hab ich ein Know-how-Defizit (was mich jetzt einholt).
Daher vielleicht doofe Interpretationen von mir.....

TMC

[animate]

Errorhandler reinmachen (s. )http://www.atnotes.de/index.php?board=3;action=display;threadid=11980

damit ins AgentLog schreiben und wenn der Agnet gelaufen ist/sein sollte, mal ins Log schauen.

[eknori]

ich vermute mal, der Agent kann nicht kopieren

setze einfach mal vor die Zeile mit den CopyToDB ein

print " jetzt bin ich vor dem Copy Befhl"

und danach auch

die Ergebnisse siehst du dann im LOG File des Servers; mal sehen, ob der AG überhaupt in die IF kommt und WHEN, wieweit.

[TMC]

danke so weit !
Testen kann ich das erst wieder im Montag.

Melde mich wieder....

TMC

[eknori]

wie ?? Montag ?? Ich sitze hier, lass ne Party sausen, weil ich auf den Fortgang der Discussion warte.... Na warte, wennich dich in die Finger kriege   Montag.. das  ;Das sind ja mehr als 2 Tage hin; wohl kein Interesse an eine Lösung.... man, diese Jugend, nur Flausen im Kopf... ne,neee, nööööö  

[TMC]

S.hit !
Mich k.otzen normal diese Freaks ja auch immer an: erst fragen, und dann die Ausrede "schau'mer mal bis Montach".
Und nu bin isch selber so einer  

Hoffe meine Ausrede gilt: hab schon 17 Augustiner Hefeweißbier getrunken und darf nicht mehr in die Fa. fahren  
Den Text hier hat natürlich meine Augustiner-kompatible Spracherkennung geschrieben, sonst könnte man eh nix lesen  
VPN mit Weißbier-Router klappt auch ned, also müssen wir leider bis Montag warten....

 
TMC

[eknori]

bss daaaannn allsoooo oooo oo *hicks*

[TMC]

Prost:
Y<_____ (0,5 Liter Augustiner sind nun auf der Tastatur -> Anmerkung vom Augustiner Sprachübersetzer)
....
ups,
ein Weizen verschüttet.
Nochmal nachschenk:
..>...J....Y

Y Y
Prost.

TMC  

[Glombi]

Was das Problem betrifft:
Es liegt evtl. an der Zeile
Dim arcdb As New NotesDatabase("IchBinServer" , "IchBinEinDir/IchBinDieDB.nsf")

Ersetze das mal durch
if session.IsOnServer then
Dim arcdb As New NotesDatabase("" , "IchBinEinDir/IchBinDieDB.nsf")
else
Dim arcdb As New NotesDatabase("IchBinServer" , "IchBinEinDir/IchBinDieDB.nsf")
end if

Gruß
Andreas
(noch nüchtern )

[TMC]

Danke @Andreas.
Werde ich am Montag testen.

TMC
(auch wieder nüchtern  )

[Teletambi]

Was für mich nicht ganz klar ist ... Warum holst du dir den Zugriff auf die Datenbank (db Instanz) über das Property CurrentDatabase aus der NotesSession class.

Enthält CurrentDatabase beim Triggern überhaupt eine Instanz (von welcher aktuellen Datenbank ) und kann sie dem entsprechend der Variablen db diese Instanz zu weisen ?

Ich vermute mal nicht.

Warum machst du nicht die gleiche Initialisierung entsprechend der acrdb ?

Gruß
Teletambi

[Semeaphoros]

Warum nicht? Natürlich enhält CurrentDatabase eine Instanz. In diesem Falle die Datenbank, in der der Agent sich befindet. Du dürftest enorm Mühe haben, überhaupt einen Zeitpunkt zu finden, in dem CurrentDatabase nicht gesetzt ist (ausser vielleicht während des Startes von Notes selber, aber da haben wir programmatisch sowieso noch keinen vorgesehenen Zugriff).

[Christopher]

Die Frage ist liegt die DB auf dem gleichen Server?? Wenn nicht ist das bei einem periodischen Agenten nicht möglich.

Im Protokoll müßte folgende Fehlermeldung stehen.
Cannot open databases on machines other than the server running your program

[TMC]

Danke für Eure Antworten.

DB ist auf'm selben Server.

Ersetze das mal durch
if session.IsOnServer then
Dim arcdb As New NotesDatabase("" , "IchBinEinDir/IchBinDieDB.nsf")
else
Dim arcdb As New NotesDatabase("IchBinServer" , "IchBinEinDir/IchBinDieDB.nsf")
end if

Theoretisch wäre das i.O., praktisch lässt sich dann aber der Agent nicht speichern, weil Notes mault, dass 2 mal Dim arcdb vorkommt.

Hätte jetzt auch noch arcdb2 etc. einbauen können, war mir aber zu umständlich.

Die Lösung ist aber:
Dim arcdb As New NotesDatabase ("" , "IchBinEinDir/IchBinDieDB.nsf")

Nun läuft der Agent sauber  

Grüße,
TMC

[Semeaphoros]

Nana, das mit dem Maulen ist zwar unschön (und zeigt, dass der Compiler nicht besonders weit übern Tellerrand rausschaut), lässt sich aber sehr einfach beheben:

Code

Dim arcdb As New NotesDatabase
if session.IsOnServer then
  Set arcdb = New NotesDatabase("" , "IchBinEinDir/IchBinDieDB.nsf")
else
  Set arcdb = New NotesDatabase("IchBinServer" , "IchBinEinDir/IchBinDieDB.nsf")
end if

... und so ganz nebenbei auch wenns hier nicht zutrifft, Zugriff auf einen anderen Server geht in R5 tatsächlich nicht, dazu braucht es das Notes-Domino Sixpack

[Glombi]

Notes ist manchmal eigenartig.
Bei new NotesDatabase muss man als Server "" eingeben,
bei GetDatabase darf es dann auch der "richtige" Server sein.

Aber egal, schön dass es geht.
Und der Notesträger war mal wieder schneller, sonst hätte ich meinen Fauxpax auch ausbügeln können  

Andreas

[Semeaphoros]

 

[TMC]

danke für die Hinweise.
Werde sicherheitshalber noch die if-Abfrage einbauen...

cu,
TMC