Skip to content
Browse files

Ocsiblog: must use absolute links with custom server/port in RSS.

  • Loading branch information...
1 parent 152e102 commit 64899ac807c21c747af22ed4da8e8357d12d065e @mfp committed Jan 5, 2009
Showing with 2 additions and 3 deletions.
  1. +2 −3 ocsiblog.ml
View
5 ocsiblog.ml
@@ -26,7 +26,7 @@ let rss_description = ref !rss_title
let rss_nitems = ref 10
let port = 80
let encoding = ref "UTF-8"
-let css_uri = uri_of_string "/blog/ocsiblog.css"
+let css_uri = uri_of_string "/R2/ocsiblog.css"
let ctype_meta = meta ~content:("text/html; charset=" ^ !encoding)
~a:[a_http_equiv "Content-Type"] ()
let copyright =
@@ -221,8 +221,7 @@ and get_rss_items sp tags =
in
List.map
(fun node ->
- let link =
- make_full_string_uri ~sp ~service:!!page_service (Node.name node)
+ let link = string_of_uri (abs_service_uri page_service ~sp (Node.name node))
in Rss.make_item ~title:(Node.title node) ~link
~pubDate:(Node.date node) ~guid:(link, true)
~description:(render_node_for_rss ~sp node) ())

0 comments on commit 64899ac

Please sign in to comment.
Something went wrong with that request. Please try again.