Collaborama

Source: site.view [edit]

Function name:	xmlRSS
Arguments:	opml
Description:	Accepts OPML, accessed either as a URL or a WubHub command name, and returns a list of urls that coming from the "xmlUrl" attributes set in the OPML.
Page type:	webl
Render function:
Module:	sandbox

Page source:

var P;

if Str_StartsWith(opml, "http") then
   P = GetURL(opml);
else
   P = WubCall(opml, [])
end;
var list = Select(
    Elem(P, "outline"),
          fun(a) 
             a.xmlUrl != "" ? false end
         );
var res = [];
every o in list do
   // In our test file, &amp; weren't replaced, so do that transformation here
   res = res + [Wub_ReplaceAll(o.xmlUrl, "&amp;", "&")]
end;
res;