Integration of Roku with Vimeo to enable Vimeo video hosting

sub showChannelSGScreen()
 mainUrl = "https://api.vimeo.com/users/88043989"
 urlOfAllAlbum = mainUrl + "/albums"
    jsonValue = getDataFromUrl(urlOfAllAlbum.trim())
    list = []
    for each albumItem in jsonvalue.data
            albumName = albumItem.name
            eachVideoUrl = mainUrl + albumItem.metadata.connections.videos.uri
            jsonOfEachVideo = getDataFromUrl(eachVideoUrl.trim())
            videosItem = []
            for each videoData in jsonOfEachVideo.data
                item = {}
                item.EpisodeNumber = Right(videoData.uri, 9)
                item.title = videoData.name
                item.description = videoData.description
                item.SDPosterUrl = videoData.pictures.sizes[0].link
                item.HDPosterUrl = videoData.pictures.sizes[3].link
                ' here a medium size picture taken , we can choose from 7 different sizes
                if videoData.duration <> invalid
                    item.Length = videoData.duration
                else
                    item.Length = 120
                end if
                item.hdBackgroundImageUrl = videoData.pictures.sizes.peek().link
                if item <> invalid then
                    videosItem.push(item)
                else
                    ? "error in pushin item in videosItem"
                end if
            end for
            list.push({ Title: albumName
            ContentList: videosItem })
    end for 
end sub

function getDataFromUrl(url as String) as Object
    request = CreateObject("roUrlTransfer")
    port = CreateObject("roMessagePort")
    request.SetMessagePort(port)
    request.SetUrl(url)
    request.addHeader("Authorization", "bearer f11832710cff860ae2dfwfw32dssn9223dss")
    request.setCertificatesFile("common:/certs/ca-bundle.crt")
    request.initClientCertificates()
    request.enableEncodings(true)
    request.RetainBodyOnError(true)

    if (request.AsyncGetToString())
        while (true)
            msg = Wait(0, port)
            if (Type(msg) = "roUrlEvent")
                code = msg.GetResponseCode()
                if (code = 200)
                    ' playlist = CreateObject("roArray", 10, true)
                    jsonValue = ParseJson(msg.GetString())
                    return jsonValue
                else
                    ? "code is other than 200"
                end if
            else if (event = invalid)
                ? "REQUEST CANCELLED"
                request.AsyncCancel()
            end if
        end while
    end if
    ? "RETURNING INVALID"
    return invalid
end function