Public Sub AddNotification(Message As String,DateTimes As Int)
Dim m As Map
If File.Exists(File.DirInternal,"notification") Then
m = File.ReadMap(File.DirInternal,"notification")
Else
m.Initialize
End If
m.Put(m.Size + 1 , Library.Map2Json(CreateMap("message":Message,"time":DateTimes)))
File.WriteMap(File.DirInternal,"notification",m)
End Sub
Sub Map2Json(Data As Map) As String
If Data = Null Then Return "{}"
If Data.IsInitialized = False Then Return "{}"
Dim js As JSONGenerator
js.Initialize(Data)
Return js.ToString
End Sub