jbe/bsw@20: --[[--
jbe/bsw@20: auth.openid.xrds_document{
jbe/bsw@20:   return_to_module = return_to_module,
jbe/bsw@20:   return_to_view   = return_to_view
jbe/bsw@20: }
jbe/bsw@20: 
jbe/bsw@20: This function returns an XRDS document with Content-Type
jbe/bsw@20: application/xrds+xml. For more information see documentation on
jbe/bsw@20: auth.openid.xrds_document{...}.
jbe/bsw@20: 
jbe/bsw@20: --]]--
jbe/bsw@20: 
jbe/bsw@20: function auth.openid.xrds_document(args)
jbe/bsw@20:   slot.set_layout(nil, "application/xrds+xml")
jbe/bsw@20:   slot.put_into("data",
jbe@23:     '<?xml version="1.0" encoding="UTF-8"?>\n',
jbe@23:     '<xrds:XRDS xmlns:xrds="xri://$xrds" xmlns="xri://$xrd*($v*2.0)">\n',
jbe@23:     '  <XRD>\n',
jbe@23:     '    <Service>\n',                                                   
jbe@23:     '      <Type>http://specs.openid.net/auth/2.0/return_to</Type>\n',
jbe@23:     '      <URI>',
jbe/bsw@20:     encode.url{
jbe/bsw@20:       base   = request.get_absolute_baseurl(),
jbe/bsw@20:       module = args.return_to_module,
jbe/bsw@20:       view   = args.return_to_view
jbe/bsw@20:     },
jbe@23:     '</URI>\n',
jbe@23:     '    </Service>\n',
jbe@23:     '  </XRD>\n',
jbe@23:     '</xrds:XRDS>\n'
jbe/bsw@20:   )
jbe/bsw@20: end