Sub handleRequestUploadPath(Job As HttpJob, res As String)
Dim parser As JSONParser
parser.Initialize(res)
Dim root As Map = parser.NextObject
root.Put("Tag", Job.Tag)
If SubExists(Me, "meyadisk_RequestUploadPath") Then
CallSub2(Me, "meyadisk_RequestUploadPath", root) 'ME - it's the class itself
End If
End Sub