Sub Get_Map_From_Bundle (bundle As String) As Map
Dim res As Map
res.Initialize
If bundle.Trim = "" Then Return res
'Bundle[{google.sent_time=1533742162225, google.ttl=2419200, tsj_address=%D0%B4%D0%BE%D0%BC+220%2C+%D1%83%D0%BB.+%D0%A1%D1%82%D0%B0%D1%80%D0%B0+%D0%97%D0%B0%D0%B3%D0%BE%D1%80%D0%B0%2C+%D0%B3.+%D0%A1%D0%B0%D0%BC%D0%B0%D1%80%D0%B0, body=987, from=/topics/general, title=TestTitle, google.message_id=0:1533742162621385%a2e646f5a2e646f5, collapse_key=peacemaker.testapp}]
Dim res2 As String = bundle.SubString2(0, bundle.Length - 2).SubString(8)
Dim pairs() As String = Regex.Split(", ", res2)
For i = 0 To pairs.Length - 1
Dim pair(2) As String = Regex.Split("=", pairs(i))
res.Put(others.su.DecodeUrl(pair(0), "UTF8"), others.su.DecodeUrl(pair(1), "UTF8"))
Next
Log(res)
Return res
End Sub