205e0ad302
Die Klasse `EDMIService` wurde erweitert, um kürzlich aktive Benutzer zu überwachen. Eine neue `ConcurrentDictionary` namens `_RecentUsers` speichert die letzten Aktivitäten von Benutzern, die maximal 15 Minuten zurückliegen. Die Methode `GetServiceStatus` wurde angepasst, um diese Informationen bereitzustellen und ältere Einträge zu bereinigen. Die Klasse `ServiceStatusResponse` enthält nun eine neue Eigenschaft `RecentUsers`, die die kürzlich aktiven Benutzer zurückgibt. Die Datei `GetServiceStatus.vb` wurde entfernt und durch eine neue Struktur im Namespace `Messages` ersetzt. Die Projektdatei `EDMIService.vbproj` wurde entsprechend aktualisiert. Zusätzlich wurden die Datenkontrakte in `ServiceStatusResponse` optimiert, indem die Eigenschaften mit einer expliziten Reihenfolge (`Order`) versehen wurden.
12 lines
695 B
VB.net
12 lines
695 B
VB.net
Imports System.Runtime.Serialization
|
|
|
|
Namespace Messages
|
|
<DataContract(Name:="ServiceStatusResponse", [Namespace]:="http://schemas.datacontract.org/2004/07/DigitalData.Services.EDMIService.Messages")>
|
|
Public Class ServiceStatusResponse
|
|
<DataMember(Order:=1)> Public Property ActiveSessionCount As Integer
|
|
<DataMember(Order:=2)> Public Property ActiveUsers As List(Of String)
|
|
<DataMember(Order:=3)> Public Property ActiveSessions As Dictionary(Of String, String)
|
|
<DataMember(Order:=4)> Public Property Timestamp As DateTime
|
|
<DataMember(Order:=5)> Public Property RecentUsers As List(Of String) = New List(Of String)()
|
|
End Class
|
|
End Namespace |