Domino 9 und frühere Versionen > Entwicklung

Lokale Datenbank über Replikhistory sperren

(1/3) > >>

Jörg:
Hi ,

ich habe die Aufgabe bekommen eine lokale Datenbank zu sperren wenn das Replikationsdatum älter als "X"Tage ist.
Es soll so ein Missbrauch der DB unterbunden werden.
Nun habe ich die Suche schon gequält und ein Scpript gefunden mit dem ich die Replikationhistory
auslesen kann:

http://atnotes.de/index.php?topic=8437.0

Aber nun sollte ich ja einen Vergleich einbauen den ich dann in irgend wo in die DB einbauen
muss, aber wie muss dieser Vergleich aussehen und wo plaziere ich ihn am besten...... ????

Gruss Jörg

Lossa:
Das Script müsste auf jeden Fall in den OpenEvent der Datenbank, denn nur dort kannst du dafür sorgen, das bei jedem öffnen der Datenbank das Script geprüft wird.

Jörg:
Hi,

ich habe nun das Script bei den Datenbankscript eingefügt.
Nun möchte ich ja keine Anzeige mir ausgeben , sondern ja auf das letzte Replikdatum
reagieren.

Hierzu habe ich folgendes Script eingebaut bei "Postopen":

--- Code: ---Sub Postopen(Source As Notesuidatabase)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim weekDateTime As NotesDateTime
Dim modifiedDateTime As NotesDateTime
Dim sList() As String
Dim nCt%, nReturn%
Dim sRepTime$
Dim lEntries&
Set db=session.GetDatabase("", "serviceinfobase.nsf")
Set weekDateTime = New NotesDateTime( "Today" )
sRepTime$=Space(MAXALPHATIMEDATE + 1)


Call weekDateTime.AdjustDay( -7 )  ' set to one week ago
modifiedDateTime.LSLocalTime = sRepTime$
If weekDateTime.TimeDifference( modifiedDateTime ) > 0  Then
Msgbox "Reminder: please make a replcation from the database"
Call db.Open( "", "" )
Else
Call db.Open("", "serviceinfobase.nsf")
End If

End Sub
--- Ende Code ---

Hierzu habe ich einige Fragen:

- Wie komme ich nun an die letzte Replikzeit??
- Wie kann ich nun damit verhindern das die Datenbank geöffnet wird??

Gruss JÖrg

koehlerbv:
Ich befürchte, dass die nachträgliche Verweigerung des Zugriffs auf eine Datenbank, für die Zugriffsrechte eingeräumt wurden, nicht möglich ist.

Das PostOpen des DatabaseScripts ist dafür auf jeden Fall schon einmal ungeeignet, da es nicht zwingend ausgeführt werden muss.

Bernhard

Jörg:
Wäre denn dann der Code bei Initialize einzubinden???


Gruss JÖrg

Navigation

[0] Themen-Index

[#] Nächste Seite