method private params_for_item item =
      let param_title = C.string
        ~f: (fun s -> item.item_title <- opt_of_string (of_u8 s))
          "Title:" (to_u8 (string_of_opt item.item_title))
      in
      let param_link = C.string
        ~f: (fun s -> item.item_link <- opt_of_string (of_u8 s))
          "Link:" (to_u8 (string_of_opt item.item_link))
      in
      let param_author = C.string
        ~f: (fun s -> item.item_author <- opt_of_string (of_u8 s))
          "Author's mail:" (to_u8 (string_of_opt item.item_author))
      in
      let param_pubdate = C.date
        ~f: (fun d -> item.item_pubdate <- Some (tuple_to_date d))
          "Pubdate:"
          (match item.item_pubdate with
             None -> date_to_tuple today
           | Some d -> date_to_tuple d
          )
      in
      let param_desc = C.text
        ~f: (fun s -> item.item_desc <- opt_of_string (of_u8 s))
          "Description" (to_u8 (string_of_opt item.item_desc))
      in
      let param_comments = C.string
        ~help: "Url of comments about this item"
          ~f: (fun s -> item.item_comments <- opt_of_string (of_u8 s))
          "Comments:" (to_u8 (string_of_opt item.item_comments))
      in
      [param_title ; param_link ; param_author ; param_pubdate ; param_desc ; param_comments ]