roku rss feed from vimeo pro

Create an access token in vimeo for your account, I use code like this, adjust as needed for your needs:

Web = createobject("roURLTransfer"): Web.SetCertificatesFile("common:/certs/ca-bundle.crt"):
Web.InitClientCertificates(): Web.SetHeaders({Authorization: "bearer [Your Bearer Token"})

' Web.SetUrl("https://api.vimeo.com/me/videos?&per_page=5"): Data = Web.GetToString() ' Just to get full dump for a fielding layout

Web.SetUrl("https://api.vimeo.com/me/videos?fields=uri,name,pictures.sizes,files&sort=alphabetical&per_page=100")
' Much faster to use specified fields once you know them, 100 is max page size

while true ' Loop forever until an exit while is hit
  Data = Web.GetToString(): JSON = ParseJSON(Data)
  for each Item in JSON.Data
    Movie = CreateObject("roSGNode","ContentNode"): Contents.Push(Movie) ' etc,,,
    Movie.ContentType="Movie": Movie.EpisodeNumber=Item.URI: Movie.Title=Name
    Movie.ShortDescriptionLine1 = Item.Title
    SD=Item.Pictures.Sizes[0]: HD=Item.Pictures.Sizes[0]: FHD=Item.Pictures.Sizes[0]
    for each Size In Item.Pictures.Sizes
      if Size.Width>SD.Width and Size.Width<720 SD=Size
      if Size.Width>HD.Width and Size.Width<1024 HD=Size
      if Size.Width>FHD.Width and Size.Width<1980 FHD=Size
    end for
  Movie.SDPosterURL=SD.Link: Movie.HDPosterURL=HD.Link: Movie.FHDPosterURL=FHD.Link
  for each File In Item.Files
    if File.Quality="hls" Movie.URL=File.Link
    end for
  end for
if JSON.paging.next=invalid exit while
Web.SetURL("https://api.vimeo.com"+JSON.paging.next)
end while